在考生文件夹下有一个数据库文件"samp3.mdb",里面已经设计好表对象"tStudent",同时还设计出窗体对象"fQuery"和"fStudent"。请在此基础上按照以下要求补充"fQuery"窗体的设计: (1)在距主体节上边0.4厘米、左边0.4

admin2013-11-29  20

问题 在考生文件夹下有一个数据库文件"samp3.mdb",里面已经设计好表对象"tStudent",同时还设计出窗体对象"fQuery"和"fStudent"。请在此基础上按照以下要求补充"fQuery"窗体的设计:
(1)在距主体节上边0.4厘米、左边0.4厘米位置添加一个矩形控件,其名称为"rRim";矩形宽度为16.6厘米、高度为1.2厘米、特殊效果为"凿痕"。
(2)将窗体中"退出"命令按钮上显示的文字颜色改为"棕色"(棕色代码为128),字体粗细改为"加粗"。
(3)将窗体标题改为"显示查询信息"。
(4)将窗体边框改为"对话框边框"样式,取消窗体中的水平和垂直滚动条、记录选择器、浏览按钮和分隔线。
(5)在窗体中有一个"显示全部记录"命令按钮(名称为bList),单击该按钮后,应实现将"tStudent"表中的全部记录显示出来的功能。现已编写了部分VBA代码,请按照VBA代码中的指示将代码补充完整。
要求:修改后运行该窗体,并查看修改结果。
注意:不要修改窗体对象"fQuery"和"fStudent"中未涉及的控件、属性;不要修改表对象"tStudent"。
程序代码只能在"*********"与"*********"之间的空行内补充一行语句、完成设计,不允许增删和修改其它位置已存在的语句。

选项

答案(1)【操作步骤】 步骤1:选中"窗体"对象,右键单击"fQuery"选择【设计视图】。 步骤2:在工具箱中选中"矩形"控件,单击窗体主体节区任一点,右键单击控件"矩形"选择【属性】,在"全部"选项卡的"上边距","左边距","宽度"和"高度"分别输入"0.4cm"、"0.4cm"、"16.6cm"、"1.2cm",在"名称"行输入"rRim",在"特殊效果"行右侧下拉列表中选中"凿痕",关闭属性界面。 (2)【操作步骤】 步骤1:右键单击命令按钮"退出"选择【属性】。 步骤2:在"前景色"行输入"128",关闭属性界面。 (3)【操作步骤】 步骤1:右键单击"窗体选择器"选择【属性】。 步骤2:在"标题"行输入"显示查询信息"。 (4)【操作步骤】 步骤1:在"边框样式"右侧下拉列表中选中"对话框样式"。 步骤2:分别选中"滚动条"、"记录选定器"、"导航按钮"和"分隔线"右侧下拉列表中的"否"。 (5)【操作步骤】 步骤1:右键单击命令按钮"显示全部记录"选择【事件生成器】。 步骤2:在空行内输入代码: Private Sub Command4 Click() BBB.Form.RecordSource = "select * from tStudent where 姓名 like ’" & Me![Text2] & "*’" End Sub Private Sub bList Click() ’*** 请在下面双引号内添入适当的SELECT语句 ***’ BBB.Form.RecordSource = "select * from tStudent" *******************’ [Text2] = " " End Sub Private Sub 命令7 Click() DoCmd.Close End Sub" 关闭界面。 步骤3:单击工具栏中"保存"按钮,关闭设计视图。

解析 第1小题窗体设计视图添加控件,并右键单击该控件选择【属性】,对控件属性进行设置;第2、3、4小题直接右键单击"报表选择器"选择【属性】,设置属性;第4小题直接右键单击"窗体选择器"选择【事件生成器】,输入代码。
转载请注明原文地址:https://kaotiyun.com/show/9grp777K
0

最新回复(0)