机房收费系统--一般用户模块的建立（一）

一、一般用户的模块建立：

① 学生查看余额：

学生查看余额窗体是由十个文本框，十个标签框，两个命令按钮组成。十个标签框完成标识相应信息（输入卡号、学号、班级等信息）；十个标签框完成对相应信息的输入和显示，一个命令按钮是查询，一个命令按钮是退出（文本框除了卡号文本框其余都是不可用的即只显示相应信息的显示）

学生查看余额窗体完成的主要功能就是当输入卡号单击查询按钮就能查看学生余额。

注意事项：输入卡号的正确性判断：不能为字母，不能为空，判断是否注册等

单击查询按钮触发查询按钮的Click事件，执行查询。具体的代码如下：

Private Sub CmdInquire_Click()
    Dim objrs As ADODB.Recordset
    Dim objrss As ADODB.Recordset
    Dim strsql As String
    Dim msgtext As String
    '卡号不能为空
    If Not Testtxt(TxtCardID.Text) Then
        MsgBox "请输入您的卡号！", vbOKOnly + vbExclamation, "警告"
        TxtCardID.Text = ""
        TxtCardID.SetFocus
        Exit Sub
    End If
    '卡号为纯数字
    If Not IsNumeric(TxtCardID.Text) Then
        MsgBox "卡号必须为纯数字！", vbOKOnly + vbExclamation, "警告"
        TxtCardID.Text = ""
        TxtCardID.SetFocus
        Exit Sub
    End If
    strsql = "select * from Computer_Info where Card_ID='" & Trim(TxtCardID.Text) & "' and ComputerState='正在上机'"
    Set objrss = ExecuteSQL(strsql, msgtext)
    If Not objrss.EOF Then
        MsgBox "您正处上机状态中，不能查询余额，请先下机！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
    Else
        strsql = "select * from Student_Info where Card_ID='" & Trim(TxtCardID.Text) & "'"
        Set objrs = ExecuteSQL(strsql, msgtext)
        If objrs.EOF Then
            MsgBox "没有找到该卡号的注册信息,请先注册！", vbOKOnly + vbExclamation, "警告"
            TxtCardID.Text = ""
            TxtCardID.SetFocus
            Exit Sub
        Else
            If Trim(objrs.Fields(7).Value) = "不可用" Then
                MsgBox "您的卡没有注册请先去注册！", vbOKOnly + vbExclamation, "警告"
                TxtCardID.Text = ""
                TxtCardID.SetFocus
                Exit Sub
            Else
                '这信息添加到窗体上
                TxtstudentID.Text = objrs.Fields(1).Value
                TxtName.Text = objrs.Fields(2).Value
                TxtClass.Text = objrs.Fields(6).Value
                TxtState.Text = objrs.Fields(7).Value
                TxtSex.Text = objrs.Fields(3).Value
                TxtComment.Text = objrs.Fields(10).Value
                TxtSeries.Text = objrs.Fields(4).Value
                TxtGrade.Text = objrs.Fields(5).Value
                TxtBalance.Text = objrs.Fields(8).Value
                objrs.Close
                objrss.Close
             End If
        End If
    End If
End Sub

单击退出按钮就会触发推退出按钮的click事件，则窗体关闭

Private Sub CmdExit_Click()

        Unload Me

End Sub

由于刷卡的原因，所以要有一个文本框的键盘按下事件：

Private Sub TxtcardID_KeyPress(KeyAscii As Integer)

        If KeyAscii = 13 Then

               Call CmdInquire_Click

        End If

End Sub