制作登陆窗体的两种方法..docVIP

登陆窗体的制作 第一种方法： 为了防止无关人员随意进入教学管理系统，需要在进入系统前加入——个密码校验功能。只有合法的用户才能使用此系统。 分析：为了实现上述功能，必需完成所需窗体和控件的创建工作。其操作步骤如下： （1）设计如图所示的口令校验窗体。 图口令校验窗体 有关窗体控件的设置如表9.1所示。 表9.1 窗体控件设置 控件名称 标题 标签0 教学管理系统 标签0 用户名 标签0 密码 组合1 文本1 命令1 登录 命令2 退出 “组合1”列表框控件上右击，弹出快捷菜单，在快捷菜单中再单击“属性”命令，弹出如图所示的对话框。 图 “组合框”属性对话框 然后将（行来源类型）和（行来源）属性设为如图所示内容。 “登录”按钮控件上右击，弹出快捷菜单，在快捷菜单中再单击“属性”命令，弹出如图所示的对话框。 图“登录”按钮属性对话框 （4）将“单击”事件设置为“事件过程”，然后单击右面的“…”按钮，弹出选择生成器对话框，并选择代码生成器，打开Microsoft Visual Basic编辑器窗口如图所示。 图Microsoft Visual Basic编辑器窗口 （5）在“登录_Click()”事件中输入如下代码。 Private Sub 登录_Click() 组合1.SetFocus If 组合1.Text = Then MsgBox 请选择用户名 Exit Sub End If **************** If 组合1.Text = admin Then 文本1.SetFocus If 文本1.Text = 111 Then DoCmd.Close DoCmd.OpenForm (教学管理系统主菜单) Else MsgBox 非法用户，不能进入此系统!! End If Exit Sub End If ************** If 组合1.Text = user1 Then 文本1.SetFocus If 文本1.Text = 222 Then DoCmd.Close DoCmd.OpenForm (教学管理系统主菜单) Else MsgBox 非法用户，不能进入此系统!! End If Exit Sub End If ************** If 组合1.Text = user2 Then 文本1.SetFocus If 文本1.Text = 333 Then DoCmd.Close DoCmd.OpenForm (教学管理系统主菜单) Else MsgBox 非法用户，不能进入此系统!! End If Exit Sub End If End Sub （6）按照第（3）步的操作过程在“退出_Click()”事件中引入关闭宏 将“用户窗体”设为启动窗体。 第二种方法： 创建用户口令表 创建用户密码验证窗体 定义两个文本框的名称为yhm,kl Kl文本框输入掩码设为密码 将整个窗体的数据记录来源设定为“用户口令表” 在窗体中添加两个名称为“用户名”与口令的文本框，删除他们的标签。 创建“用户口令验证宏” 设定确定和取消按钮的属性  5