考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tUser”,同时还设计出窗体对象“/Edit”和“fUser”。请在此基础上按照以下要求补充“fEdit”窗体的设计: (1)将窗体中名称为“1Remark”的标签控件上的文字颜

admin2013-03-01  30

问题 考生文件夹下存在一个数据库文件“samp3.mdb”,里面已经设计好表对象“tUser”,同时还设计出窗体对象“/Edit”和“fUser”。请在此基础上按照以下要求补充“fEdit”窗体的设计:
(1)将窗体中名称为“1Remark”的标签控件上的文字颜色改为“棕色”(棕色代码为128)、字体粗细改为“加粗”。
(2)将窗体边框改为“对话框边框”样式,取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线;将窗体标题设置为“修改用户口令”。
(3)将窗体中名称为“&ass”和“tEnter”文本框中的内容以密码方式显示。
(4)按如下控件顺序设置Tab键次序:“CmdEdit”→“tUser 1”→“tRemark 1”→“tPass”→“tEnter”→“CmdSave”→“cmdquit”→窗体右侧列表(标题是修改系统用户)。
(5)按照以下窗体功能,补充事件代码设计。
窗体运行后,在窗体右侧显示可以修改的用户名、密码等内容的列表,同时在窗体左侧显示列表中所指用户的信息。另外,在窗体中还有“修改”、“保存”和“退出”三个命令按钮,名称分别为"CmdEdit”、“CmdSave”和“cmdquit”。当单击“修改”按钮后,在窗体左侧显示出该窗体右侧光标所指用户的口令信息,同时“保存”按钮变为可用;在“口令”和“确认口令”文本框中输入口令信息后,单击“保存”按钮,若在两个文本框中输入的信息相同,则保存修改后的信息,并先将“保存”命令按钮变为不可用,再将除用户名外的其他文本框控件和标签控件全部隐藏,最后将用户名以只读方式显示;若在两个文本框中输入的信息不同,则显示提示框,显示内容为“请重新输入口令1”,提示框中只有一个“确定”按钮。单击窗体上的“退出”按钮,关闭当前窗体。
注意:不允许修改窗体对象“fEdit”和“fUser”中未涉及的控件、属性和任何VBA代码:不允许修改表对象“tUser”。
只允许在“*******Add*******”与“*******Add*******”之间的空行内补充一条语句,不允许增删和修改其他位置已存在的语句。

选项

答案(1)步骤1:打开“samp3.mdb”数据库,选中“窗体”对象,右键单击窗体“fEdit”,选择下拉菜单中的“设计视图”命令。 步骤2:右键单击窗体中的“LRemark”标签控件,选择下拉菜单中“属性”命令,设置窗体的“前景色”为“128”,设置窗体的“字体粗细”为“加粗”。 步骤3:单击“保存”按钮。 (2)步骤1:单击“窗体选择器”,右键单击选择下拉菜单中的“属性”命令,在“属性”对话框中,设置边框样式为“对话框边框”,将窗体的“滚动条”设置为“两者均无”,将窗体的“记录选择器”、“导航按钮”和“分隔线”设置为“否”,将窗体的“标题”设置为:修改用户口令。 步骤2:关闭“属性”对话框。 (3)步骤1:右键单击窗体中名为“tPass”的文本框,选择下拉菜单中的“属性”命令,在数据选项卡中的“输入掩码”中输入:密码。右键单击窗体中名为“tEnter”的文本框,选择下拉菜单中的“属性”命令,在数据选项卡中的“输入掩码”中输入:密码。 步骤2:关闭“属性”对话框。 (4)步骤1:右键单击选择下拉菜单中的“’tab键次序”,根据题目要求的“CmdEdit”→“tUser 1”→“tRemark 1”→“tPass”→“tenter”→“CmdSave”→“cmdquit”→“窗体右侧列表”顺序,依次拖动对象名称,设置Tab键顺序。 步骤2:关闭“tab键”对话框。 (5)步骤1:右键单击“退出”按钮,选择下拉菜单中的“事件生成器”命令,在空行内输入代码: ***********Add1********** Me.CmdSave.Enabled=0 **********Add1************ ************Add2************* MeRUser_1.Enabled=False *********Add2********* ***********Add3*********** MsgBox”请重新输入口令!”,vbOKOnly ************Add3************ ************Add4*********** DoCmd.Close **************Add4************ 步骤2:关闭代码窗口。单击“保存”按钮,关闭设计视图。

解析 本题主要考查窗体下常用控件的设置方法,控件的格式设置,在窗体下拉件的功能设计方法。
转载请注明原文地址:https://jikaoti.com/ti/gIXiFFFM
0

最新回复(0)