机房收费之充值窗体
2015-08-02 11:08
260 查看
自学生系统之后的另一个系统,不过这次没有源码,需要自己去慢慢摸索,不能着急,在此期间也出了好多问题,下面来看看我弄了一下午的充值窗体吧
充值窗体功能:为卡充值金额,并对最新余额进行更新。
步骤:
1、输入卡号后,判断该卡是否未注册或者已注销(通过学生信息表查询),有个提示。
2、输入充值金额后判断该金额是否小于基本数据表中的最少金额,若低于则进行相应提示。
3、充值成功后将该卡号的充值信息添加到充值表中并在窗体中显示出来。
4、对最新余额进行更新。
代码如下:
充值窗体功能:为卡充值金额,并对最新余额进行更新。
步骤:
1、输入卡号后,判断该卡是否未注册或者已注销(通过学生信息表查询),有个提示。
2、输入充值金额后判断该金额是否小于基本数据表中的最少金额,若低于则进行相应提示。
3、充值成功后将该卡号的充值信息添加到充值表中并在窗体中显示出来。
4、对最新余额进行更新。
代码如下:
Option Explicit Private Sub Command1_Click() Dim txtSQL As String Dim txtSQLL As S tring Dim MsgText As String Dim mrc As ADODB.Recordset Dim mrss1 As ADODB.Recordset Dim mrss2 As ADODB.Recordset Dim prebalance As Single Dim balance As Single Dim leastcash As Long If Trim(Text1.Text) = "" Then MsgBox "请输入卡号", vbOKOnly, "提示" Text1.SetFocus End If If Trim(Text2.Text) = "" Then MsgBox "请输入充值金额", vbOKOnly, "提示" Text2.SetFocus End If txtSQL = "select * from student_Info where cardno='" & Text1.Text & "'" Set mrss1 = ExecuteSQL(txtSQL, MsgText) If mrss1.EOF Then MsgBox "此卡没有注册或不存在!", vbOKOnly + vbExclamation, "警告" Text1.Text = "" Text1.SetFocus Else prebalance = mrss1.Fields(7) '获取上次余额 mrss1.Close End If ' number = Trim(Text2.Text) '判断充值金额是否为空和数字 txtSQLL = "select * from BasicData_Info" Set mrss2 = ExecuteSQL(txtSQLL, MsgText) If Not mrss2.EOF Then mrss2.MoveLast leastcash = mrss2.Fields(5) ‘获取最低充值金额 End If ' mrss2.Close If Val(Trim(Text2.Text)) < leastcash Then MsgBox "最少充值为'" & leastcash & "'元!,您充的太少了", vbOKOnly + vbExclamation, "警告!" Text2.Text = "" Text2.SetFocus Exit Sub End If '向数据库的充值表中添加信息 txtSQL = "select*from recharge_info where cardno='" & Text1.Text & "'" Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(2) = Trim(Text1.Text) mrc.Fields(3) = Trim(Text2.Text) mrc.Fields(5) = Time mrc.Fields(4) = Date mrc.Fields(6) = Trim(UserName) mrc.Fields(7) = "未结账" mrc.Update txtSQL = "select*from student_info where cardno='" & Trim(Text1.Text) & "'" Set mrss1 = ExecuteSQL(txtSQL, MsgText) If mrss1.EOF Then Exit Sub mrss1.Fields(7).Value = prebalance + Val(Text1.Text) ’更新余额 balance=mrss1.fields(7) mrss1.Update mrss1.Close '显示信息 Text3.Text = "充值卡号:" & Trim(Text1.Text) & vbCrLf _ ‘自动换行 & "上次卡内余额:" & Trim(prebalance) & vbCrLf _ & "现在卡内余额:" & Trim(balance) & vbCrLf _ & "充值日期:" & Trim(mrc.Fields(4)) & vbCrLf _ & "充值时间:" & Trim(mrc.Fields(5)) & vbCrLf _ & "充值教师:" & Trim(mrc.Fields(6)) mrc.Close MsgBox "充值成功啦^~^, vbOKOnly , "充值成功!" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocus End Sub Private Sub Command2_Click() Unload Me End Sub
相关文章推荐
- iOS Quartz2D - 屏幕截图
- iOS Quartz2D - 给图片加水印
- 常用mac/unix/linux命令
- 重载 vs 重写
- php-面向对象(6)
- acm-UVA11935解题报告
- 学单片机预备知识、如何点亮一个发光管、流水灯程序
- MongoDB 在windows shell环境下的基本操作和命令的使用示例(三)
- 用Model-View-ViewModel构建iOS App
- 虚函数与虚继承
- 计数排序
- HDU 5336 XYZ and Drops(模拟十滴水游戏 BFS啊)
- iOS Quartz2D - 裁剪图片为带边框的圆形图片
- 早期(编译期)优化
- android 中 View的构造函数
- win7应用程序出现乱码 解决方法
- 图层损坏 E/ArcGIS﹕ The map or layer has been destroyed or recycled. 资源未释放
- 第六课,T语言表达式(版本5.0)
- java学习笔记之-构造函数
- 图层损坏 E/ArcGIS﹕ The map or layer has been destroyed or recycled. 资源未释放