计算机二级ACCESS窗体功能：补充事件代码设计

一、在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit” 和“CmdSave” ，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按 钮后， “保存”按钮变为可用，同时在窗体的左侧显示出相应的信息和可修改的 信息。如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内 容不相符，当单击“保存”按钮后，屏幕上应弹出如下图所示的提示框。现已编 写了部分VBA代码，请按照VBA代码中的指示将代码补充完整。
件过程，只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语 句、完成设计，不允许增删和修改其它位置已存在的语句。 【解题步骤】 步骤1：右键单击命令按钮“bt2”选择【事件生成器】 。在空行内输入代码： *****Add***** DoCmd.Close *****Add***** 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 四、按照以下窗体功能，补充事件代码设计。 在窗体的四个文本框内输入合法的职工信息后， 单击 “追加” 按钮 （名为bt1） ， 程序首先判断职工编号是否重复，如果不重复则向表对象“tEmp”中添加职工纪 录，否则出现提示；当单击窗体上的“退出”按钮（名为bt2）时，关闭当前窗 体。 注意：不允许修改表对象“tEmp”中未涉及的结构和数据；不允许修改窗体 对象“fEmp”中未涉及的控件和属性；代码设计只允许在“*****Add*****”与 “*****Add*****”之间的空行内补充语句、完成设计，不允许增删和修改其它 位置已存在的语句。 【操作步骤】 步骤1：右键单击命令按钮“追加”选择【事件生成器】 ，在空行输入代码： *****Add1***** If Not ADOrs.EOF Then *****Add1***** 步骤2：关闭界面。 步骤3：右键单击命令按钮“退出”选择【事件生成器】 ，在空行输入代码： *****Add2***** DoCmd.Close *****Add2***** 步骤4：关闭界面。单击工具栏中“保存”按钮，关闭设计视图。 五、单击“刷新”按钮（名为“bt1” ） ，在事件过程中补充语句，动态设置窗体 记录源为查询对象 “qEmp” ，实现窗体数据按性别条件动态显示退休职工的信息； 单击“退出”按钮（名为“bt2” ） ，调用设计好的宏“mEmp”来关闭窗体。 注意：不允许修改数据库中的表对象tEmp”和宏对象“mEmp” ；不允许修 改查询对象“qEmp”中未涉及的属性和内容；不允许修改窗体对象“fEmp”中未 涉及的控件和属性；已给事件过程，只允许在“*****”与“*****”之间的空行 内补充语句、完成设计,不允许增删和修改其它位置已存在的语句。 【解题步骤】 步骤1：右键单击命令按钮“刷新”选择【事件生成器】 ，在空行内输入代码： ***** Form.RecordSource＝"qEmp" ***** 步骤2：关闭界面。
调试完毕，必须单击“输出”命令按钮生成外部文件，才能得分。 试根据上述功能要求，对已给的命令按钮事件过程进行补充和完善。 注意：不允许修改数据库中的宏对象“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***** 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 步骤4：双击“fEmp”窗体，将其在窗体视图下打开，然后单击窗体上的“输 出”命令按钮，生成外部文件，最后关闭窗体。 九、试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。在 “fEmp”窗体上单击“输出”命令按钮（名为“btnP” ）,弹出一输入对话框，其 提示文本为“请输入大于0的整数值” 。 输入1时，相关代码关闭窗体（或程序） ； 输入2时，相关代码实现预览输出报表对象“rEmp” ； 输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp” 。 注意：不允许修改数据库中的宏对象“mEmp” ；不允许修改窗体对象“fEmp” 和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉 及 的 字 段 和 属 性 ； 已 给 事 件 过 程 ， 只 允 许 在 “ ******Add****** ” 与 “******Add******”之间的空行内补充语句、完成设计，不允许增删和修改其 它位置已存在的语句。 【解题步骤】 步骤1：右键单击命令按钮“输出”选择【事件生成器】 ，空行内输入代码： *****Add1***** k=InputBox（"请输入大于0的整数"） *****Add1***** *****Add2***** DoCmd.OpenReport "rEmp",acViewPreview *****Add2***** 步骤2：单击工具栏中“保存”按钮，关闭设计视图。
【解题步骤】 步骤1：在设计视图中右键单击命令按钮“保存”选择【事件生成器】 ，在空 行内输入代码： ********Add********* MsgBox“请重新输入口令！ ” ，vbOKquit ********Add********* 步骤2：关闭界面，单击工具栏中“保存”按钮，关闭设计视图。 二、在窗体中有一个“显示全部记录”命令按钮（名称为bList） ，单击该按钮后， 应实现将“tStudent”表中的全部记录显示出来的功能。现已编写了部分VBA代 码，请按照VBA代码中的指示将代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fQuery”和“fStudent”中未涉及的控件和属 性；不允许修改表对象“tStudent” 。对于VBA代码，只允许在“************” 与“**********”之间的一空行内补充语句、完成设计，不允许增删和修改其它 位置已存在的语句。 【解题步骤】 步骤1：右键单击“显示全部记录”命令按钮选择【事件生成器】 。 步骤2：在空行内输入代码： ***请在下面双引号内添入适当的SELECT语句*** BBB.Form.RecordSource＝"select * from tStudent" ******************* 步骤3：关闭界面。 步骤4：单击工具栏中“保存”按钮，关闭设计视图。 步骤5：双击窗体“fQuery”,单击“显示全部记录”按钮，查看该窗体运行 结果。 三、补充事件代码，实现功能：单击“退出”按钮（名为“bt2” ） ，关闭窗体。 注意：不允许修改数据库中的表对象“tEmp” ；不允许修改查询对象“qEmp” 中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性；已给事
十、在窗体中还有“修改”和“保存”两个命令按钮，名称分别为“CmdEdit” 和“CmdSave” ，其中“保存”命令按钮在初始状态为不可用，当单击“修改”按 钮后， “保存”按钮变为可用。现已编写了部分VBA代码，请按照上述功能要求将 VBA代码补充完整。 要求：修改后运行该窗体，并查看修改结果。 注意：不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件和属性； 不 允 许 修 改 表 对 象 “ tAddr ” 和 “ tUser ” 。已给事件过程，只允许在 “******Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设 计，不允许增删和修改其它位置已存在的语句。 【解题步骤】 步骤1：右键单击命令按钮“修改”选择【事件生成器】 ，在空格行输入： ********Add********** CmdSave.Enabled=True ********Add********** 步骤2：关闭界面。 步骤3：单击工具栏中“保存”按钮，关闭设计视图。 步骤4：双击窗体“fEdit” ，单击“修改”按钮，查看运行结果。 十一、补充窗体“fTest”上“test1”按钮（名为“bt1” ）的单击事件代码，实 现以下功能： 打开窗体，在文本框“tText”中输入一段文字，然后单击窗体“fTest”上 “test1” 按钮 （名为 “bt1” ） ， 程序实现将文本框内容作为窗体上的标签 “bTitle” 的标题显示。 注意：不允许修改窗体对象“fTest”中未涉及的控件和属性；只允许在 “*******Add******”与“********Add********”之间的空行内补充语句、完 成设计。 【解题步骤】 步骤1：选中“窗体”对象，右键单击“fTest”选择【设计视图】 。 步骤2：右键单击“test1”按钮选择【事件生成器】 ，在空行内输入： *****Add***** bTitle.Caption＝tText *****Add***** 步骤3：关闭界面。 十二、试根据以下窗体功能要求，对已给的命令按钮事件过程进行补充和完善。 在“fEmp”窗体上单击“输出”命令按钮（名为“btnP” ） ，弹出一输入对话 框，其提示文本为“请输入大于0的整数值” 。 输入1时，相关代码关闭窗体（或程序） ； 输入2时，相关代码实现预览输出报表对象“rEmp” ； 输入>=3时，相关代码调用宏对象“mEmp”以打开数据表“tEmp” 。 注意：不允许修改数据库中的宏对象“mEmp” ；不允许修改窗体对象“fEmp” 和报表对象“rEmp”中未涉及的控件和属性；不允许修改表对象“tEmp”中未涉 及的字段和属性； 已给事件过程， 只允许在 “*****Add*****” 与 “*****Add*****” 之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。 【解题步骤】