机房收费系统-充值

前言：

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

内容：

   一、理清思路：

   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

总结：

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