首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计好表对象"tStud",同时还设计出窗体对象"fStud"和子窗体对象"fDetail"。请在此基础上按照以下要求补充"fStud"窗体的设计。 (1)将窗体标题改为"学生查询"。
考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计好表对象"tStud",同时还设计出窗体对象"fStud"和子窗体对象"fDetail"。请在此基础上按照以下要求补充"fStud"窗体的设计。 (1)将窗体标题改为"学生查询"。
admin
2013-04-09
33
问题
考生文件夹下存在一个数据库文件"samp3.mdb",里面已经设计好表对象"tStud",同时还设计出窗体对象"fStud"和子窗体对象"fDetail"。请在此基础上按照以下要求补充"fStud"窗体的设计。
(1)将窗体标题改为"学生查询"。
(2)将窗体的边框样式改为"细边框",取消窗体中水平和垂直滚动条、记录选定器、浏览按钮(导航按钮)和分割线;将子窗体边框样式改为"细边框",取消子窗体中的记录选定器、浏览按钮(导航按钮)和分割线。
(3)在窗体中有两个标签控件,名称分别为"Label1"和"Label2",将这两个标签上的文字颜色改为白色,背景颜色改为紫蓝色(紫蓝色代码为8388608)。
(4)将窗体主体节中控件的Tab次序改为:
"CItem"→"TxtDetail"→"CmdRefer"→"CmdList"→"CmdClear"→"fDtail"→"简单查询"→"Frame18"。
(5)按照以下窗体功能,补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件,名称分别为"CItem"和"TxtDetail";有两个标签控件,名称分别为"Label3"和"Ldetail";还有三个命令按钮,名称分别为"CmdList"、"CmdRefer"和"CmdClear"。在"CItem"组合框中选择某一项目后,"Ldetail"标签控件将显示出所选项目名加上"内容:"。在"TxtDetail"文本框中输入具体项目值后,单击"CmdRefer"命令按钮,如果"CItem"和"TxtDetail"两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为"注意",提示文字为"查询项目和查询内容不能为空!!!",消息框中只有一个"确定"按钮;单击"CmdList"命令按钮,在子窗体中显示"tStud"表中的全部记录;单击"CmdClear"命令按钮,将"CItem"和"TxtDetail"两个控件中的值清空。
注意:不允许修改窗体对象"fStud"和子窗体对象"fDetail"中未涉及的控件、属性和任何VBA代码;不允许修改表对象"tStud"。代码设计只允许补充一条语句、完成设计,不允许增删和修改其他位置已存在的语句。
选项
答案
(1)【操作步骤】 步骤1:选择"窗体"对象,右击"fStud",在弹出的快捷菜单中选择"设计视图"命令,打开设计视图。 步骤2:在窗体的任意位置右击,在弹出的快捷菜单中选择"属性"命令,在打开的"属性"对话框的下拉列表中选择"窗体",并选择"全部"选项卡。在"标题" 文本框中输入"学生查询"。 (2)【操作步骤】 步骤1:在"属性"对话框的"格式"选项卡中,选择"边框样式"下拉列表中的"细边框"选项。 步骤2:分别单击选择"滚动条"、"记录选择器"、"导航按钮"和"分隔线"下拉列表中的"两者均无"或"否"选项。 步骤3:按照同样的方法设置子窗体的"边框样式"为"细边框",再设置"记录选择器"、"导航按钮"和"分隔线"的属性。 (3)【操作步骤】 在"属性"对话框中分别选择"Label1"和"Label2",在"格式"选项卡中设置"前景色"为"白色",设置"背景色"为"8388608"。关闭"属性"对话框。 (4)【操作步骤】 步骤1:在窗体的任意位置右击,在弹出的快捷菜单中选择"Tab键次序"命令,打开 "Tab键次序"对话框,在"自定义顺序"列表中通过拖动各行来调整Tab键的次序。 步骤2:单击"确定"按钮,关闭"Tab键次序"对话框。 (5)【操作步骤】 在设计视图中的任意位置右击,在弹出的快捷菜单中选择"事件生成器"命令,在弹出的对话框中选择"代码生成器"选项,单击"确定"按钮,在空行依次输入: ’************************* Add1 ************************ Dim aa aa = cItem.Value Ldetail.Caption = aa + "内容:" ’************************* Add1 ************************ ’************************* Add2 ************************ fDetail.Form.RecordSource = "tStud" ’************************* Add2 ************************ ’************************* Add3 ************************* MsgBox "查询项目和查询内容不能为空", vbOKOnly, "注意" ’************************* Add3 *************************
解析
转载请注明原文地址:https://jikaoti.com/ti/m8V0FFFM
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
假定有如下的Sub过程:subsfun(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮(名为Command1),然
在深度为7的满二叉树中,度为2的结点个数为【】。
设有如下窗体单击事件过程:PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+lCase2,4
在创建交叉表查询时,列标题字段的值显示在交叉表的位置是______。
如果字段内容为声音文件,则该字段的数据类型应定义为______。
函数String(n,"str")的功能是()。
Access提供了组成查询准则的运算符是()。
关系模型中的“关系”是指______数据之间按照某种序列排序的集合关系。
设有以下窗体单击事件过程:privateSubForm_Click()a=1Fori=lTO3SelectCaseiCase1,3a=a+1
随机试题
黏附分子包括
某贫困地区,终年食用玉米,皮炎、舌炎、腹泻及周围神经炎患者较多,痴呆发病率远高于其他地区。从营养角度分析,该地饮食可能缺乏
患儿,3岁。形体消瘦显着,面色萎黄,食欲不振,肚腹膨胀,青筋暴露,毛发稀疏结穗,精神烦躁,夜卧不宁,舌淡苔腻,脉沉细而滑。诊断为疳证,治疗宜用
2003年5月王某(男)与赵某结婚,双方书面约定婚后各自收入归个人所有。2005年10月王某用自己的收入购置一套房屋。2005年11月赵某下岗,负责照料女儿及王某的生活。2008年8月王某提出离婚,赵某得知王某与张某已同居多年。法院应支持赵某的下列哪些主张
如果有同事在你认为不值得一提的小事上挑毛病,你会怎样对待他?()
已知a、b、c、d都是正整数,且a>b>c>d,a+b+c+d=2004,2a-2b+2c-2d=2004,则a+d的最小值是()。
BartholdioriginallyplannedforhisstatuetobeaMuslimpeasantwomanguardingtheapproachtotheSuezCanal.Instead,shes
(Duringthediscussion),Mr.White(remainedsilent)(when)(asking)hisopinion.
InAmericathejudicialisheadedby
Driver’sLicenseTestTipsA)Thisarticlewillprovideyouwithsomesimpletipsforpassingyourdriver’slicensetest.Adequat
最新回复
(
0
)