机房收费系统总结之结帐

       结账这个真的比较难，改了又改，改了又改。

              

           因为这个窗口是在管理的权限范围之内的，所以我做了改动，把可以实现结账功能的人，也就是操作员和管理员都列在了这个里面。管理员和操作员都可以实现结账的权利。

      因为combobox是能是下拉菜单来现实这个功能，不能往里面输入任何的字符，所以这时候就需要用一个键盘事件啦。

                     

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

          就这样，很轻松的就实现了这个功能啦。

     接下来就是俩个combobox实现同步的功能啦，首先需要将combo1中的操作员和管理员的用户名添加进去，其实就是用到了一个通过循环经行增加。具体代码：

        

Private Sub Form_Load()
txtsql = "select * from User_Info where Level <>'一般用户'" '选择用户级别
   Set mrc = ExecuteSQL(txtsql, msgtext)
    Do While mrc.EOF = False
    Combo1.AddItem Trim(mrc.Fields(0))    '通过循环进行添加
    mrc.MoveNext
    Loop
    mrc.Close
End Sub

         然后就是俩个combo的同步啦。也就是combo2随着combo1的变化而变化，这时候需要用combo1的单击事件啦

txtsql1 = "select * from User_Info where userID='" & Trim(Combo1.Text) & "'" '选择用户级别
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
Combo2.Text = Trim(mrc1.Fields(3))

       那么，我们现在需要实现的就是在SSTab1这个控件里面显示各种信息啦，首先购卡充值退卡、临时用户的这些信息分别是从student、recharge、cancelcard和的数据库表中查询到的，现在我们以临时用户为例，来看看具体的额代码。

     

If SSTab1.Tab = 3 Then
txtsql = "select * from student_Info where UserID = '" & Combo1.Text & "'and type='临时用户'and status='未结账'"
Set mrc = ExecuteSQL(txtsql, msgtext)
With MSFlexGrid4
     .CellAlignment = 4
     .Rows = 1
     .TextMatrix(0, 0) = "学号"
     .TextMatrix(0, 1) = "卡号"
     .TextMatrix(0, 2) = "日期"
     .TextMatrix(0, 3) = "时间"


     Do While mrc.EOF = False
       .Rows = .Rows + 1
       .TextMatrix(.Rows - 1, 0) = Trim(mrc!studentno)
       .TextMatrix(.Rows - 1, 1) = Trim(mrc!cardno)
       .TextMatrix(.Rows - 1, 2) = Trim(mrc!Date)
       .TextMatrix(.Rows - 1, 3) = Trim(mrc!Time)
       mrc.MoveNext
      Loop
       mrc.Close
    End With
End If

             在汇总的目录下，我们可以看到里面有一些售卡张数和退卡张数等信息，这些数据可以直接在我们我们已经敲了代码的购卡、退卡等信息中经行查询，也就是售卡张数就是我们购卡中的行数，退卡张数就是我们的退卡的行数，当然需要减去表头的一行啦。当然啦，我们也可以用mrc.RecordCount来实现，但是这样我们还需要查询一次数据库，比较麻烦。

                                

            售卡张数-退卡张数=总售卡数   注册充值金额-退卡金额=应收金额 

      接下来就是结账的这个command按钮的代码啦！

      首先我们知道，我们按下啦结账，软件的后台是怎样经行工作的。我们结账的界面将直接在报表中经行反应的，也就是报表中要得数据是从这里来的，所以需要更新报表中的数据，同时需要修改cancelcard和recharge中的数据，具体代码如下：

Private Sub Command1_Click()
Dim d As String
Dim cash As String
Dim consume As String

txtsql1 = "select * from recharge_info where UserID='" & Combo1.Text & "'and  status='未结账'"
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
If mrc1.EOF = False Then

txtsql = "select *  from Line_Info where offdate='" & Trim(Format(Now, "yyyy-mm-dd")) & "'"
Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.RecordCount = 0 Then
  d = 0
Else
Do While mrc.EOF = False
d = Val(d) + Val(mrc!consume)
mrc.MoveNext
Loop
mrc.Close
End If

txtsql = "select * from checkday_info"
Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.BOF And mrc.EOF Then
   remaincash = 0
Else
    mrc.MoveLast
     remaincash = mrc.Fields(4)
     mrc.MoveFirst
End If
     mrc.AddNew
    mrc.Fields(0) = remaincash
    mrc.Fields(1) = Text5.Text
    mrc.Fields(2) = d
    mrc.Fields(3) = Val(Text2.Text)
    mrc.Fields(4) = Val(Text5.Text - d - Text2.Text)
    mrc.Fields(5) = Date
    mrc.Update
mrc.Close

txtsql = "select * from recharge_info where UserID='" & Combo1.Text & "'and  status='未结账'"
Set mrc = ExecuteSQL(txtsql, msgtext)
If mrc.RecordCount = 0 Then
   Text5.Text = 0
   
Else
   mrc!Status = "已结账"
   mrc.Update
   mrc.Close
End If
txtsql1 = "select * from cancelcard_info where UserID='" & Combo1.Text & "'and  status='未结账'"
Set mrc1 = ExecuteSQL(txtsql1, msgtext1)
If mrc1.RecordCount = 0 Then
    Text2.Text = 0
Else
    mrc1!Status = "已结账"
    mrc1.Update
    mrc1.Close
End If
         MsgBox "结账成功！", vbOKOnly, "提示"
         Exit Sub
Else
  MsgBox "已经结账成功啦，不能重复结账"
  Exit Sub
End If

End Sub

             对于这段代码，我觉得最重要的就是把汇总的信息添加到日报表啦，这里面涉及到很多的算法，当然啦，这仅仅是我自己的理解。前些天师傅验收系统的时候提到了利用change事件来实现整个结账的功能，这样更方便用户。所以，我们用软件是让任何人来用的，也就是需要耐得住点啊！