【机房】余额查询

一、逻辑顺序

二、代码区域

Dim txtSQL As StringDim mrc As ADODB.RecordsetDim MsgText As StringPrivate Sub cmdInquire_Click()    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.SetFocus                txtCardNo.Text = ""            Else                txtSID.Text = mrc.Fields(1)                txtName.Text = mrc.Fields(2)                txtSex.Text = mrc.Fields(3)                txtDepart.Text = mrc.Fields(4)                txtGrade.Text = mrc.Fields(5)                txtClass.Text = mrc.Fields(6)                txtBalance.Text = mrc.Fields(7)                txtInformation.Text = mrc.Fields(8)                txtStatus.Text = mrc.Fields(10)            End If        mrc.Close        End If    End If    End Sub

直接上图，直观易懂，望与你有帮助！