首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经没计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补允设计。 (1)设置表对象“tEmp”中“年龄”字段的有效性规则
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经没计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补允设计。 (1)设置表对象“tEmp”中“年龄”字段的有效性规则
admin
2017-02-16
52
问题
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经没计好了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补允设计。
(1)设置表对象“tEmp”中“年龄”字段的有效性规则为:年龄值在20~50岁之间(小含20岁和50岁),相应有效性文本设置为“请输入有效年龄”。
(2)没置报表“rEmp”按照“性别”字段降序(先女后男)排列输出;将报表页面页脚区域内名为“tPage”的文本框控件设置为“第N页/共M页”形式显示。
(3)将“fEmp”窗体上名为“btnP”的命令按钮由灰色无效状态改为有效状态。设置窗体标题为“职工信息输出”。
(4)根据以下窗体功能要求,对已给的命令按钮事件过程进行补允和完善。在“fEmp”窗体上单击“输出”命令按钮(名为“btnP”),弹出一个输入对话框,其提示文本为“请输入大于0的整数值”。
输入1时,相关代码关闭窗体(或程序)。
输入2时,相火代码实现预览输出报表对象“rEmp”。
输入≥3时,相关代码调用宏对象“mEmp”,以打开数据表“tEmp”。
注意:不要修改数据库中的宏对象“mEmp”;不要修改窗体对象“fEmp”和报表对象“rEmp”中未涉及的控件和属性;不要修改表对象“tEmp”中未涉及的字段和属性。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句,完成设计。不允许增删和修改其他位置已存在的语句。
选项
答案
(1)【操作步骤】 步骤1:选择“表”对象,右键单击“tEmp”表,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“年龄”字段行仟一点,在“有效性规则”行输入“>20and<50”,存“有效文本”行输入“请输入有效年龄”,如图3.278所示。 [*] 步骤3:按Ctd+S保存修改,关闭设计视图。 (2)【操作步骤】 步骤1:选择“报表”对象,右键单击“rEmp”报表,从弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“报表设计上具”的“设计”选项卡“分组和汇总”组中的“分组和排序”按钮,在“分组、排序和汇总”界面选择“添加排序”,选择“排序依据”下拉列表中的“性别”字段,选择“降序”,如图3.279所示,关闭界面。 [*] 步骤3:右键单击“tPage”,从弹出的快捷菜单中选择“属性”命令,在“全部”选项卡“控件来源”行输入“="第"&[Page]&"页/共"[Pages]_&"页"”,如图3.280所示。关闭属性表。将该控件调整到合适的大小。 [*] 步骤4:按Ctrl+S保存修改,关闭设计视图。 (3)【操作步骤】 步骤1:选择“窗休”对象,右键单击“fEmp”窗体,从弹出的怏捷菜单中选择“设计视图”命令。 步骤2:右键单击命令按钮“btnP”,从弹出的快捷菜单中选择“属性”命令,在“数据”选项卡的“可用”行下拉列表中选择“是”,如图3.281所示。关闭属性表。 [*] 步骤3:右键单击“窗体选择器”,从弹出的快捷菜单中选择“属性”命令,在“标题”行输入“职工信息输出”。关闭属性表。 (4)【操作步骤】 步骤1:右键单击命令按钮“输出”,从弹出的快捷菜单中选择“事件生成器”命令,在弹出的对话框中选择“代码生成器”,单击“确定”按钮,进入编程环境,在空行内输入以下代码: Private Sub btnP-Click() Dim k As String ′*****Add1***** k=InputBox("请输入大于0的整数","Msg") ′*****Add1***** If k=""Then Exit Sub Select Case Val(k) Case Is >=3 DoCmd.RunMacro"mEmp" Case 2 ′*****Add2***** DoCmd.OpenReport"mEmp" ′*****Add2***** Case 1 DoCmd.Close End Select End Sub 如图3.282所示。 [*] 步骤2:关闭界面,按Ctrl+S保存修改,关闭设计视图。
解析
转载请注明原文地址:https://kaotiyun.com/show/f2Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段后,变量e的值是______。a$="3":b$="5"c=Val(a$)+Val(b$)d=Val(a$+b$)e=c+d
设在窗体上有一个名称为Command1的命令按钮,并有以下事件过程:PrivateSubCommand1_Click()StaticbAsVariantb=Array(1,3,5,7,9)…
有如下函数过程:Functiongys(ByValxAsInteger,ByValyAsInteger)AsIntegerDoWhiley0preminder=x/yx=yy=preminderLoopgys=xE
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() c=1234 c1=Trim(Str(C)) Fori=1To4 Print_____
有如下程序。PrivateSubCommand1_Click()DimaAsSingleDimbAsSinglea=5:b=4CallSub1(a,b)EndSubSubSub1(xAs
如果在程序中要将c定义为静态变量,且为整型数,则应使用的语句是
声明一个变量为局部变量应该用()。
产生[10,27]之间的随机整数的VisualBasic表达式是
在窗体上画一个命令按钮,然后编写如下事件过程: PrivateSubCommand1_Click() x=0 DoUntilx=-1 a=lnputBox("请输入第一个数字a的值") a=Val(A0
关系数据库中有3种基本操作,将具有共同属性的两个关系中的元组连接到一起,构成新表的操作称为______。
随机试题
最简便的膳食评估方法为:()
TheBakersarrivedlastnight,ifthey’donlyletusknowearlier,_____atthestation.
特发性血小板减少性紫瘢的首选治疗是
关于净现值(NPV)和内部收益率(IRR)的说法,正确的是()。Ⅰ.使得项目净现值为零的折现率即为该项目的内部收益率Ⅱ.内部收益率是使得现金流入现值与现金流出现值相等的折现率Ⅲ.净现值法假设现金流的再投资收益率为资本成本,而内部收益率法则假设
会计凭证按照填制程序和用途的不同分为()。
《我们怎样思维》的作者是()。
春雨对于()相当于()对于了解
茶叶只有在开水中才能绽放自己生命的春天,请你根据这句话做个演讲。
乙向甲借款20万元,借款到期后,乙的下列哪些行为导致无力偿还甲的借款时,甲可申请法院予以撤销?()[2016年法考真题]
WhereDidAlltheShipsGo?TheBermudaTriangleisone【51】thegreatestmysteriesofthesea.Inthistriangularareabetween
最新回复
(
0
)