3.综合应用题

　　在考生文件夹下有一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“fEmp”。同时，给出窗体对象“fEmp”上两个按钮的单击事件代码，请按以下要求补充设计：

　　（1）将窗体“fEmp”上名称为“tSS”的文本框控件改为组合框控件，控件名称不变，标签标题不变。设置组合框控件的相关属性，以实现从下拉列表中选择输入性别值“男”和“女”；

　　（2）将查询对象“qEmp”改为参数查询，参数为窗体对象“fEmp”上组合框“tSS”的输入值；

　　（3）将窗体对象“fEmp”上名称为“tPa”的文本框控件设置为计算控件。要求依据“党员否”字段值显示相应内容，如果“党员否”字段值为True，显示“党员”两个字，如果“党员否”字段值为False，显示“非党员”3个字；

　　（4）在窗体对象“fEmp”上有“刷新”和“退出”两个命令按钮，名称分别为“bt1”和“bt2”。单击“刷新”按钮，窗体记录源改为查询对象“qEmp”；单击“退出”按钮，关闭窗体。现已编写了部分VBA代码，请按VBA代码中的指示将代码补充完整。

　　注意：不允许修改数据库中的表对象“tEmp”；不允许修改查询对象“qEmp”中未涉及的内容；不允许修改窗体对象“fEmp”中未涉及的控件和属性。

　　程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

　　3.综合应用题

　　【考点分析】

　　本题考点：窗体中文本框、命令按钮、组合框控件属性的设置；查询的设置;VBA编程。

　　(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：关闭界面。单击工具栏中“保存”按钮，关闭设计视图。