Access在人事管理中的应用.ppt

11.7.2 “登录”窗体代码 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程 第一步：在“登录”窗体的【设计视图】中单击【确定】按钮，以选择“OK”按钮控件。 第二步：给“OK”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边的省略号按钮，如下图所示。 第三步：系统进入VBA编辑器，并自动新建了一个名称为“OK_Click()”的Sub过程。 第九十四页，编辑于星期二：十七点 三十五分。 11.7.2 “登录”窗体代码 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程 第四步：在【代码】窗口中输入如下所示的VBA代码，给按钮控件添加“单击”事件过程。 Private Sub OK_Click() On Error GoTo Err_OK_Click Dim strSQL As String Dim rs As New ADODB.Recordset If IsNull(Me.UserName) Or Me.UserName = Then DoCmd.Beep MsgBox (请输入用户名称！) ElseIf IsNull(Me.Password) Or Me.Password = Then DoCmd.Beep MsgBox (请输入密码！) Else strSQL = SELECT * FROM 管理员 WHERE 用 户名= Me.UserName and 密码=  Me.Password Set rs = GetRs(strSQL) If rs.EOF Then DoCmd.Beep MsgBox (用户名或密码错误！) Me.UserName = Me.Password = Me.UserName.SetFocus Exit Sub Else DoCmd.Close check = True DoCmd.OpenForm (主切换面板) End If End If Set rs = Nothing Exit_OK_Click: Exit Sub Err_OK_Click: MsgBox (Err.Description) Debug.Print Err.Description Resume Exit_OK_Click End Sub 第九十五页，编辑于星期二：十七点 三十五分。 11.7.2 “登录”窗体代码 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“OK”按钮添加事件过程 第五步：保存该VBA代码，这样就给“OK”按钮控件加上“单击”事件过程。此时的【代码】窗口如下图所示。 第九十六页，编辑于星期二：十七点 三十五分。 11.7.2 “登录”窗体代码 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“Concel”按钮添加事件过程 第一步：在“登录”窗体的【设计视图】中单击【取消】按钮，以选择“Concel”按钮控件。 第二步：给“Concel”按钮控件添加“单击”事件过程。将【属性表】切换到【事件】选项卡，在【单击】行中选择“事件过程”选项，并单击右边的省略号按钮，如下图所示。 第三步：系统进入VBA编辑器，并自动新建了一个名称为“Concel_Click()”的Sub过程。 第九十七页，编辑于星期二：十七点 三十五分。 11.7.2 “登录”窗体代码 为“登录”窗体添加各种事件过程，实现用户的登录功能。 为“Concel”按钮添加事件过程 第四步：在【代码】窗口中输入如下所示的VBA代码，给按钮控件添加“单击”事件过程。 第五步：保存该VBA代码，这样就给“Concel”按钮控件加上“单击”事件过程。此时的【代码】窗口如下图所示。 Private Sub Cancel_Click() check = False DoCmd.Close End Sub 第九十八页，编辑于星期二：十七点 三十五分。 11.7.2 “登录”窗体代码 这样我们就完成了整个用户登录模块的创建工作，在导航窗格中双击“登录”窗体，在窗体中输入用户名和密码，单击【确定】按钮，即可登录，如下图所示。 第九十九页，