教案用户登录与权限管理.doc

《教案用户登录与权限管理.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、用户登录与权限管理步骤1：首先创建三个表1、用户管理表：用户ID（文本、4、不为空）、用户名（文本、10、不为空）、密码（文本、7、不为空）2、窗体表：窗体ID（数字、整型、不为空）、窗体名称（文本、30、不为空）3、权限表：用户ID（文本、4、不为空）、窗体ID（数字、整型、不为空）、权限（是/否、整型、不为空，默认值为False）步骤2：在关系中增加3个表。步骤3：创建用户登录界面：添加图片。三个文本框，标签与文本框名为用户ID、用户名、密码。锁定用户名文本框控件密码的输入掩码属性为“密码”。添加三个命令按钮，名字分别为：“用户登录”、“取消登录”、“用户注册

2、”。在“用户ID”中输入值后，在鼠标离开之前系统要先判断值是否合法（长度是否为4）。在“用户ID”文本框的“更新前”事件中添加下列代码：PrivateSub用户ID_BeforeUpdate(CancelAsInteger)OnErrorGoToErr_用户ID_BeforeUpdateIfLen(Me![用户ID])<>4ThenMsgBox"'用户ID'是由4位数字组成!",vbInformation,"用户ID错误"Cancel=TrueEndIfExit_用户ID_BeforeUpdate:ExitSubErr_用户ID_BeforeUpdate:MsgB

3、oxErr.DescriptionResumeExit_用户ID_BeforeUpdateEndSub测试：在当前数据库中插入一个模块，名字为“登录及权限管理”。双击“模块1”，另存为“登录及权限管理”。声明全局变量：PublicUserIDAsString'保存表中已有的用户登录的"用户ID"值PublicSUserIDAsString'保存"用户ID"PublicSUserNameAsString'保存"用户名"PublicvarPasswordAsVarian'保存"密码在用户ID文本框输入用户登录的“用户ID”值，当鼠标离开之后，系统将从“用户表”中查找该

4、“用户ID”对应的“用户名”并显示于窗体的“用户名”文本框内，如果没有找到该用户，系统将显示“无此用户”。在“用户ID”文本框的“更新后”事件中添加如下代码：PrivateSub用户ID_AfterUpdate()OnErrorGoToErr_用户ID_AfterUpdate'定义字符型变量DimSTempAsStringIfIsNull(Me![用户ID])ThenUserID=NullElse'使用DLookup函数从'用户表'中查询待登录的用户是否存在STemp=DLookup("用户ID","用户表","[用户ID]='"&Me![用户ID]&"'")'判

5、断STemp是否为空IfIsNull(STemp)Then'如果为空,则把UserID变量置为空UserID=Null'把窗体中的"用户ID"文本框的值设置为空Me![用户ID]=""ElseUserID=STemp'使用DLookup函数从"用户表"中查询出待登录用户的"用户名"Me![用户名]=DLookup("用户名","用户表","[用户ID]='"&Me![用户ID]&"'")EndIfEndIfExit_用户ID_AfterUpdate:ExitSubErr_用户ID_AfterUpdate:'弹出"无此用户"信息MsgBox"你'用户ID'输入错误,

6、或者还没有注册,请检查!",vbCritical,"无此用户"ResumeExit_用户ID_AfterUpdateEndSub