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

admin2015-08-20  18

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tUser”,同时还设计出窗体对象“fEdit”和“fUser”。请在此基础上按照以下要求补充“fEdit”窗体的设计:
    (1)将窗体中名称为“IRemark”的标签控件上的文字颜色改为“棕色”(棕色代码为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:打开“samp3.accdb”数据库,在【开始】功能区的“窗体”面板中右击“fEdit”窗体,选择“设计视图”快捷菜单命令,打开“fEdit”的设计视图。 步骤2:右键单击窗体中的“1Remark”标签控件,选择快捷菜单中“属性”命令,在【属性表】对话框中输入标签的“前景色”为:128,设置窗体的“字体粗细”为:加粗。 步骤3:单击快速访问工具栏中的“保存”按钮。 (2)步骤1:在【属性表】对话框的左上角下拉框中选择“窗体”,设置边框样式为:对话框边框,将窗体的“滚动条”设置为:两者均无,将窗体的“记录选择器”、“导航按钮”和“分隔线”设置为:否,将窗体的“标题”设置为:修改用户口令。 步骤2:单击快速访问工具栏中的“保存”按钮。 (3)步骤1:选中“tPass”的文本框,在【属性表】对话框中,在“数据”选项卡的“输入掩码”框内输入:密码;接着单击窗体中名为“tEnter”的文本框,在“数据”选项卡中的“输入掩码”框内输入:密码。 步骤2:单击快速访问工具栏中的“保存”按钮。 (4)步骤1:右键单击窗体,选择快捷菜单中的“Tab键次序”,在【Tab键顺序】对话框中,根据题目要求的“CmdEdit”→“tUser 1”→“tRemark 1”→“tPass”→“tEnter”→“CmdSave”→“cmdquit”→“窗体右侧列表”顺序,依次拖动对象名称从上到下排列,设置Tab键顺序。 步骤2:关闭【Tab键顺序】对话框,单击快速访问工具栏中的“保存”按钮。 (5)步骤1::单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Add1****”行之间输入代码: Me.CmdSave.Enabled=0 在“****Add2****”行之间输入代码: Me!tUser_1.Enabled=False 在“****Add3****”行之间输入代码: MsgBox“请重新输入口令!”,vbOKOnly 在“****Add4****”行之间输入代码: DoCmd.Close 步骤2:关闭代码窗口。单击快速访问工具栏中的“保存”按钮,关闭设计视图。

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

随机试题
最新回复(0)