制作登陆窗体的种方法.doc

登陆窗体的制作 第一种方法： 为了防止无关人员随意进入教学管理系统，需要在进入系统前加入——个密码校验功能。只有合法的用户才能使用此系统。 分析：为了实现上述功能，必需完成所需窗体和控件的创建工作。其操作步骤如下： （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文本框输入掩码设为密码 将整个窗体的数据记录来源设定为“用户口令表” 在窗体中添加两个名称为“用户名”与口令的文本框，删除他们的标签。 创建“用户口令验证宏” 设定确定和取消按钮的属性 electricity at no cost, revenue from electricity sales. Poverty alleviation to the removal, to desperate farmers out of poverty, in conjunction with urbanization, new communities are centrally placed. Poverty in the enterprise, enterprise more powerful, more social responsibility, they should allow more people to enjoy the fruits of development. Conditions to encourage private enterprises to establish Charity Fund for poverty alleviation, employm