首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计: (1)在“rStud”报表的报表
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计: (1)在“rStud”报表的报表
admin
2018-09-20
24
问题
在考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计:
(1)在“rStud”报表的报表页眉节区位置添加一个标签控件,其名称为“rTitle”,其显示文本为“非团员基本信息表”;将报表标题栏上的显示文本设置为“非团员信息”;将名称为“tSex”的文本框控件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算控件,其名称为“tCount”,显示报表学生人数。
(2)将“fSys”窗体的边框样式设置为“细边框”,取消窗体中的水平和垂直滚动条、导航按钮、记录选择器、分隔线、最大化按钮和最小化按钮。
(3)将“fSys”窗体中“用户名称”(名称为“1User”)和“用户口令”(名称为“1Pass”)两个标签上的文字颜色改为红色(红色代码为#FF0000)、字体粗细改为“加粗”。
(4)将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式显示;将名称为“cmdEnter”的命令按钮从灰色状态设为可用;将控件的Tab移动次序设置为:“tUser”→“tPass”→“cmdEnter”→“cmdQuit”。
(5)试根据以下窗体功能和报表输出要求,补充已给事件代码,并运行调试。在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“cmdEnter”和“cmdOuit”。窗体加载时,重置“bTitle”标签的标题为“非团员人数为XX”,这里XX为从表查询计算得到;在输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确,如果输入的用户名称为“csy”,用户密码为“1129”,则显示提示框,提示框标题为“欢迎”,显示内容为“密码输入正确,打开报表!”,单击“确定”按钮关闭提示框后,打开“rStud”报表,代码设置其数据源输出非团员学生信息;如果输入不正确,则提示框显示“密码错误!”,同时清除“tUser”和“tPass”两个文本框中的内容,并将光标移至“tUser”文本框中。当单击窗体上的“退出”按钮后,关闭当前窗体。
以上涉及计数操作统一要求用“*”进行。
注意:不允许修改报表对象“rStud”中已有的控件和属性;不允许修改表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码;只允许在“***Add***”与“***Add***”之间的空行内补充一条代码语句完成设计,不允许增删和修改其它位置已存在的语句。
选项
答案
【操作步骤】 (1)步骤1:双击“samp3.accdb”数据库,在对象导航窗格中右键单击“rStud”报表,选择右键菜单“设计视图”,进入报表的设计视图。 步骤2:在<报表设计工具>选项卡的<控件>命令组中单击“标签”控件,在报表页眉区内单击鼠标绘制,在光标闪动处输入“非团员基本信息表”;单击标签,在<属性表>对话框内修改“名称”为“rTitle”。 步骤3:在“rStud”的设计视图中,在<属性表>对话框上方的对象选择器中选中“报表”,在“格式”选项卡设置“标题”为“非团员信息”。 步骤4:在<属性表>对话框上方的对象选择器中选中“tSex”文本框,在“数据”选项卡设置“控件来源”为“性别”字段。 步骤5:在<报表设计工具>选项卡的<控件>命令组中单击“文本框”控件,在报表页脚区内单击鼠标绘制,则添加了一个带有标签的文本框。单击标签,设置其显示标题为“学生人数”。单击文本框,在<属性表>中设置“名称”为“tCount”,“控件来源”为“=Count([学号1)”。 步骤6:单击快速访问工具栏中的“保存”按钮,保存本步骤设计。 步骤7:在<报表设计工具>选项卡的<视图>命令组中单击“打印预览”命令,查看报表总体效果。 (2),步骤1:在对象导航窗格中右键单击“fSys”窗体,选择右键菜单“设计视图”,进入窗体的设计视图,在<属性表>对话框上方的对象选择器中选中“窗体”。 步骤2:在“格式”选项卡中,设置“边框样式”为“细边框”“滚动条”为“两者均无”“记录选择器”为“否”“导航按钮”为“否”“分隔线”为“否”“关闭按钮”为“是”“最大最小化按钮”为“无”。设计完毕的窗体<属性表>对话框如图12-11所示。 [*] 步骤3:单击快速访问工具栏中的“保存”按钮,保存设置。 步骤4:单击<窗体设计工具>选项卡中<视图>命令组的“窗体视图”命令运行窗体,如图12-12所示。 [*] (3)步骤1:在“fSys”的设计视图中,按住
键单击“用户名称”(名称为“IUser”)和“用户口令”(名称为“1Pass”)两个标签,即同时选中;在<属性表>的“格式”选项卡设置“前景颜色”为“#FF0000”(使用颜色代码更为准确)、“字体粗细”为“加粗”。 步骤2:单击快速访问工具栏中的“保存”按钮,保存设置。 (4)步骤1:在“fSys”的设计视图中,在<属性表>对话框上方的对象选择器中选中“tPass”文本框,在“数据”选项卡中设置其“输入掩码”为“密码”,可通过输入掩码向导完成。, 步骤2:在<属性表>对话框上方的对象选择器中选中“cmdEnter”文本框,在“数据"选项卡中设置其“可用”为“是”。 步骤3:在窗体空白处鼠标右键,在右键菜单中选择“Tab键次序”选项,弹出
对话框,如图12-13所示,在对话框中调整控件次序与题目一致即可。调整的方法是,用单击控件名前面的小方块(即控件选择器),按住鼠标左键拖动到合适位置释放。 [*] 步骤4:单击快速访问工具栏中的“保存”按钮,保存设置。 (5)步骤1:在“fSys”的设计视图中,在<属性表>对话框上方的对象选择器中选中“窗体”,单击“事件”选项卡,在“加载”行内选择“事件过程”,单击“代码生成器”按钮,进入到VBA代码编辑界面。 步骤2:在“****Add1****”之间输入: bTitle.Caption="非团员人数为"&Count("学号","tstud","团员否=yes” 步骤3:在“****Add2****”之间输入: If Me!tUser="csy"And Me!tPass="1129"Then 步骤4:在“****Add3****”之间输入: Me!tUser.SetFocus 步骤5:单击快速访问工具栏中的“保存”按钮,关闭代码窗口。单击“窗体设计工具”选项卡中“视图”命令组的“窗体视图”命令运行窗体,按题目要求测试窗体功能。 步骤6:关闭“tSys”窗体。并关闭“samp3.accdb”数据库。
解析
转载请注明原文地址:https://kaotiyun.com/show/NjMp777K
本试题收录于:
二级Access题库NCRE全国计算机二级分类
0
二级Access
NCRE全国计算机二级
相关试题推荐
在Access中,数据类型主要包括:自动编号、文本、备注、数字、日期/时间、【】、是/否、OLE对象、超级链接和查询向导等。
在面向对象的程序设计中‘类描述的是具有相似性质的一组______。
一般用于存放供其他Access数据库对象使用的公共过程称为______。
VBA“定时”操作中,需要设置窗体的“计时器间隔(Timerinterval)”属性值。其计量单位是______.
排序是计算机程序设计中的一种重要操作,常见的排序方法有插入排序、______和选择排序。
冒泡排序算法在最好情况下的元素交换次数为【】。
宏操作中用于执行指定的外部应用程序的是()命令。
下列关于自动编号数据类型的叙述中正确的是()。
以下程序段运行结束后,变量x的值为()。x=2y=4dox=x*yy=y+1LoopWhiley
能够实现从指定记录集里检索特定字段值的函数是()。
随机试题
动脉瘤是指()
别号“青莲居上”的是()
组成中含有四君子汤药物的方剂是
根据公司法的规定,公司的民主管理要做到( )。
某施工单位承接了南方一座双向四车道分离式隧道施工,隧道穿越的地层有:石灰岩、页岩、泥灰岩,局部夹有煤层,该隧道穿越一向(倾)斜构造。隧道进出口围岩为Ⅴ级(差),洞内Ⅲ级和Ⅳ级呈间隔分布,局部为Ⅴ级。其中左线隧道进口桩号为K15+270,设计控制标高为240
全断面整体现浇的钢筋混凝土无压管渠处于地下水位以下时,除设计要求外,管渠的混凝土强度等级、抗渗等级检验合格,可采用()测渗水量。
税收规划应当遵循的原则有()。
设计传输层的目的是弥补通信子网服务的不足,提高传输服务的可靠性与保证()。
Intheearly20thcentury,ahorsenamedCleverHanswasbelievedcapableofcountingandotherimpressivementaltasks.Aftery
某人编写了下面的程序PrivmeSubCommand1_Click()PrivateSubpro(nAsInteger)DimaAsInteger,bAsIntegerWhile(n>
最新回复
(
0
)