机房收费系统，从最初的迷茫到现在的明朗，这一路，总算是到站了。

看到完工后的系统，自己都惊呆了。总共有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>

以上三点就是在验收后的修改，也许技术上没什么大的挑战，但都是很重要的细节，不注重细节，一定又是会遇到黄条条的。