机房收费系统之组合查询（代码部分）

于 2018-10-05 14:37:15 发布
阅读量356 收藏
点赞数
分类专栏： 【机房收费系统】
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/Elsa15/article/details/82943876
版权

       最近的事情比较多，本该留出大块时间整理组合查询的代码部分，结果是分为一段一段的零散时间来整理的，最终整理的这些组合查询代码可能还是有很多冗余，本来不想拿出来的，但考虑到自己的不足就要展示给大家，这样自己才能进步嘛，所以还是厚着脸皮把我冗余的代码展示出来了，还望大家多多给予指导^_^

Private Sub cmdquery_Click()
    Dim mrc As ADODB.Recordset
    Dim txtSQL As String
    Dim MsgText As String
    Dim cmrc As ADODB.Recordset
    Dim ctxtSQL As String
    Dim cMsgText As String

    
    myflexgrid.Clear
    myflexgrid.Rows = 1
    
    '条件一查询
    If Not testtxt(comb12.Text) And Not testtxt(comb123.Text) Then
    
        If Not testtxt(combf1.Text) Then                      '判断字段一是否有内容
            MsgBox "请输入字段！", vbOKOnly, "温馨提示："
            combf1.SetFocus
            Exit Sub
        End If
    
        If Not testtxt(combop1.Text) Then                     '判断操作符一是否有内容
            MsgBox "请输入操作符！", vbOKOnly, "温馨提示："
            combop1.SetFocus
            Exit Sub
        End If
    
        If Not testtxt(txtquery1.Text) Then                   '判断文本框一是否有内容
            MsgBox "请输入查询内容！", vbOKOnly, "温馨提示："
            txtquery1.SetFocus
            Exit Sub
        End If
        
        If testtxt(combf2.Text) And Not testtxt(comb12.Text) Then    '当字段二有内容时，判断组合一是否有内容
            MsgBox "请输入查询条件！", vbOKOnly, "温馨提示："
            comb12.SetFocus
            Exit Sub
        End If
        

        '从数据库上下机信息表中查询符合字段一的内容
        txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' and status='正常下机'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        
    
            If mrc.EOF Then             '如果无查询结果，则说明数据不存在
            myflexgrid.Clear
            myflexgrid.Rows = 1
            MsgBox "该条件的数据不存在！", vbOKOnly, "温馨提示："
            Exit Sub
            End If
     
            With myflexgrid             '如果有数据，那么就逐条显示
                .Rows = 1
                .CellAlignment = 4
                .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
                    .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) = Trim(mrc.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                    mrc.MoveNext
                Loop
            End With
            mrc.Close
       End If
        
       '条件二查询
        '判断字段三有内容时，组合二是否有内容，如果没有则组合二获得焦点输入组合条件
        If testtxt(combf3.Text) And Not testtxt(comb123.Text) Then
            MsgBox "请输入查询条件！", vbOKOnly, "温馨提示："
            comb123.SetFocus
            Exit Sub
        End If
        
        If testtxt(comb12.Text) Then                    '如果组合一有内容，那么判断对应的文本框是否为空
            If Not testtxt(combf1.Text) Then        '判断字段一是否为空
                MsgBox "请输入字段！", vbOKOnly, "温馨提示："
                combf1.SetFocus
                Exit Sub
            End If
    
            If Not testtxt(combop1.Text) Then      '判断操作符一是否为空
                MsgBox "请输入操作符！", vbOKOnly, "温馨提示："
                combop1.SetFocus
                Exit Sub
            End If
    
            If Not testtxt(txtquery1.Text) Then    '判断查询一是否为空
                MsgBox "请输入查询内容！", vbOKOnly, "温馨提示："
                txtquery1.SetFocus
                Exit Sub
            End If
            If Not testtxt(combf2.Text) Then       '判断字段二是否为空
                MsgBox "请输入字段名！", vbOKOnly, "温馨提示："
                combf2.SetFocus
                Exit Sub
            End If
            If Not testtxt(combop2.Text) Then      '判断操作符二是否为空
                MsgBox "请输入操作符！", vbOKOnly, "温馨提示："
                combop2.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery2.Text) Then    '判断查询二是否为空
                MsgBox "请输入查询内容！", vbOKOnly, "温馨提示："
                txtquery2.SetFocus
                Exit Sub
            End If
            
            '从数据库上下机表中查询对应条件的结果
            txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "'  and status='正常下机'" & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下机'"
            Set mrc = ExecuteSQL(txtSQL, MsgText)
    
            If mrc.EOF Then
                myflexgrid.Clear
                myflexgrid.Rows = 1
                MsgBox "该条件的数据不存在！", vbOKOnly, "温馨提示："
            Exit Sub
            End If
    
            With myflexgrid
                .Rows = 1
                .CellAlignment = 4
                .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
                    .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) = Trim(mrc.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                    mrc.MoveNext
                Loop
            End With
     End If
        If testtxt(comb123.Text) Then           '如果组合二有内容，判断一三是否为空
            
            If Not testtxt(combf1.Text) Then    '判断字段一是否为空
                MsgBox "请输入字段！", vbOKOnly, "温馨提示："
                combf1.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(combop1.Text) Then    '判断操作符一是否为空
                MsgBox "请输入操作符！", vbOKOnly, "温馨提示："
                combop1.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery1.Text) Then   '判断查询一是否为空
                MsgBox "请输入查询内容！", vbOKOnly, "温馨提示："
                txtquery1.SetFocus
                Exit Sub
            End If
            If Not testtxt(combf3.Text) Then      '判断字段三是否为空
                MsgBox "请输入字段！", vbOKOnly, "温馨提示："
                combf3.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(combop3.Text) Then     '判断操作符三是否为空
                MsgBox "请输入操作符！", vbOKOnly, "温馨提示："
                combop3.SetFocus
                Exit Sub
            End If
        
            If Not testtxt(txtquery3.Text) Then   '判断查询三是否为空
                MsgBox "请输入查询内容！", vbOKOnly, "温馨提示："
                txtquery3.SetFocus
                Exit Sub
            End If
            
            If comb12.Text = "" Then              '组合一为空的查询

                txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' " & fieldname(comb123.Text) & "  " & fieldname(combf3.Text) & "" & combop3.Text & " '" & Trim(txtquery3.Text) & "' and status='正常下机'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
            End If
            
            If testtxt(comb12.Text) Then          '组合一 不为空的查询
                If comb123.Text = "与" Then
                txtSQL = "select * from Line_Info where (" & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' and status='正常下机' " & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下机')and " & fieldname(combf3.Text) & "" & combop3.Text & "'" & Trim(txtquery3.Text) & "' and status='正常下机'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                 End If
                If comb123.Text = "或" Then
                txtSQL = "select * from Line_Info where( " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & " ' and status='正常下机' " & fieldname(comb12.Text) & " " & fieldname(combf2.Text) & "" & combop2.Text & "'" & Trim(txtquery2.Text) & "' and status='正常下机') or " & fieldname(combf3.Text) & "" & combop3.Text & "'" & Trim(txtquery3.Text) & "' and status='正常下机'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
                End If
                Else
                txtSQL = "select * from Line_Info where " & fieldname(combf1.Text) & "" & combop1.Text & "'" & Trim(txtquery1.Text) & "' " & fieldname(comb123.Text) & "  " & fieldname(combf3.Text) & "" & combop3.Text & " '" & Trim(txtquery3.Text) & "' and status='正常下机'"
                Set mrc = ExecuteSQL(txtSQL, MsgText)
            End If
                
                   
                With myflexgrid
                    .Rows = 1
                    .CellAlignment = 4
                    .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
                        .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) = Trim(mrc.Fields(11))
                        .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(12))
                        .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(13))
                        mrc.MoveNext
                    Loop
                End With
                mrc.Close
    End If

End Sub

      以上是自己的代码思路，看着冗余的代码忽然感觉自己的脑子不会转弯(⊙o⊙)…

      当然我也看了很多小伙伴们的代码，简单的几段代码就解决了问题， 我觉着由繁到简的推导过程自己去感受一下也是不错的体验，当然后面我会站在巨人的肩膀上前行，简化组合查询，下一站继续走起^_^。

 

Elsa~
关注
专栏目录
机房收费系统——组合查询
任丽媛的博客
01-18 580
对于组合查询，我一直都很触头，因为那么多个框框要同时联合起来，那么多表要同时联合起来，共同查找一个结果，所以我先找到最难解决的那个问题，然后对症下药。 难点有： 1、把字段名和操作符中的内容转化成可被识别的字符 2、操作符中的符号根据字段名的选择进行不同的显示 3、判断查询条件，进行组合查询 4、选中一行并赋值给修改窗体的文本框 5、判断文本框是否为空的简写 6、一键清空的简写 1- 在模块中对字...
机房收费系统-结账
Marshallren的博客
10-22 288
前言：前面的文章提过，机房收费系统的三大重点：组合查询、上下机和结账，那么今天的文章就迎来了三难点的最后一位：结账。 结账的功能就是对一天内流入的金额与流出的金额进行相减（当然实际过程要比这复杂得多，后面我会详细讲解），所剩余的就是这段时间内的收入。我所设计系统的逻辑是：点击相应操作员后，在“结账”栏目中出现各种数据，如充值金额、上机收费金额、上期余额、退卡金额…点击结账后，各项数据被放入到日结账...
机房收费系统源码
06-16
机房收费系统是一款智能管理系统，可用于学校机房以及图书馆的日常管理，大大节省了人力物力。
机房收费系统之—组合查询
zhoukun@Fly
08-12 2238
机房收费系统之组合查询
【机房收费系统】---组合查询
杨幂等
12-31 431
组合查询我们用到了Student_Info，首先你要告诉自己，它一点都不难，稍微用心下，就很容易明 白其中的道理了。  一、代码思路0-3 0.首先，老规矩，先判断是否为空。 1.当没有组合关系时，直接从学生表里查询信息，并显示数据； 值得注意的是，刚开始，当没有选择组合关系时，也可以进行多行条件的组合查询。所以后来，我进行了 优化，就是若未选择组合关系“或”或“与”，后面的com
机房收费系统之组合查询
z-xiaoyao
07-25 1012
在机房收费系统中，组合查询是非常重要的一部分，很多人刚开始接触的时候都感到无从下手。其实，如果静下心来仔细分析一下，组合查询也是不难的。下面，我们来慢慢分析一下。 首先，我们先从界面入手： 从界面上我们可知，这个组合查询分为三组查询条件，两个组合关系。 功能： a. 只选择第一组查询条件，不选择组合关系——可以执行查询。 如：卡号    b. 选择第一个组合关系（”与“ ”
机房收费系统
康
09-27 4016
机房收费系统VB版，是我们第一个不参照代码做出来的系统。写一下做这个系统的历程，第一次完完全全自己的系统，值得记录！  一、功能分析 首先进行功能分析： 机房收费系统总体上分三个级别：一般用户、操作员、管理员。每个权限有每个权限的特定功能。先看一般用户功能：                                     一般用户权限是最低的，仅仅能查看数据库中的记录；能
机房收费系统测试计划
邢笑然 廊坊师范学院信息技术提高班 十二期
09-23 1279
测试计划 1引言 1.1编写目的        测试的主要目的就是尽可能多的找到系统中的漏洞，并且设计出测试用例，对系统测试。目的及在于对测试的方法、测试流程，有一定大体上的掌控。        本文档的预期读者：软件测试人员 1.2背景 说明： a． 测试计划所从属的软件系统的名称：机房收费系统 b． 用户：廊坊师范学院全体师生 执行此项目测试的计算中心：廊坊师范学院的所有机房
【机房重构】——模板方法解决组合查询
Jack 架构师之路
01-07 1893
引言   在机房重构再次遇到组合查询的时候非常的兴奋，这是因为在学习VB.NET的时候写guo
机房收费文档（三）需求规格说明书
进击的巨人--小天贵
11-13 1616
引言 随着计算机技术的日益成熟、普及，现代高校管理的实际运作在很多方面、很大程度上都必须借助计算机来完成，相应软件的开发显得尤为重要。 在高校，机房管理工作是一项比较重要的工作，他负责了对整个学校的学生课余时间上机计费的管理，对学生的基本资料、消费情况以及上机下机情况进行记录。原有的旧的管理学生课余时间上机的方法越来越不适应现在高校日渐增多的学生人数带来的效率需求。随着学校的硬件水平的提高，信
C语言Windows程序设计 机房收费管理系统源码
02-01
在VS2013环境下，编写的C语言Windows程序设计，机房收费管理系统。代码仅仅使用C语言调用Windows API函数和MYSQL数据库专用库文件编写。有C语言基础的，简单易懂。代码没有优化，思路很清晰。没有省略的代码，我都没有省略。
机房收费系统--组合查询
蝌蚪鱼
08-17 835
在学生信息管理系统中我们用到了组合查询，就是通过用check项，将SQL 语句一点点完善， 最后在数据库中查询。  机房收费系统中同样用到了组合查询，差别是提供字段让我们选择，还有就是用到了“and”和“or ”来组合    这里我们引入了comboBox.Tag 属性。用comboBox.Tag来代替选择的字段名。 代码如下： 第一步：将选择的字段名用数据库中
机房收费系统—组合查询
张伟杰
11-18 444
前言  最近敲机房敲到了组合查询，我发现有好几个窗体都涉及到了组合查询，我敲的是学生上机统计信息这个窗体，下面我说说我的想法。窗体逻辑  首先，怎么确定窗体的运行过程呢？我的办法就是通过盲人摸象的方法一个一个按钮试出它的功能，当然我们知道的一些简单的操作就不用说了，比如说哪里没有填肯定要提醒的。当我填完第一行的时候，点击查询很自然就显示出结果了；当我填完第一行，又选择了组合关系，点击查询提示请选择字
【机房收费系统】——组合查询
周士豪
07-26 1509
在机房收费系统中，其中的组合查询仅仅在刚开始的时候构思了一点自己的想 法，但是并没用付诸于行动，去尝试自己的是否正确，而是选择了去看之前看 到的一篇关于组合查询的博客，说起来有些愧疚的啊。还好的是当我理清思路 之后剩下的组合查询都是自己的写的了。 在这分享一下自己的思路，共分为三步。（以学生基本信息维护为例） 1.首先窗体的建立，加入需要控件等来补充界面。 2.当
机房收费系统 —— 组合查询
winnieFighting
02-01 487
以学生上机统计信息查询 前言 学生上机统计信息查询要实现的功能是查询 line 表中的一些信息，要查询的关键词主要是line表中的各个属性，可根据多个属性结合的方式来查询相关内容，所以是组合查询。 正文 代码如下（相关解释在代码里） Private Sub cmdOK_Click() '建立与数据库的联系(查询line表) txtsql = "selec
【第一次机房收费系统】组合查询
Java is the best language~
01-17 691
所有的伟大只源于一个勇敢地开始。 组合查询之前以为很难，但是真正去开始敲了，你就会发现并不难。敲完了第一个，基本上就算是敲完了。 这是机房收费系统里面组合查询的标准样式，之所以叫组合查询，是因为我们要将若干个条件选择出来之后组合在一起来查询。首先，组合查询分为三组查询条件和两个组合关系，组合关系两两连接组合条件。所以当给你选择了第一个组合关系之后，必须要有前两行的查询条件，选择了第二个组合关系之
机房收费系统之组合查询（流程图部分）
Elsa~的博客
09-30 591
机房收费系统的组合查询难倒是不难，就是需要大块的时间去梳理，而这几天又恰恰遇到了我忙的时候，机房停了3天没有进行，惭愧啊，之前就已经实现了组合查询的目的，但我的代码冗余太多，就想着简化一下，现在就简化了80%，越来越趋近于从网上看到大家做的那版简化的代码了，虽然可以直接把代码敲上去，不过我还是觉着自己推倒出来更加有意义，嘻嘻，所以今天先给大家看一下我的流程图，代码部分下一篇博客分享给大家^_^ ...
JSP+SQL机房收费管理系统设计及源代码实现
资源摘要信息:"JSP+SQL机房自由上机收费管理软件的设计与实现(源代码+论文+)" 知识点概述： 1. 软件开发背景与意义 机房自由上机收费管理软件是针对高校、网吧、培训中心等场所而设计，旨在提供一套便捷的管理解决...
评论 6
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Elsa~

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

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

余额充值