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

admin2013-11-29  28

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

选项

答案(1)【操作步骤】 步骤1:选中"窗体"对象,右键单击【fEdit】|【设计视图】。 步骤2:右键单击标签控件【1Remark】|【属性】,在"格式"选项卡的"前景色"行输入"128",在"字体粗细"行右侧下拉列表中选中"加粗",关闭属性界面。 (2)【操作步骤】 步骤1:右键单击【窗体选择器】|【属性】。 步骤2:在"边框样式"行右侧下拉列表中选中"细边框"。 步骤3:分别双击"滚动条","记录选定器","导航按钮"和"分隔线"右侧下拉列表中的"否"。 步骤4:在"格式"选项卡的"标题"行输入"修改用户口令"。 关闭属性界面。 (3)【操作步骤】 步骤1:选中"窗体"对象,右键单击【fEdit】|【设计视图】。 步骤2:右键单击标签控件【tPass】|【属性】,在"数据"选项卡的"输入掩码"行单击 ,在"输入掩码向导"中选择"密码",单击【完成】,关闭属性界面。同样的方法设置另一个。 (4)【操作步骤】 步骤1:右键单击【窗体选择器】|【Tab键次序(B)】。 步骤2:在弹出对话框的"自定义顺序"列表中调整次序,单击"确定"按钮。 (5)【操作步骤】 在设计视图中右键单击窗体任一点,在列表中选中"属性",在空格行依次输入 ’ *********************** Add4 ************************************* DoCmd.Close ’ *********************** Add4 ************************************* ’ *********************** Add1 ************************************* CmdSave.Enabled = False ’ *********************** Add1 ************************************* ’ *********************** Add2 ************************************* Me!用户名_1.Enabled = False ’ *********************** Add2 ************************************* ’ *********************** Add3 ************************************* MsgBox "请重新输入口令!", vbOKquit ’ *********************** Add3 ************************************* 关闭界面,单击工具栏中"保存"按钮[*],关闭设计视图。

解析
转载请注明原文地址:https://kaotiyun.com/show/3rrp777K
0

最新回复(0)