第一次机房收费系统———学生查看余额

简介: 第一次机房收费系统———学生查看余额

这是我做的第一个的窗体,首先我们要明确这个窗体要实现什么功能,通过我们运行已知的程序,我们知道,我们要通过卡号查询剩下的信息,我们发现表中的信息都在数据库中的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

这是一个很简单的窗体,有了前边学生管理系统的基础,这个窗体就能够有思路,知道该怎么做,所以我们还是要把前边的基础打好,后边才能走得更加顺畅。

相关文章
|
6月前
|
安全 API 开发者
转账到支付宝账户接口:一次开发,提升打款效率
转账到支付宝账户接口:一次开发,提升打款效率
138 0
|
6月前
|
安全 API UED
【支付宝推荐】企业转账如何又快又省?试试“商家转账”吧!
企业面对日益增长的转账需求,财务操作繁琐、效率低下。但支付宝的“商家转账”服务为企业提供了数字化资金通道,实现0费率、批量处理、实时到账。适用于零工薪酬、佣金、营销激励等多种场景,已覆盖灵活用工、物流、出行、家政服务等多行业。该服务提供无需开发的批量转账产品和API接口产品,支持定制化行业解决方案。如需接入,可点击链接留下信息以获取联系。
【支付宝推荐】企业转账如何又快又省?试试“商家转账”吧!
|
6月前
|
数据库
机房收费系统之充值窗体
机房收费系统之充值窗体
25 1
假期余额的批量更新
请问各位大佬,通过接口创建的假期规则如需进行批量的添加应如何操作。 按照原方式,通过文件上传来更新假期余额,系统提示不允许操作。 另外是否有办法,在不走钉钉的年假申请,而只是上传请假记录后,自动扣除年假余额呢?
|
6月前
云函数实现商家转账到零钱 V3版本
云函数实现商家转账到零钱 V3版本
机房收费系统——结账
机房收费系统——结账
59 0
第一次机房收费系统之结账
第一次机房收费系统之结账
56 0
机房重构之充值和显示金额
机房重构之充值和显示金额
65 0
|
NoSQL 关系型数据库 MySQL
别忘了,今天是你的节日(波场充值回调)
别忘了,今天是你的节日(波场充值回调)
259 0
别忘了,今天是你的节日(波场充值回调)