在考生文件夹下有一个数据库“Acc3.mdb”,其中已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”。窗体效果如图4所示。请在此基础上按照以下要求补充“fStud”窗体的设计: (1)在窗体的页眉中距左边“0.4cm”,距上边“1.2c

admin2010-04-02  39

问题 在考生文件夹下有一个数据库“Acc3.mdb”,其中已经设计好表对象“tStud”,同时还设计出窗体对象“fStud”。窗体效果如图4所示。请在此基础上按照以下要求补充“fStud”窗体的设计:

(1)在窗体的页眉中距左边“0.4cm”,距上边“1.2cm”处添加一个直线控件,控件宽度为“10.5cm”,将控件命名为“tLine”。
(2)将窗体中名称为“Talbel”的标签控件上的文字颜色改为“蓝色”(蓝色代码为16711680),字体名称改为“华文行楷”,字体大小改为“22”。
(3)将窗体边框改为“细边框”样式,取消窗体中的水平和垂直滚动条、记录选定器、浏览按钮和分隔线,只保留窗体的关闭按钮。
(4)假设在“tStud”表中,“学号”字段的第5位和6位编码代表该生的专业信息,当这两位编码为“10”时表示“信息。”专业,为其他值时表示“管理”专业。设置窗体中名称为“tSub”的文本框控件的相应属性,使其根据“学号”字段的第5位的第6位编码显示对应的专业名称。
(5)在窗体中有一个“退出”按钮,名称为“CmdQuit”,其功能为关闭“fStud”窗体。请按照VBA代码中的指示将实现此功能的代码填人指定的位置中。
注意:只允许在Add注释之间的空行内补充一行语句,完成设计,不允许增删和修改其他位置已存在的语句。

选项

答案(1)在“Acc3.mdb”数据库窗口中选中“窗体”对象,右键单击“fStud”,选择“设计视图”。选中工具箱中的“直线”控件,单击窗体页眉处。右键单击“直线”控件,选择“属性”,在“名称”行输入“tLine”,分别在“左边距”、“上边距”和“宽度”行输入“0.4cm”、“1.2 cm”和“10.5cm”。关闭属性界面。 (2)右键单击标签控件“Talbel”,选择“属性”,在“前景色”行输入“16711680”。分别在“字体”和“字号”行右侧下拉列表中选中“华文行楷”和“22”。关闭属性界面。 (3)右键单击“窗体选择器”,选择“属性”。分别在“边框样式”、“滚动条”、“记录选择器”、“导航按钮”、“分隔线”、“关闭按钮”行右侧下拉列表中选中“细边框”、“否”、“否”、“否”、“否”、“是”,关闭属性界面。 (4)右键单击文本框“tSub”,选择“属性”。在“控件来源”行输入“=If(Mid([tNum],5,2)=“10”,“信息”,”管理”)”,保存并关闭属性界面。 (5)右键单击“退出”,选择“事件生成器”,在空行内输入代码:DoCmd.Close,关闭界面。单击工具栏中的“保存”按钮,关闭设计视图。

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

最新回复(0)