机房收费系统之上机、下机

还记得，从八月一日开始做机房收费系统，到今天已经是八月十二号了。期间，碰到了很多困难，有时候，就想这个机房收费系统能成功吗？解决了一个问题，另一个问题又接踵而至了，心里同样很清楚，下面还有好多好多问题。于是乎，根本不敢想后面的路。

前三天吧，开始了主界面上下机代码的编写。一个主界面，包含了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>

后两者的计算是分不开的，所以必须很清楚的知道它们间的关系。有个流程图，自己才没有被弄得那么混。

最后的最后，我终于把主界面的所有文本框都搞定了。

这个过程中，一次次跌倒，一次次头晕，可是，自己强大的内心还是战胜了所有的敌人，没有什么不可以。其实正确地应该是不需要去想后面的路，只要走好脚下的路，一步一步，就一定可以。路，还在自己脚下。

原文地址：https://www.jb51.cc/vb/257863.html

机房收费系统之上机、下机

相关推荐