项目信息查询模块的代码实现：
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 chkxmbh.Value = vbChecked Then
        sSqlW = sSqlW & " AND 项目编号 like '%" & Trim$(txtxmbh.Text) & "%'"
    End If
    If chkxmmc.Value = vbChecked Then
        sSqlW = sSqlW & " AND 项目名称 like '%" & Trim$(txtxmmc.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
4.6    帮助模块的实现
 
图 4.14 帮主模块实现
主窗体帮助菜单下仅含有一项菜单关于，在其单击事件中用MsgBox语句显示本程序的版本信息。
帮助模块的代码实现如下：
Private Sub mnuAbout_Click() '关于
    MsgBox Space(6) & "公司合同管理系统" & Space(6) & vbCr & vbCr & Space(9) & "版本：1.0", vbOKOnly, "公司合同管理系统"
End Sub
4.7    数据库实验数据录入
（1）用户表的数据如表4.1所示。 VB公司合同管理系统开发与设计(20):http://www.youerw.com/jisuanji/lunwen_4550.html