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

admin2018-09-25  16

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

选项

答案【操作步骤】 (1)步骤1:打开报表rStud设计视图,在“设计”选项卡下“控件”组中,单击“标签”控件,如图4—186所示,在“报表页眉”节区单击,输入“团员基本信息报表”,如图4—187所示。单击“设计”选项卡下“工具”组中的“属性表”按钮,如图4—188所示,打开“属性表”对话框,选择“全部”选项卡,在“名称”行中输入“bTitle”,如图4—189所示。 [*] 步骤2:在“属性表”中选择“报表”,在“标题”行中输入“团员基本信息”,如图4—190所示。 [*] 步骤3:选择tSex,在“控件来源”行下拉列表中选择“性别”,如图4—191所示。 [*] 步骤4:在“设计”选项卡下“控件”组中选择“标签”控件,在“报表页脚”节区单击,在标签中输入“平均年龄:”,在“控件”组中选择“文件框”控件,单击“工具”组中的“属性表”,在属性表中的“名称”行中输入“tAvg”,在“控件来源”行输入“=avg(年龄)”,如图4—192所示。 [*] 步骤5:关闭属性表,保存报表设计,关闭报表设计视图。 (2)步骤1:打开窗体fSys设计视图,在窗体选择器上右击,选择“属性”,打开“属性表”窗口。在“格式”选项卡下“标题”行输入“系统登录”,如图4—193所示。 [*] 步骤2:在“格式”选项卡的“边框样式”行选择“对话框边框”,在“滚动条”行选择“两者均无”,“导航按钮”“记录选择器”“分隔线”“控制框”“关闭按钮”都选择“否”,“最大化最小化按钮”选择“无”,如图4—194所示。 [*] (3)步骤:在“属性表”窗口下拉列表中分别选择“LUser”和“LPass”,在“格式”选项卡中的“前景色”行输入“10485760”,在“字体粗细”行选择“加粗”,如图4—195所示。 [*] (4)步骤1:选择tPass控件,单击属性表“数据”选项卡的“输入掩码”行右侧的三点按钮,在弹出的“输入掩码向导”对话框中选择“密码”,如图4—196所示,单击“完成”按钮。 [*] 步骤2:选择“cmdEnter”命令按钮,单击属性表“数据”选项卡的“可用”行右侧的三角下拉按钮,在展开的列表中选择“是”,如图4—197所示,关闭属性表窗口。 [*] 步骤3:在窗体设计视图中右击,选择“Tab键次序”,打开“Tab键次序”对话框,按题目要求顺序将tUser和tPass拖动到上面,单击“确定”按钮,如图4—198所示。 [*] (5)步骤1:单击“设计”选项卡下“工具”组中的“查看代码”按钮,如图4—199所示,打开VBA编程环境。 [*] 步骤2:在Add1空行输入如下代码: ’*************************Add1************************* If tUser="cueb"And tPass="1234"Then ’*************************Add1************************* 步骤3:在Add2空行输入如下代码: ’*************************Add1************************* tUser.SetFocus ’*************************Add2************************* 代码窗口中输入各代码的位置如图4—200所示。 [*] 步骤4:关闭VBA编程环境,保存对窗体设计的修改,关闭窗体设计视图。 补充:①双击“窗体”对象“fSys”,弹出如图4—201所示的“系统登录”窗口。 [*] ②在“用户名称”后的文本框中输入“cueb”,在“用户密码”后的文本框中输入“1234”,单击“确定”按钮,弹出“欢迎”对话框,并在上面显示“密码输入正确,欢迎进入系统”,如图4—202所示。单击对话框中的“确定”按钮,关闭窗体。 [*] ③如果在“用户名称”后的文本框中输入“cueb”,在“用户密码”后的文本框中输入“4321”,单击“确定”按钮,在弹出的对话框中,会显示“密码错误!”,如图4—203所示。 [*] 当单击提示框中的“确定”按钮后,“用户名称”和“用户密码”后的文本框中的内容被清除,然后用户可以重新输入用户名和密码。 ④单击“退出”按钮,则当前窗体被关闭。 以上补充内容不写入操作步骤,只是为了演示前面的操作结果。

解析
转载请注明原文地址:https://jikaoti.com/ti/qL10FFFM
0

最新回复(0)