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 项目信息查询模块实现
用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。 VB公司合同管理系统开发与设计(19):http://www.751com.cn/jisuanji/lunwen_4550.html