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

admin2017-03-21  32

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”,查询对象“qEmp”和窗体对象“fEmp”。同时,给出窗体对象“fEmp”上“退出”按钮的单击事件代码,试按以下功能要求补充设计。
    (1)将窗体“fEmp”上文本框“tSS”更改为组合框类型,并保持控件名称不变。
    (2)修改查询对象“qEmp”为参数查询,参数为引用窗体对象“tEmp”上文本框“tSS”的输入值。
    (3)设置窗体对象“fEmp”上文本框“tAge”为计算控件。要求根据“年龄”字段值依据以下计算公式计算并显示人员的出生年。
    计算公式:出生年=Yearl(Date0)-年龄或出生年=Year(NOW0)一年龄
    (4)单击“退出”按钮(名为“bt2”),关闭窗体。补充事件代码。
    注意:不允许修改数据库中的表对象“tEmp”;不允许修改查询对象“qEmp”中未涉及的内容:不允许修改窗体对象“fEmp”中未涉及的控件和属性。
    程序代码只允许在“***Add***”与“***Add***”之间的空行内补充一行语句完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案【操作步骤】 (1)步骤1:打开“samp3.accdb”数据库窗口,在<开始>功能区的“报表”面板中右击“rEmp”报表,选择“设计视图”快捷菜单命令,打开“rEmp”的设计视图。 步骤2:单击<分组和汇总>分组中的“分组和排序”命令,在下方打开“分组、排序和汇总”窗口。在窗口中单击“添加组”按钮,在弹出的字段选择器中选择“性别”字段,然后依次设置“排序次序”选择“降序”,单击“更多”按钮,设置“有页眉节”。 步骤3:单击<控件>分组中的“文本框”按钮,在“性别页眉”中相应的区域拖动出文本框(删除文本框前新增的标签),右键单击该文本框,在弹出的快捷菜单中选择“属性”命令,在对话框中的“名称”中输入“SS”,在“数据”选项卡中“控件来源”里选择“性别”字段,关闭当前对话框。 步骤4:选中页面页脚中的“tPage”文本框,在<属性表>对话框的“控件来源”行输入:=【Page】&”/”&[Pages],单击快速访问工具栏中的“保存”按钮,关闭报表视图。 (2)步骤1:在<开始>功能区的“窗体”面板中右击“fEmp”窗体,选择“设计视图”快捷菜单命令,打开“fEmp”的设计视图。单击“打开表”命令按钮,在<属性表>对话框中,修改“可用”属性的值为“是”。 步骤2:在<属性表>对话框的左上角的下拉菜单选择“tData”,在其对应的“’rab索引"行输入:0。 步骤3:在<属性表>对话框的左上角的下拉菜单选择“btnP”,在其对应的“Tab索引”行输入:1。 步骤4:在<属性表>对话框的左上角的下拉菜单选择“btnQ”,在其对应的“Tab索引”行输入:2。 步骤5:单击快速访问工具栏中的“保存”按钮保存设置。 (3)步骤1:单击<窗体设计工具-设计>功能区的<工具>分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Addl****”行之间输入代码: Caption=bTitle.Caption 在“****Add2****”行之间输入代码: Dim i As Integer n=0 For i=0 T0 10000 If sushu(i)=True Then n=n+1 mn=i End If Next i 在“****Add3****”行之间输入代码: DoCmd.RunMacro”mEmp” 步骤2:双击“窗体”面板中的“fEmp”窗体,运行窗体文件,然后单击窗体中的“输出”按钮,输出结果。 步骤3:单击快速访问工具栏中的“保存"按钮,关闭代码窗口。

解析
转载请注明原文地址:https://jikaoti.com/ti/9o20FFFM
0

最新回复(0)