机房收费系统——组合查询

最新推荐文章于 2018-11-22 19:56:57 发布
最新推荐文章于 2018-11-22 19:56:57 发布
阅读量814 收藏
点赞数
分类专栏： 机房收费系统 文章标签： 机房收费系统
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/yjt13/article/details/52556253
版权 

     机房收费系统之中的组合查询也是非常有意思的一个环节，这11个小控件的逻辑关系如果没有弄清思路，是很容易被他们玩的团团转的。下面就说说我的组合查询的思路。
     第一次看到这个窗体的感觉就是，我去，怎么这么多的控件，然后就是点点点，各种尝试，找找里面的关系，那么关系是什么呢？如图，我先创建了界面，这样比较容易解释一点。                   
     首先，因为这么多查询不知道从哪里入手，那么就从最简单的第一行开始做，在combo1,combo2,text1的内容不完整的情况下，我们要做的就是让用户把内容补充完整，代码很简单，如下：
</p><p></p><pre name="code" class="html">   
    If Combo1.Text = "" Then
        MsgBox "请选择字段！", vbOKOnly + vbInformation, "提示信息"
        Combo1.SetFocus
    ElseIf Combo2.Text = "" Then
        MsgBox "请选择操作符！", vbOKOnly + vbInformation, "提示信息"
        Combo2.SetFocus
    ElseIf Text1.Text = "" Then
        MsgBox "请输入要查询的内容！", vbOKOnly + vbInformation, "提示信息"
        Text1.SetFocus

    Else
    ....
    End If
      我的提示比较繁琐，但是我觉得这样更加精确一点，当内容全部满足了以后，我们要做的就是进行满足这三个控件的条件的查询， 
    txtSQL1 = "select * from line_Info where "
    txtSQL1 = txtSQL1 & " " & Field(Combo1.Text) & " " & Combo2.Text & "'" & Trim(Text1.Text) & "'"
     
        Set mrc1 = ExecuteSQL(txtSQL1, Msgtext1)
        
        If mrc1.EOF Then
            MsgBox "查询无信息，请重新选择查询条件！", vbOKOnly + vbInformation, "提示信息"
        Else
            With MSFlexGrid1
                
                .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 mrc1.EOF
                    
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrc1.Fields(1))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrc1.Fields(3))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrc1.Fields(6))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrc1.Fields(7))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrc1.Fields(8))
                    .TextMatrix(.Rows - 1, 5) = Trim(mrc1.Fields(9))
                    .TextMatrix(.Rows - 1, 6) = Trim(mrc1.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc1.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc1.Fields(13))
                    mrc1.MoveNext
                    
                Loop
            End With
        End if
第一次的查询可以这样，那么第二次，第三次就可以在第一次的基础上修改添加内容，跟第一次查询类似，只不过我这里多加了一个关系，完整的代码如下： 

<span style="white-space:pre">	</span>   

     If Combo7.Text = "与" Or Combo7.Text = "或" Then
           
        If Trim(Combo7.Text) = "与" Then
                a = " and "
            Else
                a = " or "
            End If
            
            If Combo3.Text = "" Then
                MsgBox "请选择字段！", vbOKOnly + vbInformation, "提示信息"
                Combo3.SetFocus   
            ElseIf Combo4.Text = "" Then
                MsgBox "请选择操作符！", vbOKOnly + vbInformation, "提示信息"
                Combo4.SetFocus     
            ElseIf Text2.Text = "" Then
                MsgBox "请输入要查询的内容！", vbOKOnly + vbInformation, "提示信息"
                Text2.SetFocus
            Else
                txtSQL1 = txtSQL1 & " " & a & " " & Field(Combo3.Text) & " " & Combo4.Text & "'" & Trim(Text2.Text) & "'"
                
                If Combo7.Text <> "" And Combo3.Text <> "" And Combo4.Text <> "" And Text2.Text <> "" Then
                    
                    
                    '第二次查询可以满足查询时，第三次查询不可用
                    If Combo8.Text = "与" Or Combo8.Text = "或" Then
                        
                        If Trim(Combo8.Text) = "与" Then
                            b = " and "
                        Else
                            b = " or "
                        End If
                        If Combo5.Text = "" Then
                            MsgBox "请选择字段！", vbOKOnly + vbInformation, "提示信息"
                            Combo5.SetFocus    
                        ElseIf Combo6.Text = "" Then
                            MsgBox "请选择操作符！", vbOKOnly + vbInformation, "提示信息"
                            Combo6.SetFocus    
                        ElseIf Text3.Text = "" Then
                            MsgBox "请输入要查询的字段!", vbOKOnly + vbInformation, "提示信息"
                            Text3.SetFocus
                        Else
                            txtSQL1 = txtSQL1 & " " & b & " " & Field(Combo5.Text) & "" & Combo6.Text & "'" & Trim(Text3.Text) & "'"   
                        End If
                        
                    End If
                End If
            End If
        End If
       Set mrc1 = ExecuteSQL(txtSQL1, Msgtext1)
        
        If mrc1.EOF Then
            MsgBox "查询无信息，请重新选择查询条件！", vbOKOnly + vbInformation, "提示信息"
        Else
            With MSFlexGrid1
                
                .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 mrc1.EOF
                    
                    .Rows = .Rows + 1
                    .CellAlignment = 4
                    .TextMatrix(.Rows - 1, 0) = Trim(mrc1.Fields(1))
                    .TextMatrix(.Rows - 1, 1) = Trim(mrc1.Fields(3))
                    .TextMatrix(.Rows - 1, 2) = Trim(mrc1.Fields(6))
                    .TextMatrix(.Rows - 1, 3) = Trim(mrc1.Fields(7))
                    .TextMatrix(.Rows - 1, 4) = Trim(mrc1.Fields(8))
                    .TextMatrix(.Rows - 1, 5) = Trim(mrc1.Fields(9))
                    .TextMatrix(.Rows - 1, 6) = Trim(mrc1.Fields(11))
                    .TextMatrix(.Rows - 1, 7) = Trim(mrc1.Fields(12))
                    .TextMatrix(.Rows - 1, 8) = Trim(mrc1.Fields(13))
                    mrc1.MoveNext
                    
                Loop
            End With
        End if 

 

 

组合查询到这里就基本上结束了，但是需要注意的是，我的窗体之中一开始只有combo1,combo2,text1,combo7可以使用，只有当combo7中的关系被确定以后，那么下一次的查询才可以继续使用，如果不是这个思路的话，那么代码还是需要稍微修改一下的。
 

小结：组合查询看起来挺吓人的，但是认真思考了以后，你就会发现其实也没有想象中那么吓人，当不知道从哪里开始入手的时候，就随便找个地方开始入手，做着做着就会发现有了方向；当不知道如何实现这么多查询的时候，就从最简单的第一步查询开始做，满足第一次查询以后，往第一次查询之中添加第二次，第三次的查询，没有做不到的事情，只有没有去做。’
 

 

 


 

                

        

        

    

  


    

      

        

            

              
                
                  只怪星光太耀眼
                
              
            

            

                关注
              
            

        

        

          
      

      

            

                专栏目录
          









                



	

		

			

				
					
机房收费系统——组合查询优化（添加DTPicker控件）

				
			

			

				

					Nikita
				

				

					10-13
					
					408
					
				

			

		

		

			
				
干货
组合查询窗体中查询字段有日期有时间，那这样我们还用文本框来显示的话是不是用户体验很不好，本着提升用户体验的想法把文本框换成DTPicker控件。下面看看效果和怎么实现的。

功能是当点击需要输入日期时间的查询条件时，文本框自动转换为时间控件。时间控件要使用数组，利用循环语句减少代码量。
Private Sub comFields1_Click(Index As Integer)
Dim i ...

			
		

	



                

              
                



	

		

			

				
					
机房收费系统——经典代码总结

				
			

			

				

					齐天佑
				

				

					09-11
					
					1211
					
				

			

		

		

			
				
机房收费系统完成之后，发现其中有很多经典的代码，这些代码在未来的开发中很可能会使用到。针对这么代码进行一个归纳总结，方便日后使用

数据库传递参数SQL传递查询语句，记录查询结果


'传递参数SQL传递查询语句，Msgstring传递查询信息
'自身以一个数据集对象的形式返回
Public Function ExecuteSQL(ByVal SQL As String, MsgSt...

			
		

	



                


  
              

                


	

		

			

				
					
【机房收费系统】——组合查询

				
			

			

				

					周士豪
				

				

					07-26
					
					1496
					
				

			

		

		

			
				
在机房收费系统中，其中的组合查询仅仅在刚开始的时候构思了一点自己的想 
法，但是并没用付诸于行动，去尝试自己的是否正确，而是选择了去看之前看 
到的一篇关于组合查询的博客，说起来有些愧疚的啊。还好的是当我理清思路 
之后剩下的组合查询都是自己的写的了。 
    在这分享一下自己的思路，共分为三步。（以学生基本信息维护为例） 
    1.首先窗体的建立，加入需要控件等来补充界面。 
    2.当

			
		

	





	

		

			

				
					
机房收费系统之—组合查询

				
			

			

				

					zhoukun@Fly
				

				

					08-12
					
					2219
					
				

			

		

		

			
				
机房收费系统之组合查询

			
		

	



		

			
		



	

		

			

				
					
机房收费系统 —— 组合查询

				
			

			

				

					winnieFighting
				

				

					02-01
					
					474
					
				

			

		

		

			
				
以学生上机统计信息查询



前言

学生上机统计信息查询要实现的功能是查询 line 表中的一些信息，要查询的关键词主要是line表中的各个属性，可根据多个属性结合的方式来查询相关内容，所以是组合查询。 




正文

代码如下（相关解释在代码里）



Private Sub cmdOK_Click()


   '建立与数据库的联系(查询line表)
    txtsql = &quot;selec

			
		

	





	

		

			

				
					
机房收费系统之组合查询

				
			

			

				

					乐于探索,乐于奉献,追求极致,向往生活
				

				

					10-22
					
					748
					
				

			

		

		

			
				
神器的逻辑
      好像谈到整个机房收费系统，我们谈之色变的不是整个项目有很多窗体，而是窗体模块的执行顺序（流程）；我们把大部分时间都用来思考某个功能实现的过程；相比较来看，只要我们有了逻辑思路，敲代码仅仅是小菜一碟，哈哈；不过....前提你要绞尽脑汁的去思考，不然事后优化也会消耗大部分时间，尽量一次性考虑的全面一些；
      组合查询，这个名词我们应该不陌生了，原来在学生中我们也遇到

			
		

	





	

		

			

				
					
机房收费系统——测试分析报告

				
			

			

				

					好记性不如烂笔头--玲博小记
				

				

					06-15
					
					1652
					
				

			

		

		

			
				
测试分析报告（GB8567——88）


1引言
1.1编写目的
测试分析报告是完成系统测试之后生成或编写的文档。将主要的测试项目、测试方法、测试结果等，整理出来。
报告的预期读者有维护人员看主要还要哪些注意事项在维护的过程中，让编码人员对于系统错误有进一步了解，然后做进一步的优化。
1.2背景
a.       被测试软件系统的名称；机房收费系统
b.       该软件的任务

			
		

	





	

		

			

				
					
机房收费系统——测试计划

				
			

			

				

					好记性不如烂笔头--玲博小记
				

				

					06-15
					
					1990
					
				

			

		

		

			
				
在项目基本编码工作完成的就要进行测试，对于排除出错误和修复漏洞有重要作用。

			
		

	





	

		

			

				
					
机房收费系统——概要设计说明书

				
			

			

				

					好记性不如烂笔头--玲博小记
				

				

					06-15
					
					1839
					
				

			

		

		

			
				
这是一个宏观的把控系统开发总概括，对于对象、类等进行一定的大体的设计，设计人员可以通过概要设计为接下来的详细设计做准备。
预期读者是设计人员。

			
		

	





	

		

			

				
					
第一次机房收费系统--组合查询

				
			

			

				

					好吃的爆米花
				

				

					09-07
					
					564
					
				

			

		

		

			
				
欢迎您的阅读， 经过了一周的不屑努力，终于攻克了，当然还是要感谢张铎同学和晓尚同学的帮助！ 


指导思想

通过拼接一条SQL语句，实现对数据的查询。



代码

1、根据选择的不同组合关系，判断控件的使用 
注意：我利用的Timer控件。

Private Sub Timer0_1_Timer()
    '判断第一组控件
    If Trim(comboCombineRelation0....

			
		

	





	

		

			

				
					
【第一次机房收费系统】组合查询

				
			

			

				

					Java is the best language~
				

				

					01-17
					
					677
					
				

			

		

		

			
				
所有的伟大只源于一个勇敢地开始。 
组合查询之前以为很难，但是真正去开始敲了，你就会发现并不难。敲完了第一个，基本上就算是敲完了。 
这是机房收费系统里面组合查询的标准样式，之所以叫组合查询，是因为我们要将若干个条件选择出来之后组合在一起来查询。首先，组合查询分为三组查询条件和两个组合关系，组合关系两两连接组合条件。所以当给你选择了第一个组合关系之后，必须要有前两行的查询条件，选择了第二个组合关系之

			
		

	





	

		

			

				
					
机房收费系统（三）-组合查询

				
			

			

				

					冯瑞姣
				

				

					11-22
					
					268
					
				

			

		

		

			
				
【前言】
一拖再拖，组合查询终于做完了，并且弄明白了其中的含义。下面就以操作员的工作记录窗体为例，来总结一下组合查询吧！
【内容】
组合查询：
第一行（可单独查询）即为第一个条件，第二行为第二个条件，第三行为第三个条件。利用“组合关系”控件将条件连接起来，进行组合查询。
导图

这张导图是我看了好多大佬的博客，和自己的思考之后画出来的，可能某个地方还不是理解的很透彻，望指点！
查询代码
Priva...

			
		

	





	

		

			

				
					
机房收费系统-组合查询

				
			

			

				

					Marshallren的博客
				

				

					09-29
					
					353
					
				

			

		

		

			
				
发布文章                      前言：机房收费系统有三大难点：组合查询、下机和报表，那么在敲完基本窗体后，首先要面对的就是组合查询这一道大难题，果不其然，我在这里也卡了一段时间，经过昨天的探讨与查询，终于解决了这个问题，那么话不多说，我们开始研究吧：
组合查询，核心关键点如下：
1.组合查询的语法。组合查询需要涉及的SQL语法较为复杂，所以很容易出错；
2.函数的运用。由于在c...

			
		

	





	

		

			

				
					
机房收费系统--组合查询

				
			

			

				

					蝌蚪鱼
				

				

					08-17
					
					811
					
				

			

		

		

			
				
在学生信息管理系统中我们用到了组合查询，就是通过用check项，将SQL 语句一点点完善，

最后在数据库中查询。


 机房收费系统中同样用到了组合查询，差别是提供字段让我们选择，还有就是用到了“and”和“or ”来组合
 
 这里我们引入了comboBox.Tag
 属性。用comboBox.Tag来代替选择的字段名。

代码如下：

第一步：将选择的字段名用数据库中

			
		

	





	

		

			

				
					
【机房收费系统】组合查询

				
			

			

				

					滕柳
				

				

					08-16
					
					937
					
				

			

		

		

			
				
机房组合查询我感觉是在这上面时间最多的一个，不是太难但就是有很多的不容易让人想到的地方。下面我就来总结一下。
     1、查询条件strA单独查询，组合关系comboZh1符合的时候strA和StrB一起查询，组合关系comboZh2符合的时候strA、StrB、StrC三行条件一起查询。
     2、当字段名是性别的时候操作符中的符号只能是“=”和“”并且提示只能输入“男” 或“女”。当

			
		

	





	

		

			

				
					
【机房收费系统】---组合查询

				
			

			

				

					杨幂等
				

				

					12-31
					
					418
					
				

			

		

		

			
				
组合查询我们用到了Student_Info，首先你要告诉自己，它一点都不难，稍微用心下，就很容易明
白其中的道理了。

 一、代码思路0-3
0.首先，老规矩，先判断是否为空。
1.当没有组合关系时，直接从学生表里查询信息，并显示数据；
值得注意的是，刚开始，当没有选择组合关系时，也可以进行多行条件的组合查询。所以后来，我进行了
优化，就是若未选择组合关系“或”或“与”，后面的com

			
		

	





	

		

			

				
					

				
			

			

				

					
				

			

		

		

			
				

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		
评论 29

	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值