还记得，从八月一日开始做机房收费系统，到今天已经是八月十二号了。期间，碰到了很多困难，有时候，就想这个机房收费系统能成功吗？解决了一个问题，另一个问题又接踵而至了，心里同样很清楚，下面还有好多好多问题。于是乎，根本不敢想后面的路。
前三天吧，开始了主界面上下机代码的编写。一个主界面，包含了15个文本框要填，可想而知，这真的是一个庞大的工程。
在开始动工之前，自己还是分析了整个流程，不然混乱的自己，早晚会被带沟里去的。
首先是上机：
在这一流程中，要注意的是，在LineRecord表中不可出现相同的卡号的记录，否则无法进行准确判断是否正在上机。
下面是下机：
两者加之一起，就把卡号上下机操作搞定了。在此界面上，还有三个需要通过计算才可以得到的：上机人数、消费时间和消费金额。
这个过程真的花费了我好长的时间，一遍遍理思路，掉沟里好几次，最后终于上岸了。
（1）消费人数的计算，两种方法。通过查找“正在上机”的字段的个数。
一是可以利用循环查找。把此记录集中所有记录都遍历一遍，最后得出个数。
<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong>'利用循环计算人数
strTxtSQL = "select * from tb_linerecord where status = '正在上机' "
Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
Sum = 0
Do While Not mrc.EOF
Sum = Sum + 1
mrc.MoveNext
Loop
txtNowCount.Text = Sum</strong></span>
二是利用SQL语句，直接在数据库中计算，再将其值返回到VB中。
<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong> '计算上机人数，利用SQL语句
strTxtSQL = "select count(status) as count from tb_lineRecord where status = '正在上机' "
Set mrc = ExecuteSQL(strTxtSQL, strMsgText)
Sum = mrc("count").Value
txtNowCount.Text = Sum</strong></span>
这里用到的是select Count语句，既然碰到了，不妨多了解了解吧。
（2）消费时间的计算
首先列出三个时间：
T1=准备时间（Basic Data表）中
T2=总消费时间（从上机命令生效开始计时）
T3=实际消费时间（T2-T1）
这里用到了DateDiff（时间间隔函数），特别方便。
<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong> 'CDate()转换为日期函数
'实际消费时间=总消费时间-准备时间
txtConsumeTime.Text = DateDiff("n", CDate(txtOnLineDate.Text), CDate(txtLineDate.Text))
txtConsumeTime.Text = txtConsumeTime.Text + DateDiff("n", CDate(txtOnLineTime.Text), CDate(txtLineTime.Text))
txtConsumeTime.Text = txtConsumeTime.Text - vntpreparedtime</strong></span>
（3）计算消费金额
<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong> '在准备时间段内，可自由下机
'判断消费时间是否大于准备时间
If Trim(txtConsumeTime.Text) < 0 Then '消费时间少于准备时间，消费时间为0
txtConsumeTime.Text = 0
txtConsumeMoney.Text = 0
MsgBox "已成功下机，消费时间为0！", vbOKOnly + vbExclamation, "下机提示"
Else
'判断消费时间是否大于最低消费时间
If Trim(txtConsumeTime.Text) < vntlimitedtime Then
txtConsumeTime.Text = txtConsumeTime.Text '消费时间小于最低消费时间，消费金额为最低消费金额
txtConsumeMoney.Text = vntlimitedmoney
Else
'消费时间大于最低消费时间，则根据用户类型，计算消费金额</strong></span>
<span style="font-family:KaiTi_GB2312;font-size:24px;"><strong><span style="white-space:pre"> </span> 'Round()为四舍五入函数
If Trim(txtUserType.Text) = "固定用户" Then
txtConsumeMoney.Text = Round(txtConsumeTime.Text / Addtime * fixedusercost) + fixedusercost
Else
txtConsumeMoney.Text = Round(txtConsumeTime.Text / Addtime * casualusercost) + casualusercost
End If
End If
End If</strong></span>
后两者的计算是分不开的，所以必须很清楚的知道它们间的关系。有个流程图，自己才没有被弄得那么混。
最后的最后，我终于把主界面的所有文本框都搞定了。
这个过程中，一次次跌倒，一次次头晕，可是，自己强大的内心还是战胜了所有的敌人，没有什么不可以。其实正确地应该是不需要去想后面的路，只要走好脚下的路，一步一步，就一定可以。路，还在自己脚下。
