遍历查询的应用

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

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

      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等循环语句。换句话说，遍历查询也就是一段循环语句。只不过，之前我们并不知道这就是遍历查询法而已。

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