机房收费系统问题集（4）——指定时间段数据查询+组合查询

最新推荐文章于 2022-10-07 22:56:09 发布
最新推荐文章于 2022-10-07 22:56:09 发布
阅读量1.7k 收藏 1
点赞数
分类专栏： 我的成长路の计算机 ----------【C/S】 VB与数据库 文章标签： 数据库 计算机 设计
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/helijie92902/article/details/38611949
版权
本文介绍了如何在机房收费系统中实现指定时间段数据查询和组合查询。通过使用DTPicker控件进行时间选择，并利用DateDiff函数、IsNull函数以及CDate函数进行数据过滤。同时，文章讲解了如何在学生基本信息维护等窗体中实现组合查询，包括将人类语言转化为计算机语言、空值检查和操作符设置，以此提高查询效率和准确性。
摘要由CSDN通过智能技术生成

    最近一直处在“攻坚”阶段，指定时间段数据查询和组合查询两座大山终于拿下，现在整理一下，也不枉我的苦心经营了......奋斗

（1）指定时间段数据查询

首先添加DTPicker控件，这是个非常强大的控件，早知道有它，我肯定赚到好多时间......



然后在你需要的地方画出来，它刚刚画出来的样式虽然很普通，但是，运行后，你会大吃一惊的


既能选择你想要的时间，又能立马回到今天，有木有很强大吐舌头

重点是两个时间段内的数据查询，写入下面的代码，哈哈，尽情的查吧

<pre name="code" class="vb"><strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Private Sub cmdchaxun_Click()
Dim txtsql As String
Dim msgtext As String
Dim mrc As ADODB.Recordset
Dim startdate As Date
Dim enddate As Date

startdate = DTPicker1.Value
enddate = DTPicker2.Value

txtsql = "select * from Recharge_Info where date >='" & startdate & "' and date <='" & enddate & "'"
Set mrc = executesql(txtsql, msgtext)
'比较两个日期的大小
If DateDiff("d", CDate(startdate), CDate(enddate)) < 0 Then
   MsgBox "起始日期不能小于终止日期！", vbOKOnly + vbExclamation, "警告"
   Exit Sub
End If

If mrc.EOF Then
      MsgBox "没有数据！", vbOKOnly + vbExclamation, "警告"
      Exit Sub
End If

 With myflexgrid
        .CellAlignment = 4
        .Rows = 1
        .TextMatrix(0, 0) = "卡号"
        .TextMatrix(0, 1) = "充值金额"
        .TextMatrix(0, 2) = "充值日期"
        .TextMatrix(0, 3) = "充值时间"
        .TextMatrix(0, 4) = "充值教师"
        .TextMatrix(0, 5) = "结账状态"
Do While Not mrc.EOF
        .CellAlignment = 4
        .Rows = .Rows + 1
        .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(2))
        .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(3))
        .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(4))
        .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(5))
        .TextMatrix(.Rows - 1, 4) = Trim(username)
        If IsNull(mrc.Fields(7)) = False Then
           .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(7))
        Else
           .TextMatrix(.Rows - 1, 5) = ""
        End If
        mrc.MoveNext
   
Loop
End With
mrc.Close</span></strong>


 

 
在代码中间用到了三个函数：DateDiff函数、IsNull函数和CDate函数 

DateDiff函数：表达式：DateDiff(timeinterval,date1,date2 [, firstdayofweek [,                                      firstweekofyear]])                     
 

              允许数据类型:：timeinterval 表示相隔时间的类型，代码为：                     
 

              年份 yy、yyyy 季度 qq、q                     
 

              月份 mm、m                    
 

              每年的某一日 dy、y                     
 

              日期 dd、d                     
 

              星期 wk、ww                    
 

              工作日 dw                     
 

              小时 hh                     
 

              分钟 mi、n                     
 

              秒 ss、s                     
 

              毫秒 ms
 

IsNull函数：IsNull是一个内部函数，判断参数对象是否为空(指出表达式是否不包含任何有效数据)，若是，返回true，否则返回false． 
 

CDate函数：CDate(date)返回表达式，此表达式已被转换为 Date 子类型的 Variant。
 

           CDate 根据系统的区域设置识别日期格式。如果数据的格式不能被日期设置识别，则不能判断                年、月、日的正确顺序。另外，如果长日期格式包含表示星期几的字符串，则不能被识别。
 

（2）组合查询
 

    在机房收费系统中有三个用到组合查询的窗体：学生基本信息维护，学生上机统计信息查询，操作员工作记录，现在以学生基本信息维护为例
 

首先在模块中将人类语言转换成计算机可以懂的语言，以便于查询
 

 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Public Function FiledName(StrFiledName As String) As String
    Select Case StrFiledName
    Case "卡号"
         FiledName = "cardno"
    Case "学号"
         FiledName = "studentno"
    Case "姓名"
         FiledName = "studentname"
    Case "性别"
         FiledName = "sex"
    Case "学院"
         FiledName = "department"
    Case "年级"
         FiledName = "grade"
    Case "班级"
         FiledName = "class"
    End Select</span></strong>
 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">End Function
</span></strong>
 

 

再在模块中添加判断是否为空的代码（学生信息管理系统中也用到了）
 

 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Public Function testtxt(txt As String) As Boolean
'判断输入内容是否为空
If Trim(txt) = "" Then
     testtxt = False
Else
     testtxt = True
End If
End Function
</span></strong>
 

  

 

然后设置操作符，卡号，学号可以有“<”和“>”，可是姓名，性别，系别，年级不能有，于是乎，在每个字段的click事件下添加下面的代码：
 

 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Private Sub Comboziduan1_Click()
     
     Combocaozuo1.Clear '添加后就没有重复的操作符了
     
    Select Case Comboziduan1.Text
           Case "卡号"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<"
                Combocaozuo1.AddItem ">"
                Combocaozuo1.AddItem "<>"
           Case "学号"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<"
                Combocaozuo1.AddItem ">"
                Combocaozuo1.AddItem "<>"
           Case "姓名"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<>"
           Case "性别"
                MsgBox "请输入“男”或“女”！", vbOKOnly + vbExclamation, "提示"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<>"
           Case "系别"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<>"
           Case "年级"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<>"
           Case "班级"
                Combocaozuo1.AddItem "="
                Combocaozuo1.AddItem "<>"
    End Select
End Sub</span></strong>
 

  

 
再在“查询”的按钮的click事件中添加下面的代码： 

 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">Private Sub cmdchaxun_Click()
    Dim txtsql As String
    Dim msgtext As String
    Dim mrc As ADODB.Recordset
    
    txtsql = "select * from student_Info where "
  
    '判断字段是否为空
    If Not testtxt(Trim(Comboziduan1.Text)) Then
       MsgBox "请选择字段名！", vbOKOnly + vbExclamation, "警告"
       Comboziduan1.SetFocus
       Exit Sub
    End If
    '判断操作符是否为空
    If Not testtxt(Trim(Combocaozuo1.Text)) Then
       MsgBox "请选择操作符！", vbOKOnly + vbExclamation, "警告"
       Combocaozuo1.SetFocus
       Exit Sub
    End If
    '判断查询内容是否为空
    If Not testtxt(Trim(txtchaxun1.Text)) Then
       MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation, "警告"
       txtchaxun1.SetFocus
       Exit Sub
    End If
    
    txtsql = txtsql & FiledName(Comboziduan1.Text) & " " & Combocaozuo1.Text & "'" & txtchaxun1.Text & "'"
 
    '开始组合
    If Trim(Combozuhe1.Text <> "") Then
       If Trim(Comboziduan2.Text) = "" Or Trim(Combocaozuo2.Text) = "" Or Trim(txtchaxun2.Text) = "" Then
          MsgBox "您选择了第一个组合关系，请输入完整的信息后再查询！", vbOKOnly + vbExclamation, "提示"
          Exit Sub
       Else
          txtsql = txtsql & FiledName(Combozuhe1.Text) & " " & FiledName(Comboziduan2.Text) & Combocaozuo2.Text & "'" & Trim(txtchaxun2.Text) & "'"
    
       End If
    End If
    
    If Trim(Combozuhe2.Text) <> "" Then
       If Trim(Comboziduan3.Text) = "" Or Trim(Combocaozuo3.Text) = "" Or Trim(txtchaxun3.Text) = "" Then
          MsgBox "您选择了第二个组合关系，请输入完整的信息后再查询！", vbOKOnly + vbExclamation, "警告"
          Exit Sub
       Else
         txtsql = txtsql & FiledName(Combozuhe2.Text) & " " & FiledName(Comboziduan3.Text) & Combocaozuo3.Text & "'" & Trim(txtchaxun3.Text) & "'"
     
       End If
   End If
   
   
   '开始查询
   Set mrc = executesql(txtsql, msgtext)
   
   If mrc.EOF Then
      MsgBox "没有您要查找的学生，请重新查询！", vbOKOnly + vbExclamation, "警告"
   Else
      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) = "备注"
             .TextMatrix(0, 9) = "状态"
             .TextMatrix(0, 10) = "日期"
             .TextMatrix(0, 11) = "时间"
             .TextMatrix(0, 12) = "类型"
       End With
           
     Do While Not mrc.EOF
         With myflexgrid
              .Rows = .Rows + 1
              .CellAlignment = 4
              .TextMatrix(.Rows - 1, 0) = Trim(mrc.Fields(0))
              .TextMatrix(.Rows - 1, 1) = Trim(mrc.Fields(1))
              .TextMatrix(.Rows - 1, 2) = Trim(mrc.Fields(2))
              .TextMatrix(.Rows - 1, 3) = Trim(mrc.Fields(3))
              .TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(4))
              .TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(5))
              .TextMatrix(.Rows - 1, 6) = Trim(mrc.Fields(6))
              .TextMatrix(.Rows - 1, 7) = Trim(mrc.Fields(7))
              .TextMatrix(.Rows - 1, 8) = Trim(mrc.Fields(8))
              .TextMatrix(.Rows - 1, 9) = Trim(mrc.Fields(10))
              .TextMatrix(.Rows - 1, 10) = Trim(mrc.Fields(12))
              .TextMatrix(.Rows - 1, 11) = Trim(mrc.Fields(13))
              .TextMatrix(.Rows - 1, 12) = Trim(mrc.Fields(14))
        End With
        mrc.MoveNext
    Loop
 End If </span></strong>
 

<strong><span style="font-family:KaiTi_GB2312;font-size:18px;">mrc.Close  
End Sub</span></strong>
 
    OK，大功告成，查询一下吧，是不是感觉超厉害（其实代码中我还有不懂的地方，还在摸索中奋斗，希望大家多多提建议，共同加油！！！） 

 

    没有做不到，只有想不到，怀着全心全意为人民服务的赤诚之心，没有做不好的事情！！！小伙伴们，好好加油！！！
 
 
 


 
 
 

                

        

        

    

  


    

      

        

            

              
                
                  Reka
                
              
            

            

                关注
              
            

        

        

          
      

      

            

                专栏目录
          









                



	

		

			

				
					
怎样成为一个优秀的架构师？

				
			

			

				

					程序员光剑
				

				

					10-08
					
					17万+
					
				

			

		

		

			
				
怎样才算是架构师？

架构师是一个既能掌控整体又能洞悉局部瓶颈并依据具体的业务场景给出解决方案的团队领导型人物。看似完美的“人格模型”背后，是艰辛的探索。

架构师不是一个人，他需要建立高效卓越的体系，带领团队去攻城略地，在规定的时间内完成项目。

架构师的分类

从业界来看对于架构师的理解可以大概区分为：


	企业架构师：专注于企业总体 IT 架构的设计。
	
	
	IT 架构师-软件产品架构...

			
		

	



                

              
                



	

		

			

				
					
大数据之路：阿里巴巴大数据实践

				
			

			

				

					qq_27639777的博客
				

				

					08-16
					
					6516
					
				

			

		

		

			
				
第1章：总述
如果说在IT时代是以自我控制、自我管理为主，那么到了DT（Data Technology）时代，则是以服务大众、激发生产力为主。阿里巴巴大数据系统体系架构主要分为数据采集、数据计算、数据服务和数据应用四大层次。

第2章：日志采集
阿里巴巴的日志采集体系方案包括两大体系：Aplus.JS是Web端（基于浏览器）日志采集技术方案：UserTrack是APP端（无线客户端）日志采集技术方案。
2.1 浏览器的页面日志采集
浏览器的页面型产品／服务的日志采集可分为如下两大类。

页面浏览（展现）日志

			
		

	



                


  
              

                


	

		

			

				
					
收取金额查询—日历控件&查询两个日期之间的数据

				
			

			

				

					许小乖……是总攻
				

				

					10-31
					
					2364
					
				

			

		

		

			
				
当敲到收取金额查询窗体时，首先看到的胡杨系统的那个小日历控件，我想它应该不仅仅是一个comboBox控件，也许是和一个隐藏的小日历控件组合起来使用的，所以就上网查了一下。它的作用就是可以让用户自己选择查询哪个日期段的数据，而不是把所有的数据都罗列出来，这样人性化的为用户自动删除掉了一些用户不需要的数据。
         
首先，VB6.0里面就存在这样一个控件，加载方法是：打开工程—部件—M

			
		

	





	

		

			

				
					
20170813xlVBA跨表筛选数据

				
			

			

				

					weixin_30865427的博客
				

				

					08-13
					
					218
					
				

			

		

		

			
				
一、数组方案

Sub CustomFilter()
    Dim Rng As Range, Arr As Variant
    Dim EndRow As Long, EndCol As Long
    Dim i As Long, j As Long
    Dim n As Long
    Dim StartDate, EndDate
    Dim BeginTi...

			
		

	



		

			
		



	

		

			

				
					
交易系统开发（一）——交易系统简介

				
			

			

				

					天山老妖
				

				

					02-20
					
					7997
					
				

			

		

		

			
				
一、交易过程简介

A股市场，投资者必须通过经纪公司交易柜台才能连接交易所，即交易订单从客户策略服务器发至经纪公司交易柜台，交易柜台内部处理后发往交易所，交易所确认报单后发送回报给交易柜台，再从柜台发送至客户策略机的一来一回整体链路的耗时。



报单发往交易所和回报返回至策略服务器的链路是一致的。



二、证券交易解决方案

证券交易解决方案简介
完整的证券交易包括交易所、买方、卖方，证券交易解决方案架构如下：







2、卖方

卖方是把各种资产包装成产品并提供给市场的实体，如各大证券公司（中.

			
		

	





	

		

			

				
					
系统集成项目管理工程师笔记

					
热门推荐

				
			

			

				

					gly1653810310的博客
				

				

					10-26
					
					2万+
					
				

			

		

		

			
				
目录依据第二版教程

			
		

	





	

		

			

				
					
云计算科普——入行半年，我这样看云计算

				
			

			

				

					CSDN业界要闻
				

				

					12-29
					
					731
					
				

			

		

		

			
				

  
    
                    

                    

                    
                    
                    戳蓝字“CSDN云计算”关注我们哦！ 前 言在今天，如果说对于云计算还一无所知，那可就真的out了。企业喊了这么多年的”上云运动“，那么云的本质到底是什么呢？从2006年...

			
		

	





	

		

			

				
					
《机器人操作系统ROS原理与应用》——3.2　如何选择解决方案

				
			

			

				

					weixin_34206899的博客
				

				

					05-02
					
					182
					
				

			

		

		

			
				
本节书摘来自华章出版社《企业大数据系统构建实战：技术、架构、实施与应用》一 书中的第3章，第3.2节，作者：吕兆星 郑传峰 宋天龙 杨晓鹏，更多章节内容可以访问云栖社区“华章计算机”公众号查看。
3.2　如何选择解决方案
企业选择大数据解决方案时，需要综合企业外部环境、企业内部环境、需求规划、解决方案特性和解决方案费用评估分析五个方面。
3.2.1　外部...

			
		

	





	

		

			

				
					
面试04——整理

				
			

			

				

					HRX98的博客
				

				

					03-12
					
					718
					
				

			

		

		

			
				
1.抽象类怎么模拟接口
2.项目负责
3.线程与进程
4.List list =new Arraylist(Array.aslist(“a”,“b”,“c”,“d”));
​		for(s:list){
​			s.equls（“a”）{
​			s.removes()
​		}
​		}
5.io 异常关闭 应该在哪里关闭
6.public class test{
​	private int value;
​	public void get(int x){
​    this.value=x
}
publ

			
		

	





	

		

			

				
					
典型的多层神经网络模型,神经网络多传感器融合

					
最新发布

				
			

			

				

					wenangou的博客
				

				

					10-07
					
					2941
					
				

			

		

		

			
				
两者间不具有明显的关系，前者是一类需要解决的问题，即将处于不同层次或相同层次的传感器信息进行全局性或局部性的融合。（加权平均就是一种最简单的融合）。 神经网络（NN）是人工智能算法中的一种方法，其可以用于解决诸如多传感器信息融合这样的一类问题，其应用领域多种多样。
总而言之，两者间非必须的一种组合，但是两者相结合也是一种处理问题的方法。
RBF(radial basis functions)径向基网络也只是神经网络的一种类型，其是前馈型网络的一种。谷歌人工智能写作项目：小发猫近20 年来，人们提出了多种信息

			
		

	





	

		

			

				
					
软件需求与问题解决

				
			

			

				

					qq_43747119的博客
				

				

					02-25
					
					9639
					
				

			

		

		

			
				
软件需求与问题解决

			
		

	





	

		

			

				
					
Reporting Services 2008 多值参数查询

				
			

			

				

					a890913的博客
				

				

					08-29
					
					210
					
				

			

		

		

			
				
　　众所周知，Microsoft Reporting Service 2008（简称RS）是一个轻量级客户端报表展示产品。本文是对该产品中【查询参数】的应用案例之一，主要内容是实现RS的多值参数查询。最终实现的效果图如下：

　　下面详细介绍背景、业务场景及实现过程。

背景。系统中记录了某公司所有【客户】的信息，并根据往来交易情况为每一个客户设定了【级别】{有效客户、重点客户、...

			
		

	





	

		

			

				
					
多维度查询解决方案_费控一体化解决方案开课了！

				
			

			

				

					weixin_35656580的博客
				

				

					01-27
					
					231
					
				

			

		

		

			
				
费控一体化解决方案开课了！企业的困惑手工填写费用报销单据，线下报销，容易出错？逐级领导审核时间长，人工统计录入核销，重复劳动？报销管理人为影响因素太多，人情关系的账目多，超标准？预算和报销额度不能实时展示，容易超预算？原始单据采用纸质形式保存，查询历史相关数据难度大？通达创新金牌讲师，助您打造预算准确、执行透明、审批清晰、核算高效的费用预算管控系统，一定不要错过奥！！！金牌讲师---刘培...

			
		

	





	

		

			

				
					
机房收费系统问题集（5）——报表（日结，周结账单）

				
			

			

				

					Reka's blog ^_^
				

				

					08-22
					
					2794
					
				

			

		

		

			
				
和导出Excel一样，这个也是实现

			
		

	





	

		

			

				
					
学生信息管理系统错误集（3）

				
			

			

				

					Reka's blog ^_^
				

				

					07-29
					
					2489
					
				

			

		

		

			
				
2014年7月26日，我的SQL Server 程序突然就打不开了，无论我怎么捣鼓，电脑都无情的弹出下面的框框



 

正当我绝望透顶，转移阵地的时候，马康同学路过，帮我解决了一下，嘿嘿......没想到问题没有了，好开心


解决方法如图所示：
（1）开始——>程序——> Microsoft   SQL Server 2008——>配置工具——>SQL  Server  

			
		

	





	

		

			

				
					

				
			

			

				

					
				

			

		

		

			
				

			
		

	



              




          




        



    





    



      

      

        
      

      





	

		
评论 32

	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

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

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

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

              

            

          

      

      余额充值