【机房】学生查看余额

在机房中一般用户可以查看余额

窗体界面：

点击清除按钮，需要清除所有控件的内容

'清空控件内容
Private Sub cmdClear_Click()
    Dim ctrl As Control
    
    For Each ctrl In Me.Controls
        If TypeOf ctrl Is TextBox Then '是否为文本框TextBox
        ctrl.Text = ""
        End If
    Next
End Sub

查询的时候需要先判断卡号是否为空，卡号是否存在在数据表中.
如果卡号存在在数据表中，就直接查询表中的数据。

Private Sub cmdInquiry_Click()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    
    '判断卡号是否为空
    If txtCardNo.Text = "" Then
        MsgBox "卡号为空，请先输入", 64, "温馨提示"
        txtCardNo.SetFocus
        Exit Sub
    End If
    
    '连接student表查看卡号是否存在
    txtSQL = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    If mrc.EOF = True Then
        MsgBox "卡号不存在，请重新输入", 64, "温馨提示"
        txtCardNo.Text = ""
        txtCardNo.SetFocus
        Exit Sub
    Else
        '优化要判断学号是否使用
        txtSID.Text = mrc.Fields(1)    '学号
        txtClass.Text = mrc.Fields(6)  '班级
        txtName.Text = mrc.Fields(2)   '姓名
        txtState.Text = mrc.Fields(10) '状态
        txtSex.Text = mrc.Fields(3)    '性别
        txtDept.Text = mrc.Fields(4)   '系别
        txtGrade.Text = mrc.Fields(5)   '年级
        txtExplain.Text = mrc.Fields(9) '备注
        txtBaLance.Text = mrc.Fields(7) '余额
     
    mrc.Close
    
    End If
   
End Sub

感谢阅读，有问题及时联系~