本文主要是介绍机房结账，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
感受
机房项目总共有三个大难点，其中比较重要的分别是上下机和结账，而组合查询因为没有涉及到金钱，所以暂居两者之后。之前我曾分享了自己对于上机，下机的想法，所以这次我就来写写结账窗体的那二三事。
1.预载用户列
Private Sub Form_Load()Dim txtSQL As StringDim Msgtext As StringDim mrc As ADODB.RecordsettxtSQL = "select * from User_Info where Level = '操作员'"Set mrc = ExecuteSQL(txtSQL, Msgtext)Do While Not mrc.EOFComboUserID.AddItem mrc!UserIDmrc.MoveNextLoopIf Trim(ComboUserID.Text) = "" ThenMsgBox "没有用户，请先添加用户！", vbOKOnly + vbExclamation, "提示"FrmADUser.ShowEnd If
End sub
2.选择加载
根据选择的用户，自动加载相关的信息
Dim txtSQL As StringDim Msgtext As StringtxtSQL = "select * from xx表 where UserID（以数据表为准） = '" & Trim(ComboUserID) & "'" & "and Ischeck = '未结账'" '连接至数据库Set mrc = ExecuteSQL(txtSQL, Msgtext)With MSFlexGrid1 '加载模板.ColWidth(2) = 1800.Rows = 1.CellAlignment = 4.TextMatrix(0, 0) = "学号".TextMatrix(0, 1) = "卡号".TextMatrix(0, 2) = "日期".TextMatrix(0, 3) = "时间"End WithDo While Not mrc.EOFWith MSFlexGrid1 '将回执信息显示在窗体上.ColWidth(2) = 1800.Rows = .Rows + 1.CellAlignment = 4.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.MoveNextEnd WithLoop
3.金钱计算（！！！）
售卡张数 = 学生表中该操作员旗下未结账的记录
退卡张数 = 退卡表中该操作员旗下未结账的记录
充值金额 = 充值表中该操作员旗下未结账的记录的充值金额之和
退卡金额 = 退卡表中该操作员旗下未结账的记录的退款金额之和
总售卡数 = 学生表中该操作员旗下未结账的记录 + 退卡表中该操作员旗下未结账的记录
应收金额 = 充值金额 - 退卡金额
需要注意的是：充值金额不仅仅包含了充值时的记录，购卡时的金额也是充值表的一部分忽略这一点就会出现对不清账的情况
计算的方法基本是共同的
txtSQL = "select * from student_Info where UserID = '" & Trim(ComboUserID.Text) & "'" & "and Ischeck = '未结账'" '售卡统计Set mrc = ExecuteSQL(txtSQL, Msgtext)i = 0Do While Not mrc.EOFi = i + 1mrc.MoveNextLoopTxtSellCard.Text = i
4.数据更新（闭环）（！！！）
在将金额计算正确之后，需要将相关的数据更新到各个表中，结账一共涉及到了四个表的更新，分别是学生表，充值表，退卡表，以及日结账单
txtSQL = "select * from Recharge_Info where userID = '" & Trim(ComboUserID.Text) & "'" & "and status = '未结账'"Set mrc1 = ExecuteSQL(txtSQL, Msgtext)Do While Not mrc1.EOFmrc1.Fields(7) = "结账"mrc1.Updatemrc1.MoveNextLoop
txtSQL = "select * from CheckDay_Info where date ='" & Date & "'"Set mrc = ExecuteSQL(txtSQL, Msgtext)txtSQL = "select sum (allcash) from CheckDay_Info where date = '" & Date - 1 & "'" '计算昨天的总收入Set mrc1 = ExecuteSQL(txtSQL, Msgtext)txtSQL = "select sum(consume) from Line_Info where offdate = '" & Date & "'" '计算今天的消费金额Set mrc2 = ExecuteSQL(txtSQL, Msgtext)If IsNull(mrc2.Fields(0)) Then '无信息则为0xfjy = 0Elsexfjy = mrc2.Fields(0) '赋值End IfIf IsNull(mrc1.Fields(0)) Then '无信息则为0sqye = 0Elsesqye = mrc1.Fields(0) '赋值End Ifb = g - eIf Not mrc.EOF And Not mrc.BOF Then '判断是否已有记录mrc.Fields(0) = sqyemrc.Fields(1) = g + mrc.Fields(1)mrc.Fields(2) = xfjymrc.Fields(3) = e + mrc.Fields(3)mrc.Fields(4) = b + mrc.Fields(4)mrc.UpdateElse ‘无则加新’mrc.AddNewmrc.Fields(0) = sqyemrc.Fields(1) = gmrc.Fields(2) = xfjemrc.Fields(3) = emrc.Fields(4) = bmrc.Fields(5) = Datemrc.UpdateEnd IfMsgBox "结账成功！", vbOKOnly + vbExclamation, "提示"
至此，我们的机房结账就可以宣告竣工了。
总结
机房结账本身并没有特别难的地方，只是需要我们严谨的去对待金钱计算逻辑及整个机房系统的信息闭环更新。而谨慎和细心正是我们作为一个软件从业者必须具备的一个品质。
这篇关于机房结账的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
