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