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

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

<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>