机房系统——查询余额窗体

其实这个窗体是最简单的，也是最基础的，它用到的主要内容就是查询数据，所以弄清数据库的关系和掌握数据库操作的语句很重要。下面我来说说这个窗体的整体思路，既然是查询，那么肯定少不了判断条件，其次是查询的基本操作，光查询完还不行，还得把查询的内容显示出来。可能还是不清楚，下面请看这张思维导图，一看就懂。

怎么样，是不是一下清晰了好多，下面我们再来看看具体的代码：

Private Sub cmdOK_Click()    Dim txtSQL As String    Dim Msgtext As String    Dim mrc As ADODB.Recordset    '判断是否输入卡号    If Trim(txtCardNo.Text) = "" Then        MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"        Exit Sub    End If    '判断卡号是否为数字    If Not IsNumeric(Trim(txtCardNo.Text)) Then        MsgBox "卡号请输入数字！", vbOKOnly + vbExclamation, "警告"        txtCardNo.Text = ""        Exit Sub    End If    '数据库中查找卡号    txtSQL = "select * from student_Info where cardno= '" & txtCardNo.Text & "'"    Set mrc = ExecuteSQL(txtSQL, Msgtext)    '判断数据库中是否有此卡号    If mrc.EOF = True Then        MsgBox "没有此卡号，请重新输入", vbOKOnly + vbExclamation, "警告！"        mrc.Close        Exit Sub    End If    '将数据库的数据显示到窗体上    txtSID.Text = mrc!studentNO    txtName.Text = mrc!studentName    txtSex.Text = mrc!sex    txtDept.Text = mrc!department    txtGrade.Text = mrc!grade    txtClass.Text = mrc!Class    txtState.Text = mrc!Status    txtExplain.Text = mrc!explain    txtBalance.Text = mrc!cashEnd Sub