在机房中一般用户可以查看余额
窗体界面:
点击清除按钮,需要清除所有控件的内容
'清空控件内容
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
感谢阅读,有问题及时联系~