机房收费系统之查询余额
来源:互联网 发布:java线程生成订单号 编辑:程序博客网 时间:2024/06/02 20:14
给我的一个很重要的感觉是,敲机房学习的东西最重要的不是代码,而是逻辑。如果逻辑混乱,代码写的快也是没用的,因为那样迟早也会报很多错。只有逻辑搞清楚了才能往下走,这是针对像我这样的逻辑混乱的人而提出的好建议,那就是画流程图,最好是手绘把,因为导图往往会画不出你想要的效果,而且手绘一遍也是印象深刻的。
如图:这是查询余额的页面,如果我们想要查询信息,那么只需要知道卡号,就可以查询。这也是横线分开的原因。那么这里我们需要注意什么呢?
首先,我们的代码是写在查询控件里的。我们单击之后才会出现一系列问题。
1我们要对卡号进行判空。若为空,则提醒
2和之前一下,卡号只能输入为数字
3对卡号进行判断是否存在,若不存在则无下文,若存在则进入查询
4对查询内容进行设置。对应数据库
代码如下:
Private Sub cmdinquire_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
'如果卡号正确,则进入查询
txtstudentno.Text = mrc.Fields(1)
txtstudentname.Text = mrc.Fields(2)
txtsex.Text = mrc.Fields(3)
txtdepartment.Text = mrc.Fields(4)
txtgrade.Text = mrc.Fields(5)
txtclass.Text = mrc.Fields(6)
txtstatus.Text = mrc.Fields(10)
txtexplain.Text = mrc.Fields(8)
txtcash.Text = mrc.Fields(7)
End If
mrc.Close
End If
End If
End Sub
- 机房收费系统之余额查询
- 机房收费系统之查询余额
- [第一次机房收费系统]查询余额优化
- 机房收费系统之查询
- 机房收费-查询-查看学生余额
- 机房收费系统之条件查询窗体
- 机房收费系统之范围查询
- 机房收费系统之上机状态查询
- 机房收费系统之组合查询
- 机房收费系统之组合查询
- 机房收费系统之组合查询
- 机房收费系统之条件的查询
- 机房收费系统之组合查询
- 机房收费系统之组合查询
- 机房收费系统之 组合查询
- 机房收费系统之组合查询
- 机房收费系统之组合查询
- 机房收费系统之组合查询
- 34. Search for a Range
- 不得不说的Android6.0新特性
- 【特征检测】HOG特征算法
- 全方位落后,日本的AI人才、研究、专利和投资均被中国甩开
- 2017普及第四题 跳房子 jump
- 机房收费系统之查询余额
- Windows停止进程
- Electron-vue环境配置,打包报错问题解决
- java引入泛型的好处
- SLAM入门资料汇总
- Centos7中安装jdk1.8
- theano.scan
- 查询select中选中的值bootstrao+Vue.js+spring
- PopWindown设置在底部的正上方的bug