考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”和子窗体对象“fDe-tail”。请在此基础上按照以下要求补充“fStud”窗体的设计。 (1)将窗体标题改为“学生查询”。 (

admin2018-07-06  23

问题 考生文件夹下存在一个数据库文件“samp3.accdb”,里面已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”和子窗体对象“fDe-tail”。请在此基础上按照以下要求补充“fStud”窗体的设计。
(1)将窗体标题改为“学生查询”。
(2)将窗体的边框样式改为“细边框”,取消窗体中水平和垂直滚动条、记录选择器、浏览按钮(导航按钮)和分隔线;将子窗体边框样式改为“点线”,取消子窗体中的记录选择器、浏览按钮(导航按钮)和分隔线。
(3)在窗体中有两个标签控件,名称分别为“La-bell”和“Labe12”,将这两个标签上的文字颜色改为白色,背景颜色改为紫蓝色(紫蓝色代码为8388608)。
(4)将窗体主体节中控件的Tab次序改为:
“CItem”→“TxtDetail”→“CmdRefer”→“Cm-dList”→“CmdClear”→“fDtail”→“简单查询”→“Frame18”。
(5)按照以下窗体功能,补充事件代码设计。
在窗体中有一个组合框控件和一个文本框控件,名称分别为“Cltem”和“TxtDetail”;有两个标签控件,名称分别为“Labe13”和“Ldetail”;还有三个命令按钮,名称分别为“CmdList”、“CmdRefer”和“Cmd-Clear”。在“CItem”组合框中选择某一项目后,“Lde-tail”标签控件将显示出所选项目名加上“内容:”。在“TxtDetail”文本框中输入具体项目值后,单击“CmdRefer”命令按钮,如果“CItem”和“TxtDetail”两个控件中均有值,则在子窗体中显示找出的相应记录,如果两个控件中不全有值,显示消息框,消息框标题为“注意”,提示文字为“查询项目和查询内容不能为空!!!”,消息框中只有一个“确定”按钮;单击“CmdList”命令按钮,在子窗体中显示“tStud”表中的全部记录;单击“CmdClear”命令按钮,将“Cltem”和“TxtDetail”两个控件中的值清空。
注意:不允许修改窗体对象“fStud”和子窗体对象“fDetail"中未涉及的控件、属性和任何VBA代码;不允许修改表对象“tStud”。代码设计只允许补充一条语句、完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:选择“窗体”对象,右击“fStud”,在弹出的快捷菜单中选择“设计视图”命令,打开设计视图。 步骤2:在窗体的任一位置右击,在弹出的快捷菜单中选择“属性”命令,在打开的“属性表”下拉列表中选择“窗体”,在“全部”选项卡卞的“标题”行输入“学生查询”,如图4.230所示。 [*] (2)【操作步骤】 步骤1:在“属性表”的“格式”选项卡中,选择“边框样式”下拉列表中的“细边框”选项。 步骤2:分别选择“滚动条”、“记录选择器”、“导航按钮”和“分隔线”下拉列表中的“两者均无”或“否”。 步骤3:按照同样的方法设置子窗体的“边框样式”为“点线”,如图4.231所示。 [*] (3)【操作步骤】 在“属性表”中分别选择“Labell”和“Labe12”,在“格式”选项卡中设置“前景色”为“#FFFFFF”(白色),设置“背景色”为“#2F3699”,如图4.232所示。关闭“属性表”。 [*] (4)【操作步骤】 步骤1:在窗体的任一位置右击,在弹出的快捷菜单中选择“Tab键次序”命令,弹出“Tab键次序”对话框,在“自定义次序”列表中通过拖动各行来调整Tab键的次序,如图4.233所示。 [*] 步骤2:单击“确定”按钮,关闭“Tab键次序”对话框。 (5)【操作步骤】 在设计视图中的任一位置右击,在弹出的快捷菜单中选择“事件生成器”命令,在弹出的对话框中选择“代码生成器”,如图4.234所示,单击“确定”按钮,在空行内依次输入以下代码: [*] ’*********Add1********* Dim aa aa =cltem.Value LAetail.Caption=aa+”内容:” ’********* Add1 ********* ’********* Add2 ********* fDetail.Form.RecordSource = "tStud" ’********* Add2 ********* ’********* Add3 ********* MsgBox"查询项目和查询内容不能为空",vbOKOnly,"注意" ’********* Add3 ********* 如图4.235所示。 关闭编程环境窗口,按Ctrl+S保存修改。 [*]

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

最新回复(0)