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

最新推荐文章于 2019-09-13 20:15:35 发布
最新推荐文章于 2019-09-13 20:15:35 发布
阅读量326 收藏
点赞数
分类专栏： 【机房收费系统】
版权声明：本文为博主原创文章，遵循 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~
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 6
    评论
专栏目录
【C语言项目设计】机房收费管理系统
Fanjufei的博客
03-17 2958
目录 1、机房收费管理系统 2、功能要求 3、代码展示 4、结果展示 1、机房收费管理系统 编写一个机房收费管理系统，主要用来管理学生的上网时间及相应的上网费用。 知识点：结构、数组、循环、函数。 2、功能要求 1、建立学生信息，每个学生的信息包括：学号、姓名、班级、上机起始时间； 2、求出每个学生的上机费用及上机时间； 3、根据学号、姓名、班级查询学生的上机时间； 4、显示：显示机房电脑的使用情况。 3、代码展示 #include<stdio.h> #..
机房收费系统登录功能的代码记录
黄爱岗廊坊师范学院信息技术提高班 第七期
04-29 1071
      机房收费系统第三遍做的时候加入了工厂和接口，下面以登录为例记录了从UI层到Bll层（期间有工厂和接口）的代码。 UI层：   frmLogin.vb   Implementation of the Class frmLogi
机房收费（学生信息管理）系统模块代码解析
weixin_40486955的博客
01-24 713
Sub Main() Dim flogin As New frmlogin '实例化flogin窗体 flogin.Show vbModal '使flogin窗体以模式化（批注一）窗体显示 If Not flogin.ok Then '如果登录不成功 End If ...
（五）机房收费系统--重要代码展示
Stephanie翟倩
02-23 561
前言：这部分是我在敲机房的时候，卡了一天或者两天的问题。尤其是”管理员--学生基本信息维护-修改“这个窗体，卡了两天才解决，有的可能是简单拿的问题，但是思路想好了，不会表达也是个麻烦，但是在小伙伴的帮助下，和自己的努力下，终于完成啦~1.将数据导出excel表①在工程中引用MicrosoftExcel类型库： 在“工程”菜单中选择“引用”，选择“Microsoft Excel 14.0 Objec...
vb版机房收费系统
09-13
vb版，机房收费系统
C语言Windows程序设计 机房收费管理系统源码
02-01
在VS2013环境下，编写的C语言Windows程序设计，机房收费管理系统。代码仅仅使用C语言调用Windows API函数和MYSQL数据库专用库文件编写。有C语言基础的，简单易懂。代码没有优化，思路很清晰。没有省略的代码，我都没有省略。
结合机房收费系统对UML的总结
01-31
前一段时间学习了软件工程，所以将UML建模和软工做了一个对比（这里没有画出构件图和部署图）：分析图形：下面就通过机房收费系统具体介绍几种主要的图形理解：用例图是从用户的角度来看我们所开发的系统。...
VB机房收费系统
07-19
VB版机房收费系统，VB版机房收费系统，VB版机房收费系统，VB版机房收费系统，VB版机房收费系统，
基于Java写的一款机房收费管理系统
08-15
在学校没事写的一个机房收费管理系统，带有使用说明视频，测试完美可用。
机房收费管理系统
11-16
机房收费管理系统 问题描述 结合我校计算机机房的运作模式，设计一种适合的收费管理系统，能够实现相关的人员检索，计时收费，管理汇总等功能模块。 开发环境 采用C或C++实现，VC++6.0 基本要求 主要功能模块： (1) 登录模块 (2) 上机管理模块 说明：上机登记时，余额不足3元或卡处于挂失状态，则拒绝登记。 每位同学的一次上机形成一条记录，每30秒遍历一次上机记录表，对表中所有正上机字段为TRUE的记录的上机用时增加30秒，同时减少上机卡表中的余额。 (3) 上机卡管理模块 (4) 充值挂失模块 (5) 查找统计模块：统计某天上机的总时数、每次上机的平均时数和机房的收入；某学生上机的次数、上机总时数、每次上机平均时间；挂失和查询余额。 参考的数据结构： 上机卡（卡号，姓名，专业班级，余额，状态），状态有：正常和挂失。 上机记录（卡号，上机日期，开始时间，上机用时，正上机，管理号代码） 上机记录表永久保存，用于事后查询和统计。 设计要求 1） 界面友好，输入信息符合逻辑：如上机时间设定在合理的时间范围。 2） 能从实践生活出发，设计合理的功能模块 3） 各类信息的数据结构明晰 4） 可根据自身生活体验添加相关功能模块。 拓展功能要求 鼓励采用Turbo C/C++、MFC等开发工具，实现彩色或图形操作界面。鼓励引入小型数据作为处理数据的来源，拓展知识面。
机房收费系统源码
06-16
机房收费系统是一款智能管理系统，可用于学校机房以及图书馆的日常管理，大大节省了人力物力。
机房收费系统
12-27
自己编写的程序，内含源代码+数据库，适用可以拿！
机房收费系统经典代码块总结
吕世良
09-11 305
机房收费系统模块代码一部分： 操作员工作记录-组合查询代码： 机房收费系统上机一部分代码： 机房收费系统下机一部分代码;
机房收费系统—经典代码
武梓龙 廊坊师范学院信息技术提高班 十七期
09-13 1205
学完机房收费系统之后，发现有很多的经典代码而且出现的频率非常高。下面我对这些代码进行了颗粒归仓。 下机判断花费时间和消费金额（固定用户） txtSQL3 = "select * from BasicData_Info " Set Object2 = ExecuteSQL(txtSQL3, MsgText3) ...
机房收费系统之代码库
张伟光
08-21 840
机房收费系统敲完了，真的发现收获很多，了解了很多代码的功能，也发现了一些缩短代码的方法， 1.select语句可以这样写： <span style="font-size:18px;"> selectcardno,studentno,date,time ,ischeck from student_info where</span> ...
机房收费系统——经典代码总结
齐天佑
09-11 1188
机房收费系统完成之后，发现其中有很多经典的代码，这些代码在未来的开发中很可能会使用到。针对这么代码进行一个归纳总结，方便日后使用 数据库传递参数SQL传递查询语句，记录查询结果 '传递参数SQL传递查询语句，Msgstring传递查询信息 '自身以一个数据集对象的形式返回 Public Function ExecuteSQL(ByVal SQL As String, MsgSt...
机房收费系统——登录
Nikita
09-11 530
前言 对机房系统有了宏观把控以后，可以开始登录窗体了。先别急着敲代码，先搞懂要满足什么功能。登录窗体要做到用户能成功登录，并且有三种权限的设置。了解了要满足的功能，要对思路进行梳理，制作流程图就可以帮我们很好的梳理思路。 部分代码展示 限制登录次数代码 miCount = miCount + 1 If miCount = 1 Then MsgBox &quot;密码输入错误，您还有两...
机房收费系统登录模块代码记录
黄爱岗廊坊师范学院信息技术提高班 第七期
04-05 1006
      这是第二遍做机房收费系统时的登录模块的代码记录，和后面发布的第三遍做收费系统的代码相比，自己觉得这遍写的真的很不好，不过这里还是要记录一下自己的学习脚印。 UI层： Imports BLL Imports Entity 登陆 黄爱岗 Public Cla
机房收费系统之日结账，周结账--逻辑篇(日账单的各项金额代表什么？如何计算？)
Elsa~的博客
10-26 1238
      日结账表和周结账表可谓是三大难题的最后一关了，既然是难题那就要好好的思考一番后再动手了，以下是我的日结账、周结账程序思路及代码集。 一、问题集       我们在做日结账单，周结账单之前需要考虑几个问题： 1、我们做的日结账，周结账表是给谁看的？      管理员，只有管理员才有这个权限。 2、日结账表和周结账表都包含什么内容？      内容：上期充值卡余额，本期充值金额...
完整的机房收费管理系统c语言代码
最新发布
05-27
很抱歉，我无法提供完整的机房收费管理系统的C语言代码。一个完整的系统需要根据具体的需求和要求进行设计和开发，也需要你自己进行学习和实践。 如果你需要一个完整的机房收费管理系统，可以寻求专业的软件开发...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论 6
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

打赏作者

Elsa~

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

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

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

打赏作者

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

抵扣说明：

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

余额充值