资源描述：
《教案修改后的用户登录界面设计.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、用户界面（窗体）设计-课程部分创建用户登陆界面使用该系统时需要用户输入用户名和密码，输入正确才能进入主程序界面。否则需要重新输入。输入不正确，则显示：输入正确，则显示主界面：具体实现步骤：步骤1：首先在SQLSERVER2000教学库下（或在ACCESS下）创建一个用户管理表，用来保存用户名和密码。脚本如下：createtable用户管理(用户名char(8)primaryKey,密码char(8)notnull,姓名char(8)notnull)go步骤2：输入下列数据，有两个用户。inser
2、t用户管理values('xurf','123456','xurf')insert用户管理values('xiaoyu','654321','xiaoyu')go步骤3：创建“用户密码验证窗体”。1、首先，打开设计窗体。方法：窗体-新建-选择“设计视图”-按“确定”按钮。2、添加两个文本框控件，将名字分别定义为yhm（即用户名拼音）和kl（口令拼音）.3、设置kl的数据-“输入掩码”的值为“PASSWORD”。4、添加两个命令按钮，按钮的标题分别为“确定”和“取消”，名称分别为C3和C4。5、指
3、定窗体的记录源属性为“用户管理”表。将字段列表中的用户名、密码列拖拽到窗体中，作为两个控件删除他们两个标签名称：6、保存为“用户登录界面”步骤4：创建“用户口令验证宏”。1、2、3、4、5、6、7、8、9、保存为“用户口令验证宏“，然后关闭。步骤5：打开“用户登录界面”1、单击“确定”按钮的属性窗口，在“单击”右侧选择“用户口令验证宏.确定”。2、单击“取消”按钮的属性窗口中，选择“事件”标签，在单击右侧选择“用户口令验证宏.取消”。3、窗体的安全处理，使“用户名”文本框的内容在输入时不可见，“
4、可见性”的值为“否”。4：“密码”文本框的值不允许修改，将“是否锁定”的值设置为“是”。5、1、在窗体上增加一个图片。2、将“密码”文本控件缩为最小，移到图片的后面。6、修改记录选定器、浏览按钮、分隔线、自动调整、最大最小化按钮的属性值。7、设置“用户登录界面”为启动时的界面。问题:密码控件还会出现。下面用另一种方法解决：用户ID位数不够时显示：密码错误时显示：用户ID输入错误时，显示：该问题还没有解决。在“用户ID”更新前事件中写如下代码：PrivateSub用户ID_BeforeUpdate
5、(CancelAsInteger)OnErrorGoToErr_用户ID_BeforeUpdateIfLen(Me![用户ID])<>4ThenMsgBox"'用户ID'是由4位数字组成!",vbInformation,"用户ID错误"Cancel=TrueEndIfExit_用户ID_BeforeUpdate:ExitSubErr_用户ID_BeforeUpdate:MsgBoxErr.DescriptionResumeExit_用户ID_BeforeUpdateEndSub“用户登录”按钮的
6、单击事件中写如下代码：PrivateSub用户登录_Click()OnErrorGoToErr_用户登录_Click'定义字符型变量DimSTempAsString'判断'用户ID'和'密码'文本框是否为空IfIsNull(Me![用户ID])ThenMsgBox"请输入'用户ID'!",vbInformation,"输入用户ID"Me![用户ID].SetFocusElseIfIsNull(Me![密码])ThenMsgBox"请输入登录密码!",vbInformation,"输入密码"Me!
7、[密码].SetFocusElse'使用DLookup函数从'用户管理'表中搜索当前'用户ID'对应的'密码'STemp=DLookup("密码","用户管理","用户ID='"&Me![用户ID]&"'")'判断STemp变量是否为空IfIsNull(STemp)ThenDoCmd.Close,,acSaveNoElse'判断输入的'密码'与从'用户管理'表中搜索出的值是否相等IfCStr(Me![密码])=STempThen'把当前窗体中'用户ID'文本框值赋予UserID变量UserID=
8、Me![用户ID]'关闭窗体DoCmd.Close,,acSaveNo'使用DoCmd对象的OpenForm方法打开'主窗体'DoCmd.OpenForm"主窗体",acNormal,,,,acWindowNormalElse'如果密码不对，则弹出'密码错误'窗口MsgBox"输入的密码不正确",vbCritical,"密码错误"Me.Requery'刷新'用户登录'窗体Me![密码].SetFocusEndIfEndIfEndIfExit_用户登录_Click:ExitSubErr_用户登录_
