|
5.1系统的功能 1. 卡管理，查询，报表，系统管理 内容来自www.paper51.com
2. 较强的操作性，快捷方便 paper51.com 3. 可设置大金额密码功能 内容来自论文无忧网 www.paper51.com
4. 可按人分部门设置管理限权 内容来自www.paper51.com 5. 可多机联网使用 copyright paper51.com 6. 可24小时全天候运营 http://www.paper51.com 7. 可备份，还原数据 copyright paper51.com 8. 具有日志功能 内容来自论文无忧网 www.paper51.com 5.2 系统的总体结构图 http://www.paper51.com
paper51.com
内容来自www.paper51.com
copyright paper51.com
卡管理 http://www.paper51.com 查 询 copyright paper51.com 报 表 copyright paper51.com 5.3系统所用数据库和表 内容来自www.paper51.com 5.3.1数据库为：Access2000 copyright paper51.com
库名：gly.mdb ykt.mdb copyright paper51.com 5.3.2表名及字段设置 paper51.com gly.mdbà管理员 内容来自论文无忧网 www.paper51.com 表 管理员 内容来自论文无忧网 www.paper51.com 字段名称 内容来自www.paper51.com 管理代码 http://www.paper51.com 管理密码 内容来自论文无忧网 www.paper51.com 管理权限 copyright paper51.com 字段值 http://www.paper51.com 字符 内容来自www.paper51.com 字符 http://www.paper51.com 字符 内容来自论文无忧网 www.paper51.com ykt.mdb paper51.com
字段名称 内容来自论文无忧网 www.paper51.com 字段值 内容来自论文无忧网 www.paper51.com 卡号 内容来自论文无忧网 www.paper51.com 字符 内容来自www.paper51.com
学号 paper51.com
字符 copyright paper51.com
系别 内容来自论文无忧网 www.paper51.com 字符 http://www.paper51.com 班级 copyright paper51.com
字符 http://www.paper51.com 姓名 paper51.com 字符 http://www.paper51.com 金额 内容来自论文无忧网 www.paper51.com 字符 内容来自www.paper51.com 身份 http://www.paper51.com
字符 http://www.paper51.com
标记 copyright paper51.com 字符 copyright paper51.com 日期 内容来自论文无忧网 www.paper51.com 字符 copyright paper51.com 补办标记 内容来自论文无忧网 www.paper51.com 字符 内容来自www.paper51.com 字段名称 paper51.com 字段值 paper51.com 卡号 http://www.paper51.com 字符 内容来自www.paper51.com
消费金额 http://www.paper51.com 字符 内容来自论文无忧网 www.paper51.com 日期 内容来自论文无忧网 www.paper51.com 字符 内容来自论文无忧网 www.paper51.com 预付金额 paper51.com 字符 内容来自www.paper51.com
6.各模块的详细介绍 paper51.com 6.1登录模块 paper51.com 6.1.1 设计思想 http://www.paper51.com 运用操作员代码和操作员口令进行系统的初步登录，并根据相应的操作代码分配相应的管理权限。 paper51.com 6.1.2 模块功能 http://www.paper51.com 进行系统的登录时，用户和密码都将以“*”显示，这样可以为系统提高一定的安全性，系统还具体管理权限的分配。 内容来自论文无忧网 www.paper51.com 6.1.3 相关代码 http://www.paper51.com 系统登录相关代码： copyright paper51.com Data1.RecordSource= "select * from 管理员 " paper51.com
Data1.Refresh copyright paper51.com
Data1.Recordset.FindFirst "管理代码= '" &(Text1.Text) & "'" 内容来自www.paper51.com If Data1.Recordset.NoMatch Then copyright paper51.com If TIM = 3 Then paper51.com
MsgBox"密码输入错误,请向系统管理员查询!", 0, "系统管理" 内容来自论文无忧网 www.paper51.com End If copyright paper51.com If Text1.Text ="" Then paper51.com MsgBox "请输入操作员代号!", , "系统管理" http://www.paper51.com Text1.SetFocus 内容来自www.paper51.com End If copyright paper51.com
If Text2.Text <>Data1.Recordset.Fields("管理密码") Then http://www.paper51.com MsgBox "密码错误,请重新输入密码!", , "系统管理" 内容来自论文无忧网 www.paper51.com copyright paper51.com 6.1.4 模块流程 内容来自论文无忧网 www.paper51.com
内容来自论文无忧网 www.paper51.com
开始 内容来自论文无忧网 www.paper51.com
copyright paper51.com
内容来自论文无忧网 www.paper51.com 输入用户名和密码 copyright paper51.com 内容来自www.paper51.com
paper51.com N paper51.com
copyright paper51.com Y copyright paper51.com
内容来自论文无忧网 www.paper51.com 分配权限 copyright paper51.com
http://www.paper51.com
内容来自www.paper51.com 是合法用户 paper51.com
进入主界面 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com copyright paper51.com
http://www.paper51.com copyright paper51.com 结 束 paper51.com
http://www.paper51.com 6.2卡管理模块 内容来自论文无忧网 www.paper51.com 6.2.1 设计思想 内容来自论文无忧网 www.paper51.com
运用VB中的Data数据控件对数据库进行增加，修改，删除等操作。在这些操作中，为了让一些卡管理功能能具别清楚，把新卡，补办卡，挂失卡与撤消挂失，卡回收分别做了相应的标记，如：新卡标记为“１”，补办卡标记为“０”，身份，教工用“－１”，学生卡用“１”，其它用“０”以便查询和身份的具别。在对挂失卡的处理，只要此卡号处于挂失状态，在消费，预付金额，卡回收时都有限制。在对此模块中的操作都是先经过数据库中的查询命来实现，并进行相应的操作。 copyright paper51.com 6.2.2 模块功能 copyright paper51.com 模块功能：预付金额，发行新卡，补办卡，挂失与撤消挂失，卡回收等。 内容来自论文无忧网 www.paper51.com
6.2.3 相关代码 http://www.paper51.com
Data1.DatabaseName= App.Path & "\ykt.mdb" ’自动搜索数据源 copyright paper51.com
发行新卡： If Data1.Recordset.NoMatch Then’判断此卡号是否在库中存在 内容来自论文无忧网 www.paper51.com MsgBox "此卡号已存在!", , "卡管理" 内容来自www.paper51.com Else copyright paper51.com
Data1.Recordset.Fields("标记")= 1’新卡标记 http://www.paper51.com
Data1.Recordset.Update’发行新卡 http://www.paper51.com 预付金额： Data1.Recordset.Edit paper51.com Data1.Recordset.Fields("金额") = Text4.Text’预付金额 内容来自论文无忧网 www.paper51.com Data1.Recordset.Update copyright paper51.com 挂失与解挂： Data1.Recordset.Fields("标记") = -1’挂失标记 内容来自论文无忧网 www.paper51.com Data2.Recordset.Fields("标记")= 1’解挂标记 paper51.com 补办与回收： Adodc1.Recordset.Delete’回收卡 copyright paper51.com |