这是我做的第一个的窗体,首先我们要明确这个窗体要实现什么功能,通过我们运行已知的程序,我们知道,我们要通过卡号查询剩下的信息,我们发现表中的信息都在数据库中的student_info表,所以我们要通过这个表查询信息。剩下的就是一些细节的东西了。当我们实际操作的时候比如我们要先判空,看卡号是否为空,再判断是否为数字,然后我们才能进库查询。
上面这些判断如果不符合的话就提示错误,用户要重新输入卡号,然后再次进行判断。然后进行查询。
Private Sub cmdInpuiry_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) txtstatus.Text = mrc.Fields(10) txtExplain.Text = mrc.Fields(8) txtBalance.Text = mrc.Fields(7) End If mrc.Close End If End If End Sub
这是一个很简单的窗体,有了前边学生管理系统的基础,这个窗体就能够有思路,知道该怎么做,所以我们还是要把前边的基础打好,后边才能走得更加顺畅。