机房收费系统之组合查询
神器的逻辑
好像谈到整个机房收费系统，我们谈之色变的不是整个项目有很多窗体，而是窗体模块的执行顺序（流程）；我们把大部分时间都用来思考某个功能实现的过程；相比较来看，只要我们有了逻辑思路，敲代码仅仅是小菜一碟，哈哈；不过....前提你要绞尽脑汁的去思考，不然事后优化也会消耗大部分时间，尽量一次性考虑的全面一些；
组合查询，这个名词我们应该不陌生了，原来在学生中我们也遇到过，不过那个时候我们应用的是CheckBox控件当做筛选判断工具，而这次却换为了combobox控件，不过两者的原理也差不太多，等到实现功能后自己可以比较两者之间的区别；当然还是要先把机房的组合查询搞定，执行流程图走一波....
现在这么来看思维逻辑是不是清晰多了，有些时候不要依靠自己的大脑，多用一些纸和图来理清自己的思路；
最后就展示自己依附于流程图实现的代码模块了；
If Trim(Combo1(0).Text = "") Or Trim(Combo2(0).Text = "") Or Trim(Text1.Text = "") ThenMsgBox "请输入完整的查询条件！", vbOKOnly, "提示"Exit SubEnd Iftxtsql = "select * from worklog_info where "txtsql = txtsql & filedname(Combo1(0).Text) & Trim(Combo2(0).Text) & "'" & Trim(Text1.Text) & "'"If Trim(Combo3(0).Text <> "") ThenIf Trim(Combo1(1).Text = "") Or Trim(Combo2(1).Text = "") Or Trim(Text2.Text = "") ThenMsgBox "请输入完整的第二个查询条件,否则请不要选择第二个查询！", vbOKOnly, "提示"Exit SubElsetxtsql = txtsql & filedname(Combo3(0).Text) & " " & filedname(Combo1(1).Text) & Trim(Combo2(1).Text) & "'" & Trim(Text2.Text) & "'"Combo1(0).Locked = TrueCombo2(0).Locked = TrueText1.Locked = TrueEnd IfElseIf Trim(Combo3(1).Text <> "") ThenIf Trim(Combo1(2).Text) = "" Or Trim(Combo2(2).Text) = "" Or Trim(Text3.Text) = "" ThenMsgBox "请输入完整的第三个查询条件！", vbOKOnly, "提示"Exit SubElsetxtsql = txtsql & "" & filedname(Combo3(1).Text) & " " & filedname(Combo1(2).Text) & Trim(Combo2(2).Text) & "'" & Trim(Text3.Text) & "'"Combo1(1).Locked = TrueCombo2(1).Locked = TrueText2.Locked = TrueEnd IfEnd IfSet 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) ThenDo 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.MoveNextLoopMsgBox "筛选条件信息显示完毕!", vbOKOnly, "提示！"ElseMsgBox "筛选条件中未找到任何信息！", vbOKOnly, "提示"End IfEnd Withmrc.Close
End Sub 组合查询材料：三个筛选条件+两个逻辑运算符号；
过程：选择其一条件即可完成操作---解决选择运算符号后并不输入查询条件；
补充：点击逻辑运算符号后自动锁定上一个查询条件并且将下一个条件变为可选框；---补充空白逻辑运算符
If Not Trim(Combo3(0).Text) = "" ThenSelectCase IndexElseCombo1(1).Enabled = FalseCombo2(1).Enabled = FalseText2.Enabled = FalseEnd IfIf Not Trim(Combo3(1).Text) = "" ThenSelectCase IndexElseCombo1(2).Enabled = FalseCombo2(2).Enabled = FalseText3.Enabled = FalseEnd If优化：case语句辅助筛选查询条件（汉字映射到数据库字段名）
Public Function filedname(a As String) As StringSelect Case aCase "卡号"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以上就是组合查询窗体的主要执行过程和代码，本篇博客也要告一段落了,总而言之，（手和脑）+工具（图）一定要相互结合，才可以发挥出最好的实力，提高自己的效率和窗体的质量；
本文来自互联网用户投稿，文章观点仅代表作者本人，不代表本站立场，不承担相关法律责任。如若转载，请注明出处。 如若内容造成侵权/违法违规/事实不符，请点击【内容举报】进行投诉反馈！