机房收费系统之结账

【前言】

        对于机房收费系统的管理员下结账功能这一部分，重要的需要理清楚逻辑思路，逻辑很重要。具体的部分在下面作出具体解释。

【正文】

       整体思路：

       一、对于SSTab1中需要显示信息的购卡、充值、退卡、临时用户这四部分中，不受操作员用户名限制的基本信息可以先在窗体Load事件中实现。同时在窗体加载过程中，对于操作员的用户名和真实姓名的信息也是在窗体加载时显示出来。具体如下：

'在combobox框中显示数据库中关于操作员的信息
txtSQL = "select * from user_info where level='" & "操作员" & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
Do While mrc.EOF = False
comboUserID.AddItem mrc.Fields(0)
mrc.MoveNext
Loop

'购卡基本信息
MfgBuyCard.TextMatrix(0, 0) = "学号"
MfgBuyCard.TextMatrix(0, 1) = "卡号"
MfgBuyCard.TextMatrix(0, 2) = "日期"
MfgBuyCard.TextMatrix(0, 3) = "时间"

'充值基本信息
MfgRecharge.TextMatrix(0, 0) = "学号"
MfgRecharge.TextMatrix(0, 1) = "卡号"
MfgRecharge.TextMatrix(0, 2) = "充值金额"
MfgRecharge.TextMatrix(0, 3) = "日期"
MfgRecharge.TextMatrix(0, 4) = "时间"

'退卡基本信息
MfgCancelCard.TextMatrix(0, 0) = "学号"
MfgCancelCard.TextMatrix(0, 1) = "卡号"
MfgCancelCard.TextMatrix(0, 2) = "日期"
MfgCancelCard.TextMatrix(0, 3) = "时间"
MfgCancelCard.TextMatrix(0, 4) = "退卡金额"

'临时用户基本信息
MfgTemporary.TextMatrix(0, 0) = "学号"
MfgTemporary.TextMatrix(0, 1) = "卡号"
MfgTemporary.TextMatrix(0, 2) = "日期"
MfgTemporary.TextMatrix(0, 3) = "时间"

    

     二、在购卡、充值、退卡、临时用户这四部分中信息的基本内容就收到操作员的影响，不同的操作员在这四部分中显示的信息是不同的，因此，对于这一部分，我定义了一个过程：

    

Private Sub viewdata()
Dim mrcBC As ADODB.Recordset
Dim mrcRC As ADODB.Recordset
Dim mrccc As ADODB.Recordset

'购卡具体信息
txtSQL = "select * from student_Info where Ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
Set mrcBC = ExecuteSQL(txtSQL, Msgtext)
With MfgBuyCard
While mrcBC.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrcBC.Fields(1)
.TextMatrix(.Rows - 1, 1) = mrcBC.Fields(0)
.TextMatrix(.Rows - 1, 2) = mrcBC.Fields(12)
.TextMatrix(.Rows - 1, 3) = mrcBC.Fields(13)
mrcBC.MoveNext
Wend
End With

'充值基本信息
txtSQL = "select studentno,cardno,addmoney,date,time from recharge_Info where status ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
Set mrcRC = ExecuteSQL(txtSQL, Msgtext)
With MfgRecharge
While mrcRC.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrcRC.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrcRC.Fields(1)
.TextMatrix(.Rows - 1, 2) = mrcRC.Fields(2)
.TextMatrix(.Rows - 1, 3) = mrcRC.Fields(3)
.TextMatrix(.Rows - 1, 4) = mrcRC.Fields(4)
mrcRC.MoveNext
Wend
End With

'退卡基本信息
txtSQL = "select studentno,cardno,date,time,cancelcash from cancelcard_info where status='未结账' and userid ='" & Trim(comboUserID.Text) & "'"
Set mrccc = ExecuteSQL(txtSQL, Msgtext)
With MfgCancelCard
While mrcRC.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrcRC.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrcRC.Fields(1)
.TextMatrix(.Rows - 1, 2) = mrcRC.Fields(2)
.TextMatrix(.Rows - 1, 3) = mrcRC.Fields(3)
.TextMatrix(.Rows - 1, 4) = mrcRC.Fields(4)
mrccc.MoveNext
Wend
End With

'临时用户基本信息
'txtSQL = "select * from student_Info where Ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"   '注意与下列语句的区别
txtSQL = "select studentno,cardno,date,time from student_Info where ischeck ='未结账' and type ='临时用户' and userid='" & Trim(comboUserID.Text) & "'"
Set mrcBC = ExecuteSQL(txtSQL, Msgtext)
With MfgTemporary
While mrcBC.EOF = False
.Rows = .Rows + 1
.TextMatrix(.Rows - 1, 0) = mrcBC.Fields(0)
.TextMatrix(.Rows - 1, 1) = mrcBC.Fields(1)
.TextMatrix(.Rows - 1, 2) = mrcBC.Fields(2)
.TextMatrix(.Rows - 1, 3) = mrcBC.Fields(3)
mrcBC.MoveNext
Wend
End With

     具体信息在该过程中实现后，在选出不同的操作员的时候直接调用该过程就可以，减少了代码的重复性：

    

Private Sub comboName_click()
txtSQL = "select * from user_info where username='" & Trim(comboName.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
comboUserID.Text = mrc.Fields(0)
Call viewdata
End Sub

Private Sub comboUserID_click()
txtSQL = "select * from user_info where userid='" & Trim(comboUserID.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
comboName.Text = mrc.Fields(3)
Call viewdata
End Sub

    

     具体结账部分的思路：

     在SSTab1中的结账部分，显示的内容也不算难，重要的就是理清思路，理解每一个文本框中需要显示的内容一切也都不是问题。其内容主要有售卡张数、退卡张数、充值金额、临时收费金额、退卡金额、总售卡数、应收金额，对于总售卡数来说，即为售卡张数减去退卡张数；应收金额等于充值金额减去退卡金额，刚开始认为临时用户的收费金额应当算到应收金额中，但是后来想了想，临时收费金额在充值金额中已经被算上了，因此在这里不用再次算入其中。（希望大家可以提出不同的见解，我们一起进行讨论）

     

''''''''''''''结账部分显示的内容
'售卡张数
txtSQL = "select * from student_info where ischeck ='未结账' and UserID='" & Trim(comboUserID.Text) & "'"  '售卡张数
Set mrc = ExecuteSQL(txtSQL, Msgtext)
txtCradNumber = mrc.RecordCount

'退卡张数
txtSQL = "select * from cancelcard_info where status='未结账'and UserID='" & Trim(comboUserID.Text) & "'"   '退卡张数
Set mrc = ExecuteSQL(txtSQL, Msgtext)
txtBackCardNumber = mrc.RecordCount

'总售卡数
txtAllCardNumber.Text = Val(txtCradNumber.Text) - Val(txtBackCardNumber)

'充值金额
Dim recharge As Variant
txtSQL = "select sum(addmoney)from recharge_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'"   '充值金额
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.BOF And mrc.EOF Then
recharge = 0
Else
If IsNull(Trim(mrc.Fields(0))) Then
recharge = 0
Else
recharge = mrc.Fields(0)
End If
End If

txtRechargeCash.Text = recharge

'退卡金额
txtSQL = "select sum(cancelcash)from cancelcard_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'" '退卡金额
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.BOF And mrc.EOF Then
recharge = 0
Else
If IsNull(Trim(mrc.Fields(0))) Then
recharge = 0
Else
recharge = mrc.Fields(0)
End If
End If

txtCancelCash.Text = recharge

'临时收费金额
Dim temporaryCash As Variant
txtSQL = "select sum(cash)from student_info where ischeck ='未结账'and type ='临时用户' and UserID='" & Trim(comboUserID.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.BOF And mrc.EOF Then
temporaryCash = 0
Else
If IsNull(Trim(mrc.Fields(0))) Then
temporaryCash = 0
Else
temporaryCash = mrc.Fields(0)
End If
End If
txtTemporaryCash.Text = temporaryCash

'应收金额

Dim consume As Variant, cancelcash As Variant
'''''''''充值金额
txtSQL = "select sum(cash)from student_info where ischeck='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.BOF And mrc.EOF Then
recharge = 0
Else
If IsNull(Trim(mrc.Fields(0))) Then
recharge = 0
Else
recharge = mrc.Fields(0)
End If
End If

txtAllCash.Text = recharge

''''''''''退卡金额

txtSQL = "select sum(cancelcash)from cancelcard_info where status='未结账' and UserID='" & Trim(comboUserID.Text) & "'"
Set mrc = ExecuteSQL(txtSQL, Msgtext)
If mrc.BOF And mrc.EOF Then
cancelcash = 0
Else
If IsNull(Trim(mrc.Fields(0))) Then
cancelcash = 0
Else
cancelcash = mrc.Fields(0)
End If
End If
txtAllCash.Text = txtAllCash.Text - cancelcash

 

【总结】
         一、逻辑思路对于我们来说很重要，我们应该着力去培养

         二、在写代码的时候要细心，有时候一个微小的错误都会浪费很多时间

         三、自己的代码调试能力还不够，希望自己可以在以后中着重培养