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

这个窗体相对来说比较简单，可以直接写！！

Private Sub cmdok_Click()
    
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    Dim txtSQL As String
    
    If Trim(txtCardNumber.Text = "") Then
        MsgBox "卡号为空，请输入卡号！", vbOKOnly + vbExclamation, "警告"
        txtCardNumber.SetFocus
    End If

    
    txtSQL = "select * from student_Info where cardno ='" & txtCardNumber.Text & "'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    mrc.AddNew
    txtStudentID = mrc.Fields(1)
    txtName = mrc.Fields(2)
    txtSex = mrc.Fields(3)
    txtSystem = mrc.Fields(4)
    txtgrade = mrc.Fields(5)
    txtClass = mrc.Fields(6)
    txtState = mrc.Fields(10)
    txtRemarks = mrc.Fields(8)
    txtMoney = mrc.Fields(7)
    
End Sub