机房收费系统之结账

偏执的太偏执、 2022-08-04 09:11 336阅读 0赞 
  1.    机房收费系统中一个重要的窗体之一就是结账窗体，因为涉及到数据库中的好多表所以刚开始会觉得很难，其实理清思路后按照自己的思路写完后便觉得没有想象中的那么难！好先来看一下窗体界面:

Center

  1. 说明：操作员用户名：combo1,操作员真实姓名：combo2
  3. 总售卡数=售卡张数-退卡张数
  5. 临时收费金额=临时用户注册和充值的钱
  7. 应收金额=充值金额-退卡金额
  9. 一开始看到这个界面的控件时不知道是什么控件，但是我记得之前敲百例的时候用过这么一个控件所以我就把之前百例里面的涉及到这个控件的例子找到，知道了它是什么控件！
  11. 操作员用户名和操作员真实姓名我本来是从User\_Info表里查的，但是师傅说如果有好多操作员打开combox时里面有好多的数据，有的今天就没有登录或做售卡，充值，退卡等的操作的工作所以就没有必要显示！我后来想了想觉得结账是要每天就要结账所以我就打算用worklog\_Info这个表但是这个表里没有UserName所以我就在这个表里加了一列。  
  14. Private Sub Form_Load()
  15. Dim mrc As ADODB.Recordset
  16. Dim MsgText As String
  17. Dim txtSQL As String
  18. Dim i As Integer
  20. txtSQL = "select*from worklog_Info where LoginDate= '" & Trim(Date) & "'" & " and level= '操作员' "            '今天登录过的操作员
  21. Set mrc = ExecuteSQL(txtSQL, MsgText)
  24. For i = 1 To mrc.RecordCount '用户名   
  25.     Combo1.AddItem mrc.Fields(1)
  26.      mrc.MoveNext
  27. Next i
  28. mrc.Close
  29. End Sub
  31. Private Sub Combo1_Click()
  32. Dim txtSQL, MsgText As String
  33. Dim mrc As ADODB.Recordset
  35. If Combo1.Text = "" Then
  36.   MsgBox "请输入操作员用户名！", vbOKOnly + vbExclamation, "警告"
  37. Exit Sub
  38. End If
  41. txtSQL = "select * from worklog_Info where UserID='" & Trim(Combo1.Text) & "'" & " and LoginDate = '" & Trim(Date) & "'"     '今天登录过的操作员
  42. Set mrc = ExecuteSQL(txtSQL, MsgText)
  44. Combo2.Text = Trim(mrc.Fields(9))
  45. mrc.Close
  46. End Sub

SSTab里就仅列汇总窗体

  1. Private Sub SSTab1_Click(PreviousTab As Integer)
  2. Dim txtSQL As String
  3. Dim txtSQL1 As String
  4. Dim txtSQL2 As String
  5. Dim txtSQL3 As String
  7. Dim MsgText As String
  8. Dim MsgText1 As String
  9. Dim Msgtext2 As String
  10. Dim msgText3 As String
  12. Dim mrc As ADODB.Recordset
  13. Dim mrc1 As ADODB.Recordset
  14. Dim mrc2 As ADODB.Recordset
  15. Dim mrc3 As ADODB.Recordset
  17. Dim a, b, c, d As Long
  18. Dim i As Integer
  20. Select Case SSTab1.Tab
  21. '汇总
  22. Case 4
  23.   '售卡张数
  24.   txtSQL = "select * from student_Info where UserID='" & Trim(Combo1.Text) & "'" & "and Ischeck='未结账'"
  25.   Set mrc = ExecuteSQL(txtSQL, MsgText)
  26.   txtsellcard.Text = mrc.RecordCount
  28.   '退卡数
  29.   txtSQL2 = "select * from CancelCard_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='未结账'"
  30.   Set mrc2 = ExecuteSQL(txtSQL2, Msgtext2)
  31.   txtcancelcard.Text = mrc2.RecordCount   '退卡张数
  32.   txtallsellcard.Text = Val(txtsellcard.Text) - Val(txtcancelcard.Text)    '总售卡张数
  34.   '充值金额
  35.   txtSQL1 = "select sum(addmoney) from ReCharge_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='" & "未结账" & "'"
  36.   Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)
  37.   If mrc1.EOF And mrc1.BOF Then
  38.      a = 0
  39.   Else
  40.      If IsNull(Trim(mrc1.Fields(0))) Then
  41.          a = 0
  42.      Else
  43.          a = mrc1.Fields(0)
  44.      End If
  45.   End If
  46.   txtrecharge.Text = a
  48.   '退卡金额
  49.   txtSQL3 = "select sum(CancelCash) from CancelCard_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='未结账'"
  50.   Set mrc3 = ExecuteSQL(txtSQL3, msgText3)
  52.   If mrc3.BOF And mrc3.EOF Then
  53.      b = 0
  54.   Else
  55.      If IsNull(Trim(mrc3.Fields(0))) Then
  56.         b = 0
  57.      Else
  58.         b = mrc3.Fields(0)
  59.      End If
  60.   End If
  61.  txtcancelcash.Text = b
  63.   '临时收费金额
  64.   txtSQL = "select sum(addmoney) from ReCharge_Info where UserID='" & Trim(Combo1.Text) & "'" & " and type= '临时用户' " & "and status='未结账'"
  65.   Set mrc = ExecuteSQL(txtSQL, MsgText)
  67.   If mrc.BOF And mrc.EOF Then
  68.      c = 0
  69.   Else
  70.      If IsNull(Trim(mrc.Fields(0))) Then
  71.      c = 0
  72.      Else
  73.      c = mrc.Fields(0)
  74.      End If
  75.   End If
  76.  txttmpcash.Text = c
  78.   '应收金额
  79.   txtallcash.Text = a - b
  80. End Select
  82. End Sub

结账：

  1. Private Sub cmdcheck_Click()
  2. Dim txtSQL As String
  3. Dim txtSQL1 As String
  4. Dim srtsql As String
  5. Dim MsgText As String
  6. Dim MsgText1 As String
  7. Dim Msgtext2 As String
  8. Dim mrc As ADODB.Recordset
  9. Dim mrc1 As ADODB.Recordset
  10. Dim rst As ADODB.Recordset
  11. Dim recharge As Long
  12. Dim consume As Long
  13. Dim returncash As Long
  14. Dim profit As Long
  15. Dim cash As Long
  17. '更新学生表
  18. txtSQL = "select * from student_Info where UserID ='" & Combo1.Text & "'" & "and Ischeck='未结账'"
  19. Set mrc = ExecuteSQL(txtSQL, MsgText)
  21. Do While Not mrc.EOF
  22.   mrc!Ischeck = "已结账"
  23.   mrc.MoveNext
  24. Loop
  25. mrc.Close
  27. '更新充值表
  28.  txtSQL1 = "select * from ReCharge_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='未结账'"
  29.  Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)
  31.  Do While Not mrc1.EOF
  32.      mrc1!Status = "已结账"
  33.      mrc1.MoveNext
  34.  Loop
  35.  mrc1.Close
  37.  '更新退卡表
  38.  txtSQL = "select * from CancelCard_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='未结账'"
  39.  Set mrc = ExecuteSQL(txtSQL, MsgText)
  41.  Do While Not mrc.EOF
  42.     mrc!Status = "已结账"
  43.     mrc.MoveNext
  44.  Loop
  45.  mrc.Close
  47.  '消费金额
  48.  txtSQL1 = "select sum(consume)from Line_Info where status = '" & "正常下机" & "'"
  49.  Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)
  51.  If mrc1.BOF And mrc1.EOF Then
  52.         consume = 0  '消费金额
  53.    Else
  54.         If IsNull(Trim(mrc1.Fields(0))) Then
  55.             consume = 0
  56.         Else
  57.             consume = mrc1.Fields(0)
  58.         End If
  59.    End If
  61. '当日退卡金额
  62. txtSQL = "select sum(CancelCash) from CancelCard_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='未结账'"
  63. Set mrc = ExecuteSQL(txtSQL, MsgText)
  65.   If mrc.BOF And mrc.EOF Then
  66.      returncash = 0
  67.   Else
  68.      If IsNull(Trim(mrc.Fields(0))) Then
  69.         returncash = 0
  70.      Else
  71.         returncash = mrc.Fields(0)
  72.      End If
  73.   End If
  75. '当日充值金额
  76. txtSQL1 = "select sum(addmoney) from Recharge_Info where UserID='" & Trim(Combo1.Text) & "'" & "and status='" & "未结账" & "'"
  77. Set mrc1 = ExecuteSQL(txtSQL1, MsgText1)
  78.   If mrc.EOF And mrc.BOF Then
  79.      recharge = 0
  80.   Else
  81.      If IsNull(Trim(mrc.Fields(0))) Then
  82.          recharge = 0
  83.      Else
  84.          recharge = mrc.Fields(0)
  85.      End If
  86.   End If
  88.   profit = Val(recharge - consume - returncash) '本期金额
  89. '  cash=
  92. '更新日结账单
  93.  srtsql = "select * from CheckDay_Info "
  94.  Set rst = ExecuteSQL(srtsql, Msgtext2)
  95.     rst.MoveLast
  96.     cash = rst.Fields(4)
  97.     rst.AddNew
  98.     rst.Fields(0) = cash
  99.     rst.Fields(1) = recharge
  100.     rst.Fields(2) = consume
  101.     rst.Fields(3) = returncash
  102.     rst.Fields(4) = profit
  103.     rst.Fields(5) = Date
  104.     rst.Update
  105.     rst.Close
  106.     MsgBox "结账成功！", vbOKOnly + vbInformation, "恭喜您"
  108. End Sub

其实只要理清关系写的时候就好写了！

发表评论

表情：
评论列表 （有 0 条评论，336人围观）

还没有评论，来说两句吧...

相关阅读

    相关 【机房收费】结账

    前言       感觉机房中最难的一部分就是结账这一部分了，越敲越乱，敲的曲曲折折的，真正弄懂结账这一块是第一次验收之后。结账是整个机房收费系统中除了上下机最核心的地方了

    ゝ一世哀愁。ゝ一世哀愁。/ 0 赞/ 312 阅读

    相关 机房收费系统——结账

        机房收费系统的逻辑性很强。师傅也说了，第一次做机房，首要的是理清思路，明白它的逻辑。     做到结账这里，跟大家分享一下我对结账的一点理解： ![SouthEas

    小鱼儿小鱼儿/ 0 赞/ 366 阅读

    相关 机房收费系统之结账

    事实上，我觉得机房收费系统中结账的部分是耗我精力最多的。首先我就不明白结账是干嘛的，所以一上来就晕乎乎。后来看了一篇博客说结账方便老板管理的才明白了为什么是“操作员”。这里面要

    ╰半橙微兮°╰半橙微兮°/ 0 赞/ 305 阅读

    相关 机房收费系统之结账

           机房收费系统中一个重要的窗体之一就是结账窗体，因为涉及到数据库中的好多表所以刚开始会觉得很难，其实理清思路后按照自己的思路写完后便觉得没有想象中的那么难！好先来看

    偏执的太偏执、偏执的太偏执、/ 0 赞/ 337 阅读

    相关 机房-结账

    开篇：     结账这块感觉也是一个难点，但其实正是这种不好弄的窗体我们才能学到很多，把这块弄完回头看的时候，发现还不是太难，毕竟人总是向前发展的哈！   逻辑过程

    ￡神魔★判官ぃ￡神魔★判官ぃ/ 0 赞/ 323 阅读

    相关 机房收费系统之导出Excel

    机房中很多窗体都有导出Excel这个功能，（像我这种懒人，怎可能每次用到这个功能就敲一遍代码呢）为了方便我们可以把这部分的代码写到模块中，之后每次使用直接调用即可。可重用，减少

    川长思鸟来川长思鸟来/ 0 赞/ 514 阅读