【编者按】：网学网VB类作品为您提供基于VB的校园一卡通系统的设计参考，解决您在基于VB的校园一卡通系统的设计学习中工作中的难题，参考学习。
6.各模块的详细介绍 6.1登录模块 6.1.1 设计思想 运用操作员代码和操作员口令进行系统的初步登录，并根据相应的操作代码分配相应的管理权限。 6.1.2 模块功能 进行系统的登录时，用户和密码都将以“*”显示，这样可以为系统提高一定的安全性，系统还具体管理权限的分配。 6.1.3 相关代码 系统登录相关代码： Data1.RecordSource = "select * from 管理员 " Data1.Refresh Data1.Recordset.FindFirst "管理代码= ''" & (Text1.Text) & "''" If Data1.Recordset.NoMatch Then If TIM = 3 Then MsgBox "密码输入错误,请向系统管理员查询!", 0, "系统管理" End If If Text1.Text = "" Then MsgBox "请输入操作员代号!", , "系统管理" Text1.SetFocus End If If Text2.Text <> Data1.Recordset.Fields("管理密码") Then MsgBox "密码错误,请重新输入密码!", , "系统管理" 6.2.1 设计思想 运用VB中的Data数据控件对数据库进行增加，修改，删除等操作。在这些操作中，为了让一些卡管理功能能具别清楚，把新卡，补办卡，挂失卡与撤消挂失，卡回收分别做了相应的标记，如：新卡标记为“１”，补办卡标记为“０”，身份，教工用“－１”，学生卡用“１”，其它用“０”以便查询和身份的具别。在对挂失卡的处理，只要此卡号处于挂失状态，在消费，预付金额，卡回收时都有限制。在对此模块中的操作都是先经过数据库中的查询命来实现，并进行相应的操作。 6.2.2 模块功能 模块功能：预付金额，发行新卡，补办卡，挂失与撤消挂失，卡回收等。 6.2.3 相关代码 Data1.DatabaseName = App.Path & "\ykt.mdb" ’自动搜索数据源 发行新卡： If Data1.Recordset.NoMatch Then’判断此卡号是否在库中存在 MsgBox "此卡号已存在!", , "卡管理" Else Data1.Recordset.Fields("标记") = 1’新卡标记 Data1.Recordset.Update’发行新卡 预付金额： Data1.Recordset.Edit Data1.Recordset.Fields("金额") = Text4.Text’预付金额 Data1.Recordset.Update 挂失与解挂： Data1.Recordset.Fields("标记") = -1’挂失标记 Data2.Recordset.Fields("标记") = 1’解挂标记 补办与回收： Adodc1.Recordset.Delete’回收卡 6.2.4 模块流程
6.2.5 卡模块分类 卡管理模块包括:预付金额、卡消费、发行新卡、补办卡、回收卡和挂失/撤消挂失。 1. 付金额 预付金额是对卡进行充值的，只要所充的值一定要大于零。不能对负值和零充值。如果输入的值小于等于零，系统提示：不能充负值。 2. 卡消费 卡消费是消费者在各部门消费的金额数，如：餐厅、机房、图书馆、洗浴和超市。卡消费是卡管理的主要功能。消费者消费多少金额，系统将自动从中扣除多少金额。 3. 发行新卡 发行新卡这一部分是必然的，每一年都有新生到这个学校，当然也要办新卡。根 据对话框输入相对于自己的个人信息，然后将存入数据库中。 4. 补办卡 补办卡是必须要此卡处于挂失状态下才能补办卡。如果并没有处于挂失状态下就不能被补办，系统将自动提醒用户。也就是说一个用户只能拥有一张卡。 5. 回收卡 有发行新卡当然也就有回收卡，回收卡就是相对于毕业生来说，人毕业了，卡就得回收,回收的卡将从数据库里清除所以有关信息。 4. 挂失/撤消挂失 挂失/撤消挂失也是一项必不可少的一项，当然有挂失就有撤消挂失。如果此卡 已被挂失，那么此卡将处于冰冻状态（不能被消费）。撤消挂失就是将处于冰冻状态的卡化解。
| ||||||
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT | ||||||
本文选自计算机毕业设计http://myeducs.cn
|
