A-A+

考生文件夹下存在一个数据库文件“samp3.mdb” 里面已经设计好表对象“tAddr”和“

2022-08-05 22:29:26 问答库 阅读 172 次

问题详情

考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tAddr”和“tUser”,同时还设计出窗体对象“fEdit”和“fEuser”。请在此基础上按照以下要求补充“fEdit”窗体的设计:
(1)将窗体中名称为“1Remark”的标签控件上的文字颜色改为“蓝色”(蓝色代码为16711680)、字体粗细改为“加粗”。
(2)将窗体标题设置为“显示/修改用户口令”。
(3)将窗体边框改为“细边框”样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线;并且保留窗体的关闭按钮。
(4)将窗体中“退出”命令按钮(名称为“cmdquit”)上的文字颜色改为棕色(棕色代码为128)、字体粗细改为“加粗”,并在文字下方加上下划线。
(5)在窗体中还有“修改”和“保存”两个命令按钮,名称分别为“CmdEdit”和“CmdSave”,其中“保存”命令按钮在初始状态为不可用,当单击“修改”按钮后,“保存”按钮变为可用,同时在窗体的左侧显示出相应的信息和可修改的信息。如果在“口令”文本框中输入的内容与在“确认口令”文本框中输入的内容不相符,当单击“保存”按钮后,屏幕上应弹出如下图所示的提示框。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
[*]
要求:修改后运行该窗体,并查看修改结果。
注意:不允许修改窗体对象“fEdit”和“fEuser”中未涉及的控件、属性;不允许修改表对象“tAddr”和“tUser”。
程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计,不允许增删和修改其他位置已存在的语句。请帮忙给出正确答案和分析,谢谢!

参考答案

正确答案:【操作步骤】(1)步骤1:打开“samp3.mdb”数据库窗口选中“窗体”对象右键单击“fEdit”单击“设计视图”命令。步骤2:右键单击标签控件“IRemark”选择“属性”命令。在“属性”对话框“格式”选项卡下的“前景色”行输入:16711680在“字体粗细”行下拉列表中选中“加粗”关闭“属性”对话框。(2)步骤l:在窗体设计视图的空白处右键单击。在弹出的快捷菜单中选择“属性”命令在“属性”对话框的左上角的下拉列表中选择窗体。步骤2:在“属性”对话框的“格式”选项卡下的“标题”行输入:显示修改用户口令。关闭“属性”对话框。(3)步骤1:在窗体设计视图的空白处右键单击在弹出的快捷菜单中选择“属性”命令在“属性”对话框的左上角的下拉列表中选择窗体。在“边框样式”行下拉列表中选中“细边框”。步骤2:分别选中“滚动条”、“记录选择器”、“导航按钮”、“分隔线”和“最大最小化按钮”右侧下拉列表中的“两者均无”、“否”、“否”、“否”和“无”关闭“属性”对话框。步骤3:单击工具栏中的“保存”按钮。(4)步骤1:右键单击命令按钮“退出”选择“属性”命令。步骤2:在“属性”对话框的“格式”选项卡下的”前景色”行输入:128。分别在“字体粗细”和“下划线”行右侧下拉列表中选中“加粗”和“是”关闭“属性”对话框。(5)步骤1:在设计视图中右键单击命令按钮“保存”选择“事件生成器”命令在空行内输入代码:********Add*********MsgBox“请重新输入口令1”vbOKquit********Add*********步骤2:关闭代码窗口单击工具栏中的“保存”按钮关闭设计视图。
【操作步骤】(1)步骤1:打开“samp3.mdb”数据库窗口,选中“窗体”对象,右键单击“fEdit”,单击“设计视图”命令。步骤2:右键单击标签控件“IRemark”,选择“属性”命令。在“属性”对话框“格式”选项卡下的“前景色”行输入:16711680,在“字体粗细”行下拉列表中选中“加粗”,关闭“属性”对话框。(2)步骤l:在窗体设计视图的空白处右键单击。在弹出的快捷菜单中选择“属性”命令,在“属性”对话框的左上角的下拉列表中选择窗体。步骤2:在“属性”对话框的“格式”选项卡下的“标题”行输入:显示,修改用户口令。关闭“属性”对话框。(3)步骤1:在窗体设计视图的空白处右键单击,在弹出的快捷菜单中选择“属性”命令,在“属性”对话框的左上角的下拉列表中选择窗体。在“边框样式”行下拉列表中选中“细边框”。步骤2:分别选中“滚动条”、“记录选择器”、“导航按钮”、“分隔线”和“最大最小化按钮”右侧下拉列表中的“两者均无”、“否”、“否”、“否”和“无”,关闭“属性”对话框。步骤3:单击工具栏中的“保存”按钮。(4)步骤1:右键单击命令按钮“退出”,选择“属性”命令。步骤2:在“属性”对话框的“格式”选项卡下的”前景色”行输入:128。分别在“字体粗细”和“下划线”行右侧下拉列表中选中“加粗”和“是”,关闭“属性”对话框。(5)步骤1:在设计视图中右键单击命令按钮“保存”,选择“事件生成器”命令,在空行内输入代码:********Add*********MsgBox“请重新输入口令1”,vbOKquit********Add*********步骤2:关闭代码窗口,单击工具栏中的“保存”按钮,关闭设计视图。 解析:本题考点:窗体中标签、命令按钮控件属性及窗体属性的设置:VBA编程。

考点:文件夹,考生