机房收费系统-充值

前言：

      机房收费系统是我第一次接触的独立完成的系统，一开始还真是摸不着头脑，不过还是硬着头皮做了下去。其实，事情一般都有难的部分有易的部分，所以一开始我按照整个思路先从简单的窗体开始做，简单的窗体一般都是单一查询或者是实现一些非常简单的功能，本篇博客呢就以充值为例，向大家介绍简单窗体是如何轻松搞定。

内容：

   一、理清思路：

   ps:理清思路最好的方式当然是画一个导图了！
      

   二、窗体设计：

   

   三、代码实现：

Private Sub cmdReg_Click()
Dim mrc As ADODB.Recordset
Dim mrc1 As ADODB.Recordset
Dim txtsql As String
Dim Msgtext As String

If Text1.Text = "" Then                                   '判断卡号框是否为空
MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "警告"
Text1.SetFocus
Else
If Text2.Text = "" Then                                '判断充值金额框是否为空
MsgBox "请输入充值金额！", vbOKOnly + vbExclamation, "警告"
Text2.SetFocus
Else
txtsql = "select * from BasicData_Info"             '从数据表中获取基本数据
Set mrc = ExecuteSQL(txtsql, Msgtext)

a = Val(mrc.Fields(5))                               '充值金额与最少金额作比较
If Val(Text2.Text) < a Then
MsgBox "充值金额不能少于最小金额！", vbOKOnly + vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
Else

txtsql = "select * from student_Info where cardno='" & Trim(Text1.Text) & "'"           '连接学生表
Set mrc = ExecuteSQL(txtsql, Msgtext)

If mrc.EOF = True Then                                '判断卡号是否已注册
MsgBox "没有此卡号，请重新输入！", vbOKOnly + vbExclamation, "警告"
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Else
b = Val(mrc.Fields(7))
mrc.Fields(7) = Val(mrc.Fields(7)) + Val(Text2.Text)
mrc.Update
a = Trim(Text1.Text)
c = Val(mrc.Fields(7))
d = Date
e = Time
f = Trim(mrc.Fields(9))
mrc.Fields(7) = Val(c)
'提示信息，vbcrlf是换行符
Text3.Text = "充值卡号:" & a & vbCrLf & vbCrLf & "上次卡内余额：" & b & vbCrLf & vbCrLf & "现在卡内的余额：" & c & vbCrLf & vbCrLf & "充值日期：" & d & vbCrLf & vbCrLf & "充值时间：" & e & vbCrLf & vbCrLf & "充值老师：" & f
MsgBox "充值成功！", vbExclamation, "温馨提示"
End If
txtsql = "select * from Recharge_Info where cardno='" & Trim(Text1.Text) & "'"         '更新充值表
Set mrc1 = ExecuteSQL(txtsql, Msgtext)
mrc1.AddNew
mrc1.Fields(1) = mrc.Fields(1)
mrc1.Fields(2) = Trim(Text1.Text)
mrc1.Fields(3) = Trim(Text2.Text)
mrc1.Fields(4) = Date
mrc1.Fields(5) = Time
mrc1.Fields(6) = UserName
mrc1.Fields(7) = "未结账"
mrc1.Update
mrc1.Close
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End If
End If
End If
End Sub

总结：

     其实，无论是简单的窗体还是像组合查询、结账、上下机这样的看似很难的窗体，最重要的一步就是理清思路。只有理清思路才能敲得又快出错又少。