考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计: (1)在“rStud”报表的报表页眉节区位

admin2020-10-27  43

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计:
(1)在“rStud”报表的报表页眉节区位置添加一个标签控件,其名称为“rTitle”,其显示文本为“非团员基本信息表”;将报表标题栏上的显示文本设置为“非团员信息”;将名称为“tSex”的文本框控件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算控件,其名称为“tCount”,显示报表学生人数。
(2)将“fSys”窗体的边框样式设置为“细边框”,取消窗体中的水平和垂直滚动条、导航按钮、记录选择器、分隔线、最大化按钮和最小化按钮。
(3)将“PSys”窗体中“用户名称”(名称为“1User”)和“用户口令”(名称为“1Pass”)两个标签上的文字颜色改为红色(红色代码为#FF0000)、字体粗细改为“加粗”。
(4)将“tSys”窗体中名称为“tPass”的文本框控件的内容以密码形式显示;将名称为“cmdEnter”的命令按钮从灰色状态设为可用;将控件的Tab移动次序设置为:“tUser”→“tPass”→“cmdEnter”→“cmdQuit”。
(5)试根据以下窗体功能和报表输出要求,补充已给事件代码,并运行调试。在窗体中有“用户名称”和“用户密码”两个文本框,名称分别为“tUser”和“tPass”,还有“确定”和“退出”两个命令按钮,名称分别为“emdEnter”和“cmdQuit”。窗体加载时,重置“bTitle”标签的标题为“非团员人数为XX”,这里XX为从表查询计算得到;在输入用户名称和用户密码后,单击“确定”按钮,程序将判断输入的值是否正确,如果输入的用户名称为“csy”,用户密码为“1129”,则显示提示框,提示框标题为“欢迎”,显示内容为“密码输入正确,打开报表!”,单击“确定”按钮关闭提示框后,打开“rStud”报表,代码设置其数据源输出非团员学生信息;如果输入不正确,则提示框显示“密码错误!”,同时清除“tUser”和“tPass”两个文本框中的内容,并将光标移至“tUser”文本框中。当单击窗体上的“退出”按钮后,关闭当前窗体。以上涉及计数操作统一要求用“*”进行。
注意:不允许修改报表对象“rStud”中已有的控件和属性;不允许修改表对象“tStud”。不允许修改窗体对象“fSys”中未涉及的控件、属性和任何VBA代码;只允许在“*****Add*****”与“******Add*****”之间的空行内补充一条代码语句、不允许增删和修改其它位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:打开考生文件夹下的数据库文件samp3.accdb,右键单击“rStud”报表,在弹出的快捷菜单中选择“设计视图”命令。 步骤2:单击“设计”选项卡下“控件”功能组中的“标签”控件,在报表页眉区上绘制一个矩形区域,输入内容“非团员基本信息表”; 步骤3:右键单击“非团员基本信息表”控件,在弹出的快捷菜单中选择“属性”命令。在“属性表”对话框中单击“全部”选项卡,在“名称”行中输入“rTitle”,如图所示。 [*] 步骤4:单击“属性表”对话框的下三角按钮,在弹出的下拉列表中选择“报表”,在“标题”行中输入“非团员信息”,如图所示。 [*] 步骤5:单击“属性表”对话框的下三角按钮,在弹出的下拉列表中选择“tSex”控件,单击“控件来源”右侧的下三角按钮,在弹出的下拉列表中选择“性别”,如图所示。关闭“属性表”对话框。 [*] 步骤6:单击“设计”选项卡下“控件”功能组中的“文本框”控件,在报表页脚区内拖动,产生一个“文本框”(删除“文本框”前新增的“标签”控件)。 步骤7:右键单击该“文本框”控件,在弹出的快捷菜单中选择“属性”命令,在“属性表”对话框中单击“全部”选项卡,在“名称”行中输入“tCount”,在“控件来源”行中输入“=Count(*)”,如图所示。关闭“属性表”对话框。 [*] 步骤8:按Ctrl+S组合键保存修改,关闭“rStud”报表的设计视图。 (2)【操作步骤】 步骤1:右键单击“fSys”窗体,在弹出的快捷菜单中选择“设计视图”命令。单击“设计”选项卡下“工具”功能组中的“属性表”按钮。 步骤2:在“属性表”对话框中单击“格式”选项卡,单击“边框样式”右侧的下三角按钮,在弹出的下拉列表中选择“细边框”;单击“滚动条”右侧的下三角按钮,在弹出的下拉列表中选择“两者均无”;依次单击“导航按钮”、“记录选择器”和“分割线”右侧的下三角按钮,在弹出的下拉列表中选择“否”;单击“最大最小化按钮”右侧的下三角按钮,在弹出的下拉列表中选择“无”。如图所示。 [*] 步骤3:按Ctrl+S组合键保存修改,关闭“属性表”对话框。 (3)【操作步骤】 步骤1:右键单击“用户名称”控件,在弹出的快捷菜单中选择“属性”命令。 步骤2:在“属性表”对话框中单击“全部”选项卡,在“前景色”行中输入“#FF0000”;单击“字体粗细”右侧的下三角按钮,在弹出的下拉列表中选择“加粗”,如图所示。 [*] 步骤3:单击“属性表”对话框的下三角按钮,在弹出的下拉列表中选择“1Pass”控件,在“前景色”行中输入“#FF0000”;单击“字体粗细”右侧的下三角按钮,在弹出的下拉列表中选择“加粗”,如图所示。 [*] 步骤4:按Ctrl+S组合键保存修改,关闭“属性表”对话框。 (4)【操作步骤】 步骤1:右键单击“用户密码”右侧的“未绑定”控件,在弹出的快捷菜单中选择“属性”命令,在“属性表”对话框中单击“数据”选项卡。 步骤2:单击“输入掩码”属性值最右侧,在弹出的“输入掩码向导”对话框中选择“密码”,单击“完成”按钮,如图所示。 [*] 步骤3:单击“属性表”对话框的下三角按钮,在弹出的下拉列表中选择“cmdEnter”控件,在“数据”选项卡下单击“可用”右侧的下三角按钮,在弹出的下拉列表中选择“否”,如图所示。 [*] 步骤4:按Ctrl+S组合键保存修改,关闭“属性表”对话框。 步骤5:右键单击“tSys”窗体“设计视图”的任意位置,在弹出的快捷菜单中选择“Tab键次序”命令,在“Tab键次序”对话框的“自定义次序”列表框中,选中“tUser”拖动鼠标到第一行位置,选中“tPass”拖动鼠标到第二行位置,选中“cmdEnter”拖动鼠标到第三行位置,选中“cmdQuit”拖动鼠标到第四行位置,单击“确定”按钮,如图所示。 [*] 步骤4:按Ctrl+S组合键保存修改。 (5)操作步骤 步骤1:单击“设计”选项卡下“工具”功能组中的“查看代码”按钮进入VBA代码编辑界面。 步骤2:在“*****Add1*****”行之间添加如下代码: bTitle.Caption="非团员人数为"&DCount("*","tStud","团员否=false") 步骤3:在“*****Add2*****”行之间添加如下代码: If tUser="csv"And tPass="1129"Then 步骤4:在“*****Add3*****”行之间添加如下代码: tUser.SetFocus 设置完成之后结果如图所示。 [*] 步骤5:按Ctrl+S组合键保存修改,关闭VBA代码编辑窗口,关闭“fSys”窗体的“设计视图”。

解析
转载请注明原文地址:https://kaotiyun.com/show/0ESp777K
0

最新回复(0)