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.1.4 模块流程
6.2卡管理模块
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 卡模块分类
卡管理模块包括:预付金额、卡消费、发行新卡、补办卡、回收卡和挂失/撤消挂失。
付金额
预付金额是对卡进行充值的，只要所充的值一定要大于零。不能对负值和零充值。如果输入的值小于等于零，系统提示：不能充负值。
卡消费
卡消费是消费者在各部门消费的金额数，如：餐厅、机房、图书馆、洗浴和超市。卡消费是卡管理的主要功能。消费者消费多少金额，系统将自动从中扣除多少金额。
发行新卡
发行新卡这一部分是必然的，每一年都有新生到这个学校，当然也要办新卡。根
据对话框输入相对于自己的个人信息，然后将存入数据库中。
补办卡
补办卡是必须要此卡处于挂失状态下才能补办卡。如果并没有处于挂失状态下就不能被补办，系统将自动提醒用户。也就是说一个用户只能拥有一张卡。
5. 回收卡
有发行新卡当然也就有回收卡，回收卡就是相对于文档生来说，人文档了，卡就得回收,回收的卡将从数据库里清除所以有关信息。
挂失/撤消挂失
挂失/撤消挂失也是一项必不可少的一项，当然有挂失就有撤消挂失。如果此卡
已被挂失，那么此卡将处于冰冻状态（不能被消费）。撤消挂失就是将处于冰冻状态的卡化解。
6.3 查询模块
6.3.1 设计思想
利用VB中的Data数据库控件和ADO数据控件Adodc数据控件并结合SQL相关数
据操作命令,进行数据查询。通过Data Grid网格表格显示。
6.3.2 模块功能
具体实现数据查询，对办卡、补办、挂失与解挂，卡的身份进行查询，很客观的
把数据库中的内容体现出来。可以按时间来查询各项内容的使用情况。可以查询操作员的信息。按网点查询用户消费情况，查询用户使用情况。
6.3.3 模块流程
6.3.4 信息查询分类
卡信息查询：可以查询新卡、补卡、挂失卡、教工卡以及学生卡等有关详细
资料。
操作员信息查询：查询操作员的基本信息和操作员日志。
用户消费查询：根据用户输入的姓名、学号以及系别可以查询用户在食堂、机房、浴室、超市以及图书馆消费的金额。
按日期查询消费情况：根据日期一个日期范围，查询该日期范围中消费情况。
按网点查询用户消费情况
6.4报表模块
6.4.1 设计思想
运用VB中的Data Environment数据环境设计器与ODBC数据源，再加上Data Report的运用。实现报表的处理，把卡的信息，管理