第一次机房收费系统之一般用户查看余额

本界面的操作流程：

输入卡号-----判断卡号是否输入（未输入提示）-----连接数据库表student_info-----点击查询显示数据

本界面涉及到数据库表：

student_info（存放学生信息）

本界面操作内容：

输入卡号，判断是否为空，为空则提示，否则点击查询，连接student_info数据表，搜索数据，若不存在则提示不存在，否则显示数据

具体代码如下：

查询的操作代码：

Private Sub cmdInquery_Click()
    '对student_info表操作
    Dim mrcstudent As ADODB.Recordset '用于存放记录集 '用于存放记录集
    Dim studentSQL As String '用于存放SQL语句 '用于存放SQL语句
    Dim studentMsgText As String '用于存放返回信息 '用于存放返回信息
    
    '判断是否卡号为空
    If txtCID.Text = "" Then
        MsgBox "请输入卡号，否则无法查询！", vbOKOnly + vbExclamation, "警告"
    Else
        studentSQL = "select * from student_info where cardno='" & Trim(txtCID.Text) & "'"
        Set mrcstudent = ExecuteSQL(studentSQL, studentMsgText)
        
        '用于判断卡号是否存在
        If mrcstudent.EOF = True Then
            MsgBox "卡号错误，请重新输入！", vbOKOnly + vbExclamation, "警告"
            txtCID.SetFocus
            txtCID.Text = ""
            mrcstudent.Close
            Exit Sub
        Else
            '控件中显示记录内容
            txtSID.Text = mrcstudent.Fields(1)
            txtStudentName.Text = mrcstudent.Fields(2)
            txtSex.Text = mrcstudent.Fields(3)
            txtDepartment = mrcstudent.Fields(4)
            txtGrade.Text = mrcstudent.Fields(5)
            txtClass.Text = mrcstudent.Fields(6)
            txtExplain.Text = mrcstudent.Fields(8)
            txtStatus.Text = mrcstudent.Fields(10)
            txtBalance.Text = mrcstudent.Fields(7)
            mrcstudent.Close
        End If
    End If
End Sub

退出查询的操作：

Private Sub cmdQuit_Click()
    Unload Me '卸载窗体
End Sub

优化：

1.禁止粘贴：

Private Sub txtCID_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 2 Then
        Clipboard.Clear
    End If
End Sub

2.背景图随窗体变化而变化

Dim H As Single '定义窗体高的变量
Dim W As Single '定义窗体高的变量
Private Sub Form_Load()
    H = Me.Height
    W = Me.Width
    Me.AutoRedraw = True
End Sub

Private Sub Form_Resize()
    Me.Height = H
    Me.Width = W
    Me.PaintPicture Me.Picture, 0, 0, Me.ScaleWidth, Me.ScaleHeight '实现背景图随窗体变大而改变 '背景图随窗体改变
End Sub

3.不可输入

Private Sub txtSex_KeyPress(KeyAscii As Integer)
    KeyAscii = 0 '不可输入值
End Sub

4.限制字符
见下面博客：
https://blog.csdn.net/TGB__15__ZYB/article/details/86636625