机房收费系统之技术总结-阿里云开发者社区

开发者社区> 数据库> 正文
登录阅读全文

机房收费系统之技术总结

简介:

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

看到完工后的系统,自己都惊呆了。总共有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>
以上三点就是在验收后的修改,也许技术上没什么大的挑战,但都是很重要的细节,不注重细节,一定又是会遇到黄条条的。








版权声明:本文内容由阿里云实名注册用户自发贡献,版权归原作者所有,阿里云开发者社区不拥有其著作权,亦不承担相应法律责任。具体规则请查看《阿里云开发者社区用户服务协议》和《阿里云开发者社区知识产权保护指引》。如果您发现本社区中有涉嫌抄袭的内容,填写侵权投诉表单进行举报,一经查实,本社区将立刻删除涉嫌侵权内容。

分享: