VB版机房管理系统-组合查询

最新推荐文章于 2020-04-12 20:45:05 发布

枫轻·

最新推荐文章于 2020-04-12 20:45:05 发布

阅读量271

点赞数 1

分类专栏：电脑学习

本文链接：https://blog.csdn.net/lifuchao784533/article/details/78943040

版权

本文介绍了如何在VB环境下实现机房管理系统的组合查询功能，详细讲解了三种不同查询条件下的逻辑处理，包括单行查询、两行组合查询和三行组合查询的实现，并强调了在特定条件下的限制操作。通过理解这些逻辑，可以更好地理解和应用组合查询。

摘要由CSDN通过智能技术生成

刚开始接触组合查询的时候，脑子里一团浆糊，因为逻辑关系没有理清楚，理清楚以后问题也就不大了

① 在7、8为空的时候，进行第一行查询，且1、4、a不能为空

② 在7不为空，8为空的时候的时候，进行第一、二行组合查询，且1、4、a和2、5、b不能为空

③ 在7、8不为空的时候，三行组合查询，且所有项不能为空

PS：在7为空的时候，第二行往下的选项，都不能进行操作（同理，8也是）

代码如下：

Private Sub cmdOK_Click()

    txtSQL = "select * from line_Info where "
    '第一行查询
    If Trim(Combo1.Text = "") Then
        MsgBox "请输入字段名", vbOKCancel + vbExclamation, "提示"
        Combo1.SetFocus
        Exit Sub
    ElseIf Trim(Combo4.Text = "") Then
            MsgBox "请输入操作符", vbOKCancel + vbExclamation, "提示"
            Combo4.SetFocus
            Exit Sub
    ElseIf Trim(txt1.Text = "") Then
                MsgBox "请输入要查询的内容", vbOKCancel + vbExclamation, "提示"
                txt1.SetFocus
                Exit Sub
    Else
            
        txtSQL = txtSQL & " " & FiledName(Combo1.Text) & " " & Combo4.Text & "'" & Trim(txt1.Text) & "'"


        '第二行查询
            If Trim(Combo7.Text) &