在一般用戶模塊里面，有三個窗體（查詢自己余額、查詢上機記錄、查詢充值記錄）的流程是沒有太大區別的，它們都是通過輸入自己的卡號來獲取基本的信息，主要的區別就是查的表不同，那么就把這三個窗體放到一起來說一下：

先說一下查看余額窗體，它非常簡單，就是運用了一個查詢學生表的語句，然后把查到的內容返還給文本框，當然這里面還有一些判斷條件。

代碼展示：

Dim txtsql As String '用來存放SQL語句Dim mrc As ADODB.Recordset '用來存放記錄集對象Dim MsgText As String'判斷選擇框是否為空If Not testtxt(txtcardno.Text) ThenMsgBox "卡號信息不能為空，請輸入！", vbOKOnly + vbExclamation, "警告"txtcardno.SetFocusElseIf Not IsNumeric(Trim(txtcardno.Text)) ThenMsgBox "請輸入數字！", vbOKOnly + vbExclamation, "警告"txtcardno.SetFocustxtcardno.Text = ""Exit SubElsetxtsql = "select * from student_info where cardno = '" & txtcardno.Text & "' "Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True ThenMsgBox "此卡號不存在或已不再使用，請重新輸入！", vbOKOnly + vbExclamation, "警告"txtcardno.SetFocustxtcardno.Text = ""Else'獲取信息txtstudentno.Text = mrc.Fields(1)txtstudentname.Text = mrc.Fields(2)txtsex.Text = mrc.Fields(3)txtdepartment.Text = mrc.Fields(4)txtgrade.Text = mrc.Fields(5)txtclass.Text = mrc.Fields(6)txtcash.Text = mrc.Fields(7)txtexplain.Text = mrc.Fields(8)txtischeck.Text = mrc.Fields(11)End Ifmrc.CloseEnd IfEnd If

運行結果如下：

下面來說一下查看上機記錄和充值記錄，這兩個窗體也是直接輸入學生自己的卡號，然后查看結果，基本上沒有什么太大的問題。主要就是查看上機記錄窗體連接的是上機記錄表(Line_Info),而查看充值記錄窗體是連接的充值記錄表（ReCharge_Info）。

代碼展示：

Dim txtsql As String '用來存放SQL語句Dim MsgText As String '用來存放返回信息Dim mrc As ADODB.Recordset '用來存放記錄集對象Dim mrc1 As ADODB.Recordset '用來存放記錄集對象Dim n As IntegerIf Not testtxt(Trim(txtcardno.Text)) ThenMsgBox "卡號信息不能為空，請輸入！", vbOKOnly + vbExclamation, "警告"txtcardno.Text = ""txtcardno.SetFocusElseIf Not IsNumeric(Trim(txtcardno.Text)) ThenMsgBox "請輸入數字！", vbOKOnly + vbExclamation, "警告"txtcardno.Text = ""txtcardno.SetFocusElsetxtsql = "select * from line_info where cardno = '" & txtcardno.Text & "' "Set mrc = ExecuteSQL(txtsql, MsgText)If mrc.EOF = True ThenMsgBox "卡號不存在或已不再使用，請重新輸入！", vbOKOnly + vbExclamation, "警告"txtcardno.SetFocustxtcardno.Text = ""ElseWith MSFlexGrid1 '將查詢的內容顯示在表格里.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "卡號".TextMatrix(0, 1) = "學號".TextMatrix(0, 2) = "充值金額".TextMatrix(0, 3) = "充值日期".TextMatrix(0, 4) = "充值時間".TextMatrix(0, 5) = "充值者"txtsql = "select * from ReCharge_Info "Set mrc1 = ExecuteSQL(txtsql, MsgText)n = 0Do While Not mrc1.EOF '判斷是否移動到數據集對象的最后一條記錄 '顯示數據.Rows = .Rows + 1 '這種方式也可防止空白行的出現.CellAlignment = 4.TextMatrix(.Rows - 1, 0) = mrc1.Fields(2).TextMatrix(.Rows - 1, 1) = mrc1.Fields(1).TextMatrix(.Rows - 1, 2) = mrc1.Fields(3).TextMatrix(.Rows - 1, 3) = mrc1.Fields(4).TextMatrix(.Rows - 1, 4) = mrc1.Fields(5).TextMatrix(.Rows - 1, 5) = mrc1.Fields(6)mrc1.MoveNext '移動到下一條記錄n = n + 1Loop'顯示獲得的記錄條數Label2 = "共獲得" & n & "條查詢結果"End Withmrc1.CloseEnd IfEnd IfEnd If

結果如下：

這個窗體上還有一個導出到Excel的功能，將會在之后的博客中總結，敬請期待！

總結

以上是生活随笔為你收集整理的机房收费--一般用户的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。