机房收费系统之上下机及结账

最新推荐文章于 2019-10-19 21:07:51 发布

wangdan1030

最新推荐文章于 2019-10-19 21:07:51 发布

阅读量1.6k

点赞数 1

本文链接：https://blog.csdn.net/wangdan1030/article/details/16361511

版权

在做机房收费系统的时候我遇到的最大的困难就是结账这一部分了。下面来看看我做完之后的收获吧：

首先是主界面：

这里大家可以看到最基础的结账界面，仅仅是上下机来对消费进行结账，首先我们来看看我上机的时候遇到的问题：

上机的时候，我遇到的首要的问题是：点击上机按钮后数据库引起的相应的变化，就是在相应的表中填充上相应的信息，，也就是说，在我的数据库的上机的表中添加该学生上机，在这里添加信息的时候我有的字段没有添加信息，所以导致总是无法实现，出现以下错误

解决方法是：在VB中刷新数据库的数据操作中，只要把相应的字段填完整即可。

下面我们来看看下机的问题，在这里就涉及到了三方面的操作：

1.对数据库的调用

2.运算问题（下机结账问题）

3.对数据数据的更新与保存。在这里我的计算时间错了很多次，现在看看我的代码：

Text8.Text = Date

Text11.Text = Time

Timeendvar = Format(Time, "hh:mm:ss")

Timebeginvar = Format(Text10.Text, "hh:mm:ss")

a = Val(DateDiff("n", Timebeginvar, Timeendvar)) '求出所用的时间

在这里我首先是把学生上机的时间计算出来，计算时间的时候我用的函数是 DateDiff，在这里要注意计算的时间是按照什么来度量的，是分钟还是秒，所以，这里关于函数后面的单位要弄清楚，不然算出来很容易就是错误的。下面我们来计算消费金额，这里的消费金额是按照我们之前设定的数据来计算的，但是这里有一个问题，消费的时间不一定是完整的时间段，所以，这里我们就需要来确定时间段的个数：

UnitNumber = a Mod UnitTime

If UnitNumber = 0 Then

UnitNumber = Int(a / Val(UnitTime)) '求时间段的个数

Else

UnitNumber = Int(a / Val(UnitTime)) + 1

End If

通过MOD函数来确定除完之后是否有余数，有余数就是个数加1，如果余数为0 ，那么个数不变。

算完时间段数，我们接下来算消费金额：单位时间价格*时间段数

此外这里还要考虑一般用户和固定用户的差异，固定用户就相当于会员，，所以消费金额要分开算，算完之后还要完成数据库的更新

If Text4.Text = "一般用户" Then                            '当为一般用户，算法

        Usemoney = Val(b) * UnitNumber

        Remained = d - Usemoney

        Text12.Text = a

        Text13.Text = Format(Usemoney)

        Text9.Text = Format(Remained)

        txtSQL = "select * from Line_Info"

        Set mrc2 = ExecuteSQL(txtSQL, MsgText)

        mrc2.AddNew

        mrc2.Fields(1) = Trim(txtCardno.Text)

        mrc2.Fields(2) = Trim(Text2.Text)

        mrc2.Fields(3) = Trim(Text5.Text)

        mrc2.Fields(4) = Trim(Text3.Text)

        mrc2.Fields(5) = Trim(Text6.Text)

        mrc2.Fields(6) = Trim(Text7.Text)

        mrc2.Fields(7) = Trim(Text10.Text)

        mrc2.Fields(8) = Trim(Text8.Text)

        mrc2.Fields(9) = Trim(Text11.Text)

        mrc2.Fields(10) = Trim(Text12.Text)

        mrc2.Fields(11) = Trim(Text13.Text)

        mrc2.Fields(12) = Trim(Text9.Text)

        mrc2.Fields(13) = "正常下机"

        mrc2.Fields(14) = Trim(Text1.Text)