机房收费系统--学生基本信息维护（组合查询）

最新推荐文章于 2020-03-13 12:33:20 发布
最新推荐文章于 2020-03-13 12:33:20 发布
阅读量340 收藏
点赞数
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_30631063/article/details/82839579
版权

对于这个窗体来说，主要的功能就是实现“组合查询”，什么是组合查询？

 

组合查询：

多数SQL查询都只包含从一个或多个表中返回数据的单条 SELECT 语句。MySQL也允许执行多个查询（多条 SELECT 语句），并将结果作为单个查询结果集返回。这些组合查询通常称为并（union）或复合查询（compound query）。

有两种基本情况，其中需要使用组合查询：

1.在单个查询中从不同的表返回类似结构的数据；

2.对单个表执行多个查询，按单个查询返回数据。

 

我们这个窗体实现的就是： 对单个表执行多个查询

对于“学生基本信息维护”窗体，我实现的方法是借助于“组合关系”控件是否为空，若为空则不存在组合关系，若不为空即存在组合关系，那么需要再次输入一行的查询条件，

运用俩次的  if  trim（if releation.text=””) 判断语句，来判断是否需要进行组合查询；

其实在敲这个窗体之前我是处于蒙蔽状态的，但是多亏了流程图帮助我理清了实现这个窗体的逻辑关系。

下面是我的流程图：

 

实现这个窗体我代码的主要框架是利用了if .. then...end if 

下面是我的代码，我感觉有些代码量大的，但是很清晰，欢迎大家指点；

Private Sub cmdOk_Click()
      Dim mrc As ADODB.Recordset
      Dim txtsql As String
      Dim msgtxt As String
      Dim cola As String
      Dim colb As String
      Dim colc As String
      
      
      '判断选择条件是否为空
      If Trim(col1.Text = "") Then
            MsgBox "请输入要查询的字段名字", vbOKOnly + vbExclamation, "警告"
      Else
      
            If Trim(fuhao1.Text = "") Then
                  MsgBox "请输入操作符", vbOKOnly + vbExclamation, "警告"
            Else
            
                  If Trim(txt1.Text = "") Then
                        MsgBox "请输入有查询的内容", vbOKOnly + vbExclamation, "警告"
                  Else
                        If col1.Text = "卡号" Then
                              cola = " cardno"
                              Else
                                    If col1.Text = "学号" Then
                                    cola = " studentno"
                                    Else
                                          If col1.Text = "姓名" Then
                                          cola = " studentName"
                                          Else
                                                If col1.Text = "性别" Then
                                                cola = " sex"
                                                Else
                                                      If col1.Text = "系别" Then
                                                      cola = " department"
                                                      Else
                                                            If col1.Text = "年级" Then
                                                            cola = " grade"
                                                            Else
                                                                  If col1.Text = "班级" Then
                                                                  cola = " class"
                                                                  End If
                                                            End If
                                                      End If
                                                End If
                                          End If
                                    End If
                              End If
                        Y1 = True
                        txtsql = "select * from student_info where" & cola & fuhao1.Text & "'" & txt1.Text & "'"
                  End If
            End If
      End If
      
      '如果用户选择了关系操作符，说明要有组合查询，那么组合查询的信息需要验证是否完整
      
      If Not Trim(relation1.Text = "") Then '如果第一个组合查询不为空，说明用户已经选择
            a = True '用来判断已经选择了第一个关系操作符号
            
            If Trim(col2.Text = "") Then
                  MsgBox "请输入要查询的字段名字"
            Else
            
                  If Trim(fuhao2.Text = "") Then
                        MsgBox "请输入操作符"
                  Else
                  
                        If Trim(txt2.Text = "") Then
                              MsgBox "请输入要查询的内容"
                        Else
                              
                                    
                                    
                                    If col2.Text = "卡号" Then
                                          colb = " cardno"
                                          Else
                                                If col2.Text = "学号" Then
                                                colb = " studentno"
                                                Else
                                                      If col2.Text = "姓名" Then
                                                      colb = " studentName"
                                                      Else
                                                            If col2.Text = "性别" Then
                                                            colb = " sex"
                                                            Else
                                                                  If col2.Text = "系别" Then
                                                                  colb = " department"
                                                                  Else
                                                                        If col2.Text = "年级" Then
                                                                        colb = " grade"
                                                                        Else
                                                                              If col2.Text = "班级" Then
                                                                              colb = " class"
                                                                              End If
                                                                        End If
                                                                  End If
                                                            End If
                                                      End If
                                                End If
                                          End If
                                    If Trim(relation1.Text) = "与" Then
                        
                                    txtsql = txtsql & "and" & colb & fuhao2.Text & "'" & txt2.Text & "'"
                                    Else
                                    
                                    txtsql = txtsql & "or" & colb & fuhao2.Text & "'" & txt2.Text & "'"
                                    End If
                                    
                              End If
                        End If
                  End If
            End If
      
      
      If Not Trim(relation2.Text = "") Then
            b = True   '用来判断已经选择了第二个关系操作符号
            
            If Trim(col3.Text = "") Then
                  MsgBox "请输入要查询的字段名字"
            Else
            
                  If Trim(fuhao3.Text = "") Then
                        MsgBox "请输入操作符号"
                        Else
                        If Trim(txt2.Text = "") Then
                              MsgBox "请输入要查询的内容"
                        Else
                              
                              If col3.Text = "卡号" Then
                                    colc = " cardno"
                                    Else
                                          If col3.Text = "学号" Then
                                          colc = " studentno"
                                          Else
                                                If col3.Text = "姓名" Then
                                                colc = " studentName"
                                                Else
                                                      If col3.Text = "性别" Then
                                                      colc = " sex"
                                                      Else
                                                            If col3.Text = "系别" Then
                                                            colc = " department"
                                                            Else
                                                                  If col3.Text = "年级" Then
                                                                  colc = " grade"
                                                                  Else
                                                                        If col3.Text = "班级" Then
                                                                        colc = " class"
                                                                        End If
                                                                  End If
                                                            End If
                                                      End If
                                                End If
                                          End If
                                    End If
                              
                              If Trim(relation2.Text) = "与" Then
                              txtsql = txtsql & "and" & colc & fuhao3.Text & "'" & txt3.Text & "'"
                              Else
                              txtsql = txtsql & "or" & colc & fuhao3.Text & "'" & txt3.Text & "'"
                              
                              End If
                              Y3 = True
                              
                        End If
                  End If
            End If
      End If
      
      

           
            If a = True Or b = True Or Y1 = True Then
            
            
           Set mrc = ExecuteSQL(txtsql, msgtxt)
                  If mrc.EOF Then
                        MsgBox "不存在该信息", vbOKOnly + vbExclamation, "警告"
                  Else
                              
                              With myFlexGrid1
                        .Rows = 2
                        .CellAlignment = 4
                        .TextMatrix(0, 1) = "卡号"
                        .TextMatrix(0, 2) = "学号"
                        .TextMatrix(0, 3) = "姓名"
                        .TextMatrix(0, 4) = "性别"
                        .TextMatrix(0, 5) = "系别"
                        .TextMatrix(0, 6) = "年级"
                        .TextMatrix(0, 7) = "班级"
                        .TextMatrix(0, 8) = "卡上余额"
                        .TextMatrix(0, 9) = "操作老师"
                              End With
                        
                        
                                    
                  End If
           Do While Not mrc.EOF
                        i = i + 1
                              With myFlexGrid1
                                    .Rows = .Rows + 1
                                    .CellAlignment = 4
                                    .TextMatrix(i, 1) = Trim(mrc.Fields(0))
                                    .TextMatrix(i, 2) = Trim(mrc.Fields(1))
                                    .TextMatrix(i, 3) = Trim(mrc.Fields(2))
                                    .TextMatrix(i, 4) = Trim(mrc.Fields(3))
                                    .TextMatrix(i, 5) = Trim(mrc.Fields(4))
                                    .TextMatrix(i, 6) = Trim(mrc.Fields(5))
                                    .TextMatrix(i, 7) = Trim(mrc.Fields(6))
                                    .TextMatrix(i, 8) = Trim(mrc.Fields(7))
                                    .TextMatrix(i, 9) = Trim(mrc.Fields(9))
                                    mrc.MoveNext
                                    
                              End With
                              
                        Loop
                  
            Else
                  MsgBox "没有输入条件无法查询，请先输入查询内容", vbOKOnly + vbExclamation, "警告"
                  
                  
            End If
            
End Sub

 

赫于富
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 15
    评论
专栏目录
机房收费系统——学生基本信息维护
huihui1314_的博客
11-10 416
这个窗体是一个简单的组合查询窗体，之所以它简单是因为它没有涉及到时间控件，所以可以节省不少代码量，但是它有一个难点就是把选中修改，把修改后的信息返还到这个窗体中，所以这个窗体也涉及到另外一个窗体！ 代码展示： 学生基本信息维护 Public TmpCardno As String 'TmpCardno称它为“临时卡号”，是您选择的那行数据的列的值 Public tmpload As String ...
机房收费系统之学生基本信息维护
孙玉玲
01-21 358
这个窗体以及它后面三个窗体都用到了组合查询，因此，搞懂一个，其他两个就很轻松的拿下了。     缕清关系是很重要的，我在这上面也花费了一定功夫，下面是代码，请看。     If Trim(comboField1.Text) = "" Or Trim(comboOpSign1.Text) = "" Or Trim(txtInquiryContent1.Text) = "" Then      
【机房收费系统】之学生基本信息维护
FF18803264575的博客
11-04 505
学生基本信息维护主要包括两大功能查询和修改。这里的查询比之前做的简单查询稍稍复杂了点，此处要用到组合查询。要成功实现查询这一功能，首先要找到突破点，关键点就是组合关系。如果没有选择组合关系，便是一般的简单查询，反之，则是组合查询。在组合查询中，很重要的一点是将combobox中的中文字转换成英文。这里，我用到的是函数的转换——FiledName 此实现此功能的重要代码如下： '查询满足条件的...
机房收费系统——学生基本信息维护（组合查询、单机选中整行信息）
Nikita
09-16 442
前言
机房收费系统（七）——学生基本信息维护
王华春_Jason
06-08 671
概述 学生基本信息维护里面所用到的知识点有查询类，更准确的说是组合查询。该知识点堪称机房收费系统三大难点之一。那么它的难到底难在哪里？下面我们来逐一进行分析。 流程图 通过上面两张图可以清晰的看到，查询难在哪里： 首先、我们需要进行判断查询是否为组合查询，如果为否，那么一切都变得简单了。 其次、我们需要在已经是组合查询的情况下，如何查询的问题，这里相对复杂，也正是本窗体的难点...
计算机机房建设与管理维护-图文.pptx
11-23
计算机机房建设与管理维护是学校信息化建设的重要组成部分。随着中学信息化工程的实施，学校计算机应用不断深入，网络技术的发展也得到了高速的发展。因此，计算机机房的建设与管理维护变得非常重要，以保障计算机、...
电子信息机房系统建设-弱电智能化.pptx
09-15
186页详细介绍了电子信息机房建设施工的规范标准、建设规划、建设要点经验，内容全面..
机房管理（上机预约）系统-学生实验
04-29
【机房管理（上机预约）系统-学生实验】是一个基于ASP.NET技术开发的学生实践项目，旨在模拟实际的机房管理流程，提供便捷的上机预约服务。该项目涵盖了多个核心功能模块，包括登录主页、管理员后台、用户个人信息...
《电子信息系统机房设计规范》GB50174-2008
03-08
电子信息系统机房设计规范，本规范是根据建设部《关于印发“2005年工程建设标准规范制订、修订计划(第二批)”的通知》(建标函~20053124号)的要求，由中国电子工程设计院会同有关单位对原国家标准《电子计算机机房...
计算机机房系统工程施工-验收方案(标准样本).doc
12-03
计算机机房系统工程的施工...综上所述，计算机机房系统的验收方案涵盖了环境条件、设备安装、UPS性能测试、资料管理和安全操作等多个方面，旨在确保机房能够安全、稳定、高效地运行，保障信息化服务的连续性和可靠性。
机房收费系统之学生基本信息维护 修改信息
Phoneix的博客
08-09 889
1.介绍修改信息功能 为什么有修改功能？这个功能如何操作的？如何才能修改？ 修改功能不难发现在组合查询中只有学生基本信息维护上有这个功能，为了更好的维护学生的信息查出来后可以方便的进行更改提高效率！所以才有了这个功能！ 2.接下来给大家介绍是如何操作的 一、查询到需要条件的信息 二、选中MSHFLexGrid控件上的信息   三、点击修改 四、在弹出的修改学生信息上进行所需要的...
【第一次机房收费系统】—组合查询（操作员工记录、学生基本信息维护）
在这个充满危险的乱世之中，只有学会烤鸡才能顽强的活下去。
11-16 416
一、思维导图（以操作员工记录为例） 二、思路 （1）往窗体里面添加数据 这里最好定义数组 如：`在这里插Private Sub Form_Load() Dim i As Integer Dim j As Integer Dim n As Integer '打开窗体时的加载内容 For i = 0 To 2 comboField(i).AddItem "教师" comboField...
第一次机房收费系统之操作员学生信息维护
ZYB的博客
07-30 251
学生信息维护这个窗体单拿出来是为了修改其中的记录而做的介绍。其中将详细列出代码请参考代码 具体的代码 添加字段名 Private Sub Form_Load() H = Me.Height W = Me.Width '为字段添加选项 comboFieldName1.AddItem "卡号" comboFieldName1.AddItem "学号" c...
噢易机房BOSS系统
oseasy2300的专栏
08-19 6858
 一.需求分析    目前学校机房无论是资源分配、环境的统一部署、安全防护，还是上机管理、财务统计和报表，耗费了大量的人力、物力、财力和时间。随着机房的不断扩大，机房管理人员少、任务重、工作量大等矛盾更为突出。 机房运维和管理模式存在主要问题有： 资源没有有效利用 安排上机课不方便，管理工作量大 软件安装复杂，机房维护量大 不方便收费管理，财务漏洞多 难于统计查询数据 ……  二、系统
if not 语句用法
print_5的博客
03-13 9099
其实，if not语句我一开始也不会用，在网上更是解释的我一头雾水 但是，只要你看了这篇文章，你一定就会了 首先，if语句大家都会用，就不多说了直入if not 首先如果一个变量中储存的值是 空字符串"", 0, 空列表[], 空字典{}, 空元组()或者是False 那么用if not就会传递True相反就会传递False 举个例子： a=0 b="" c={} d=False e=[] ...
Excel Vba 比较两个sheet页中的每个单元格内容是否相等
热门推荐
u013700560的专栏
03-16 1万+
Sub compareReport() Dim c As Integer Dim l As Integer Dim count As Integer count = 2 For l = 2 To 7465     For c = 3 To 18     If ((Not Trim(Sheet1.Cells(l, c)) = "") And (Not Trim(Sheet2.Cells
【浏览器插件】智译网页翻译 自动翻译 双语对照 AI对话.zip
最新发布
08-21
智译网页翻译插件，由新译科技精心打造，是一款智能化的网页翻译利器。当您浏览网页时，它能够自动识别页面语言，并迅速将其翻译成您预设的目标语言。支持双语对照、自动翻译、划词翻译，让您在浏览外文网站时，信息一目了然。 AI助手LangGPT的加入，让智译更进一步。它不仅能自动总结页面内容，还能与您自由对话，高效便捷地获取所需信息。智译支持包括英语、俄语、德语、法语、西班牙语等在内的十数种语言与中文的互译，无论是欧美语言还是亚洲语言，甚至是少数民族语言，都能轻松应对。 无论是查阅资料、浏览新闻还是在线购物，智译都能助您一臂之力，节省时间，提升效率。使用起来也非常简单： 1. 自动翻译的开启与关闭：在设置页面，选择“自动翻译为”选项，即可在打开网页时自动翻译。若不需要自动翻译，关闭此选项即可，也可以点击右下角功能条上的“译”按钮手动翻译。 2. 双语对照翻译的开启与关闭：在设置页面，打开“双语对照模式”，新开或刷新页面后，翻译触发，页面将同时展示原文与译文。点击智译图标可切换查看模式，还可以自定义显示样式。 3. 划词翻译的开启与关闭：在设置页面，启用“启动划词翻译”，即可在页面上划选
毕业设计，基于SpringBoot+Vue+MySQL开发的公寓报修管理系统，源码+数据库+毕业论文+视频演示
08-21
毕业设计，基于SpringBoot+Vue+MySQL开发的公寓报修管理系统，源码+数据库+毕业论文+视频演示 现代经济快节奏发展以及不断完善升级的信息化技术，让传统数据信息的管理升级为软件存储，归纳，集中处理数据信息的管理方式。本公寓报修管理系统就是在这样的大环境下诞生，其可以帮助管理者在短时间内处理完毕庞大的数据信息，使用这种软件工具可以帮助管理人员提高事务处理效率，达到事半功倍的效果。此公寓报修管理系统利用当下成熟完善的Spring Boot框架，使用跨平台的可开发大型商业网站的Java语言，以及最受欢迎的RDBMS应用软件之一的MySQL数据库进行程序开发。公寓报修管理系统有管理员，住户，维修人员。管理员可以管理住户信息和维修人员信息，可以审核维修人员的请假信息，住户可以申请维修，可以对维修结果评价，维修人员负责住户提交的维修信息，也可以请假。公寓报修管理系统的开发根据操作人员需要设计的界面简洁美观，在功能模块布局上跟同类型网站保持一致，程序在实现基本要求功能时，也为数据信息面临的安全问题提供了一些实用的解决方案。可以说该程序在帮助管理者高效率地处理工作事务的同时，也实现了数据信息的整体化，规范化与自动化。 关键词：公寓报修管理系统；Spring Boot框架；MySQL；自动化；VUE
机房收费系统--层次图
11-05
机房收费系统的层次图是一种展示系统结构的图形化工具，它将系统分解为多个层次，每个层次都有其特定的功能和职责。通常，机房收费系统的层次图包括三个层次：表示用户界面的表示层、表示业务逻辑的业务层和表示数据存储的数据层。其中，表示层负责与用户交互，业务层负责处理业务逻辑，数据层负责数据的存储和管理。 <<引用:通过之前的学习，对机房收费系统在用例需求以及功能上做了一些总结，借助UML模型图让这些东西更加清晰明了的呈现出来，这次我们就再深入的了解一下从其他几个角度来认识机房收费系统这个软件。 机房收费系统-协作图 。 引用:PS：由于在机房收费系统中有非常多的地方可以用协作图和顺序图来表示，所以这里就举一个非常简单的例子。 机房收费系统-顺序图 。>>
评论 15
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

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

抵扣说明：

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

余额充值