103基本操作题(模块和VBA).docVIP

一、模块和VBA小结： 等级考试2010.3(1-基本操作题38个,2-简单应用题38个,3-综合应用题18,3-综合应用题（含VBA）20) ●一、窗体的属性及其含义： 表示方法:Me. 属性标识 例1：标题： Caption Me.Caption=＂程序设计＂ 例2：滚动条：ScrollBars Me.ScrollBars = 0 见VBA1 例3：图片：Picture Me.Picture=＂d:\试题＼test.jpg＂ 见实训一（三、综合应用题） 例4：记录源：RecordSource Me.RecordSource=＂qEmp＂ 见实训一 ●二、控件的属性及其含义： 例1：标题： Caption Cmd1.Caption=＂显示内容＂ Cmd２.Caption=＂取消内容＂ 见VBA1 例2：前景色： ForeColor Cmd1.ForeColor=255 例3：可见性： Visible Cmd1.Visible=false 例4：可用性： Enabled Cmd2. Enabled=false 见VBA1 ●三、常用事件： １．窗体及报表事件 例1：打开： Open 例2：加载： Load Private Sub Form_Open(Cancel As Integer) 见VBA1 2．鼠标操作事件 例1：单击： Click 例2：双击： DblClick Private Sub Cmd1_Click() 见VBA1 ●四、DoCmd 对象： DoCmd.方法 方法：宏操作 例1：Close Docmd. Close 例2：Quit Docmd. Quit Private Sub cmd6_Click() DoCmd.Close End Sub Private Sub cmd7_Click() DoCmd.Quit End Sub 例3：OpenReport Private Sub cmd8_Click() DoCmd.OpenReport 1报表的结构(学生11表), acViewPreview, , End Sub 单击窗体上“cmd8”按钮，调用事件代码实现以预览方式打开报表“1报表的结构(学生11表)” 见实训二 ●五、第八章 综合练习： 实训一 一、基本操作题（实训一表文件夹033） 在考生文件夹下，“samp1.mdb”数据库文件中已建立表对象“tStud”。试按以下操作要求，完成表的编辑修改： （1）将“编号”字段改名为“学号”，并设置为主键。 （2）设置“入校时间”字段的有效性规则为2005年之前的时间(不含2005年)。 （3）删除表结构中的“照片”字段。 （4）删除表中学号为“000003”和“000011”的两条记录。 （5）设置“年龄”字段的默认值为23。 （6）完成上述操作后，将考生文件夹下文本文件tStud.txt中的数据导入并追加保存在表“tStud”中。 二、简单应用题（实训一查询文件夹036） 考生文件夹下存在一个数据库文件“samp2.mdb”，里面已经设计好两个表对象“tNorm”和“tStock”。试按以下要求完成设计： （1）创建一个查询，查找产品最高储备与最低储备相差最小的数量并输出，标题显示为“m_data”，所建查询命名为“qT1”。 （2）创建一个查询，查找库存数量超过10000（不含10000）的产品，并显示“产品名称”和“库存数量”。所建查询名为“qT2”。 （3）创建一个查询，按输入的产品代码查找某产品库存信息，并显示“产品代码”、“产品名称”和“库存数量”。当运行该查询时，应显示提示信息：“请输入产品代码：”。所建查询名为“qT3”。 （4）创建一个交叉表查询，统计并显示每种产品不同规格的平均单价，显示时行标题为产品名称，列标题为规格，计算字段为单价，所建查询名为“qT4”。 注意：交叉表查询不做各行小计。 三、综合应用题（实训一综合练习含VBA的文件夹016） 考生文件夹下存在一个数据库文件“samp3.mdb”，里面已经设计了表对象“tEmp”、窗体对象“fEmp”、报表对象“rEmp”和宏对象“mEmp”。试在此基础上按照以下要求补充设计： （1）将报表“rEmp”的报表页眉区域内名为“bTitle”标签控件的标题显示为“职工基本信息表”，同时将其安排在距上边0.5厘米、距左侧5厘米的位置。 （2）设置报表“rEmp”的主体节区内“tSex”文本框件控件显示“性别”字段数据。 （3）将窗体按钮“btnP”的单击事件属性设置为宏“mEmp”，以完成按钮单击打开报表的操作。 （4）窗体加载时将考生文件夹下的图片文件“test.jpg”设置为窗体“fEmp”的背景。窗体“加载”事件代码已提供，请补充完整。要求背景图像文件当前路径必须用CurrentP