Private Sub cmdInquiry_Click()
Dim txtSQL As String
Dim mrc As ADODB.Recordset
Dim MsgText As String
'判断卡号是否输入
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)
txtDept.Text = mrc.Fields(4)
txtGrade.Text = mrc.Fields(5)
txtClass.Text = mrc.Fields(6)
txtState.Text = mrc.Fields(10)
txtExplain.Text = mrc.Fields(8)
txtBalance.Text = mrc.Fields(7)
End If
mrc.Close
End If
End If
End Sub
前言刚开始进行机房感觉哪个窗体都特别难,无从下手的感觉,其实每接触一个新的项目都会有这个感觉,但是后边你仔细想想其中的逻辑,就会发现,他其实和学生差不了多少。只要逻辑搞清楚就行。刚开始看见这个窗体,知道怎么给他安排的整整齐齐的,但是对于写代码还真的是一点头绪都没有,后边就看其他人写的博客,画出来了流程图,瞬间就感觉简单了。流程图代码展示Private Sub cmdInquiry_C...