菜单
　　

    项目信息管理模块的实现与客户信息管理模块的实现类似，窗体代码复用，只不过是通过选项卡来区分其不同的功能，因此不再赘述。
    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 项目信息查询模块实现
    用户首先在复选框中选择查询方式，然后在相应的文本框中输入查询内容，单击查询即可进行查询操作，结果显示在窗口中。
  1. 上一篇：ASP.net实验室建设与实习基地信息库系统的建设与实施
  2. 下一篇：Flash俄罗斯方块游戏设计+文献综述

  1. JAVA基于安卓平台的医疗护工管理系统设计

  2. java+mysql酒店管理系统设计与实现

  3. Ruby+mysql就业信息管理系统的设计与实现

  4. php进销存管理系统的设计与实现

  5. jsp医药连锁店管理系统的设计与实现

  6. jsp+mysql学生实践创新项目管理系统设计与实现

  7. jsp+mysql停车场车辆管理系统的设计与实现

  8. 十二层带中心支撑钢结构...

  9. 河岸冲刷和泥沙淤积的监测国内外研究现状

  10. 中考体育项目与体育教学合理结合的研究

  11. 大众媒体对公共政策制定的影响

  12. 酸性水汽提装置总汽提塔设计+CAD图纸

  13. 电站锅炉暖风器设计任务书

  14. 乳业同业并购式全产业链...

  15. java+mysql车辆管理系统的设计+源代码

  16. 当代大学生慈善意识研究+文献综述

  17. 杂拟谷盗体内共生菌沃尔...

　　

About

751论文网手机版...

主页：http://www.751com.cn

关闭返回