【机房】学生查看余额

在机房中一般用户可以查看余额

窗体界面:

在这里插入图片描述

点击清除按钮,需要清除所有控件的内容

'清空控件内容
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

感谢阅读,有问题及时联系~

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

张_Laura

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值