应用题 1. 考生文件夹下存在一个数据库文件“samp3.accdb”，里面已经设计好表对象“tStud”、窗体对象“fSys”和报表对象“rStud”。请在此基础上按照以下要求补充“fSys”窗体和“rStud”报表的设计：
(1)在“rStud”报表的报表页眉节区位置添加一个标签控件，其名称为“rTitle”，其显示文本为“非团员基本信息表”；将报表标题栏上的显示文本设置为“非团员信息”；将名称为“tSex”的文本框控件的输出内容设置为“性别”字段值。在报表页脚节区添加一个计算控件，其名称为“tCount”，显示报表学生人数。
(2)将“fSys”窗体的边框样式设置为“细边框”，取消窗体中的水平和垂直滚动条、导航按钮、记录选择器、分隔线、最大化按钮和最小化按钮。
(3)将“fSys”窗体中“用户名称”(名称为“lUser”)和“用户口令”(名称为“lPass”)两个标签上的文字颜色改为红色(红色代码为#FF0000)、字体粗细改为“加粗”。
(4)将“fSys”窗体中名称为“tPass”的文本框控件的内容以密码形式显示；将名称为“cmdEnter”的命令按钮从灰色状态设为可用；将控件的Tab移动次序设置为：“tUser”→“tPass”→“cmdEnter”→“cmdQuit”。
(5)试根据以下窗体功能和报表输出要求，补充已给事件代码，并运行调试。在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为“tUser”和“tPass”，还有“确定”和“退出”两个命令按钮，名称分别为“cmdEnter”和“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：单击“属性表”对话框的下三角按钮，在弹出的下拉列表中选择“lPass”控件，在“前景色”行中输入“#FF0000”；单击“字体粗细”右侧的下三角按钮，在弹出的下拉列表中选择“加粗”。
步骤4：按Ctrl+S组合键保存修改，关闭“属性表”对话框。
(4)【操作步骤】
步骤1：右键单击“用户密码”右侧的“未绑定”控件，在弹出的快捷菜单中选择“属性”命令，在“属性表”对话框中单击“数据”选项卡。
步骤2：单击“输入掩码”属性值最右侧，在弹出的“输入掩码向导”对话框中选择“密码”，单击“完成”按钮。
步骤3：单击“属性表”对话框的下三角按钮，在弹出的下拉列表中选择“cmdEnter”控件，在“数据”选项卡下单击“可用”右侧的下三角按钮，在弹出的下拉列表中选择“否”。
步骤4：按Ctrl+S组合键保存修改，关闭“属性表”对话框。
步骤5：右键单击“fSys”窗体“设计视图”的任意位置，在弹出的快捷菜单中选择“Tab键次序”命令，在“Tab键次序”对话框的“自定义次序”列表框中，选中“tUser”拖动鼠标到第一行位置，选中“tPass”拖动鼠标到第二行位置，选中“cmdEnter”拖动鼠标到第三行位置，选中“cmdQuit”拖动鼠标到第四行位置，单击“确定”按钮。
步骤6：按Ctrl+S组合键保存修改。
(5)【操作步骤】
步骤1：单击“设计”选项卡下“工具”功能组中的“查看代码”按钮进入VBA代码编辑界面。
步骤2：在“*****Add1*****”行之间添加如下代码：
bTitle.Caption="非团员入数为"&DCount("*","tStud","团员否=false")
步骤3：在“*****Add2*****”行之间添加如下代码：
If User="csy" And tPass="1129" Then
步骤4：在“*****Add3*****”行之间添加如下代码：
tUser.SetFocus
步骤5：按Ctrl+S组合键保存修改，关闭VBA代码编辑窗口，关闭“fSys”窗体的“设计视图”。

【答案解析】[考点] 报表控件的使用以及相关属性设置，设置窗体控件的相关属性以及Tab次序的自定义调整，报表与窗体事件代码的VBA编程。
第1小题单击报表的设计视图按题目要求设置相关属性；第2、3、4小题单击窗体的设计视图按题目要求设置相关属性；第4小题单击“设计”选项卡“工具”组中的“查看代码”按钮进入VBA代码编辑界面。