机房收费系统之技术总结

概述机房收费系统，从最初的迷茫到现在的明朗，这一路，总算是到站了。 看到完工后的系统，自己都惊呆了。总共有27个窗体，一个模块，代码的多少可想而知，那么多那么多，都是自己敲上去的，和学生信息管理系统相比，真的算得上是一次飞跃了吧。前前后后，历时二十多天，不管是技术上还是思想上，自己的收获很大。 从头到尾，自己都是尽心尽力，从新建数据库到新建各个表，从各个窗体设计到各个窗体代码，一个也不容小觑。 先从自

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

看到完工后的系统，自己都惊呆了。总共有27个窗体，一个模块，代码的多少可想而知，那么多那么多，都是自己敲上去的，和学生信息管理系统相比，真的算得上是一次飞跃了吧。前前后后，历时二十多天，不管是技术上还是思想上，自己的收获很大。

从头到尾，自己都是尽心尽力，从新建数据库到新建各个表，从各个窗体设计到各个窗体代码，一个也不容小觑。

先从自己的数据库说起：一共九张表，这个过程很漫长，不是一开始就照着原来的模板建，而是在敲代码的过程中，用到一个新建一个。

1.新建数据库

<span >USE masterGocreate 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 >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,/*准备时间*/limite@R_301_6399@t float Not null,/*最低金额*/Date date not null,/*日期*/Time char(20) not null);               /*时间*/</span>

数据库这方面也就这么多内容了。下面总结一下验收后技术方面的一些收获和修改。

1.数据类型。在查询某个条件的内容时，才发现的这个问题。可能大多数人的卡号设计的类型都是INT整数型，可实际上，如果刷卡的话，卡号应该是字符串类型的。这样，将卡号写入数据库时，前面的00就会自动省去，就会造成怎么也查不到符合条件的结果。所以，卡号实际上应该设为字符串型，而一般的金额、学号等字段可以设为整型数。这样，在查询时，同为字符串型的，从两者的Ascii码的大小比较；同为数值型的，就从数值的大小比较了。小小的数据类型，也是非常重要的细节，真的决定成败呢。

2.删除数据。这个系统大部分查询到的数据结果都是显示在MSFLEXGRID控件中，而正常情况下，我们只能一行一行删除其中的数据，这样就有些不合实际了。所以，必须加以修改。系统中在选中学生下机和删除用户中涉及这一部分，下面以选中学生下机为例。

首先，我们需要实现可以选中多行数据，这里通过改变其背景色来区分选中与没选中。

<span >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 IfEnd Sub</span>

然后，我加了一个更加清楚的标示符来区别两者的数据，选中的数据后画个勾，我们要删除的就是画了勾的数据。

<span >MSFlexInquireResult.TextMatrix(MSFlexInquireResult.Row,5) = "√"</span>

最后，需要做的是将选中的数据一一删除。为了实现这一功能，从第一行删到最后一行，肯定报错“下标越界”；所以，我们可以从最后一行开始检查直到第一行数据。

<span ><span ></span><pre name="code" >'获取数据的总行数rowsum = MSFlexInquireResult.Row'从最后一行开始循环For i = rowsum To 1 Step -1'判断是否有标示符	If MSFlexInquireResult.TextMatrix(i,5) = "√" Then'有，将此行移除	   MSFlexInquireResult.RemoveItem i	End IfNext i</span>

3.数据同步。系统中一共涉及三个下机方式：主界面的正常下机；所有学生下机；选中学生下机。所谓同步，就是在正常下机后，在事先已打开的显示全部的数据中，选中该卡号应该提示“该卡号已下机，不可重复下机！”也就是说再选中学生下机之前首先应判断该卡号是否已经下机。

这是在主界面下机后看到的提示，现在在显示全部中该卡号：112仍在上机，这就是数据信息不同步了。我们还做不到那边下这边也就直接移除，所以只有在移除前判断。

<span >'判断该号是否已正常下机或强制下机    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>

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

以上是内存溢出为你收集整理的机房收费系统之技术总结全部内容，希望文章能够帮你解决机房收费系统之技术总结所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。