计算机二级Access窗体功能补充事件代码设计.docx

1、计算机二级Access窗体功能补充事件代码设计一、在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，“保存”按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的信息。如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内容不相符，当单击“保存”按钮后，屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。【解题步骤】 步骤1：在设计视图中右键单击命令按钮“保存”选择【事件生成器】，在空行内输入代码： *Add* MsgBox“请重新

2、输入口令！”，vbOKquit *Add* 步骤2：关闭界面，单击工具栏中“保存”按钮，关闭设计视图。二、在窗体中有一个“显示全部记录”命令按钮（名称为bList），单击该按钮后，应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件和属性；不允许修改表对象“tStudent”。对于VBA代码，只允许在“*”与“*”之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1

3、：右键单击“显示全部记录”命令按钮选择【事件生成器】。 步骤2：在空行内输入代码： *请在下面双引号内添入适当的SELECT语句* * 步骤3：关闭界面。 步骤4：单击工具栏中“保存”按钮，关闭设计视图。 步骤5：双击窗体“fQuery”,单击“显示全部记录”按钮，查看该窗体运行结果。三、补充事件代码，实现功能：单击“退出”按钮（名为“bt2”），关闭窗体。 注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删

4、和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“bt2”选择【事件生成器】。在空行内输入代码： *Add* *Add* 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。四、按照以下窗体功能，补充事件代码设计。 在窗体的四个文本框内输入合法的职工信息后，单击“追加”按钮（名为bt1），程序首先判断职工编号是否重复，如果不重复则向表对象“tEmp”中添加职工纪录，否则出现提示；当单击窗体上的“退出”按钮（名为bt2）时，关闭当前窗体。 注意：不允许修改表对象“tEmp”中未涉及的结构和数据；不允许修改窗体对象“fEmp”中未涉及的控件和属性；代码设计只允许在

5、“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【操作步骤】 步骤1：右键单击命令按钮“追加”选择【事件生成器】，在空行输入代码： *Add1* If Not Then *Add1* 步骤2：关闭界面。 步骤3：右键单击命令按钮“退出”选择【事件生成器】，在空行输入代码： *Add2* *Add2* 步骤4：关闭界面。单击工具栏中“保存”按钮，关闭设计视图。五、单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调

6、用设计好的宏“mEmp”来关闭窗体。注意：不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”；不允许修改查询对象“qEmp”中未涉及的属性和内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性；已给事件过程，只允许在“*”与“*”之间的空行内补充语句、完成设计,不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“刷新”选择【事件生成器】，在空行内输入代码： * qEmp * 步骤2：关闭界面。 步骤3：右键单击命令按钮“退出”选择【属性】，在“事件”选项卡下“单击”行右侧下拉列表中选中“mEmp”，关闭属性界面。 步骤4：单击工具栏中“保存”按钮，关闭设计

7、视图。六、在窗体中有一个“退出”命令按钮（名称为bQuit），单击该按钮后，应关闭“fStudent”窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fGrade”和“fStudent”中未涉及的控件和属性；不允许修改表对象“tStudent”和“tGrade”。 对于VBA代码，只允许在“*”与“*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。(5)【解题步骤】 步骤1：右键单击命令按钮“退出”选择【事件生成器】。输入代码： *请在下面填入一行语句* * 步骤2：关闭属性界

8、面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 步骤4：运行该窗体，查看运行结果。七、补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能： 打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上“test1”按钮（名为“bt1”），补充代码设置窗体上标签“bTitle”的标题为文本框“tText”输入内容与文本串“等级考试测试”的连接并消除连接串的前导和尾随空白字符。 注意：不允许修改窗体对象“fTest”中未涉及的控件和属性；只允许在“*Add1*”与“*Add1*”之间的空行内补充语句、完成设计。【解题步骤】 步骤1：选中

9、“窗体”对象，右键单击“fTest”选择【设计视图】。 步骤2：右键单击“test1”选择【事件生成器】，空行内输入代码： *Add1* =Trim(me!tText+等级考试测试) *Add1*八、在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），实现以下功能:计算Fibonacci数列第19项的值，将结果显示在窗体上名为“tData”的文本框内并输出到外部文件保存；单击“打开表”命令按钮（名为“btnQ”），调用宏对象“mEmp”以打开数据表“tEmp”。 Fibonacci数列： 调试完毕，必须单击“输出”命令按钮生成外部文件，才能得分。 试根据上述功能要求，对已给的命令按钮

10、事件过程进行补充和完善。注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“输出”选择【事件生成器】，在空行相应位置输入如下代码： *Add1* Dim f(19) As Integer *Add1* *Add2* f(i)=f(i-1)+f(i-2) *Add2* *Add3* tData=f(19) *Add3*

11、步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 步骤4：双击“fEmp”窗体，将其在窗体视图下打开，然后单击窗体上的“输出”命令按钮，生成外部文件，最后关闭窗体。九、试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”）,弹出一输入对话框，其提示文本为“请输入大于0的整数值”。 输入1时，相关代码关闭窗体（或程序）； 输入2时，相关代码实现预览输出报表对象“rEmp”； 输入=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。 注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象

12、“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉及的字段和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“输出”选择【事件生成器】，空行内输入代码： *Add1* k=InputBox（请输入大于0的整数） *Add1* *Add2* rEmp,acViewPreview *Add2* 步骤2：单击工具栏中“保存”按钮，关闭设计视图。十、在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中

13、“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，“保存”按钮变为可用。现已编写了部分VBA代码，请按照上述功能要求将VBA代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件和属性；不允许修改表对象“tAddr”和“tUser”。已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“修改”选择【事件生成器】，在空格行输入： *Add* =True *Add* 步骤2：关闭界面。 步骤3：单击工具栏中

14、“保存”按钮，关闭设计视图。 步骤4：双击窗体“fEdit”，单击“修改”按钮，查看运行结果。十一、补充窗体“fTest”上“test1”按钮（名为“bt1”）的单击事件代码，实现以下功能： 打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上“test1”按钮（名为“bt1”），程序实现将文本框内容作为窗体上的标签“bTitle”的标题显示。 注意：不允许修改窗体对象“fTest”中未涉及的控件和属性；只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计。【解题步骤】 步骤1：选中“窗体”对象，右键单击“fTest”选择【设计视图】。 步骤2：右键单击

15、“test1”按钮选择【事件生成器】，在空行内输入： *Add* tText *Add* 步骤3：关闭界面。十二、试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。 在“fEmp”窗体上单击“输出”命令按钮（名为“btnP”），弹出一输入对话框，其提示文本为“请输入大于0的整数值”。 输入1时，相关代码关闭窗体（或程序）； 输入2时，相关代码实现预览输出报表对象“rEmp”； 输入=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp”。注意：不允许修改数据库中的宏对象“mEmp”；不允许修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“

16、tEmp”中未涉及的字段和属性；已给事件过程，只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“输出”选择【事件生成器】，在空行内输入代码： *Add1* Case Is=3 *Add1* *Add2* rEmp,acViewPreview *Add2* 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。十三、按照以下窗体功能，补充事件代码设计。 窗体功能：打开窗体、单击“计算”按钮（名为bt），事件过程使用ADO数据库技术计算出表对象“tEmp”中党员职工的平均年龄，然后将结果

17、显示在窗体的文本框“tAge”内并写入外部文件中。 注意：不允许修改数据库中表对象“tEmp”未涉及的字段和数据；不允许修改窗体对象“fEmp”中未涉及的控件和属性。 代码设计只允许在“*Add*”与“*Add*”之间的空行内填补一行语句、完成设计，不允许增删和修改其它位置已存在的语句。程序必须运行并生成外部文件（）后才能得分。【解题步骤】 步骤1：选中“窗体”对象，右键单击“fEmp”选择【设计视图】。 步骤2：右键单击命令按钮“计算”选择【事件生成器】，在空行内输入代码： *Add1* If Then *Add1* *Add2* tAge=sage *Add2* 步骤3：关闭界面，单击工具

18、栏中“保存”按钮。 步骤4：单击菜单栏【视图】|【窗体视图】，单击“计算”命令按钮，生成外部文件。十四、在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit”和“CmdSave”，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按钮后，应使“保存”按钮变为可用。现已编写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件和属性；不允许修改表对象“tAddr”和“tUser”。 对于VBA代码，只允许在“*”与“*”之间的空行内补充语句、完成设计，不允许

19、增删和修改其它位置已存在的语句。【解题步骤】 步骤1：在设计视图中右键单击命令按钮“修改”选择【事件生成器】，在空行内输入代码： *请在下面添加一条语句* True * 步骤2：关闭界面。 步骤3：单击菜单栏【视图】|【窗体视图】，单击“修改”命令按钮，查看运行结果。十五、在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按VBA代码中的指示将代码补充完整。 注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的

20、内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。程序代码只允许在“*Add*”与“*Add*”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击命令按钮“刷新”选择【事件生成器】，在空行内输入代码： *Add1* =qEmp *Add1* 步骤2：关闭界面。 步骤3：右键单击命令按钮“退出”选择【事件生成器】，在空行内输入代码 *Add2* *Add2* 步骤4：关闭界面。单击工具栏中“保存”按钮，关闭设计视图。十六、在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“fStud”窗体。请按照VBA代码中的指示

21、将实现此功能的代码填入指定的位置中。 注意：不允许修改窗体对象“fStud”中未涉及的控件和属性；不允许修改表对象“tStud”。 程序代码只允许在“*Add*”与“*Add*”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击“退出”命令按钮选择【事件生成器】，在空行内输入代码： *Add* *Add* 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。十七、补充窗体“fTest”上“test1”按钮(名为“bt1”)的单击事件代码，实现以下功能： 打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest

22、”上的“test1”按钮(名为“bt1”)，程序将文本框中的内容作为窗体中标签“bTitle”的标题显示。 注意：不能修改窗体对象“fTest”中未涉及的控件和属性；只允许在“*Add*”与“*Add*”之间的空行内补充语句、完成设计。【解题步骤】 步骤1：选中“窗体”对象，右键单击“fTest”选择【设计视图】。 步骤2：右键单击“test1”按钮选择【事件生成器】，在空行输入代码： *Add* tText *Add* 步骤3：关闭界面。十八、在窗体中有一个“退出”命令按钮(名称为bQuit)，单击该按钮后应关闭“fStudent”窗体。现已编写了部分VBA代码，请按照VBA代码中的指示将代

23、码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fStudent”中未涉及的控件和属性；不允许修改表对象“tStudent”。 程序代码只能在“*”与“*”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击“退出”命令按钮选择【事件生成器】。在空行内输入代码： *请在下面填入一行语句* * 步骤2：关闭属性界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 步骤4：双击窗体对象“fStudent”，单击“退出”命令按钮，查看运行结果。十九、窗体加载时将考生文件夹下的图片文件“”设置为窗体“fEmp”的背景。窗体“加载”事件的部分代码已提供，请补充完整,要求背景图片文件当前路径必须用获得。 注意：不能修改数据库中的表对象“tEmp”和宏对象“mEmp”；不能修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性。 程序代码只允许在“*Add*”与“*Add*”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】 步骤1：右键单击工具栏中“代码”按钮，进入编程环境，在空行内输入代码： *Add* &“” *Add* 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。