机房收费之充值窗体

             自学生系统之后的另一个系统，不过这次没有源码，需要自己去慢慢摸索，不能着急，在此期间也出了好多问题，下面来看看我弄了一下午的充值窗体吧

             充值窗体功能：为卡充值金额，并对最新余额进行更新。 

       步骤：
          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