机房收费系统，从最初的迷茫到现在的明朗，这一路，总算是到站了。
看到完工后的系统，自己都惊呆了。总共有27个窗体，一个模块，代码的多少可想而知，那么多那么多，都是自己敲上去的，和学生信息管理系统相比，真的算得上是一次飞跃了吧。前前后后，历时二十多天，不管是技术上还是思想上，自己的收获很大。
从头到尾，自己都是尽心尽力，从新建数据库到新建各个表，从各个窗体设计到各个窗体代码，一个也不容小觑。
先从自己的数据库说起：一共九张表，这个过程很漫长，不是一开始就照着原来的模板建，而是在敲代码的过程中，用到一个新建一个。
1.新建数据库
<span style="font-family:KaiTi_GB2312;font-size:18px;">USE master Go create database ChargeSystem on primary /*创建一个名为ChargeSystem的数据库*/ (name='ChargeSystem_data',/*主数据文件逻辑名称为ChargeSystem_data*/ filename='D:\Program Files\SQL\MSSQL10.MSSQLSERVER\MSSQL\DATA\ChargeSystem.mdf',/*物理文件名为ChargeSystem.mdf*/ size=10,/*初始大小为10MB*/ maxsize=unlimited,/*最大尺寸为无限大*/ filegrowth=1024KB) /*增长速度为1MB*/ log on (name=ChargeSystem_log,/*数据库日志文件逻辑名称为ChargeSystem_Log*/ filename='D:\Program Files\SQL\MSSQL10.MSSQLSERVER\MSSQL\DATA\ChargeSystem.ldf',/*物理文件名为ChargeSystem.ldf*/ size=1,/*初始大小为1MB*/ maxsize=unlimited,/*最大尺寸为无限大*/ filegrowth=1024KB ) /*增长速度为1MB*/ Go </span>2.新建表（以基本数据设定和结账表为例）
<span style="font-family:KaiTi_GB2312;font-size:18px;">Use ChargeSystem create table tb_Check /*创建结账表*/ (LastBalance int not null,/*上期余额*/ RechargeSum int not null,/*充值金额*/ ConsumeSum int not null,/*消费金额*/ ReturnSum int not null,/*退卡金额*/ NowSum int not null,/*金额*/ Date date not null); /*日期*/ Create table tb_BasicData /*创建基本数据表*/ (FixedUserCost float Not null,/*固定用户每小时费用*/ CasualUserCost float Not null,/*临时用户每小时费用*/ AddTime int Not null,/*递增时间*/ LimitedOnlineTime int Not null,/*最低上机时间*/ PreparedTime int Not null,/*准备时间*/ LimitedCost float Not null,/*最低金额*/ Date date not null,/*日期*/ Time char(20) not null); /*时间*/</span>
数据库这方面也就这么多内容了。下面总结一下验收后技术方面的一些收获和修改。
1.数据类型。在查询某个条件的内容时，才发现的这个问题。可能大多数人的卡号设计的类型都是INT整数型，可实际上，如果刷卡的话，卡号应该是字符串类型的。这样，将卡号写入数据库时，前面的00就会自动省去，就会造成怎么也查不到符合条件的结果。所以，卡号实际上应该设为字符串型，而一般的金额、学号等字段可以设为整型数。这样，在查询时，同为字符串型的，从两者的Ascii码的大小比较；同为数值型的，就从数值的大小比较了。小小的数据类型，也是非常重要的细节，真的决定成败呢。
2.删除数据。这个系统大部分查询到的数据结果都是显示在MSFLEXGRID控件中，而正常情况下，我们只能一行一行删除其中的数据，这样就有些不合实际了。所以，必须加以修改。系统中在选中学生下机和删除用户中涉及这一部分，下面以选中学生下机为例。
首先，我们需要实现可以选中多行数据，这里通过改变其背景色来区分选中与没选中。
<span style="font-family:KaiTi_GB2312;font-size:18px;">Private Sub MSFlexInquireResult_MouseDown(Button As Integer,Shift As Integer,x As Single,y As Single)
If MSFlexInquireResult.CellBackColor = &H80C0FF Then
For i_col = 0 To MSFlexInquireResult.Cols - 1
MSFlexInquireResult.Col = i_col
MSFlexInquireResult.CellBackColor = vbWhite
Next i_col
Else
For i_col = 0 To MSFlexInquireResult.Cols - 1
MSFlexInquireResult.Col = i_col
MSFlexInquireResult.CellBackColor = &H80C0FF
Next i_col
End If
End Sub</span>
然后，我加了一个更加清楚的标示符来区别两者的数据，选中的数据后画个勾，我们要删除的就是画了勾的数据。
<span style="font-family:KaiTi_GB2312;font-size:18px;">MSFlexInquireResult.TextMatrix(MSFlexInquireResult.Row,5) = "√"</span>最后，需要做的是将选中的数据一一删除。为了实现这一功能，从第一行删到最后一行，肯定报错“下标越界”；所以，我们可以从最后一行开始检查直到第一行数据。
<span style="font-family:KaiTi_GB2312;font-size:18px;"><span style="white-space:pre"></span><pre name="code" class="vb">'获取数据的总行数 rowsum = MSFlexInquireResult.Row '从最后一行开始循环 For i = rowsum To 1 Step -1 '判断是否有标示符 If MSFlexInquireResult.TextMatrix(i,5) = "√" Then '有，将此行移除 MSFlexInquireResult.RemoveItem i End If Next i</span>
3.数据同步。系统中一共涉及三个下机方式：主界面的正常下机；所有学生下机；选中学生下机。所谓同步，就是在正常下机后，在事先已打开的显示全部的数据中，选中该卡号应该提示“该卡号已下机，不可重复下机！”也就是说再选中学生下机之前首先应判断该卡号是否已经下机。
这是在主界面下机后看到的提示，现在在显示全部中该卡号：112仍在上机，这就是数据信息不同步了。我们还做不到那边下这边也就直接移除，所以只有在移除前判断。
<span style="font-family:KaiTi_GB2312;font-size:18px;">'判断该号是否已正常下机或强制下机
strTxtSQL = "select * from tb_linerecord where UserID = '" & MSFlexInquireResult.TextMatrix(MSFlexInquireResult.RowSel,0) & "'"
Set mrc = ExecuteSQL(strTxtSQL,strMsgText)
Status = Trim(mrc.Fields(13))
If Trim(mrc.Fields(13)) = "正常下机" Or Trim(mrc.Fields(13)) = "强制下机" Then
MsgBox "该卡号已下机，不可重复下机！",vbOKOnly + vbExclamation,"下机提示"
MSFlexInquireResult.RemoveItem MSFlexInquireResult.RowSel
mrc.Close
Exit Sub
End If</span>
以上三点就是在验收后的修改，也许技术上没什么大的挑战，但都是很重要的细节，不注重细节，一定又是会遇到黄条条的。 版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。