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

前言：

     组合查询窗体一共有三个，都是在操作员的菜单中：
     学生基本信息维护、学生上机统计信息、操作员工作记录
 

过程：

     开始在敲组合查询窗体的时候，总是感觉很乱，后来师父建议把流程图画下来，然后再写代码
果然就有思路了，尽管还是改了几次。
     画的流程图有很多种思路，我就用了两种，但是还是感觉第一种流程图的方法比较严密，尽管代码很多。

第一种思路：

由三个条件切入
流程图：

第二种思路：

由两个连接符切入
流程图：



二者的代码大同小异：

关键代码：

If Trim(Namecombo3.Text) = "" Or Trim(Actcombo3.Text) = "" Or Trim(Text3.Text = "") Then
'提示条件
MsgBox "请选择查询条件！"
Exit Sub
Else
'第三行有条件
'执行一二三行查询
txtSQL3 = "select * From line_Info where " & FieldName(Namecombo1.Text) & Actcombo1.Text & "'" & Trim(Text1.Text) & "'" & FieldName(Combinecombo1.Text) & FieldName(Namecombo2.Text) & Actcombo2.Text & "'" & Trim(Text2.Text) & "'" & FieldName(Combinecombo2.Text) & FieldName(Namecombo3.Text) & Actcombo3.Text & "'" & Trim(Text3.Text) & "'"
Set mrc3 = ExecuteSQL(txtSQL3, Msgtext3)
If mrc3.EOF Then
MsgBox "没有记录！", vbOKOnly + vbExclamation, "提示"
Exit Sub
End If

'判断是否移动到数据集对象的最后一条记录
Do While Not mrc3.EOF
.CellAlignment = 1
.TextMatrix(.Rows - 1, 0) = Trim(mrc3.Fields(1))
.TextMatrix(.Rows - 1, 1) = Trim(mrc3.Fields(3))
.TextMatrix(.Rows - 1, 2) = Trim(mrc3.Fields(6))
.TextMatrix(.Rows - 1, 3) = Trim(mrc3.Fields(7))
.TextMatrix(.Rows - 1, 4) = Trim(mrc3.Fields(8))
.TextMatrix(.Rows - 1, 5) = Trim(mrc3.Fields(9))
.TextMatrix(.Rows - 1, 6) = Trim(mrc3.Fields(11))
.TextMatrix(.Rows - 1, 7) = Trim(mrc3.Fields(12))
.TextMatrix(.Rows - 1, 8) = Trim(mrc3.Fields(13))
'移动到下一条记录
mrc3.MoveNext
.Rows = .Rows + 1 '预留空间给下一条记录
Loop
.Rows = .Rows - 1 '将最后增加的空行删除
Exit Sub
End If

小结：

       组合窗体的流程图要考虑的周全，但如果考虑不到也可以在调试的过程中完善，有了流程图，代码就不是问题了！