窗体和报表的考前复习.ppt

1、窗体与报表复习,2013年9月,2,窗体控件的修改,（1）将窗体“fEmp”上文本框“tSS”更改为组合框类型，保持控件名称不变。设置其相关属性实现下拉列表形式输入性别“男”和“女”。（打开窗体对象fEmp的设计视图，选择文本框tSS，在鼠标右击后弹出的菜单中选择更改为选项中的组合框。并在“窗体设计工具”的“设计”选项卡的“工具”组点击属性表按钮，将行来源类型设置为值列表，在行来源中输入：男;女。38 ） （2）将窗体对象“fEmp”上文本框“tPa”改为复选框类型，保持控件名称不变，然后设置控件来源属性以输出“党员否”字段值。（选中文本框tPa，右击鼠标，选择删除，在“窗体设计工具”的“设计

2、”选项卡的“控件”组中选择一个复选框，放到主体中，将此复选框右边的标签删除，选中复选框，并在“工具”组点击属性表按钮，在弹出的属性框中设置名称为tPa，将控件来源属性设置为党员否字段值。 38）,3,窗体和报表文本框的记录源,1、记录源：将报表主体节区中“tt”文本框显示内容设置为“聘用时间”字段值（61） 2、设置报表主体节区内文本框“tDept”的控件来源属性为计算控件。要求该控件可以根据报表数据源里的“所属部门”字段值，从非数据源表对象“tGroup”中检索出对应的部门名称并显示输出。（提示：考虑Dlookup函数的使用。老5套（选择“所属部门”下面的“tDept”文本框，在控件来源属性

3、中输入=DLookUp(“名称”,“tGroup”,“部门编号=” & 所属部门 & “” ) 3、设计报表“rEmp”的主体节区内“tSex”文本框控件依据报表记录源的“性别”字段值来显示信息：性别为1，显示“男”；性别为2，显示“女”；（选中“性别”标签下边的文本框，并点击工具栏上的“属性”按钮，设置文本框的控件来源属性为“=IIf(性别=1,”男“,”女“)” 老12套） 4、设计报表“rEmp”的主体节区内“tOpt”复选框控件依据报表记录源的“性别”字段和“年龄”字段的值来显示状态信息：性别为“男”且年龄小于20时显示为选中的打钩状态，否则显示为不选中的空白状态 （选中报表“rEmp

4、”，点击“设计(D)”按钮，选中“tOpt”复选框，并点击工具栏上的“属性”按钮，设置文本框的控件来源属性为“=IIf(年龄20 And 性别=”男“,True,False 13套),4,窗体和报表文本框的记录源,5、计算控件：插入“文本框”，只要控件部分，不要标题说明。在报表的页面页脚节区添加一个计算控件，显示系统年月，显示格式为：XXXX年XX月（注：不允许使用格式属性）。计算控件放置在距上边0.3厘米、距左边10.5厘米，并命名为“tDa” （在“报表设计工具”的“设计”选项卡的“控件”组中选择一个文本框，放到页面页脚中，并在“工具”组点击“属性表”按钮，在弹出的属性框中设置名称、上边距

5、和左边距属性，并在控件来源属性中输入：=CStr(Year(Date()+“年”+CStr(Month(Date()+“月”。39） 6、设置窗体对象“fEmp”上文本框“tPa”为计算控件。要求依据“党员否”字段值显示内容：“党员否”字段值为True，显示“党员”两字；“党员否”字段值为False，显示“非党员”三字； （打开窗体“fEmp”的设计视图，选择“tPa”为文本框控件，将“控件来源”属性设置为“=IIf(党员否,”党员“,”非党员“)”。 23套）,5,7、假设tStud表中，学号字段的第5位和6位编码代表该生的专业信息，当这两位编码为10时表示信息专业，为其他值时表示管理专业。

6、设置窗体中名称为tSub的文本框控件的相应属性，使其根据学号字段的第5位和第6位编码显示对应的专业名称。选择“tSub”文本框，设置“控件来源”属性为“=IIf(Mid(学号,5,2)=”10“,”信息“,”管理“46)” 8、 在报表页脚节区添加一个计算控件，计算并显示学生平均年龄。计算控件放置在距上边0.2厘米、距左边4.5厘米，并命名为“tAvg”。（在“报表设计工具”的“设计”选项卡的“控件”组中选择一个文本框，放到报表页脚中，并在“工具”组点击“属性表”按钮，在弹出的属性框中设置名称、上边距和左边距属性，并在控件来源属性中输入：=Avg(年龄)。 43套）,6,窗体和报表中的语句和程

7、序,按钮“记录源” 单击“刷新”按钮（名为“bt1”），事件过程动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息 （打开窗体“fEmp”的设计视图，选中“bt1”按钮，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，点击“单击”属性右边的“”打开代码生成器，在“*”与“*”之间输入：RecordSource = “qEmp” 38） 2、背景图像，使用路径：窗体加载时将考生文件夹下的图片文件test.bmp设置为窗体fEmp的背景。窗体加载事件代码已提供，请补充完整。要求背景图像文件当前路径必须用CurrentProject.Path获

8、得。 （选中窗体fEmp，并在“工具”组点击“属性表”按钮，点击“加载”属性右边的“”打开代码生成器，在“*Add*”与“*Add*”之间输入：Picture=CurrentProject.Path+“test.bmp”。41）,7,3、窗体加载时设置窗体标题属性为“*年职工信息输出”，其中*为系统当前年。窗体“加载”事件代码已提供，请补充完整。（选中窗体fEmp，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，点击“加载”属性右边的“”打开代码生成器，在“*Add*”与“*Add*”之间输入：Caption=Year(Date（）)&“年职工信息输出”。 42） 4、CD

9、ID标签颜色：设置所建命令按钮bC的单击事件，使用户单击该命令按钮后，CDID标签的显示颜色改为红色。要求用VBA代码实现。 （在工具箱中选择一个命令按钮控件，放到窗体页脚中，放到窗体页脚中之后会出现一个提示框，点击“取消”按钮，设置这个命令按钮的名称为“bC”，标题属性为“改变颜色”，点击“单击”属性右边的“”打开代码生成器，输入“CDID_标签.ForeColor = 255”，保存窗体。 16套）,窗体和报表中的语句和程序,8,报表分组和排序,1、按“编号”字段前四位分组统计各组记录个数，并将统计结果显示在组页脚节区。计算控件命名为“tCount”。 （在“报表设计工具”的“设计”选项卡

10、的“分组和汇总”组中单击分组和排序，在打开的“分组、排序和汇总”区域中，单击“添加组”，选择字段中点击表达式，输入=Left(编号,4)，有页脚节。在“报表设计工具”的“设计”选项卡的“控件”组中选择一个文本框，放到组页脚中，并在“工具”组点击属性表按钮，在弹出的属性框中设置名称，并在控件来源属性中输入：=Count(编号)。 43）,9,窗体和报表中的按钮和消息框,1、在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。 （选择“fStud”窗体，点击“加载”属性右边的“”打开代码生成器，在*A

11、dd*与*Add*之间输入：DoCmd.Close，保存窗体。 46） 2、单击窗体“报表输出”按钮（名为“bt1”），调用事件代码实现以预览方式打开报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。（打开窗体“fEmp”的设计视图，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，点击“加载”属性右边的“”打开代码生成器，在*Add*与*Add*之间输入：DoCmd.OpenReport “rEmp”,acViewPreview，选中“bt2”按钮，点击“单击”属性并选择宏“mEmp”，保存窗体。44 ）,10,3、单击“报表输出”

12、按钮（名为“bt1”），事件代码会弹出以下图例显示的消息框提示，选择是否进行预览报表“rEmp”；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。（打开窗体“fEmp”的设计视图，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，点击“加载”属性右边的“”打开代码生成器，在*Add*与*Add*之间输入：If MsgBox(“报表预览”,vbYesNo+vbQuestion,“确认”)=vbYes Then，选中“bt2”按钮，点击“单击”属性并选择宏“mEmp”，保存窗体。 45） 4、 单击刷新按钮（名为bt1），事件过程动态设置窗体记录源为查询

13、对象qEmp，实现窗体数据按性别条件动态显示；单击退出按钮（名为bt2），关闭窗体。 注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。（设置窗体记录源属性的语句为RecordSource=“qEmp”，关闭窗口的语句为DoCmd.Close。 23套） 5、在窗体中有一个显示全部记录命令按钮（名称为bList），单击该按钮后，应实现将tStudent表中的全部记录显示出来的功能。

14、现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件、属性；不允许修改表对象“tStudent”。对于VBA代码，只允许“*”与“*”之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。（将tStudent表中的全部记录显示出来的语句为：BBB.Form.RecordSource=select * from tStudent。 24）,11,6、在窗体中还有修改和保存两个命令按钮，名称分别为CmdEdit和CmdSave，其中保存命令按钮在初

15、始状态为不可用，当单击修改按钮后，应使保存按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属性；不允许修改表对象“tAddr”和“tUser”。 （将“保存”按钮变为可用的语句为CmdSave.Enabled=True。 26） 7、按照以下窗体功能，补充事件代码设计。 在窗体的四个文本框内输入合法的职工信息后，单击追加按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象tEmp中添加职工纪录，否则出现提示；当点击窗体上的退出按钮

16、（名为bt2）时，关闭当前窗体。 注意：不允许修改表对象tEmp中未涉及的结构和数据；不允许修改窗体对象fEmp中未涉及的控件和属性；代码设计只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 本题主要考的是窗体的设计、VBA的数据库编程。（判断职工编号是否重复的条件为If ADOrs.EOF = False Then，关闭窗体语句为DoCmd.Close。33套） 8、在窗体“fEmp”的“加载”事件中设置标签“bTitle”以红色文本显示；单击“预览”按钮（名为“bt1”）或“打印”按钮（名为“bt2”），事件过程传递参数调用同一个用户自定

17、义代码（mdPnt）过程，实现报表预览或打印输出；单击“退出”按钮（名为“bt3”），调用设计好的宏“mEmp”来关闭窗体。 （打开窗体“fEmp”的设计视图，选中“bt1”按钮，并点击工具栏上的“属性”按钮，点击“单击”属性右边的“”打开代码生成器，在“*Add2*”与“*Add2*”之间输入“mdPnt acViewPreview”，保存窗体 37套）,12,直线控件,1、在窗体的“窗体页眉”中距左边0.4厘米、距上边1.2厘米处添加一个直线控件，控件宽度为10.5厘米，控件命名为“tLine”。 （打开窗体对象“fStud”的设计视图，在“窗体设计工具”的“设计”选项卡的“控件”组中选择

18、一个直线控件，放到窗体页眉中，并在“工具”组点击“属性表”按钮，在弹出的属性框中设置“名称”为“tLine”，“左边距”为0.4厘米，“上边距”为1.2厘米，“宽度”为10.5厘米。 46）,13,窗体和报表命令按钮的次序,1、将窗体对象“fEmp”上的命令按钮（名为“btnQ”）从灰色状态设为可用，然后设置控件的Tab键焦点移动顺序为：控件tData-btnP-btnQ。（）打开窗体对象“fEmp”的设计视图，选中“btnQ”命令按钮，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，设置“可用”属性为“是”。选中“tData”，并在“工具”组点击“属性表”按钮，将“Tab

19、键索引”属性设置为0；选中“btnP”，将“Tab键索引”属性设置为1，保存窗体。 54套） 2、将“fStud”窗体对象主体节中控件的Tab键焦点移动顺序设置为：“CItem”“TxtDetail” “CmdRefer” “CmdList” “CmdClear” “fDetail” “简单查询”。（打开窗体对象“fStud”的设计视图，选中“CItem”，并在“窗体设计工具”的“设计”选项卡的“工具”组点击“属性表”按钮，将“Tab键索引”属性设置为0；选中“TxtDetail”，将“Tab键索引”属性设置为1；选中“CmdRefer”，将“Tab键索引”属性设置为2；选中“CmdList”

20、，将“Tab键索引”属性设置为3；选中“CmdClear”，将“Tab键索引”属性设置为4；选中“fDetail”，将“Tab键索引”属性设置为5；选中“简单查询”，将“Tab键索引”属性设置为6，保存窗体。57套 ）,14,难程序,1、（1）在窗体加载事件中实现代码重置窗体标题为标签bTitle的标题内容。 （2）fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能： 计算10000以内的素数个数及最大素数两个值，将其显示在窗体上名为“tData”的文本框内并输出到外部文件保存。（）,15,选中窗体，并在“窗体设计工具”的“设计”选项卡的“工具”组点击属性表按钮，单击加载属性右边的打

21、开代码生成器。 设置窗体标题为标签bTitle的标题内容的语句为：Caption = bTitle.Caption。 计算10000以内的素数个数及最大素数两个值的语句为： For i = 1 To 10000 If sushu(i) Then n = n + 1 If i mn Then mn = i End If End If Next i 代码调用宏对象mEmp的语句为：DoCmd.RunMacro mEmp。 最后保存并运行该窗体。 54套,16,2、（1）在窗体加载事件中实现代码重置窗体标题为标签bTitle的标题内容。 （2）fEmp窗体上单击输出命令按钮（名为btnP），实现以下

22、功能： 计算满足表达式1+2+3+n=30000的最大n值，将n的值显示在窗体上名为tData的文本框内并输出到外部文件保存。 单击打开表命令按钮（名为btnQ），代码调用宏对象mEmp以打开数据表tEmp。 试根据上述功能要求，对已给的命令按钮事件过程进行代码补充并调试运行。,17,单击加载属性右边的打开代码生成器。 设置窗体标题为标签bTitle的标题内容的语句为：Caption = 信息输出。 计算1+2+3+n=30000的最大n值的语句为： sum = 0 n = 0 Do While sum = 30000 n = n + 1 sum = sum + n Loop n = n -

23、1 代码调用宏对象mEmp的语句为：DoCmd.RunMacro mEmp。 最后保存并运行该窗体。55套,18,3、试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在fEmp窗体上单击输出命令按钮（名为btnP），弹出一输入对话框，其提示文本为请输入大于0的整数值。 输入 1 时，相关代码关闭窗体（或程序）； 输入 2 时，相关代码实现预览输出报表对象rEmp； 输入 =3 时，相关代码调用宏对象mEmp 以打开数据表tEmp。 注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”

24、中未涉及的字段和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。（5）=3的条件可以表示为Case Is=3，预览输出报表对象“rEmp”的语句为DoCmd.OpenReport “rEmp”, acViewPreview。32套） 4、（4）fEmp窗体上单击输出命令按钮（名为btnP），实现以下功能：计算Fibonacci数列第19项的值，将结果显示在窗体上名为tData的文本框内并输出到外部文件保存；单击打开表命令按钮（名为btnQ），调用宏对象mEmp以打开数据表tEmp。 Fibonacci数列：,打开窗

25、体对象“fEmp”的设计视图，选中“bTitle”标签，右击鼠标选择属性，设置其“宽度”为“5厘米”，“高度”为“1厘米”，“标题”为“数据信息输出”，文本对齐为“居中”。“输出”命令按钮单击事件的第1处需要定义19个变量的数组，语句为Dim f(19) As Integer，第2处是For循环体，循环体是计算Fibonacci数列第19项的值，语句为f(i)=f(i-1)+f(i-2)，第3处是将计算结果显示在窗体上名为“tData”的文本框内，语句为tData=f(19)。 35套,19,调试完毕，必须点击输出命令按钮生成外部文件，才能得分。试根据上述功能要求，对已给的命令按钮事件过程进行补充和完善。注意：不允许修改数据库中的宏对象mEmp；不允许修改窗体对象fEmp和报表对象rEmp中未涉及的控件和属性；不允许修改表对象tEmp中未涉及的字段和属性；已给事件过程，只允许在*Add*与*Add*之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。本题主要考的是数据表有效性规则的设置、窗体的设计、报表的设计、VBA的数据库编程。,5、打开窗体对象“fEmp”的设计视图，选中“bTitle”标签，右击鼠标选择属性，设置其“宽度”为“5厘米”，“高度”为“1厘米”，“标题”为“数据信息输出”，文本对齐为“居中”。“输出”命令按钮单击事件的第1处需要定义19个变