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

概述还记得，从八月一日开始做机房收费系统，到今天已经是八月十二号了。期间，碰到了很多困难，有时候，就想这个机房收费系统能成功吗？解决了一个问题，另一个问题又接踵而至了，心里同样很清楚，下面还有好多好多问题。于是乎，根本不敢想后面的路。 前三天吧，开始了主界面上下机代码的编写。一个主界面，包含了15个文本框要填，可想而知，这真的是一个庞大的工程。 在开始动工之前，自己还是分析了整个流程，不然混乱的自己，

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

前三天吧，开始了主界面上下机代码的编写。一个主界面，包含了15个文本框要填，可想而知，这真的是一个庞大的工程。

在开始动工之前，自己还是分析了整个流程，不然混乱的自己，早晚会被带沟里去的。

首先是上机：

在这一流程中，要注意的是，在lineRecord表中不可出现相同的卡号的记录，否则无法进行准确判断是否正在上机。

下面是下机：

两者加之一起，就把卡号上下机 *** 作搞定了。在此界面上，还有三个需要通过计算才可以得到的：上机人数、消费时间和消费金额。

这个过程真的花费了我好长的时间，一遍遍理思路，掉沟里好几次，最后终于上岸了。

（1）消费人数的计算，两种方法。通过查找“正在上机”的字段的个数。

一是可以利用循环查找。把此记录集中所有记录都遍历一遍，最后得出个数。

<span ><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 ><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 ><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 ><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 ><strong><span >	</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>

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

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

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

总结

以上是内存溢出为你收集整理的机房收费系统之上机、下机全部内容，希望文章能够帮你解决机房收费系统之上机、下机所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。