首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下,存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。
在考生文件夹下,存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。
admin
2017-01-17
28
问题
在考生文件夹下,存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStudent”,同时还设计出窗体对象“fQuery”、“fStudent”和“fCount”。请在此基础上按照以下要求补充“fQuery”和“fCount”窗体的设计。
(1)加载“fQuery”时重置窗体标题并改为“显示查询信息”,将窗体中“退出”命令按钮(名称为“命令7”)上显示的文字颜色自动改为红色(红色值为255),字体粗细改为“加粗”(加粗值为700)。请按照VBA代码中的指示将实现此功能的代码补充完整。
(2)在“fQuery”窗体距主体节上边0.4 cm、左边0.4 cm位置添加一个矩形控件,其名称为“rRim”;矩形宽度为16.6 cm、高度为1.2 cm、特殊效果为“凿痕”。将窗体边框改为“对话框边框”样式,取消窗体中的水平和乖直滚动条、记录选择器、导航按钮和分隔线。
(3)在“fQuery”窗体中有一个“显示全部记录”命令按钮(名称为bList),单击该按钮后,应实现将“tStudent”表中的伞部记录显示出来的功能。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
要求:修改后运行该窗体,并查看修改结果。
(4)在“fCount”窗体中有两个列表框、一个文本框和一个命令按钮,名称分别为“List0”、“List1”、“tData”和“Cmd”。在“tData”文本框中输入一个数,单击“Cmd”按钮,程序将判断输入的值是奇数还是偶数,如果是奇数将填入“List0”列表中,否则填人“List1”列表中。根据以上描述,请按照VBA代码中的指爪将代码补充完整。
注意:不允许修改窗体对象“fQuery”、“IStudent”和“fCount”中未涉及的控件、属性;不允许修改表对象“tStudent”。程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。
选项
答案
(1)步骤1:选择“窗体”对象,右键单击“fQuery”窗体,在弹出的快捷菜单中选择“设计视图”命令,打开设计视图。 步骤2:双击标尺相交处的“窗体选择器”,打开“属性表”对话框,在该对话框中单击“事件”选项卡,然后单击该选项卡下的“加载”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤3:在“*****Add1*****”区域的空白行中输入“Me.Caption="显示查询信息"”;在“’*****Add2*****”区域的空白行中输入“Me.命令7.ForeColor=255”;在“’*****Add3*****区域的空白行中输入“Me.命令7.FontWeight=700”,如图4.16所示。 [*] 步骤4:单击快速工具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤5:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。 (2)步骤1:选择“窗体”对象,右键单击“fQuery”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡下“控件”组中的“其他”下拉按钮,然后单击控件组中的“矩形”按钮,最后单击窗体主体节区的任意区域。 步骤3:右键单击刚画好的“矩形”,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,单击该对话框下的“全部”选项卡,在该选项卡的“名称”行中输入“rRim”,在“宽度”行中输入“16.6cm”,在“高度”行中输入“1.2cm”,在“上边距”行中输入“0.4cm”,在“左”行中输入“0.4cm”,在“特殊效果”行中选择“凿痕”,如图4.17所示。 [*] 步骤4:双击标尺相交处的“窗体选择器”,弹出“属性表”对话框,在该对话框中单击“格式”选项卡,在该选项卡的“边框样式”行中选择“对话框边框”,在“滚动条”行中选择“两者均无”,在“记录选择器”行中选择“否”,在“导航按钮”行中选择“否”,在“分隔线”行中选择“否”,如图4.18所示。 [*] 步骤5:关闭“属性表”对话框。单击快速工具栏中的“保存”按钮。 (3)步骤1:右键单击“显示全部记录”命令按钮,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,单击该对话框下的“事件”选项卡,然后单击该选项卡下“加载”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤2:在“’*****Add4*****”区域的“BBB.Form.RecordSource="”行后输入“select*from tStudent"”,如图4.19所示。 步骤3:单击快速上具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤4:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。 [*] (4)步骤1:选择“窗体”对象,右键单击“fCount”窗体,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:右键单击“Cmd”按钮,在弹出的快捷菜单中选择“属性”命令,打开“属性表”对话框,单击该对话框下的“事件”选项卡,然后单击该选项卡的“单击”行右侧的事件生成器按钮,进入VBA代码编辑区。 步骤3:在“’*****Add*****”区域的空白行中输入“If x Mod 2=1 Then”,如图4.20所示。 [*] 步骤4:单击快速工具栏中的“保存”按钮,然后关闭VBA代码编辑区。 步骤5:单击快速工具栏中的“保存”按钮,然后关闭“设计视图”。
解析
第1、3小题直接右键单击窗体选择器,选择“属性”命令,设置加载事件,在VBA代码编辑区实现代码编辑。第2小题在窗体的设计视图中增加控件,对控件属性进行设置;第4小题右键单击控件,选择“属性”命令,通过VBA编程设置单击事件。
转载请注明原文地址:https://kaotiyun.com/show/Nggp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
设有命令按钮Commandl的单击事件过程,代码如下:PrivateSubCommandl_Click()Dima(3,3)AsIntegerFori=1To3Fori=1To3a(i,j)=i*j+i+jNextjN
关于更新查询,下列说法中正确的是()。
关系数据库管理系统应能实现的专门关系运算包括()。
下列不属于软件工程三个要素的是()。
在窗体上画一个命令按钮,名称为Commandl,然后编写如下程序:PrivmeSubCommandl_Click()DimintNumAsIntegerintNum=InputBox(“请输入:”)MsgBoxf(intNum)End
因修改文本框中的数据而触发的事件是()。
在数据表视图中,不能进行的操作是()。
若将文本型字段的输入掩码设置为“####-######”,则正确的输入数据是()。
层次型、网状型和关系型数据库划分原则是()。
若在窗体设计过程中,命令按钮CornmanelO的事件属性设置如下图所示,则含义是
随机试题
使用“设计”选项卡的“背景样式”命令可以改变幻灯片的背景。()
水痘患儿应隔离至
A供气公司位于N省B市C县工业园区内,有员工225人,法定代表人为甲。甲认为,公司员工不足300人,没有必要设置安全生产管理部门,也没有必要配备专职安全生产管理人。公司技术人员乙于2010年通过了全国注册安全工程师执业资格考试,但未注册。乙被甲任命为公司兼
下列关于欺诈发行股票、债券罪客观要件的说法中,错误的是()。
甲公司与乙公司签订买卖合同后,为了支付价款,甲公司签发了一张以乙公司为收款人的银行承兑汇票,公司财务经理签字,并加盖了公司的合同专用章。承兑人丙银行的代理人签字并加盖了银行的汇票专用章。乙公司背书转让给丁公司后,丁公司在票据到期时向丙银行请求付款。根据票据
在内部控制审计中,注册会计师应当对期末财务报告流程进行评价。以下内容不属于期末财务报告流程的内容的是()。
关于持有待售类别和终止经营的列报,下列表述中错误的是()。
简述中学德育的途径。
已知A,B,C的坐标分别是A(3,0),B(0,3),C(cosα,sinα).若的值.
A-----actionadvertisingJ------magazineadvertisingB-----airportadvertisingK-----neonlightadvertising
最新回复
(
0
)