考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp”上两个按钮的单击事件代码,试按以下要求补充设计。 (1)将窗体“fEmp”上名称为“tSS”的

admin2013-03-01  11

问题 考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp”上两个按钮的单击事件代码,试按以下要求补充设计。
(1)将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件,控件名称不变,标签标题不变。设置组合框控件的相关属性,以实现从下拉列表中选择输入性别值“男”和“女”。
(2)将查询对象“qEmp”改为参数查询,参数为窗体对象“fEmp”上组合框“tSS”的输入值。
(3)将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求依据“党员否”字段值显示相应内容。如果“党员否”字段值为True,显示“党员”两个字:如果“党员否”字段值为False,显示“非党员”三个字。
(4)在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮,名称分别为“bt1”和“bt2”。单击“刷新”按钮,窗体记录源改为查询对象“qEmp”;单击“退出”按钮,关闭窗体。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
注意:不允许修改数据库中的表对象“tEmp”;不允许修改查询对象“qEmp”中未涉及的内容;不允许修改窗体对象“fEmp”中未涉及的控件和属性。程序代码只允许在“********Add*******”与“********Add********”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)步骤1:打开“samp3.mdb”数据库窗口,选中“窗体”对象,右键单击“fEmp”,选择“设计视图”命令。 步骤2:右键单击文本框控件“tSS”,选择【更改为】→【组合框】命令,右键单击“tSS”,选择“属性”命令,在“字段属性”的“行来源类型”行输入:值列表,“行来源”行输入:”男”;”女”。关闭“属性”对话框。 步骤3:单击工具栏中的“保存”按钮,关闭设计视图。 (2)步骤1:选中“查询”对象,右键单击“qEmp”,选择“设计视图”命令。 步骤2:双击“性别”字段,将其添加到“字段”行,在“性别”字段的“条件”行输入:[Forms]![fEmp]![tSS]。 步骤3:单击工具栏中的“保存”按钮,关闭设计视图。 (3)步骤1:选中“窗体”对象,右键单击“fEmp”,选择“设计视图”命令。 步骤2:右键单击文本框“tPa”,选择“属性”命令,在“属性”对话框的“控件来源”行中输入:=IIf([党员否]=True,”党员”,”非党员”),关闭“属性”对话框。 (4)步骤1:右键单击命令按钮“刷新”,选择“事件生成器”命令,在空行内输入代码: *******Add1******** Form.RecordSource=“qEmp” **********Add1********* 步骤2:关闭代码窗口。 步骤3:右键单击命令按钮“退出”,选择“事件生成器”命令,在空行内输入代码: **********Add2********* DoCmd.Close ********Add2******** 步骤4:关闭代码窗口。单击工具栏中的“保存”按钮,关闭设计视图。

解析 本题考点:窗体中文本框、命令按钮、组合框控件属性的设置:查询的设置;VBA编程。
转载请注明原文地址:https://kaotiyun.com/show/KXBD777K
0

相关试题推荐
最新回复(0)