3.综合应用题

　　在考生文件夹下有一个数据库文件“samp3.mdb”，里面已经设计好表对象“tStud”，同时还设计出窗体对象“fStud”。请在此基础上按照以下要求补充“fStud”窗体的设计：

　　(1)在窗体的窗体页眉节区中距左边0.4厘米、距上边1.2厘米处添加一个直线控件，控件宽度为10.5厘米，控件命名为“tLine”；

　　(2)将窗体中名称为“lTalbel”的标签控件上的文字颜色改为“蓝色”(蓝色代码为16711680)、字体名称改为“华文行楷”、字体大小改为22；

　　(3)将窗体边框改为“细边框”样式，取消窗体中的水平和垂直滚动条、记录选择器、导航按钮和分隔线，保留窗体的关闭按钮；

　　(4)假设在“tStud”表中，“学号”字段的第5位和第6位编码代表该学生的专业信息，当这两位编码为“10”时表示“信息”专业，为其他值时表示“管理”专业。设置窗体中名称为“tSub”的文本框控件的相应属性，使其根据“学号”字段的第5位和第6位编码显示对应的专业名称；

　　(5)在窗体中有一个“退出”命令按钮，名称为“CmdQuit”，其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填入指定的位置中。

　　注意：不允许修改窗体对象“fStud”中未涉及的控件和属性；不允许修改表对象“tStud”。

　　程序代码只允许在“*****Add*****”与“*****Add*****”之间的空行内补充一行语句、完成设计，不允许增删和修改其它位置已存在的语句。

　　3.综合应用题

　　【考点分析】

　　本题考点：在窗体中添加直线控件；窗体属性的设置；窗体中标签、命令按钮控件属性的设置。

　　(1)【解题步骤】

　　步骤1：打开“samp3.mdb”数据库窗口,选中“窗体”对象，右键单击“fStud”选择【设计视图】。

　　步骤2：选中工具箱中“直线”控件，单击窗体页眉节区适当位置。

　　步骤3：右键单击“直线”控件选择【属性】，在“名称”行输入“tLine”，分别在“左边距”，“上边距”和“宽度”行输入“0.4cm”，“1.2cm”和“10.5cm”。关闭属性界面。

　　(2)【解题步骤】

　　步骤1：右键单击标签控件“lTalbel”选择【属性】，在“前景色”行输入“16711680”。

　　步骤2：分别在“字体名称”和“字号”行右侧下拉列表中选中“华文行楷”和“22”。关闭属性界面。

　　(3)【解题步骤】

　　步骤1：右键单击“窗体选择器”选择【属性】。

　　步骤2：分别在“边框样式”、“滚动条”、“记录选择器”、“导航按钮”、“分隔线”、“关闭按钮”行右侧下拉列表中选中“细边框”、“两者均无”、“否”、“否”、“否”、“是”，关闭属性界面。

　　(4)【解题步骤】

　　步骤1：右键单击文本框“tSub”选择【属性】。

　　步骤2：在“控件来源”行输入“＝IIf(Mid(［学号］，5,2)＝"10"，"信息"，"管理")”，关闭属性界面。

　　(5)【解题步骤】

　　步骤1：右键单击“退出”命令按钮选择【事件生成器】，在空行内输入代码：

　　*****Add*****

　　DoCmd.Close

　　*****Add*****

　　步骤2：关闭界面。

　　步骤3：单击工具栏中“保存”按钮，关闭设计视图。