VB机房收费系统06——上下机

上机

上机流程图

这里个人觉得就是数据表的增删改查，没有思路的看官可以参考我的全码

'上机
Private Sub cmdonline_Click(Index As Integer)
    Dim mrc As adodb.Recordset
    Dim txtsql As String
    Dim msgtext As String
    
    
    '是否输入学号
    If Not testtxt(cardno.Text) Then
        MsgBox "请输入学号!", vbOKOnly + vbExclamation, "警告"
        cardno.SetFocus
        Exit Sub
    Else
    
    
    '验证用户是否已上机
            txtsql = "select * from onLine_Info where cardno='" & Trim(cardno.Text) & "'"
            Set mrc1 = ExecuteSQL(txtsql, msgtext)
            
    If mrc1.EOF = False Then
        MsgBox "该帐号已经上机,不允许重复登录!", vbOKOnly + vbExclamation, "警告"
        cardno.Text = ""
        studentName.Text = ""
        dept.Text = ""
        sex.Text = ""
        class.Text = ""
        grade.Text = ""
        status.Text = ""
        style.Text = ""
    Else
            
     
    '验证学号是否存在
        txtsql = "select * from student_Info where cardno ='" & cardno.Text & "'"
        Set mrc = ExecuteSQL(txtsql, msgtext)
    If mrc.EOF = True Then
            MsgBox txtsql
            MsgBox msgtext
            MsgBox "此用户名不存在，请重新输入!", vbOKOnly + vbExclamation, "警告"
            cardno.SetFocus
    Else
         
         
    '验证余额是否充足
    If Val(mrc.Fields(7)) < 5 Then
            MsgBox "余额不足，请先充值", vbOKOnly + vbExclamation, "警告"
            cardno.Text = ""
            Exit Sub
    Else
            cardno.Text = mrc.Fields(0)
            studentName.Text = mrc.Fields(2)
            dept.Text = mrc.Fields(4)
            sex.Text = mrc.Fields(3)
            class.Text = mrc.Fields(6)
            grade.Text = mrc.Fields