【机房收费系统】——结账

       结账，结的都是哪些账，给谁结账，结账需要涉及到哪些表？这些都是开始设计代码之前首先要想的。

       看到这个界面，你会怎么想？你也许会想，这是给谁结账，怎么查的是操作员啊？不该给一般用户结账吗？一个操作员每天给一般用户进行注册，充值，退卡等，这些工作是由操作员完成的，管理员要做的就是将操作员的工作进行汇总，然后结账，所以我认为是给操作员结账，结的当然是每天没结的账了。

               

首先我们来看需要哪些表来查询相关信息。

user_info表：查询相关操作员，在这里注意，管理员也可以是操作员，优化的时候要想到这点，在以下的代码中我没有体现，大家自己想想，很简单。

student_info表：查询购卡数及购卡信息

recharge_info表：查询充值记录，充值金额

cancelcard_info表：查询退卡记录，退卡数，退卡金额

checkday_info表：将以上查到的信息更新到日结账表

checkweek_info表：将以上查到的信息更新到周结账表

明白了这些，我们就来看看具体怎么实现。

一、首先，查询操作员及他的真实姓名，Tab表里显示的都是该操作员进行过的工作，要一致。

       先将已经添加的操作员用户名加载到combouserid框中，

Private Sub Form_Load()    '从user中查询操作员用户名    txtSQL = "select * from user_info where level='操作员'"    Set umrc = ExecuteSQL(txtSQL, MsgText)       While (umrc.EOF = False)        comboUserId.AddItem umrc.Fields(0) '加载用户名        umrc.MoveNext  '移动到下一条记录    Wend        '从user中查询操作员真实名    txtSQL = "select * from user_info where level='操作员'"    Set mrcc = ExecuteSQL(txtSQL, MsgText)        While (mrcc.EOF = False)        comboUserName.AddItem mrcc.Fields(3) '加载真名        mrcc.MoveNext '移动到下一条记录    Wend    End Sub

然后，单击用户名，即出现相应的真名。

Private Sub comboUserId_Click()    '单击combouserid，查询用户名，真实名    '从user表中查    txtSQL = "select username from user_info where userid='" & Trim(comboUserId.Text) & "'"    Set mrcc = ExecuteSQL(txtSQL, MsgText)    '赋值，真名显示在combousername    comboUserName.Text = mrcc.Fields(0)    '关闭数据集对象    mrcc.CloseEnd Sub

二、在选中要结账的操作员后查询出相应的信息，这里以充值为例：

'查询充值表语句    txtSQL = "select * from recharge_info where userid= '" & Trim(comboUserId.Text) & "'and status='未结账'and date='" & Format(Date, "yyyy-mm-dd") & "'"    '执行查询语句    Set remrc = ExecuteSQL(txtSQL, MsgText)    '将查到的信息显示到mycharge(1)控件中    '如果没有记录，则显示名称就可以    If (remrc.EOF Or remrc.BOF) Then        With myCharge(1)            .Rows = 1 '第一行            .CellAlignment = 4            .TextMatrix(0, 0) = "学号"            .TextMatrix(0, 1) = "卡号"            .TextMatrix(0, 2) = "充值金额"            .TextMatrix(0, 3) = "日期"            .TextMatrix(0, 4) = "时间"        End With        Exit Sub    Else    '否则显示全部查询到的信息        With myCharge(1)            .Rows = 1            .CellAlignment = 4            .TextMatrix(0, 0) = "学号"            .TextMatrix(0, 1) = "卡号"            .TextMatrix(0, 2) = "充值金额"            .TextMatrix(0, 3) = "日期"            .TextMatrix(0, 4) = "时间"            Do While Not remrc.EOF '若有记录，加进去                .Rows = .Rows + 1  '防止空行的出现                .CellAlignment = 4                .TextMatrix(.Rows - 1, 0) = Trim(remrc.Fields(1))                .TextMatrix(.Rows - 1, 1) = Trim(remrc.Fields(2))                .TextMatrix(.Rows - 1, 2) = Trim(remrc.Fields(3))                .TextMatrix(.Rows - 1, 3) = Trim(remrc.Fields(4))                .TextMatrix(.Rows - 1, 4) = Trim(remrc.Fields(5))                .ColWidth(3) = 1600                remrc.MoveNext  '移动到下一条记录            Loop            remrc.Close  '关闭数据集对象        End With    End If    

其他几个，购卡、退卡、临时用户与充值雷同，在这里就不再多写了。

三、汇总，结账

       汇总，汇总，无非就是把查到的所有记录加和，显示在文本框中，主要是计算，结账的时候我是结的当天的账，一天一结账，这样就不会出现结账重复的情况。

'汇总，结账    Dim N As Integer  '定义卡数    Dim TmpRate As Single  '定义金额    Dim cancelCash As Single  '定义退卡金额    '查学生表中的临时用户，计算临时用户收费    txtSQL = "select * from student_info where userid='" & Trim(comboUserId.Text) & "'and type='临时用户'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set mrc = ExecuteSQL(txtSQL, MsgText)    TmpRate = 0    '计算临时用户收费    While (mrc.EOF = False)        TmpRate = TmpRate + mrc.Fields(7)        mrc.Fields(11) = Trim("结账") '更新数据库        mrc.MoveNext '移动到下一条记录    Wend    txtRegister = TmpRate  '将临时收费赋值给txtregister    mrc.Close  '关闭数据库对象    '查用户名，获取总卡数    txtSQL = "select * from student_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set mrc = ExecuteSQL(txtSQL, MsgText)    N = 0    TmpRate = 0    '循环计算总卡数    While (mrc.EOF = False)        N = N + 1        mrc.Fields(11) = Trim("结账") '更新数据库结账        mrc.MoveNext '移动到下一条记录    Wend    txtnum = N  '购卡数    mrc.Close  '关闭数据集对象    '查退卡表，获取退卡数和退卡金额    txtSQL = "select * from cancelcard_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set mrccan = ExecuteSQL(txtSQL, MsgText)    N = 0    cancelCash = 0    '计算退卡金额    While (mrccan.EOF = False)        N = N + 1        cancelCash = cancelCash + mrccan.Fields(2)        mrccan.Fields(6) = Trim("结账") '更新数据库        mrccan.MoveNext    Wend    txtbackcard = N    txtbackmoney = cancelCash '将退卡金额赋值给txtbackmoney    mrccan.Close '关闭数据集对象    '查充值表，获取充值金额    txtSQL = "select * from recharge_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set remrc = ExecuteSQL(txtSQL, MsgText)    TmpRate = 0    '计算充值金额    While (remrc.EOF = False)        TmpRate = TmpRate + remrc.Fields(3)        remrc.Fields(7) = Trim("结账") '更新数据库        remrc.MoveNext '移动到下一条记录    Wend    txtrecharge = TmpRate  '将充值金额赋值给txtrecharge        '计算购卡数    txtBuycard.Text = Val(txtnum) + Val(txtbackcard)    '计算应收金额    txtcash.Text = Val(txtrecharge) + Val(txtRegister) - Val(txtbackmoney)    '关闭数据集对象    remrc.Close

       最后把结账信息更新到日结账表和周结账表中。

'填写日结账表的内容        '本期余额    txtSQL = "select * from student_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'and type='固定用户'"'    txtSQL = "select * from student_info where datediff(dd,offtime,getdate())=1"    Set mrc = ExecuteSQL(txtSQL, MsgText)    Do While Not mrc.EOF        allcash = allcash + mrc.Fields(7)  '本期余额        mrc.MoveNext    Loop    '当日消费余额    txtSQL = "select * from line_info where offdate='" & Format(Date, "yyyy-mm-dd") & "'"    Set lmrc = ExecuteSQL(txtSQL, MsgText)    Do While Not lmrc.EOF        consumecash = consumecash + lmrc.Fields(11)        lmrc.MoveNext    Loop    '当日充值金额    txtSQL = "select * from recharge_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set remrc = ExecuteSQL(txtSQL, MsgText)    Do While remrc.EOF = False        Rechargemoney = Rechargemoney + remrc.Fields(3)        remrc.MoveNext    Loop    '当日退还金额    txtSQL = "select * from cancelcard_info where userid='" & Trim(comboUserId.Text) & "'and date='" & Format(Date, "yyyy-mm-dd") & "'"    Set mrccan = ExecuteSQL(txtSQL, MsgText)    Do While mrccan.EOF = False        cancelCash = cancelCash + mrccan.Fields(2)        mrccan.MoveNext    Loop    remaincash = allcash - Rechargemoney + consumecash + cancelCash        '关闭数据集对象    mrc.Close    lmrc.Close    remrc.Close    mrccan.Close        '查询日结账表    txtSQL = "select * from checkday_info "    Set dmrc = ExecuteSQL(txtSQL, MsgText)    '更新日结账表内容    With dmrc        .AddNew        .Fields(0) = remaincash        .Fields(1) = Rechargemoney        .Fields(2) = consumecash        .Fields(3) = cancelCash        .Fields(4) = allcash        .Fields(5) = Format(Date, "yyyy-mm-dd")        .Update        MsgBox "结账成功！"  '提示结账成功            End With        '更新周结账单    txtSQL = "select * from checkweek_info"    Set wmrc = ExecuteSQL(txtSQL, MsgText)    '更新到周结表中        With wmrc            .AddNew            .Fields(0) = dmrc.Fields(0)            .Fields(1) = dmrc.Fields(1)            .Fields(2) = dmrc.Fields(2)            .Fields(3) = dmrc.Fields(3)            .Fields(4) = dmrc.Fields(4)            .Fields(5) = dmrc.Fields(5)            .Update '更新数据集对象            wmrc.MoveNext  '移动到下一条记录        End With        wmrc.Close  '关闭数据集对象

       这就是整个结账的过程。

       结账这部分花了很长时间弄好的，但是我相信时间是检验真理的标准，也是磨练我们意志的最硬的基石。奉劝大家一句，刚看到结账不要急着做，要先搞清思路，搞清算账的过程，根据自己想的试着去做，相信只要思路正确很快就可以做出来的，这也是我做结账的感受，如果以上有不合理的，欢迎大家来指正！