信息管理系统实验指导书56.docx

1、信息管理系统实验指导书56实验五 宏实验类型： 验证性 实验课时： 2 学时 指导教师： 时 间： 年 月 日 课 次：第 节 教学周次：第 周 一、实验目的1掌握宏的创建2掌握宏的运行二、实验内容及要求1创建宏2运行宏宏的创建、运行1创建并运行只有一个操作的宏要求：在“人事管理.accdb”数据库中创建宏，功能是打印预览“南航人文学院员工工资发放记录报表”。操作步骤：（1）在“人事管理.accdb”数据库中，选择“创建”选项卡“宏与代码”组，单击“宏”按钮，进入宏设计窗口。 图5-1宏设计器组合框及操作参数的设置（2）在“添加新操作”列第1行选择“OpenReport”操作，“操作参数”区中

2、的“报表名称”选“南航人文学院员工工资发放记录报表”，“视图”选择“打印预览”。如图5-1所示。（3）单击“保存”按钮，“宏名称”文本框中输入“预览报表宏”。 （4）单击“运行”按钮，运行宏。2创建并运行操作序列宏要求：创建宏，功能是打开“员工信息”表，打开表前要发出“嘟嘟”声；再关闭“员工信息”表，关闭前要用消息框提示操作。操作步骤：（1）在“人事管理.accdb”数据库中，选择“创建”选项卡“代码与宏”组，单击“宏”按钮，进入宏设计窗口。（2）在“添加新操作”列的第1行，选择“Beep”操作。（3）在“添加新操作”列的第2行，选择“OpenTable”操作，“操作参数”区中的“表名称”选择

3、“员工信息”表。（4）在“添加新操作”列的第3行，选择“MsgBox”操作。“操作参数”区中的“消息”框中输入“关闭表吗？”。（5）在“添加新操作”列的第4行，选择“RunMenuCommand” 操作，再选择“Close” 操作如图5-2所示。图5-2宏设计视图（6）单击“保存”按钮，“宏名称”文本框中输入“操作序列宏”。（7）单击“运行”按钮，运行宏。3创建并运行条件操作宏在“人事管理”数据库中，创建一个登录验证宏，使用命令按钮运行该宏时，对用户所输入的密码进行验证，只有输入的密码为“123456 ”才能打开启动窗体，否则，弹出消息框，提示用户输入的系统密码错误。操作步骤如下：（1）首先使

4、用窗体设计视图，创建一个外围登录窗体。外围登录窗体包括一个文本框，用来输入密码。一个命令按钮用来验证密码（此命令按钮留待后面再进行创建）以及窗体标题，该登录窗体的创建结果，如图5-3所示。 图5-3登录窗体设计视图及“确定”按钮单击事件选择（2）在“创建”选项卡的“宏与代码”组中，单击“宏”按钮，打开“宏设计器”。（3）在添加新操作组合框中，输人“IF”，单击条件表达式文本框右侧的按钮。（4）打开“表达式生成器”对话框，在“表达式元素”窗格中，展开“人事管理/Forms/所有窗体”，选中“外围登录”窗体。在“表达式类别”窗格中，双击“Text0”，在表达式值中输入“123456”，如图5-4所

5、示。单击“确定”按钮，返回到“宏设计器”中。图5-4“表达式设计器”对话框（5）在“添加新操作”组合框中单击下拉箭头，在打开的列表中选择“MessageBox”， 在“操作参数”窗格的“消息”行中输人“密码错误！请重新输人系统密码！”，在类型组合框中，选择“警告！”，其他参数默认。如图5-7所示（6）重复步骤（2）和（3），设置第2个IF 。在IF 的条件表达式中输人条件：Forms!外围登录! Text0= 123456”。在添加新操作组合框中，选择“Closewindows，其他参数分别为“窗体、验证密码、否”。设计结果如图5-5所示。（7）在添加新操作中，选择“OpenForm”，各参数

6、分别为“员工信息、窗体、普通”，设置的结果，如图5-5所示。保存宏名称为“外围登录验证”。（8）打开“验证密码”窗体切换到设计视图中，选中“确定”按钮，在属性窗口中“事件”选项卡，“单击”项选“登陆验证”。如图5-7所示。图5-5登录验证宏的设计视图（9）选“窗体”对象，打开“登录窗体”窗体，分别输入正确的密码、错误的密码，单击“确定”按钮，查看结果。4创建自动运行宏要求：当用户打开数据库后，系统弹出登录窗口。操作步骤：（1）在“创建”选项卡的“宏与代码”组中，单击“宏”按钮，打开“宏设计器”。（2）在“添加新操作”组合框中单击下拉箭头，在打开的列表中选择“openform”， 在“窗体名称”

7、参数中选择“登录”，其他参数默认。如图5-6所示（3）保存宏，宏名为“AutoExec”。（4）关闭数据库。（5）重新打开“人事管理.accdb”数据库，宏自动执行，弹出登录窗口。图5-6自动运行宏设计视图实验六 模块与VBA程序设计实验类型： 验证性 实验课时： 4 学时 指导教师： 时 间： 年 月 日 课 次：第 节 教学周次：第 周 一、实验目的1. 掌握建立标准模块及窗体模块的方法2. 熟悉VBA开发环境及数据类型3掌握常量、变量、函数及其表达式的用法4掌握程序设计的顺序结构、分支结构、循环结构5了解VBA的过程及参数传递6掌握变量的定义方法和不同的作用域和生存期二、实验内容及要求1

8、创建标准模块与窗体模块2常量、变量、函数及表达式的使用3数据类型、输入、输出函数及程序的顺序结构4选择结构if语句及Select Case 语句的使用5Do While循环、For循环语句的使用6VBA过程、过程的参数传递、变量的作用域和生存期三、实验步骤案例一：创建公用模块1在 “人事管理.accdb” 数据库中创建一个通用模块以建立数据库的连接和用户登录等，保存为“公共模块”。操作步骤：（1）打开“人事管理.accdb”数据库，选择“创建”选项卡“宏与代码”组单击“模块”按钮，打开VBA编辑器。如图6-1所示。 图6-1打开VBA编辑器（2）在代码窗口中输入如下内容：Option Comp

9、are DatabaseOption ExplicitPublic check As Boolean通过字符串StrQuery所引用的SQL语句返回一个ADO.Recordset对象Public Function GetRs(ByVal StrQuery As String) As ADODB.Recordset Dim rs As New ADODB.Recordset Dim conn As New ADODB.Connection On Error GoTo GetRS_Error Set conn = CurrentProject.Connection rs.Open StrQuery

10、, conn, adOpenKeyset, adLockOptimistic Set GetRs = rs GetRS_Exit: Set rs = Nothing Set conn = Nothing Exit FunctionGetRS_Error: MsgBox (Err.Description) Resume GetRS_ExitEnd Function（3）单击“保存”按钮，输入模块名“公共模块”，单击“确定”按钮即可。案例二：编写“登录”窗体代码1.给窗体添加“加载”事件过程操作步骤：（1）用设计视图打开“登录”窗体。（2）设置.窗体的记录源。在窗体的“属性表”窗格中，单击“所选内

11、容的类型：窗体”下拉列表框，选择“窗体”选项。切换到“数据”选项卡，在“记录源”行的下拉列表框中选择“管理员”表，如图6-2所示。图6-2 打开登录窗体的属性表（3）将“属性表”中的选项卡切换到“事件”，在“加载”行中选中“事件过程”选项，并单击右边的省略号按钮，如图6-3所示。图6-3给窗体添加“加载”事件过程（4）进入VBA编辑器，自动新建一个名称为“Form_Load()”的Sub过程。输入如下VBA代码，为窗体添加“加载”事件过程。Private Sub Form_Load() 最小化数据库窗体并初始化该窗体. On Error GoTo Form_Open_Err DoCmd.Sel

12、ectObject acForm, 主切换面板, True DoCmd.Minimize check = False Form_Open_Exit: Exit Sub Form_Open_Err: MsgBox Err.Description Resume Form_Open_Exit End Sub（5）保存后，单击工具栏中的“视图Microsoft office Access”按钮，返回Access。2为“OK”按钮添加事件过程操作步骤：（1）在“登录”窗体的“设计视图”中单击“确定”按钮，以选中OK按钮控件。（2）将OK按钮控件的属性表窗格切换到“事件”选项卡，在“单击”行中选择“事件过

13、程”选项，并单击右边的省略号按钮，如图6-4所示。图6-4给OK按钮添加事件过程（3）系统进入VBA编辑器，并自动新建一个名称为“OK_Click()”的Sub过程。在代码窗口中输入以下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)

14、 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.OpenF

15、orm (主切换面板) End If End If Set rs = NothingExit_OK_Click: Exit SubErr_OK_Click: MsgBox (Err.Description) Debug.Print Err.Description Resume Exit_OK_ClickEnd Sub（4）保存该VBA编码，就为OK按钮控件添加了“单击”事件过程。3.为“Cancel”按钮添加事件过程。操作步骤：（1）在“登录”窗体的“设计视图”中单击“取消”按钮，以选中Cancel按钮控件。（2）将Cancel按钮控件的属性表窗格切换到“事件”选项卡，在“单击”行中选择“事件

16、过程”选项，并单击右边的省略号按钮，如图6-5所示。（3）系统进入VBA编辑器，并自动新建一个名称为“Cancel_Click()”的Sub过程。在代码窗口中输入以下VBA代码：Private Sub Cancel_Click() check = False DoCmd.CloseEnd Sub（4）保存该VBA编码，就为Cancel按钮控件添加了“单击”事件过程。图6-5给Cancel按钮添加事件过程案例三：编写“主切换面板”窗体代码1.为“主切换面板”窗体上的“Btn1”按钮控件添加“单击”事件过程操作步骤：（1）选择“主切换面板”窗体对象，右键单击选择“设计视图”命令，进入该窗体的设计视

17、图。（2）在“属性表”空格中，选择“数据”选项卡，单击“记录源”行的小箭头，在弹出的下拉列表中选择“Wwitchboard Items”表，如图6-6所示。图6-6 设置主切换面板窗体的记录源（3）单击btn1按钮，选择“属性表”中“事件”选项卡，在“单击”行的属性框中输入“=HandleButtonClick(1)”，以添加“btn1”按钮“单击事件”的响应程序。依次为btn2btn8按钮控件设置单击属性“=HandleButtonClick(2)”到“=HandleButtonClick(8)”。（4）在该窗体的设计视图“主体”节任意位置右击，弹出快捷菜单，选择“事件生成器”。如图6-7所

18、示。图6-7 选择事件生成器（5）在“选择生成器”的对话框中选择“代码生成器”，单击“确定”后进入VBA编辑器，如图6-8所示。图6-8 选择代码生成器（6）删除系统自动生成的“主体_Click()”过程代码，新建一个新的Function函数HandleButtonClick，代码如下：Private Function HandleButtonClick(intbtn As Integer) 处理按钮click事件 Const conCmdGotoSwitchboard = 1 Const conCmdNewForm = 2 Const conCmdOpenReport = 3 Const c

19、onCmdExitApplication = 4 Const conCmdRunMacro = 8 Const conCmdRunCode = 9 Const conCmdOpenPage = 10 Const conErrDoCmdCancelled = 2501 Dim rs As ADODB.Recordset Dim strSQL As String On Error GoTo HandleButtonClick_Err Set rs = CreateObject(ADODB.Recordset) strSQL = SELECT * FROM Switchboard Items str

20、SQL = strSQL & WHERE SwitchboardID= & Me!SwitchboardID & AND ItemNumber= & intbtn Set rs = GetRs(strSQL) If (rs.EOF) Then MsgBox 读取 Switchboard Items 表时出错。 rs.Close Set rs = Nothing Exit Function End If Select Case rs!Command 进入另一个切换面板 Case conCmdGotoSwitchboard Me.Filter = ItemNumber = 0 AND Switch

21、boardID= & rs!Argument 打开一个新窗体 Case conCmdNewForm DoCmd.OpenForm rs!Argument 打开报表 Case conCmdOpenReport DoCmd.OpenReport rs!Argument, acPreview 退出应用程序 Case conCmdExitApplication CloseCurrentDatabase 运行宏. Case conCmdRunMacro DoCmd.RunMacro rs!Argument 运行代码. Case conCmdRunCode Application.Run rs!Argum

22、ent 打开一个数据存取页面 Case conCmdOpenPage DoCmd.OpenDataAccessPage rs!Argument 未定义的选项. Case Else MsgBox 未知选项。 End Select Close the recordset and the database. rs.Close HandleButtonClick_Exit: On Error Resume Next Set rs = Nothing Exit FunctionHandleButtonClick_Err: If (Err = conErrDoCmdCancelled) Then Resu

23、me Next Else MsgBox 执行命令时出错。, vbCritical Resume HandleButtonClick_Exit End If End Function（7）单击保存按钮保存代码，完成“主切换面板”上“按钮”控件的“单击”消息事件。2.为“主切换面板”窗体添加“成为当前”事件过程操作步骤：（1）选择“属性表”中“窗体”对象，在“事件”选项卡中选择“成为当前”，单击下拉列表框，选择“事件过程”选项，如图6-9所示。图6-9 选择成为当前属性（2）单击“成为当前”右边的省略号按钮，进入VBA编辑器，系统自动建立一个“Form_Current()”过程，写入以下代码：Pr

24、ivate Sub Form_Current() 更新标题并显示列表. Me.Caption = Nz(Me!ItemText, ) Fillbtns End Sub（3）上述代码中的“Fillbtns”是另外一个过程，其功能是为实现“主切换面板”上的控件数量和控件标题等信息，代码如下：Private Sub Fillbtns() 显示切换框中的列表 按钮数量. Const conNumButtons As Integer = 8 Dim rs As New ADODB.Recordset Dim strSQL As String Dim intbtn As Integer Me!btn1.S

25、etFocus For intbtn = 2 To conNumButtons Me(btn & intbtn).Visible = False Me(lbl & intbtn).Visible = False Next intbtn 打开表Switchboard Items strSQL = SELECT * FROM Switchboard Items strSQL = strSQL & WHERE ItemNumber 0 AND SwitchboardID= & Me!SwitchboardID strSQL = strSQL & ORDER BY ItemNumber; Set rs

26、 = GetRs(strSQL) If (rs.EOF) Then Me!lbl1.Caption = 此切换面板页上无项目。 Else While (Not (rs.EOF) Me(btn & rs!ItemNumber).Visible = True Me(lbl & rs!ItemNumber).Visible = True Me(lbl & rs!ItemNumber).Caption = rs!ItemText rs.MoveNext Wend End If 关闭数据集合和数据库 rs.Close Set rs = NothingEnd Sub3.为“主切换面板”窗体添加“加载”事件

27、过程操作步骤：（1）选择“属性表”中“窗体”对象，在“事件”选项卡中选择“加载”，单击下拉列表框，选择“事件过程”选项，如图6-10所示。图6-10 选择“加载”属性（2）单击“加载”右边的省略号按钮，进入VBA编辑器，系统自动建立一个“Form_Load()”过程，写入以下代码：Private Sub Form_Load() If Not check Then MsgBox (请先登录！) DoCmd.Close DoCmd.OpenForm (登录) End IfEnd Sub4.为“主切换面板”窗体添加“打开”事件过程操作步骤：（1）选择“属性表”中“窗体”对象，在“事件”选项卡中选择“

28、打开”，单击下拉列表框，选择“事件过程”选项，如图6-11所示。图6-11 选择“打开”属性（2）单击“打开”右边的省略号按钮，进入VBA编辑器，系统自动建立一个“Form_Open()”过程，该过程使得用户在打开主切换面板时有默认的选择值，代码如下：Private Sub Form_Open(Cancel As Integer) On Error GoTo Form_Open_Err 显示默认的选项. Me.Filter = ItemNumber = 0 AND Argument = 默认 Me.FilterOn = True Form_Open_Exit: Exit SubForm_Ope

29、n_Err: MsgBox Err.Description Resume Form_Open_Exit End Sub案例四：编写“员工考勤记录查询”窗体代码1.向“员工考勤记录查询”窗体添加“加载”事件过程操作步骤：（1）打开“员工考勤记录查询”窗体，切换到“设计视图”，如图6-12所示。图6-12 用“设计视图”打开“员工考勤记录查询”窗体（2）选择“属性表”中“窗体”类型，单击“数据”选项卡，在“记录源”行的下拉列表框中选择“员工考勤记录查询”选项，如图6-13所示。图6-13 设定“记录源”属性（3）切换属性表选项卡到“事件”，在“加载”行中选择“事件过程”选项，并单击右边的省略号按钮

30、，如图6-14所示。图6-14 设定“加载”属性（4）进入VBA编辑器窗口，自动新建一个名称为“Form_Load()”的Sub过程，输入以下代码：Private Sub Form_Load() If Not check Then MsgBox (请先登录！) DoCmd.Close DoCmd.OpenForm (登录) End If End Sub（5）保存后切换回设计视图。2.为“考勤查询”按钮添加单击事件操作步骤：（1）在“员工考勤记录查询”窗体的“设计视图”中单击“考勤查询”按钮。（2）选择“属性表”中“事件”选项卡，在“单击”行中选择“事件过程”选项，如图6-15所示。图6-15 设定“考勤查询”的“单击”属性（3）点击右边的省略