机房收费系统-组合查询

最新推荐文章于 2019-02-20 15:05:45 发布
最新推荐文章于 2019-02-20 15:05:45 发布
阅读量582 收藏
点赞数 2
CC 4.0 BY-SA版权
分类专栏： ----【机房收费系统】
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/weienjun/article/details/52072912

前言：

    上一篇是对机房收费系统的简单功能窗体的介绍，这次给大家介绍一下组合查询。刚敲组合查询的时候，别的人就会说好难好难，每每听到这些负能量的话，我就会暗自和自己说，我没有必要在没真正去做某件事之前，就去定义一件事情的难易，带着我必定会轻松解决的心理，结果真的就是轻松解决了。下面呢我就以学生上机统计信息查询为例，向大家揭开组合查询的神秘面纱！


内容：

    1、理清思路：

     


  2、代码技巧：

        这次敲机房收费系统才明白一个道理，我们的代码不能仅仅是实现一个功能，也要考虑代码的时间和空间复杂度，这里就要提到变量作用。组合查询这点表现得很明显，典型的就是文本框文本与数据库字段的转换，这样可以很大程度减少代码的复杂度，看起来也特别的清晰明了！

Select Case Combo1.Text                 '文本框文本与数据库字段的转换
     Case "卡号"
      strcon1 = "cardno"
     Case "姓名"
      strcon1 = "studentname"
     Case "上机日期"
      strcon1 = "ondate"
     Case "上机时间"
      strcon1 = "ontime"
     Case "下机日期"
      strcon1 = "offdate"
     Case "下机时间"
      strcon1 = "offtime"
     Case "消费金额"
      strcon1 = "consume"
     Case "余额"
      strcon1 = "cash"
     Case "备注"
      strcon1 = "status"
   End Select

  3、代码实现：这里需要注意的是只有combo7有文本，第二行的各个框才可用。combo8有文本，第三行的各个框才可用。也就是要用到第二行，第二行的enabled值为true。用到第三行，第三行的enabled的值为true。

Private Sub Command2_Click()
   Dim mrc As ADODB.Recordset
   Dim txtsql As String
   Dim Msgtext As String
   Dim strcon1, strcon2, strcon3, strcon4, strcon5

   Select Case Combo1.Text                 '文本框文本与数据库字段的转换
     Case "卡号"
      strcon1 = "cardno"
     Case "姓名"
      strcon1 = "studentname"
     Case "上机日期"
      strcon1 = "ondate"
     Case "上机时间"
      strcon1 = "ontime"
     Case "下机日期"
      strcon1 = "offdate"
     Case "下机时间"
      strcon1 = "offtime"
     Case "消费金额"
      strcon1 = "consume"
     Case "余额"
      strcon1 = "cash"
     Case "备注"
      strcon1 = "status"
   End Select
   
   If Not Testtxt(Combo1.Text) Then                   '判断combo是否为空
     MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
     Combo1.SetFocus
   Else
     If Not Testtxt(Combo4.Text) Then                  '判断combo是否为空
       MsgBox "请选择操作符！", vbOKOnly + vbExclamation, "警告"
       Combo4.SetFocus
     Else
       If Not Testtxt(Text1.Text) Then                 '判断combo是否为空
         MsgBox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"
         Text1.SetFocus
       Else
         
         '第一行条件
         txtsql = "select * from Line_Info where " & strcon1 & Combo4.Text & "'" & Trim(Text1.Text) & "'"
         Set mrc = ExecuteSQL(txtsql, Msgtext)
         
         If mrc.EOF = True Then                           '判断是否有对应条件的记录
           MsgBox "此条件没有上机记录！", vbOKOnly + vbExclamation, "警告"
           Combo1.Text = ""
           Combo4.Text = ""
           Text1.Text = ""
           MSFlexGrid1.Clear
    
            With MSFlexGrid1                   '清除后显示表头
                .CellAlignment = 4
                .Rows = 1
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "姓名"
                .TextMatrix(0, 2) = "上机日期"
                .TextMatrix(0, 3) = "上机时间"
                .TextMatrix(0, 4) = "下机日期"
                .TextMatrix(0, 5) = "下机时间"
                .TextMatrix(0, 6) = "消费金额"
                .TextMatrix(0, 7) = "余额"
                .TextMatrix(0, 8) = "备注"
            End With
           Exit Sub
        End If
      End If
    End If
           
    If Not Testtxt(Combo7.Text) Then                     '如果combo7没有文本则直接跳到case1
      GoTo case1
    Else                                                 '如果有则判断第二行的条件
     If Not Testtxt(Combo2.Text) Then                    '判断combo框是否为空
       MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
       Combo2.SetFocus
     Else
       If Not Testtxt(Combo5.Text) Then
         MsgBox "请选择操作符！", vbOKOnly + vbExclamation, "警告"
         Combo5.SetFocus
       Else
         If Not Testtxt(Text2.Text) Then
           MsgBox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"
           Text2.SetFocus
         Else
           Select Case Combo7.Text
             Case "或"
              strcon2 = "or "
             Case "与"
              strcon2 = "and "
           End Select
           
          Select Case Combo2.Text                 '文本框文本与数据库字段的转换
              Case "卡号"
               strcon3 = "cardno"
              Case "姓名"
               strcon3 = "studentname"
              Case "上机日期"
               strcon3 = "ondate"
              Case "上机时间"
               strcon3 = "ontime"
              Case "下机日期"
               strcon3 = "offdate"
              Case "下机时间"
               strcon3 = "offtime"
              Case "消费金额"
               strcon3 = "consume"
              Case "余额"
               strcon3 = "cash"
              Case "备注"
               strcon3 = "status"
         End Select
          
             txtsql = txtsql & strcon2 & " " & strcon3 & Combo5.Text & "'" & Trim(Text2.Text) & "'"
             Set mrc = ExecuteSQL(txtsql, Msgtext)
             
             If mrc.EOF = True Then
               MsgBox "没有该条件下的上机记录", vbOKOnly + vbExclamation, "警告"
               Exit Sub
               Combo1.Text = ""
               Combo4.Text = ""
               Text1.Text = ""
               Combo2.Text = ""
               Combo5.Text = ""
               Text2.Text = ""
               Combo7.Text = ""
               
               With MSFlexGrid1                   '清除后显示表头
                .CellAlignment = 4
                .Rows = 1
                .TextMatrix(0, 0) = "卡号"
                .TextMatrix(0, 1) = "姓名"
                .TextMatrix(0, 2) = "上机日期"
                .TextMatrix(0, 3) = "上机时间"
                .TextMatrix(0, 4) = "下机日期"
                .TextMatrix(0, 5) = "下机时间"
                .TextMatrix(0, 6) = "消费金额"
                .TextMatrix(0, 7) = "余额"
                .TextMatrix(0, 8) = "备注"
                
              End With
             End If
            End If
          End If
        End If
      End If
      
      If Combo8.Text = "" Then                          '如果combo8没有文本则直接跳到case1
        GoTo case1
      Else
           If Not Testtxt(Combo3.Text) Then
             MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
             Combo2.SetFocus
           Else
            If Not Testtxt(Combo6.Text) Then
              MsgBox "请选择操作符！", vbOKOnly + vbExclamation, "警告"
              Combo5.SetFocus
            Else
              If Not Testtxt(Text3.Text) Then
                MsgBox "请输入要查询的内容", vbOKOnly + vbExclamation, "警告"
                Text2.SetFocus
              Else
                  Select Case Combo8.Text
                   Case "或"
                    strcon4 = "or "
                   Case "与"
                    strcon4 = "and "
                  End Select
             
                 Select Case Combo3.Text
                   Case "卡号"
                    strcon5 = "cardno"
                   Case "姓名"
                    strcon5 = "studentname"
                   Case "上机日期"
                    strcon5 = "ondate"
                   Case "上机时间"
                    strcon5 = "ontime"
                   Case "下机日期"
                    strcon5 = "offdate"
                   Case "下机时间"
                    strcon5 = "offtime"
                   Case "消费金额"
                    strcon5 = "consume"
                   Case "余额"
                    strcon5 = "cash"
                   Case "备注"
                    strcon5 = "status"
                End Select
                   txtsql = txtsql & " " & strcon4 & strcon5 & Combo6.Text & "'" & Trim(Text3.Text) & "'"
                   Set mrc = ExecuteSQL(txtsql, Msgtext)
                   
                   If mrc.EOF = True Then
                       MsgBox "没有该条件下的上机记录！", vbOKOnly + vbExclamation, "警告"
                    Combo1.Text = ""
                    Combo4.Text = ""
                    Text1.Text = ""
                    Combo2.Text = ""
                    Combo5.Text = ""
                    Text2.Text = ""
                    Combo7.Text = ""
                    Combo3.Text = ""
                    Combo6.Text = ""
                    Combo8.Text = ""
                    Text3.Text = ""
                    
                    With MSFlexGrid1                   '清除后显示表头
                        .CellAlignment = 4
                        .Rows = 1
                        .TextMatrix(0, 0) = "卡号"
                        .TextMatrix(0, 1) = "姓名"
                        .TextMatrix(0, 2) = "上机日期"
                        .TextMatrix(0, 3) = "上机时间"
                        .TextMatrix(0, 4) = "下机日期"
                        .TextMatrix(0, 5) = "下机时间"
                        .TextMatrix(0, 6) = "消费金额"
                        .TextMatrix(0, 7) = "余额"
                        .TextMatrix(0, 8) = "备注"
                   End With
                    Exit Sub
                  End If
                End If
              End If
            End If
          End If
                  
case1:
   With MSFlexGrid1                   '窗体加载时显示表头
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "姓名"
        .TextMatrix(0, 2) = "上机日期"
        .TextMatrix(0, 3) = "上机时间"
        .TextMatrix(0, 4) = "下机日期"
        .TextMatrix(0, 5) = "下机时间"
        .TextMatrix(0, 6) = "消费金额"
        .TextMatrix(0, 7) = "余额"
        .TextMatrix(0, 8) = "备注"
  Do While Not mrc.EOF                             'MSFlexGrid1显示数据
        .Rows = .Rows + 1
        .CellAlignment = 4
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(1) & "")
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3) & "")
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(6) & "")
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(7) & "")
        .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(8) & "")
        .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(9) & "")
        .TextMatrix(.Rows - 1, 6) = Format(mrc.Fields(10), "0.00") & ""
        .TextMatrix(.Rows - 1, 7) = Format(mrc.Fields(12), "0.00") & ""
        .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13) & "")
        mrc.MoveNext
  Loop
  End With
End If
End Sub

总结：

    组合查询其实没有大家想象中的那么难，很多代码都是重复的，还是那句话，只要我们理清思路就OK了！

    

                                                                                                                            感谢您的阅读！

    

【UML】图总述机房收费系统
十一期信息技术提高班 马静
02-01 1182
机房收费系统中最让我难受的一个阶段应该算是写文档的阶段了。每天看见那么多文档要写头都要大了，相比较于文档来讲我更喜欢这种方式，用UML图来叙述这个系统所有的设计结构和功能。虽然我对绘画这方面简直是白痴，但是这样的方式能够融入自己很多的想法进去，并且有一定的章法可循，能够让自己觉得是一个专业人士。下面就是用UML图来叙述机房收费系统。         【用例图】这应该是所有图中最容易画的一个，它是
机房收费系统-MSFlexGrid控件的使用
不会英语的程序员不是好开拓者
07-18 1139
前言：      机房收费系统中查询窗体几乎都用到了一个控件，就是MSFlexGrid控件。百度上给的官方解释是：MSFlexGrid控件显示和操作表格数据。其对包含字符串和图片的表格提供了灵活的排序、插入数据和格式编排功能。当与Data控件绑定时，MSFlexGrid控件只显示只读数据。我理解的是，显示符合条件的数据的一个展示栏。说的可能比较通俗，接下来，我就来详细给大家说说MSFlexGri
机房收费系统 —— 组合查询
winnieFighting
02-01 520
以学生上机统计信息查询 前言 学生上机统计信息查询要实现的功能是查询 line 表中的一些信息，要查询的关键词主要是line表中的各个属性，可根据多个属性结合的方式来查询相关内容，所以是组合查询。 正文 代码如下（相关解释在代码里） Private Sub cmdOK_Click() '建立与数据库的联系(查询line表) txtsql = "selec
机房收费系统--组合查询
蝌蚪鱼
08-17 862
在学生信息管理系统中我们用到了组合查询，就是通过用check项，将SQL 语句一点点完善， 最后在数据库中查询。  机房收费系统中同样用到了组合查询，差别是提供字段让我们选择，还有就是用到了“and”和“or ”来组合    这里我们引入了comboBox.Tag 属性。用comboBox.Tag来代替选择的字段名。 代码如下： 第一步：将选择的字段名用数据库中
机房收费系统——组合查询
最好的时光里
09-16 867
机房收费系统之中的组合查询也是非常有意思的一个环节，这11个小控件的逻辑关系如果没有弄清思路，是很容易被他们玩的团团转的。下面就说说我的组合查询的思路。 第一次看到这个窗体的感觉就是，我去，怎么这么多的控件，然后就是点点点，各种尝试，找找里面的关系，那么关系是什么呢？如图，我先创建了界面，这样比较容易解释一点。                             首先，因为这么多查询不知
第一次机房收费系统--组合查询
好吃的爆米花
09-07 603
欢迎您的阅读， 经过了一周的不屑努力，终于攻克了，当然还是要感谢张铎同学和晓尚同学的帮助！ 指导思想 通过拼接一条SQL语句，实现对数据的查询。 代码 1、根据选择的不同组合关系，判断控件的使用 注意：我利用的Timer控件。 Private Sub Timer0_1_Timer() '判断第一组控件 If Trim(comboCombineRelation0....
机房收费系统---------组合查询
mazhaochen的博客
02-20 205
终于算是接触到机房里的重点加难点里的组合查询了，这个知识点说简单也简单，说难也难，关键是对他的理解到了哪一步。 什么是组合查询 大多数的SQL查询只包含从一个或多个表中返回数据的单条SELECT语句，但是,SQL也允许执行多个查询(多条SELECT语句),并将结果作为一个查询结果集返回。这些组合查询通常称为并或复合查询。 主要有两种情况需要使用组合查询： (1)在一个查询中从不同的表返回结构数据 ...
机房收费系统-组合查询续
自律即是最自由
12-19 448
前言上一篇文章简单的介绍了组合查询！ 今天在完成其他的组合查询窗体时，有了一点小发现！现在来总结一下！一、代码代码上有了一点的小改动！ 在进行组合条件判断的时候，我们往往通过一堆的if语句进行嵌套然后进行判断，今天用了另外一种方法，感觉比较简单，也很容易理解！'用ok1、ok2和ok3来反映查询条件框的填写情况 If Trim(ziduancombo1(0).Text) <> "" And Tr
机房收费系统—组合查询
张伟杰
11-18 466
前言  最近敲机房敲到了组合查询，我发现有好几个窗体都涉及到了组合查询，我敲的是学生上机统计信息这个窗体，下面我说说我的想法。窗体逻辑  首先，怎么确定窗体的运行过程呢？我的办法就是通过盲人摸象的方法一个一个按钮试出它的功能，当然我们知道的一些简单的操作就不用说了，比如说哪里没有填肯定要提醒的。当我填完第一行的时候，点击查询很自然就显示出结果了；当我填完第一行，又选择了组合关系，点击查询提示请选择字
机房收费系统概要设计文档要点
- 功能需求：机房收费系统应具备的基本功能包括用户登录验证、计费管理、消费查询、充值管理、报表统计等。系统应确保收费的准确性和高效性。 - 性能需求：系统应具备良好的响应速度，能够处理多用户的并发操作，...
机房收费管理系统C程序设计报告.pdf
最新发布
09-25
【机房收费管理系统C程序设计报告】 在计算机科学领域，机房收费管理系统是用于管理学生在机房使用电脑资源并计费的软件工具。本设计报告主要关注的是使用C++编程语言实现这样一个系统。报告中涉及到的核心知识点...
正元一卡通同步系统提升机房收费管理效率
标题：“正元一卡通同步与机房收费管理系统”所涉及的知识点： 1. 一卡通系统概念： 一卡通系统是一套完整的智能卡管理解决方案，广泛应用于各类单位、学校、企业等，通过一张卡实现身份识别、门禁管理、考勤、...
机房收费系统-上下机
不会英语的程序员不是好开拓者
07-30 1480
前言：     机房收费系统当然离不开上机和下机了，作为整个系统的核心和关键，我觉得最重要的是首先要有全局观，把控整体的流程。还有就是一定要细心，考虑到所有应该注意到的问题。实现上下机的功能我基本上一天就敲出来了，但是之后却优化了一个星期，每天基本上都需要去改动去重新捋思路，所以说一开始一定要摸清楚表与表之间的关系，理清思路，再去敲，这样效率就会提高很多很多。好了，下面我来给大家介绍一下上下机到
机房收费系统--MDI窗体不能放控件和子窗体不能显示
不会英语的程序员不是好开拓者
07-05 909
前言：     MDI主窗体是机房收费系统必须要设置的窗体，但是中间出现了许多小问题 。首先，MDI窗体上不能放其他的控件，其次是子窗体都不能显示，这可让我有点摸不着头脑，果断在网上查了查，接下来是我对这两个问题的整理。 内容： 1、MDI窗体的设置（只能有一个MDI窗体） （1）、设置MDI窗体必须先添加一个picturebox控件，才
机房收费系统-充值
不会英语的程序员不是好开拓者
07-30 754
前言：       机房收费系统是我第一次接触的独立完成的系统，一开始还真是摸不着头脑，不过还是硬着头皮做了下去。其实，事情一般都有难的部分有易的部分，所以一开始我按照整个思路先从简单的窗体开始做，简单的窗体一般都是单一查询或者是实现一些非常简单的功能，本篇博客呢就以充值为例，向大家介绍简单窗体是如何轻松搞定。 内容：       一、理清思路：理清思路最好的方式当然是画一个导图了！
机房收费系统-结账
不会英语的程序员不是好开拓者
07-30 649
前言：      敲着敲着，就到了最后的结账。一段时间与代码的碰撞，发现早已褪去了起初的畏惧和怀疑，反而越来越自信和自如了。这就是所谓的增加了代码的亲切感吧！突然发现生活开始越来越离不开代码，有时候就连做梦都是这个功能怎么实现，怎样让代码变得有准又精。好了，接下来给大家说说这最后的功能，结账吧！ 内容：
第一次机房收费系统总结
不会英语的程序员不是好开拓者
08-02 620
前言：      我们在对某件事情驾轻就熟的之前都会有青涩彷徨的第一次，机房收费系统就是我第一次接触的完整的无源代码的工程。现在想起来，当初刚做的时候是多么的畏惧和恐慌，心里一直觉得自己不可能完成。但是没有办法，还是要做下去，一晃眼，自己也完成了这个当初觉得比天还高的东西。这是一件不可思议的事情。接下来我给大家重点介绍一下我的思路以及思想总结。 内容：   一、思路：
评论 11
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值