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

admin2018-09-20  22

问题 在考生文件夹下存在一个数据库文件“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://jikaoti.com/ti/EW10FFFM
0

最新回复(0)