技术标签: *【应用】
机房收费系统中需要组合查询,如图
首先,我分析了查询的流程,并画了流程图,如下:
思路总结好了,下面就是代码的编写了(以学生上机统计信息为例):
Dim mrc As ADODB.Recordset
Dim txtSQL As String
Dim Msgtxt As String
If Combo3(0).Text = "" Then '不需要组合查询,第一行有为空值时提示错误信息
If Combo1(0).Text = "" Then
MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If Combo2(0).Text = "" Then
MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If Text1.Text = "" Then
MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else '组合关系框为空且条件成立时,建立的查询,只有第一行"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
txtSQL = "select * from line_info where "
txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set mrc = ExecuteSQL(txtSQL, Msgtxt)
If Not (mrc.BOF And mrc.EOF) Then
MSFlexGrid1.Rows = 1
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.TextMatrix(0, 0) = "卡号"
MSFlexGrid1.TextMatrix(0, 1) = "姓名"
MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
MSFlexGrid1.TextMatrix(0, 7) = "金额"
MSFlexGrid1.TextMatrix(0, 8) = "备注"
Do While Not mrc.EOF '显示数据
With MSFlexGrid1
.Rows = .Rows + 1 '这种方式也可防止空白行的出现
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
.TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
.TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
.TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
.TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
.TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
.TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
mrc.MoveNext
End With
Loop
Else
MsgBox "该条件下没有记录!"
End If
End If
End If
End If
End If
If Not (Combo3(0).Text = "") Then 'combo3(0)不为空时,分两行或三行查询
If (Combo1(0).Text = "" Or Combo1(1).Text = "") Then
MsgBox "请选择字段名", vbOKOnly + vbExclamation, "警告" '第一行与第二行都不能有空值,否则报错
Exit Sub
Else
If (Combo2(0).Text = "" Or Combo2(1).Text = "") Then
MsgBox "请选择操作符", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If (Text1.Text = "" Or Text2.Text = "") Then
MsgBox "请填写要查询的内容", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If Combo3(1).Text = "" Then 'combo3(1)为空值时,前两行查询
txtSQL = "select * from line_info where "
txtSQL = txtSQL & FName(Combo1(0).Text) & " " & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Combo2(1).Text & "'" & Trim(Text2.Text) & "'"
End If
If Not Combo3(1).Text = "" Then 'combo3(1)不为空值时,三行查询
If (Combo1(2).Text = "") Then
MsgBox "请选择条件3字段名", vbOKOnly + vbExclamation, "警告" '第一行与第二行都不能有空值,否则报错
Exit Sub
Else
If (Combo2(2).Text = "") Then
MsgBox "请选择条件3操作符", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else
If (Text3.Text = "") Then
MsgBox "请填写条件3要查询的内容", vbOKOnly + vbExclamation, "警告"
Exit Sub
Else '没有空值
txtSQL = "select * from line_info where "
txtSQL = txtSQL & FName(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'" & FName(Combo3(0).Text) & " " & FName(Combo1(1).Text) & Trim(Combo2(1).Text) & "'" & Trim(Text2.Text) & "' " & FName(Combo3(1).Text) & " " & FName(Combo1(2).Text) & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"
End If
End If
End If
End If
End If
End If
End If
End If
Set mrc = ExecuteSQL(txtSQL, Msgtxt)
If Not (mrc.BOF And mrc.EOF) Then
MSFlexGrid1.Rows = 1
MSFlexGrid1.CellAlignment = 4
MSFlexGrid1.TextMatrix(0, 0) = "卡号"
MSFlexGrid1.TextMatrix(0, 1) = "姓名"
MSFlexGrid1.TextMatrix(0, 2) = "上机日期"
MSFlexGrid1.TextMatrix(0, 3) = "上机时间"
MSFlexGrid1.TextMatrix(0, 4) = "下机日期"
MSFlexGrid1.TextMatrix(0, 5) = "下机时间"
MSFlexGrid1.TextMatrix(0, 6) = "消费金额"
MSFlexGrid1.TextMatrix(0, 7) = "余额"
MSFlexGrid1.TextMatrix(0, 8) = "备注"
Do While Not mrc.EOF '显示数据
With MSFlexGrid1
.Rows = .Rows + 1 '这种方式也可防止空白行的出现
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 2) = Format(mrc.Fields(6), "yyyy-mm-dd")
.TextMatrix(.Rows - 1, 3) = mrc.Fields(7)
.TextMatrix(.Rows - 1, 4) = Format(mrc.Fields(8), "yyyy-mm-dd")
.TextMatrix(.Rows - 1, 5) = mrc.Fields(9)
.TextMatrix(.Rows - 1, 6) = mrc.Fields(11)
.TextMatrix(.Rows - 1, 7) = mrc.Fields(12)
.TextMatrix(.Rows - 1, 8) = mrc.Fields(13)
mrc.MoveNext
End With
Loop
Else
MsgBox "该条件下没有记录!"
End If
mrc.Close
txtSQL = "select * from line_info where "
txtSQL = txtSQL & ...
文章浏览阅读119次。该楼层疑似违规已被系统折叠隐藏此楼查看此楼/***Getaparametervalue**@paramkeyString*@paramdefString*@returnString*/publicStringgetParameter(Stringkey,Stringdef){returnisStandalone?System.getProperty(ke..._java http隧道
文章浏览阅读913次。IP主机名备注192.168.117.14keepalived-master主节点192.168.117.15keepalived-slaver备节点192.168.117.100VIP1.主备节点均安装keepalived# yum install -y keepalived httpd2.主备节点均修改keepalived日志存放路径..._keepalived sendmail
文章浏览阅读469次。--==========================================--SPFILE错误导致数据库无法启动(ORA-01565)--========================================== SPFILE错误导致数据库无法启动 SQL> startup ORA-01078: failurein proce_ora01565 ora27046
文章浏览阅读6.1k次,点赞2次,收藏54次。功能测试基础知识总结_功能测试
文章浏览阅读3.2k次,点赞3次,收藏2次。pg 中文首字母排序_pg中文排序
文章浏览阅读3.1w次,点赞23次,收藏109次。本文主要讲解CONVERT函数_mysql convert
文章浏览阅读8.6k次,点赞2次,收藏2次。HTML5 的视频播放事件想必大家已经期待很久了吧,在HTML4.1、4.0之前我们如果在网页上播放视频无外乎两种方法: 第一种:安装FLASH插件或者微软发布的插件 第二种:在本地安装播放器,在线播放组件之类的 因为并不是所有的浏览器都安装了FLASH插件,就算安装也不一定所有的都能安装成功。像苹果系统就是默认禁用FLASH的,安卓虽然一开始的时候支持FLASH,但是在安卓4.0以后也开始不_微信开发者工具视频快进
文章浏览阅读5.4k次,点赞3次,收藏4次。在使用redis的过程常见错误总结1.JedisConnectionException Connection Reset参考这边文章:Connection reset原因分析和解决方案https://blog.csdn.net/cwclw/article/details/527971311.1问题描述Exception in thread "main" redis.clients...._jedisconnectionexception: java.net.socketexception: connection reset
文章浏览阅读8.3k次,点赞8次,收藏42次。目录1.Lua垃圾回收算法原理简述2.Lua垃圾回收中的三种颜色3.Lua垃圾回收详细过程4.步骤源码详解4.1新建对象阶段4.2触发条件4.3 GC函数状态机4.4标记阶段4.5清除阶段5.总结参考资料lua垃圾回收(Garbage Collect)是lua中一个比较重要的部分。由于lua源码版本变迁,目前大多数有关这个方面的文章都还是基于lua5.1版本,有一定的滞后性。因此本文通过参考当前..._lua5.3 gc
文章浏览阅读511次。最近家中的潮人,老妈闲着没事干,开始学玩电脑,引起他的各种好奇心。如看看新闻,上上微信或做做其他的事情。但意料之中的是电脑上会莫名出现各种问题?不翼而飞的图标?照片又不见了?文件被删了,卡机或者黑屏,无声音了,等等问题。常常让她束手无策,求助于我,可惜在电话中说不清,往往只能苦等我回家后才能解决,那种开心乐趣一下子消失了。想想,这样也不是办法啊, 于是,我潜心寻找了两款优秀的远程控制软件。两款软件...
文章浏览阅读1.8k次。二.初始化工作空间三.设置下载地址四.下载功能包此处可能会报错,请看:rosdep update遇到ERROR: error loading sources list: The read operation timed out问题_DD᭄ꦿng的博客-程序员宅基地接下来一次安装所有功能包,注意对应ROS版本 五.编译功能包isolated:单独编译各个功能包,每个功能包之间不产生依赖。编译过程时间比较长,可能需要几分钟时间。此处可能会报错:缺少absl依赖包_ros18.04 安装ca
文章浏览阅读4.1k次,点赞3次,收藏7次。Haobor2.2.1配置(trivy扫描器、镜像签名)docker-compose下载https://github.com/docker/compose/releases安装cp docker-compose /usr/local/binchmod +x /usr/local/bin/docker-composeharbor下载https://github.com/goharbor/harbor/releases解压tar xf xxx.tgx配置harbor根下建立:mkd_init error: db error: failed to download vulnerability db: database download