充值窗体 机房收费系统

声明：这个文章上个星期写已发表结果误删了，从回收站没法还原，只能从新发表了，见谅。

首先我们先对这个窗体进行下分析。

（1）检测卡号和金钱的输入

     1.1 首先输入卡号（检查输入卡号是否存在。若不存在，提示没有该卡号请重新输入，
                从student表中调去信息判断卡号是否存在，若该卡号存在，下一步）      
     1.2 输入充值金额，
                  从basicdata表中调去数据     充值金额不能小于最小充值金额，

（2）单机确定按钮 充值成功 文本框（下图）显示本次充值的信息，根据信息我们可以得知

      2.1  在recharge表中显示本次的充值记录，

      2.2 在student表中更新金额总数

（3）文本框显示充值信息

代码如下：

[vb]  view plain copy

1. Private Sub CmdOK_Click()  
2.   
3.    Dim txtsql As String  
4.    Dim msgtext As String  
5.    Dim mrc As adodb.Recordset  
6.    Dim mrcc As adodb.Recordset  
7.    Dim mrcc1 As adodb.Recordset  
8.    Dim Number As String     '获取学号  
9.    Dim lastcash As Integer   '上次余额  
10.    Dim leastcash As Integer   '最小金额  
11.    Dim nowcash As Integer      ' 最新余额  
12.    

[vb]  view plain copy

1. '检查输入  
2. If Not Testtxt(CardIdtxt.Text) Then    
3.      MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告！"  
4.      CardIdtxt.SetFocus  
5.      Exit Sub  
6.  End If  
7.    
8.    If Not Testtxt(Rechargetxt.Text) Then  
9.      MsgBox "请输入金额！", vbOKOnly + vbExclamation, "警告！"  
10.      Rechargetxt.SetFocus  
11.      Exit Sub  
12.  End If  
13.     If Not IsNumeric(Rechargetxt.Text) Then  
14.      MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告！"  
15.      Rechargetxt.SetFocus  
16.      Exit Sub  
17.   End If  

[vb]  view plain copy

1.   '判断卡号是否注册  
2.   txtsql = "select * from student_info where cardno= '" & Trim(CardIdtxt.Text) & "' "  
3.   Set mrcc = ExecuteSQL(txtsql, msgtext)  
4.   
5.   If mrcc.EOF Then  
6.      MsgBox "该卡号没有注册，请重新输入！", vbOKOnly + vbExclamation, "警告!"  
7.      CardIdtxt.Text = ""  
8.      CardIdtxt.SetFocus  
9.      Exit Sub  
10.   Else  
11.   
12.   Number = Trim(mrcc.Fields(1))  
13.   lastcash = Val(Trim(CStr(mrcc.Fields(7))))  
14.   mrcc.Close  
15. End If  
16.    

[vb]  view plain copy

1. '获取最新金额，与输入的金额做比较  
2.  txtsql = "select * from BasicData_Info  "  
3.  Set mrcc1 = ExecuteSQL(txtsql, msgtext)  
4.  mrcc1.MoveLast  
5.  leastcash = Val(Trim(CStr(mrcc1.Fields(5))))  
6.  mrcc1.Close  
7.    
8.  If Val(Trim(Rechargetxt.Text)) < leastcash Then  
9.    MsgBox "输入金额不得小于" & leastcash & "元！", vbOKOnly + vbExclamation, "警告！"  
10.    Rechargetxt.Text = ""  
11.    Rechargetxt.SetFocus  
12.    Exit Sub  
13.  End If  

[vb]  view plain copy

1. '更新recharge表中的数据  
2. txtsql = "select * from ReCharge_info "  
3. Set mrc = ExecuteSQL(txtsql, msgtext)  
4.   
5. mrc.AddNew  
6. mrc.Fields(1) = Number  
7. mrc.Fields(2) = Trim(CardIdtxt.Text)  
8. mrc.Fields(3) = Trim(Rechargetxt.Text)  
9. mrc.Fields(4) = Format(Date, "yyyy-mm-dd")  
10. mrc.Fields(5) = Time  
11. mrc.Fields(6) = "Username"  
12. mrc.Fields(7) = "未结账"  
13. mrc.Update  
14. mrc.Close  
15.     

[vb]  view plain copy

1. '更新student表中的最新余额  
2.  txtsql = "select * from student_info where cardno= '" & Trim(CardIdtxt.Text) & "' "  
3.  Set mrcc = ExecuteSQL(txtsql, msgtext)  
4.  mrcc.Fields(7).Value = lastcash + Val(Rechargetxt.Text)  
5.  a = mrcc.Fields(7)  
6.  mrcc.Update  
7.  mrcc.Close  
8. bsp;  

[vb]  view plain copy

1.    
2. '显示充值信息  
3. Showtxt.Text = "充值卡号：" & Trim(CardIdtxt.Text) & vbCrLf _  
4.                   & "上次余额 " & lastcash & vbCrLf _  
5.                   & "最新余额 " & a & vbCrLf _  
6.                   & "冲卡日期" & Date & vbCrLf _  
7.                   & "冲卡时间" & Time & vbCrLf _  
8.                   & "充值教师" & Username &  
9.                     
10.  MsgBox "充值成功！", vbOKOnly + vbExclamation, "警告！"  
11.    
12.   
13.  CardIdtxt.Text = ""  
14.  Rechargetxt.Text = ""  
15.  Showtxt.Text = ""  
16.   
17. d Sub