VB公司合同管理系统开发与设计(19)
项目信息管理模块的实现与客户信息管理模块的实现类似，窗体代码复用，只不过是通过选项卡来区分其不同的功能，因此不再赘述。
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 项目信息查询模块实现
用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。