遍历查询的应用

机房收费系统中，我们在实现很多功能中都用到遍历查询法。下面对遍历查询法做一下总结。

一、遍历数据库某张表，查询出特定条件的数据。

      1、以查询学生余额为例，将查询结果赋值于文本框。

	txtsql = "select * from student_Info where cardno = '" & txtCardno & "'"   '限定查询条件

	Set mrc = ExecuteSQL(txtsql, msgtext)				       '执行SQL查询语句

遍历student_Info表中的数据，判断是否满足查询条件，如满足则将查询结果赋值于文本框。

    If mrc.EOF  Then				
        MsgBox "词卡号不存在或者没有注册，请重新输入卡号", vbOKOnly + vbExclamation, "警告"
        txtCardno = ""
        txtCardno.SetFocus
    Else				
        txtName.Text = mrc!studentName
        txtSex.Text = mrc!Sex
        txtGrade.Text = mrc!grade
        txtDepartment = mrc!department
        txtExplain.Text = mrc!explain
        txtClassno.Text = mrc!Class
        txtStatus.Text = mrc!Status
        txtStudentno.Text = mrc!studentno
        txtCash.Text = mrc!cash
    End If

         2、以查询学生充值记录为例，将查询结果赋值于MSFlexgrid控件

    txtsql = "select * from Line_Info where cardno= '" & txtCardno & "'" '限定查询条件

    Set mrc = ExecuteSQL(txtsql, msgtext)				 '执行SQL查询语句

遍历Line_Info表中的数据，判断是否满足查询条件，如满足则将查询结果赋值于MSFlexgrid中。

 

    With myMSFlexGrid
    
     Do While Not mrc.EOF

         If mrc.EOF And mrc.BOF Then
             MsgBox "没有数据或卡号不存在", vbOKOnly + vbExclamation, "警告"
             txtCardno = ""
             txtCardno.SetFocus
         Else
             .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(5)
             .TextMatrix(.Rows - 1, 3) = mrc.Fields(6)
             .TextMatrix(.Rows - 1, 4) = mrc.Fields(7)
             .TextMatrix(.Rows - 1, 5) = mrc.Fields(8)
             .TextMatrix(.Rows - 1, 6) = mrc.Fields(9)
             .TextMatrix(.Rows - 1, 7) = mrc.Fields(10)
             .TextMatrix(.Rows - 1, 8) = mrc.Fields(11)
             mrc.MoveNext
         End If
    
      Loop

    End With

二、遍历窗体中的文本框或者组合框，将其清空。代码如下：

    Dim ctl1 As Control		’定义变量ctl1为控件类型

    For Each ctl1 In Controls	’遍历窗体中的ctl控件

    If TypeOf ctl1 Is TextBox Then ctl1.Text = ""	’如果ctl1控件为文本框，则清空。

    Next ctl1

这一段的代码我们可以将其写入模块中封装起来，然后在各个窗体调用就可以了。

三、遍历工程中的窗体，实现当前窗体为非活动窗体时，自动最小化。

    Private Sub form_activate()
      Dim Frm As Form		’定义Frm为窗体类型
      	
      For Each Frm In Forms	'遍历所有窗体
        If Frm.Name <> Me.Name And Frm.Name <> MDIForm1.Name Then  '如果当前窗体为非活动窗体时
          Frm.WindowState = 1	’当前窗体最小化
        End If
      Next
      
    End Sub

实现这一功能还有较为简单的方法，在窗体的未激活事件中写下如下代码：

    Private Sub Form_Deactivate()

        If Me.WindowState <> 1 Then
            Me.WindowState = 0
        End If

    End Sub

看到这里，我们不难发现，遍历查询中用到了For...Next、Do While...Loop等循环语句。换句话说，遍历查询也就是一段循环语句。只不过，之前我们并不知道这就是遍历查询法而已。

所以说，我们在学习知识一定要看清它的本质，知识还是原先的知识，只不过是换了一种表现形式。当我们抓住了知识的本质，再遇到这一类的问题之后，我们就可以对它说：“小样儿，你以为穿了马甲我就不认识你了？”