【机房收费系统】学生查看余额

     学生查看余额的窗体逻辑很简单，画了一个流程图。用到的是student_info,判断卡号

流程图：（为什么我画的流程图都这么丑呢）

 窗体布局：

 重要代码：

         '判断是否输入卡号
        If Trim(txtcardno.Text = "") Then
            MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"
            txtcardno.SetFocus
        Else


        If Not IsNumeric(txtcardno.Text) Then
            MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
             Exit Sub
             txtcardno.SetFocus
        Else
                        '判断卡号是否注册
        txtsql = "select * from student_info where cardno='" & txtcardno.Text & "'"
        Set mrc = executeSQL(txtsql, msgtext)
        If mrc.EOF Then
            MsgBox "卡号没有注册，不存在，请重新输入卡号！", vbOKOnly + vbExclamation, "警告"
            txtcardno.Text = ""
            txtcardno.SetFocus
        Else
                '如果卡号存在。查询信息
            txtcardno.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)
            txtstatus.Text = mrc.Fields(7)
            txtexplain.Text = mrc.Fields(8)
            End If
            mrc.Close
            
        End If
    End If

如果大咖们有更好的建议，欢迎在下方留言。