知识共享图文直播---（二）组合查询

           这几天刚刚结束机房收费系统，在敲完机房收费系统之后发现自己遇到的问题其实也没有什么，要是真的说有什么问题难到了自己的话我只能说在组合查询、报表的设计、结账这三个地方给我一点点的麻烦。

今天我就写写我的怎么解决组合查询问题的吧。

       首先，看看组合查询主界面

        

       其次，分析问题

       字段名是我们可查询的学生信息，比如：卡号、姓名、学号等；操作符包括，“=”、“>”、“<”、“<>”；组合关系，或、非、空。

我们能够得到的组合情况有：A、A和B、A或B、A和B或C、A和B和C、A和B和C。

        分析到这里在开始写代码之前我们需要解决的问题有两个。一是，我们如何从数据库的Student_Info这个表中提取数据；二是，我们如何去写这六种情况的判断语句。

       对于从表中提取数据我是这样写的

       strSQL=“select* from Student_Info where" "条件一” & “逻辑运算符” & “条件二”

       关于组合情况的选择，我们既可以先定义这六种情况，然后使用“select case”语句；我们也可以使用“if“条件判断语句。

       最后，代码实现（下面是部分代码，省略了大部分判断语句）

[vb] view plaincopyprint?

1.      If Trim(cboSyntagmatic(0).Text = "") Then  

2.            

3.      strSQL(0) = "select * from OnLine_info where " & strField(0) & strOperator(0) & "'" & txtInfo(0).Text & "'"  

4.      Set m_rstOnLineInfo(0) = ExecuteSQL(strSQL(0), strMsg)  

5.        

6.      If m_rstOnLineInfo(0).EOF = True Then  

7.          MsgBox "此卡未注册，请检查输入信息！", vbOKOnly + vbExclamation, "警告"  

8.          cboFieldName(0).Text = ""  

9.          cboFieldName(0).SetFocus  

10.         cboOperators(0).Text = ""  

11.         txtInfo(0).Text = ""  

12.         Exit Sub  

13.     End If  

14.     '设置myFexgrid控件属性  

15.     With MSFlexGrid1  

16.         .Rows = 1  

17.         .TextMatrix(0, 0) = "卡号"  

18.         .TextMatrix(0, 1) = "姓名"  

19.         .TextMatrix(0, 2) = "上机日期"  

20.         .TextMatrix(0, 3) = "上机日期"  

21.         .TextMatrix(0, 4) = "机器名"  

22.     Do While Not m_rstOnLineInfo(0).EOF  

23.         .Rows = .Rows + 1      '可防止空白行的出现  

24.         .CellAlignment = flexAlignCenterCenter      '单元内容居中  

25.         .ColWidth(0) = 1800  

26.         .ColWidth(1) = 1800  

27.         .ColWidth(2) = 1800  

28.         .ColWidth(3) = 1800  

29.         .ColWidth(4) = 1800  

30.         .TextMatrix(.Rows - 1, 0) = m_rstOnLineInfo(0).Fields(0)  

31.         .TextMatrix(.Rows - 1, 1) = m_rstOnLineInfo(0).Fields(3)  

32.         .TextMatrix(.Rows - 1, 2) = m_rstOnLineInfo(0).Fields(6)  

33.         .TextMatrix(.Rows - 1, 3) = m_rstOnLineInfo(0).Fields(7)  

34.         .TextMatrix(.Rows - 1, 4) = m_rstOnLineInfo(0).Fields(8)  

35.         m_rstOnLineInfo(0).MoveNext  

36.     Loop  

37.     End With  

38.     m_rstOnLineInfo(0).Close  

39.       

40. ElseIf Trim(cboSyntagmatic(0).Text = "与") Then  

41. ...  

42.       

43.         ElseIf cboSyntagmatic(1).Text = "与" Then  

44.             ......  

45.         Else  

46.             ......  

47. ElseIf Trim(cboSyntagmatic(0).Text = "或") Then  

48.   

49.     ......  

50.     ElseIf cboSyntagmatic(1).Text = "与" Then  

51.         ......  

52.     Else  

53.             .....  

54.           

55. End If  

       其实，敲完之后你自己也会觉得也就那么点事，刚开始觉得不会敲是我们看到这个界面之后，内心觉得可能很难。但是只要是真的静下来想想之后发现这其中的逻辑是那么的简单，几句SQL语句，加上一个条件语句就能解决了。