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

admin2015-08-20  26

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

选项

答案(1)步骤1:打开“samp3.accdb”数据库窗口,在【开始】功能区的“窗体”面板中右击“fStud”窗体,选择“设计视图”快捷菜单命令,打开“fStud”的设计视图。 步骤2:在窗体空白处右键单击,在快捷菜单中选择“属性”命令,在【属性表】对话框的“格式”选项卡下的“标题”行输入:学生查询。 (2)步骤1:在“fStud”窗体设计视图中,右击窗体空白处选择“表单属性”命令。在【属性表】对话框的“格式”选项卡中,将“边框样式”属性值设置:细边框,将“滚动条”属性值设置:两者均无,将“记录选择器”、“导航按钮”和“分隔线”的属性值都设置为:否。 步骤2:参照步骤1的操作,在“fDetail”窗体设计视图的【属性表】中将“边框样式”属性值设置:细边框,将“记录选择器”、“导航按钮”和“分隔线”的属性值都设置为:否。 步骤3:单击快速访问工具栏中的“保存”按钮,关闭“fDetail”窗体设计视图。 (3)步骤1:返回到“fStud”窗体设计视图中,同时选中“Labell”和“Label2”两个标签,单击【属性表】对话框的“格式”选项卡,单击“前景色”右边框中的按钮,在“标准色”中选中“白色”,在“背景色”框中输入:8388608。 步骤2:单击快速访问工具栏中的“保存”按钮,关闭设计视图。 (4)步骤1:在窗体设计视图的空白处右键单击,在弹出的快捷菜单中选择“Tab键次序”命令,在【Tab键次序】对话框中按住左键上下拖动相应的对象,按题目要求改变次序。 步骤2:单击“确定”按钮关闭【Tab键次序】对话框,单击快速访问工具栏中的“保存”按钮。 (5)步骤1:单击【窗体设计工具-设计】功能区的【工具】分组中的“查看代码”按钮,打开“代码设计器”窗口。 在“****Add1****”行之间输入代码: Ldetail.Caption=cltem&”内容:” 在“****Add2****”行之间输入代码: fDetail.Form.RecordSource=“tStud” 在“****Add3****”行之间输入代码: MsgBox“查询项目和查询内容不能为空!!!”,vbOKOnly“注意” 步骤2:关闭当前界面,单击快速访问工具栏中的“保存”按钮,关闭当前窗口。

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

最新回复(0)