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

前端之家收集整理的这篇文章主要介绍了机房收费系统之上机、下机前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

前三天吧,开始了主界面上下机代码的编写。一个主界面,包含了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.f2er.com/vb/257863.html

猜你在找的VB相关文章