机房收费--结账

  前言：详细介绍各个地方的逻辑书写，流程图以及重要代码。

逻辑说明：

1. 结果图：
   

2. from设置
   1）. 定义窗口大小
   2）加载cbo中的所有相关人员
   3）设置加载时候MSF的标题

3. cbo控件书写
   1）显示名字
   2）调用过程

4. 结账修改记录
   1）将学生、充值、退卡都换成已结账
   2）清空文本框

5. 过程
   1）结算所有价钱和记录放到MSF 中去
   2）汇总到结账的页面的总表中

6. 每个控件设定限制符
   1）设定ASCII码

7. 日结账单

8. 周结账单

重要代码运用：

1. 显示姓名

    If cboUserID.Text = "" Then
        Text1.Text = ""
    Else
        txtSQL = "select * from user_info where userID='" & cboUserID.Text & "'"
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        Text1.Text = Trim(mrc.Fields(3) & "")
        mrc.Close
    End If

---

1. 修改表中的SQL语句：
   ‘调用未结账并且管理员是相同的

txtSQL = "select * from student_info where Ischeck='未结账' and UserID='" & cboUserID.Text & "'"
      Set mrcSD = ExecuteSQL(txtSQL, MsgText)

---

1. While循环

While mrcSD.EOF = False
            mrcSD.Fields(11) = "已结账"
            mrcSD.Update
            mrcSD.MoveNext
        Wend

---

1. cbo中显示所有的相关人员：

    txtSQL = "select * from user_info where level='操作员'"
    Set mrc = ExecuteSQL(txtSQL, MsgText)

    Do While Not mrc.EOF
        cboUserID.AddItem Trim(mrc.Fields(0))
        mrc.MoveNext
        N = N + 1
    Loop

---

1. 初始化表格：

     With MSFGK
        .Rows = 1    '表示在第一行就显示信息
        .CellAlignment = 4 '居中
        .TextMatrix(0, 0) = "学号" 'studentid
        .TextMatrix(0, 1) = "卡号" 'cardid
        .TextMatrix(0, 2) = "日期" 'date
        .TextMatrix(0, 3) = "时间" 'time
        .TextMatrix(0, 4) = "金额" 'cash

    End With

---

1. 调用SQL未结账：

txtSQL = "select studentNo,cardno,date,time,cash from student_Info where Ischeck= '未结账' and UserID= '" & cboUserID.Text & "'"

    Set mrcSD = ExecuteSQL(txtSQL, MsgText)

  则：mrc.fields(0)=studentno

---

小结

  这个结账的目的是计算说消费账单，以及将信息更新到数据表以及报表中去，算是整个计算的结尾，它是综合运用了调用计算和报表的结合，所以说整个结账还可以，但是知识点比较多。