机房收费系统之组合查询
程序员文章站
2022-05-03 16:06:58
...
神器的逻辑
好像谈到整个机房收费系统,我们谈之色变的不是整个项目有很多窗体,而是窗体模块的执行顺序(流程);我们把大部分时间都用来思考某个功能实现的过程;相比较来看,只要我们有了逻辑思路,敲代码仅仅是小菜一碟,哈哈;不过....前提你要绞尽脑汁的去思考,不然事后优化也会消耗大部分时间,尽量一次性考虑的全面一些;
组合查询,这个名词我们应该不陌生了,原来在学生中我们也遇到过,不过那个时候我们应用的是CheckBox控件当做筛选判断工具,而这次却换为了combobox控件,不过两者的原理也差不太多,等到实现功能后自己可以比较两者之间的区别;当然还是要先把机房的组合查询搞定,执行流程图走一波....
现在这么来看思维逻辑是不是清晰多了,有些时候不要依靠自己的大脑,多用一些纸和图来理清自己的思路;
最后就展示自己依附于流程图实现的代码模块了;
If Trim(Combo1(0).Text = "") Or Trim(Combo2(0).Text = "") Or Trim(Text1.Text = "") Then
MsgBox "请输入完整的查询条件!", vbOKOnly, "提示"
Exit Sub
End If
txtsql = "select * from worklog_info where "
txtsql = txtsql & filedname(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"
If Trim(Combo3(0).Text <> "") Then
If Trim(Combo1(1).Text = "") Or Trim(Combo2(1).Text = "") Or Trim(Text2.Text = "") Then
MsgBox "请输入完整的第二个查询条件,否则请不要选择第二个查询!", vbOKOnly, "提示"
Exit Sub
Else
txtsql = txtsql & filedname(Combo3(0).Text) & " " & filedname(Combo1(1).Text) & Trim(Combo2(1).Text) & "'" & Trim(Text2.Text) & "'"
Combo1(0).Locked = True
Combo2(0).Locked = True
Text1.Locked = True
End If
ElseIf Trim(Combo3(1).Text <> "") Then
If Trim(Combo1(2).Text) = "" Or Trim(Combo2(2).Text) = "" Or Trim(Text3.Text) = "" Then
MsgBox "请输入完整的第三个查询条件!", vbOKOnly, "提示"
Exit Sub
Else
txtsql = txtsql & "" & filedname(Combo3(1).Text) & " " & filedname(Combo1(2).Text) & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"
Combo1(1).Locked = True
Combo2(1).Locked = True
Text2.Locked = True
End If
End If
Set mrc = ExecuteSQL(txtsql, msgtext)
With MSHFlexGrid1
.Rows = 1
.TextMatrix(0, 0) = "教师"
.TextMatrix(0, 1) = "级别"
.TextMatrix(0, 2) = "注册日期"
.TextMatrix(0, 3) = "注册时间"
.TextMatrix(0, 4) = "注销日期"
.TextMatrix(0, 5) = "注销时间"
.TextMatrix(0, 6) = "机器名"
.TextMatrix(0, 7) = "状态"
If Not (mrc.BOF Or mrc.EOF) Then
Do While Not mrc.EOF
.Rows = .Rows + 1
.CellAlignment = 4
.TextMatrix(.Rows - 1, 0) = mrc.Fields(1)
.TextMatrix(.Rows - 1, 1) = mrc.Fields(2)
.TextMatrix(.Rows - 1, 2) = mrc.Fields(3)
.TextMatrix(.Rows - 1, 3) = mrc.Fields(4)
.TextMatrix(.Rows - 1, 4) = Trim(mrc.Fields(5)) & ""
.TextMatrix(.Rows - 1, 5) = Trim(mrc.Fields(6)) & ""
.TextMatrix(.Rows - 1, 6) = mrc.Fields(7)
.TextMatrix(.Rows - 1, 7) = mrc.Fields(8)
mrc.MoveNext
Loop
MsgBox "筛选条件信息显示完毕!", vbOKOnly, "提示!"
Else
MsgBox "筛选条件中未找到任何信息!", vbOKOnly, "提示"
End If
End With
mrc.Close
End Sub
当然这个代码中有很多自己修补Bug的地方,同时也欢迎大家指正;后面还有自己优化的部分。
组合查询材料:三个筛选条件+两个逻辑运算符号;
过程:选择其一条件即可完成操作---解决选择运算符号后并不输入查询条件;
补充:点击逻辑运算符号后自动锁定上一个查询条件并且将下一个条件变为可选框;---补充空白逻辑运算符
If Not Trim(Combo3(0).Text) = "" Then
SelectCase Index
Else
Combo1(1).Enabled = False
Combo2(1).Enabled = False
Text2.Enabled = False
End If
If Not Trim(Combo3(1).Text) = "" Then
SelectCase Index
Else
Combo1(2).Enabled = False
Combo2(2).Enabled = False
Text3.Enabled = False
End If
优化:case语句辅助筛选查询条件(汉字映射到数据库字段名)
Public Function filedname(a As String) As String
Select Case a
Case "卡号"
filedname = "cardno"
Case "姓名"
filedname = "studentname"
Case "上机日期"
filedname = "ondate"
Case "上机时间"
filedname = "ontime"
Case "下机日期"
filedname = "offdate"
Case "下机时间"
filedname = "offtime"
Case "消费金额"
filedname = "consumetime"
Case "余额"
filedname = "cash"
Case "与"
filedname = "and"
Case "或"
filedname = "or"
End Select
End Function
以上就是组合查询窗体的主要执行过程和代码,本篇博客也要告一段落了,总而言之,(手和脑)+工具(图)一定要相互结合,才可以发挥出最好的实力,提高自己的效率和窗体的质量;