【数据库学习】机房收费系统（二）组合查询

于 2015-09-05 19:59:30 发布
阅读量1.1k 收藏
点赞数
分类专栏： ❀ 基础知识 ——【数据库学习】 数据库学习 文章标签： 数据库
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/W15732624773/article/details/48228727
版权

   机房的组合查询把数据库查询的方式变得复杂与细腻，组合查询也更便于，用户查询到自己所“心仪的”的数据。

拿机房收费系统里的操作员工作记录窗体为例，我们来具体了解一下组合查询。


 1.首先将上述窗体的控件做好命名。

        字段名一列的三个控件分别为，combo1（0），combo1（1），combo1（2）

操作符一列的三个控件分别为，combo2（0），combo2（1），combo2（2）

查询内容一列的三个控件分别为，Text1（0），Text1（1），Text1（2）

组合关系一列的三个控件分别为，combo3（0），combo3（1），combo3（2）


2.窗体加载代码实现。

3.分析组合关系。

        

       上图解析：

上图的判断组合关系，目的在与：只有选择了组合关系，相应选项才可用。
        分四种情况分析

        第一层组合关系不为空
第一层组合关系不为空 第二层不为空
第一层组合关系为空 第二层不可用，并且清空
第二层组合关系为空 第三层不可用并且清空

参考代码：

Private Sub Combo3_Click(Index As Integer)
    '判断组合关系，只有选了组合关系，相应的选项才能用
    
    '第一个组合关系不为空的时候
    If Trim(Combo3(0).Text) = "与" Or Trim(Combo3(0).Text) = "或" Then
        '第二层的选项可用
        Combo1(1).Enabled = True
        Combo2(1).Enabled = True
        Text1(1).Enabled = True
    End If
    
    '第一个组关系不为空，且第二个组合关系不为空的时候
    If Not Trim(Combo3(0).Text) = "" Then
        If Trim(Combo3(1).Text) = "与" Or Trim(Combo3(1).Text) = "或" Then
        '第三层的选项可用
            Combo1(2).Enabled = True
            Combo2(2).Enabled = True
            Text1(2).Enabled = True
         End If
    End If
    
    '第一个组合关系为空，第二层选项不可用，且要清空
    If Trim(Combo3(0).Text) = "" Then
        Combo1(1).Enabled = False
        Combo2(1).Enabled = False
        Text1(1).Enabled = False
        Combo1(1).Text = ""
        Combo2(1).Text = ""
        Text1(1).Text = ""
    End If
        
     '第二个组合关系为空，第三层选项不可用，且要清空
     If Trim(Combo3(1).Text) = "" Then
        Combo1(2).Enabled = False
        Combo2(2).Enabled = False
        Text1(2).Enabled = False
        Combo1(2).Text = ""
        Combo2(2).Text = ""
        Text1(2).Text = ""
    End If
    
    
        
End Sub




4.查询逻辑


一：不用组合关系 （下图）


第一层从表中提取信息
如果选项内容为空，提示信息要完善
不为空，判断是否有数据
无数据，提示无数据
有数据，调用添加函数
记录集关闭

二：使用一个组合关系（下图）


从表中提取数据
判断前两层选项是否有空
判断组合关系
与
或
判断数据库中是否有该数据
调用添加函数
释放记录集

三：用到两个组合关系（下图）


从表中提取数据
判断前三层是否有空
组合关系判断
两个组合关系都是 与
判断数据库中是否有该数据，调用添加函数，记录集释放
第一个是与 第二个是或
判断数据库中是否有该数据，调用添加函数，记录集释放
第一个是或 第二个是与
判断数据库中是否有该数据，调用添加函数，记录集释放
两个组合关系都是 或
判断数据库中是否有该数据，调用添加函数，记录集释放


组合查询，参考代码

'点击查询，考虑组合关系
'combo1是第一列的字段，combo运算符，
'text1是查询内容，combo3是组合关系
Private Sub cmdInquire_Click()
'    Dim mrc As ADODB.Recordset
'    Dim strtxtSQL As String
'    Dim MsgText As String
    
    
    '从值班表中提取信息,具体选择条件在下面出现
    strtxtSQL = "select * from worklog_Info where "
    
    '一：当不使用组合关系。
    If Combo3(0).Text = "" Then
    '判断选项是否为空，第一层选项为空时
        If Trim(Combo1(0).Text) = "" Or Trim(Combo2(0).Text) = "" Or Trim(Text1(0).Text) = "" Then
            MsgBox "请将选项内容填写完整！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        Else '第一层选项均不为空时,sql语句完整
            strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Combo2(0).Text & "'" & Text1(0).Text & "'"
            Set mrc = ExecuteSQL(strtxtSQL, MsgText)
            '判断数据库。数据库中没有该数据时
            If mrc.EOF Then
                MsgBox "无该条数据，请重新选择！", vbOKOnly + vbExclamation, "警告"
                Text1(0).SetFocus
                Text1(0).Text = ""
                myflexgrid.Clear
                Call jiazai
                Exit Sub
            Else
                Call tianjia   '调用添加函数，将信息加载给myflexgrid
            End If
         End If
    End If
    Set mrc = Nothing '释放mrc记录集
    
    '二：使用第一个组合关系
    '从表中提取数据
    strtxtSQL = "select * from worklog_Info where " 'where 后少一个空格
    '第一个组合关系不为空
    If Not Trim(Combo3(0).Text) = "" Then
        '判断前两层的选项是否有空
        If Trim(Combo1(0).Text) = "" Or Trim(Combo2(0).Text) = "" Or Trim(Text1(0).Text) = "" _
        Or Trim(Combo1(1).Text) = "" Or Trim(Combo2(1).Text) = "" Or Trim(Text1(1).Text) = "" Then
            MsgBox "请将选项内容填写完整！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        Else
            '如果组合关系为“与”
            If Combo3(0).Text = "与" Then
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                & " " & "and" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Text1(1).Text & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                If mrc.EOF Then
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(1).SetFocus
                    Text1(1).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                 Else
                    Call tianjia
                 End If
            '如果组合关系为“或”
            Else
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                & " " & "or" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Text1(1).Text & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                '判断数据库中是否有该数据
                '如果没有该数据
                If mrc.EOF Then
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(1).SetFocus
                    Text1(1).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                Else '如果有该数据
                    Call tianjia '调用添加函数
                End If
             End If
        End If
        Set mrc = Nothing '释放记录集
    End If
            
    
    
    '三：使用两个组合关系，涉及三层选项
    '从表中提取数据
    strtxtSQL = "select * from worklog_Info where "
    If Not Trim(Combo3(1).Text) = "" Then
        '判断前两层的选项是否有空
        If Trim(Combo1(0).Text) = "" Or Trim(Combo2(0).Text) = "" Or Trim(Text1(0).Text) = "" _
            Or Trim(Combo1(1).Text) = "" Or Trim(Combo2(1).Text) = "" Or Trim(Text1(1).Text) = "" _
            Or Trim(Combo1(2).Text) = "" Or Trim(Combo2(2).Text) = "" Or Trim(Text1(2).Text) = "" Then
        
            MsgBox "请将选项内容填写完整！", vbOKOnly + vbExclamation, "警告"
            Exit Sub
        Else
        '两个组合关系均为“与”时
         If Combo3(0).Text = "与" And Combo3(1).Text = "与" Then
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                            & " " & "and" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Trim(Text1(1).Text) & "'" & " " & _
                            "and" & " " & filename(Combo1(2).Text) & " " & Trim(Combo2(2).Text) & "'" & Trim(Text1(2).Text) & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                If mrc.EOF Then '91错误，未定义
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(2).SetFocus
                    Text1(2).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                 Else
                    Call tianjia
                 End If
        End If
       
       '一个组合关系为“与”，一个组合关系为“或”
        If Combo3(0).Text = "与" And Combo3(1).Text = "或" Then
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                            & " " & "and" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Trim(Text1(1).Text) & "'" & " " & _
                            "or" & " " & filename(Combo1(2).Text) & " " & Trim(Combo2(2).Text) & "'" & Trim(Text1(2).Text) & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                If mrc.EOF Then
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(2).SetFocus
                    Text1(2).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                 Else
                    Call tianjia
                 End If
        End If
       
       '一个组合关系为“或”，一个组合关系为“与”
        If Combo3(0).Text = "或" And Combo3(1).Text = "与" Then
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                            & " " & "or" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Trim(Text1(1).Text) & "'" & " " & _
                            "and" & " " & filename(Combo1(2).Text) & " " & Trim(Combo2(2).Text) & "'" & Trim(Text1(2).Text) & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                If mrc.EOF Then
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(2).SetFocus
                    Text1(2).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                 Else
                    Call tianjia
                 End If
        End If
       
       '两个组合关系都为“或”时
        If Combo3(0).Text = "或" And Combo3(1).Text = "或" Then
                strtxtSQL = strtxtSQL & filename(Combo1(0).Text) & " " & Trim$(Combo2(0).Text) & "'" & Trim(Text1(0).Text) & "'" _
                            & " " & "or" & " " & filename(Combo1(1).Text) & " " & Trim(Combo2(1).Text) & "'" & Trim(Text1(1).Text) & "'" & " " & _
                            "or" & " " & filename(Combo1(2).Text) & " " & Trim(Combo2(2).Text) & "'" & Trim(Text1(2).Text) & "'"
                Set mrc = ExecuteSQL(strtxtSQL, MsgText)
                If mrc.EOF Then
                    MsgBox "无该条记录，请重新选择！", vbOKOnly + vbExclamation, "警告"
                    Text1(2).SetFocus
                    Text1(2).Text = ""
                    myflexgrid.Clear
                    Call jiazai
                    Exit Sub
                 Else
                    Call tianjia
                 End If
        End If
        Set mrc = Nothing
    End If
 End If
 
   
       
End Sub




5.函数的定义

'定义一个函数，让数据库名称和选择框对应
Public Function filename(strfilename) As String
    Select Case strfilename
    
        Case "教师"
        filename = "UserID"
        Case "注册日期"
        filename = "LoginDate"
        Case "注册时间"
        filename = "LoginTime"
        Case "注销日期"
        filename = "LogoutDate"
        Case "注销时间"
        filename = "LogoutTime"
        Case "机器号"
        filename = "computer"
        Case "级别"
        filename = "level"
        Case "状态"
        filename = "status"
        
     End Select
     
End Function


6.定义添加过程。 

Public Function tianjia() '定义一个添加函数，简化过程

    
    With myflexgrid
        .Rows = 1

        
    
     Do While Not mrc.EOF
        .Rows = .Rows + 1
        '.CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields("UserID"))
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields("level"))
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields("LoginDate"))
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields("LoginTime"))
        .TextMatrix(.Rows - 1, 4) = Format(mrc.Fields("LogoutDate"))
        .TextMatrix(.Rows - 1, 5) = Format(mrc.Fields("LogoutTime"))
        .TextMatrix(.Rows - 1, 6) = VBA.Environ("computername")
        .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields("status"))
        
        mrc.MoveNext
     Loop
     End With
     mrc.Close
        
End Function


小结：组合查询总结出两点，一、不要着急动手敲代码，首先理清思路。

王璐-Louise
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 18
    评论
专栏目录
评论 18
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值