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

《计算机二级access窗体功能：补充事件代码设计》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

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

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

3、*******”之间的一空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】步骤1：右键单击“显示全部记录”命令按钮选择【事件生成器】。步骤2：在空行内输入代码：***请在下面双引号内添入适当的SELECT语句***BBB.Form.RecordSource＝"select*fromtStudent"*******************步骤3：关闭界面。步骤4：单击工具栏中“保存”按钮，关闭设计视图。步骤5：双击窗体“fQuery”,单击“显示全部记录”按钮，查看该窗体运行结果。三、补充事件代码，实现功能：单击“退出”按钮（名为“bt

4、2”），关闭窗体。注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性；已给事件过程，只允许在“*****Add*****”与“*****Add*****”之间的空行内补充语句、完成设计，不允许增删和修改其它位置已存在的语句。【解题步骤】步骤1：右键单击命令按钮“bt2”选择【事件生成器】。在空行内输入代码：*****Add*****DoCmd.Close*****Add*****步骤2：关闭界面。步骤3：单击工具栏中“保存”按钮，关闭设计视图。四、按照以下窗体功能，补充

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

6、入代码：*****Add1*****IfNotADOrs.EOFThen*****Add1*****步骤2：关闭界面。步骤3：右键单击命令按钮“退出”选择【事件生成器】，在空行输入代码：*****Add2*****DoCmd.Close*****Add2*****步骤4：关闭界面。单击工具栏中“保存”按钮，关闭设计视图。五、单击“刷新”按钮（名为“bt1”），在事件过程中补充语句，动态设置窗体记录源为查询对象“qEmp”，实现窗体数据按性别条件动态显示退休职工的信息；单击“退出”按钮（名为“bt2”），调用设计好的宏“mEmp”来关闭窗体。注意：不允许

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

8、。步骤4：单击工具栏中“保存”按钮，关