考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”、窗体对象“fEmp”和宏对象“mEmp”。同时,给出窗体对象“fEmp”上一个按钮的单击事件代码,试按以下功能要求补充设计:功能:(1)将窗体“fEmp”上文本框“tSS”更改为组合框类型,保持控件名称不变。设置其相关属性实现下拉列表形式输入性别“男”和“女”。(2)将窗体对象“fEmp”上文本框“tPa”换为复选框类型控件,保持控件名称不变,然后设置控件来源属性以输出“党员否”字段值。(3)修正查询对象“qEmp”设计,增加退休人员(年龄>=55)的条件。(4)单击“刷新”按钮(名为“bt1”),在事件过程中补充语句,动态设置窗体记录源为查询对象“qEmp”,实现窗体数据按性别条件动态显示退休职工的信息;单击“退出”按钮(名为“bt2”),调用设计好的宏“mEmp”来关闭窗体。注意:不允许修改数据库中的表对象“tEmp”和宏对象“mEmp”;不允许修改查询对象“qEmp”中未涉及的属性和内容;不允许修改窗体对象“fEmp”中未涉及的控件和属性。程序代码只允许在“********Add********”与“********Add*******”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。
【正确答案】正确答案:(1)步骤1:打开“samp3.mdb”数据库窗口,选中“窗体”对象,右键单击“femp”,选择“设计视图”命令。 步骤2:右键单击文本框“tSS”,执行【更改为】→【组合框】快捷菜单命令,右键单击“tSS”后,选择“属性”菜单项,在“属性”对话框的“行来源类型”中选中“值列表”,在“数据”选项卡中“行来源”输入:”男”;”女”。 步骤3:单击工具栏中的“保存”按钮。 (2)步骤1:选中“tPa”控件,按下键盘上的键,将该控件删除。 步骤2:选中工具箱“复选框”控件,单击原“tPa”位置。选中“复选框标签”,按下键,将该标签删除。 步骤3;右键单击复选框按钮选择“属性”,在“名称”行输入“tPa”,在“控件来源”行右侧的下拉列表中选中“党员否”,关闭“属性”对话框。 (3)步骤1:选中“查询”对象,右键单击“qEmp”,选择“设计视图”命令。 步骤2:在“性别”下的“条件”栏中输入: [Forms]![fEmp]![tSS],在“年龄”下的“条件”行中输入:>=55。 步骤3:单击“保存”按钮,关闭当前对话框。 (4)步骤1:打开窗体“femp”,选中“刷新”按钮,右键单击选择“事件生成器”命令。输入以下代码:********** RecordSource=”qemp'’ ********** 步骤2:单击“退出”按钮,右键单击选择“事件发生器”命令,选择“宏生成器”,在宏中操作中输入:close。 步骤3:单击工具栏中的“保存”按钮,关闭设计视图。 步骤4:运行该窗体,查看运行结果。
【答案解析】解析:本题考点:窗体中标签、命令按钮控件属性的设置;查询的设置;宏操作,VBA编程。