VB公司合同管理系统开发与设计(20)
时间:2017-03-31 18:46 来源:毕业论文 作者:毕业论文 点击:次
项目信息查询模块的代码实现： 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所示。 (责任编辑：qin) |