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

admin2010-11-13  11

问题 考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计了表对象“tEmp”、查询对象“qEmp”和窗体对象“tEmp”。同时,给出窗体对象“tEmp”上两个按钮的单击事件代码,试按以下要求补充设计。
   (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”的文本框右键单击,从弹出的快捷菜单中选择【更改为】→【组合框】命令。 步骤3:再次选中该文本框右键单击鼠标,选择“属性”命令。在“属性”对话框中设置“数据”标签中的“行来源类型”值为“值列表”,然后在“行来源”属性中输入“男:女”。如图2-173所示。 [*] (2)步骤1:在“samp3.mdb”数据库窗口中单击“查询”对象,单击“qEmp”查询表。单击“设计”按钮。 步骤2:添加性别列,设置条件为:[Forms]![fEmp]![tSS],取消“显示”复选框的勾选,如图2-174所示。 步骤3:单击“保存”按钮保存查询。 [*] (3)步骤l:在“fEmp”窗体的设计视图中,右键单击名称为“tPa”的文本框控件,选择“属性”命令. 步骤2:在“属性”对话框中,设计“数据”标签中的“控件来源”值为:=IIf([党员否],〝党员〞,〝非党员〞)。 (4)步骤1:在窗体的设计视图中,右键单击窗体中的“刷新”按钮,在弹出的快捷菜单中选择“事件生成器”命令。在“代码生成器”的VBA窗口中选择对应的bt1 Click事件中“*****Addl*****”与“*****Add1****”之间的空行内补充语句:Me.RecordSouree=“qEmp”。 步骤2:然后在bt2 Click的“*****Add2*****”与“*****Add2*****”之间的空行内补充语句:DoCmd.Close。 步骤3:单击“保存”按钮,关闭代码窗口。关闭“samp3.mdb”窗口。

解析 (1)主要考查改变窗体中文本框为组合框,并设置组合框的“行来源类型”和“行来源”属性。(2)主要考查在查询设计器中为字段添加参数条件,这里的性别字段的值为窗体对象“fEmp”上组合框“tSS”的输入值即[Forms]![fEmp]![tSS]。(3)本题考查改变窗体中文本框控件为计算类型,要求实现依据“党员否”字段值显示相应内容。如果“党员否”字段值为True,显示“党员”两个字;如果“党员否”字段值为False,显示“非党员”三个字。可以用.IIF()函数来实现。本题考查为窗体“刷新”和“退出”按钮的单击事件添加代码。
转载请注明原文地址:https://jikaoti.com/ti/SmXiFFFM
0

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