VB公司合同管理系统开发与设计(19)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
项目信息管理模块的实现与客户信息管理模块的实现类似，窗体代码复用，只不过是通过选项卡来区分其不同的功能，因此不再赘述。 4.5 信息查询模块的实现 （1）客户信息查询模块 图 4.10 客户信息查询模块实现 用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。 客户信息查询模块的代码实现： Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdQuery_Click() lblCount.Caption = "" Dim sSQL As String Dim sKey As String Dim sSqlW As String sSQL = "SELECT * FROM 客户信息" sSqlW = "" If chkkhbh.Value = vbChecked Then sSqlW = sSqlW & " AND 客户编号 like '%" & Trim$(txtkhbh.Text) & "%'" End If If chkkhxm.Value = vbChecked Then sSqlW = sSqlW & " AND 客户姓名 like '%" & Trim$(txtkhxm.Text) & "%'" End If If chkgsm.Value = vbChecked Then sSqlW = sSqlW & " AND 公司名 like '%" & Trim$(txtgsm.Text) & "%'" End If sSQL = sSQL & " WHERE " & Mid$(sSqlW, InStr(sSqlW, "AND") + 3) adoQuery.RecordSource = sSQL & " order by 客户编号" adoQuery.Refresh Set DataGrid1.DataSource = adoQuery lblCount.Caption = "查到 " & adoQuery.Recordset.RecordCount & " 条记录" End Sub （2）合同信息查询模块 图 4.11 合同信息查询模块实现 用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。 合同信息查询模块的代码实现： Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdQuery_Click() lblCount.Caption = "" Dim sSQL As String Dim sKey As String Dim sSqlW As String sSQL = "SELECT * FROM 合同信息" sSqlW = "" If chkhtbh.Value = vbChecked Then sSqlW = sSqlW & " AND 合同编号 like '%" & Trim$(txthtbh.Text) & "%'" End If If chkhtmc.Value = vbChecked Then sSqlW = sSqlW & " AND 合同名称 like '%" & Trim$(txthtmc.Text) & "%'" End If sSQL = sSQL & " WHERE " & Mid$(sSqlW, InStr(sSqlW, "AND") + 3) adoQuery.RecordSource = sSQL & " order by 合同编号" adoQuery.Refresh Set DataGrid1.DataSource = adoQuery lblCount.Caption = "查到 " & adoQuery.Recordset.RecordCount & " 条记录" End Sub （3）项目信息查询模块 图 4.13 项目信息查询模块实现 用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。 (责任编辑：qin) |