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

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

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

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!cash

End Sub