自学生系统之后的另一个系统,不过这次没有源码,需要自己去慢慢摸索,不能着急,在此期间也出了好多问题,下面来看看我弄了一下午的充值窗体吧
充值窗体功能:为卡充值金额,并对最新余额进行更新。
步骤:
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