[理学]VB第七章课件.ppt

1、安徽理工大学计算机学院1第第7章章 数据库编程数据库编程安徽理工大学计算机学院2教学目标教学目标n了解关系数据库的基本知识了解关系数据库的基本知识n了解数据库的了解数据库的结构化查询语言结构化查询语言SQL。n了解数据库访问技术和数据访问对象。了解数据库访问技术和数据访问对象。n熟练掌握使用熟练掌握使用数据控件数据控件和绑定控件创建数据窗体和绑定控件创建数据窗体的方法和步骤。的方法和步骤。n掌握使用数据环境设计器创建数据访问对象，并掌握使用数据环境设计器创建数据访问对象，并在此基础上进行数据窗体和数据报表的设计。在此基础上进行数据窗体和数据报表的设计。n掌握使用数据窗体向导创建数据窗体，并通过

2、阅掌握使用数据窗体向导创建数据窗体，并通过阅读所生成的代码了解如何用编写代码的方法创建读所生成的代码了解如何用编写代码的方法创建和运用数据对象。和运用数据对象。安徽理工大学计算机学院37.关系数据库关系数据库n数据库就是按照一定的数据模型来组织和数据库就是按照一定的数据模型来组织和存放的相关数据的集合存放的相关数据的集合。n关系数据库是以关系模型为基础的数据库，关系数据库是以关系模型为基础的数据库，主要特点是使用二维表的方式组织数据，主要特点是使用二维表的方式组织数据，通过若干个表（通过若干个表（Tabel）存储数据，并利）存储数据，并利用关系（用关系（Relation）将这些表联系在一）将这

3、些表联系在一起。起。n常见的有常见的有FoxPro、Access、Sybase、Oracle和和SQL Server 等。等。安徽理工大学计算机学院4关系数据库的基本概念关系数据库的基本概念 1表表在关系数据库中，数据以二维表（行和列）在关系数据库中，数据以二维表（行和列）的形式存储。的形式存储。一般情况下，可将描述不同事物的一般情况下，可将描述不同事物的数据分别保存在数据库中不同的表中，例如与部数据分别保存在数据库中不同的表中，例如与部门相关的信息保存在部门表中、员工的基本信息门相关的信息保存在部门表中、员工的基本信息保存在员工表中。例如下保存在员工表中。例如下所示的员工表。所示的员工表。工

4、号工号姓名姓名部门部门IDID 性别性别出生日期出生日期电话电话01006陈镭陈镭1男男1985-10-98837000601007罗薇罗薇1女女1987-4-298837000701008王亮王亮2男男1986-6-188837000801012金君君金君君2男男1987-5-1588370012安徽理工大学计算机学院5关系数据库的基本概念关系数据库的基本概念2记录记录 表中的每一行表示一条记录，一条记录描述事表中的每一行表示一条记录，一条记录描述事物的一个实例。物的一个实例。例如员工表中的每一行描述一个例如员工表中的每一行描述一个员工的基本信息。员工的基本信息。3字段字段 表中的每一列称为

5、一个字段，每一个字段描述表中的每一列称为一个字段，每一个字段描述事物的一个属性。事物的一个属性。例如，上述员工表中有例如，上述员工表中有6列即列即6个字段，分别描述员工的工号、姓名等个字段，分别描述员工的工号、姓名等6个不同属个不同属性。创建一个数据库表时，要设置每个字段的数性。创建一个数据库表时，要设置每个字段的数据类型（如文本、数值、日期等）和最大长度等据类型（如文本、数值、日期等）和最大长度等属性。属性。安徽理工大学计算机学院6关系数据库的基本概念关系数据库的基本概念4主键主键 主键惟一标识了表的每一行。主键可以是一个主键惟一标识了表的每一行。主键可以是一个字段，也可以是多个字段的组合。

6、字段，也可以是多个字段的组合。5外键外键 外键也是由一个字段或多个字段组成，而这些外键也是由一个字段或多个字段组成，而这些字段又是其它表的主键。通过外键可以与主键所字段又是其它表的主键。通过外键可以与主键所在表建立关联。在表建立关联。6关系关系 关系是建立在两个表的公共字段（一般是主键关系是建立在两个表的公共字段（一般是主键和外键）之间的一种关联。关系类型可以是一对和外键）之间的一种关联。关系类型可以是一对一、一对多或多对多。一、一对多或多对多。安徽理工大学计算机学院77.2 结构化查询语言结构化查询语言SQLn结构化查询语言结构化查询语言SQL（Structure Query Languag

7、e）是关系数据库操作的标准语）是关系数据库操作的标准语言。言。nSQL语言用简洁高效的语法实现对关系数语言用简洁高效的语法实现对关系数据库的各种操作，分为数据定义语言据库的各种操作，分为数据定义语言（DDL）命令和数据操作语言（）命令和数据操作语言（DML）命令。命令。DDL命令创建和定义新的数据库、命令创建和定义新的数据库、字段和索引；而字段和索引；而DML命令完成从数据库命令完成从数据库中进行选择、插入、更新和删除等操作。中进行选择、插入、更新和删除等操作。安徽理工大学计算机学院8最常用的数据操作命令。最常用的数据操作命令。1选择查询选择查询 从一个或多个表中检索出所需的数据。从一个或多个

8、表中检索出所需的数据。SELECT 字段列表字段列表 FROM 表名表名 WHERE 条件条件 GROUP BY 分组字段分组字段 ORDER BY 字段字段n字段列表可以是一个字段或用逗号分隔的多个字段，字段列表可以是一个字段或用逗号分隔的多个字段，也可以是由表达式表示的计算字段，如果要选择表中也可以是由表达式表示的计算字段，如果要选择表中的所有字段，可用的所有字段，可用“*”代替。代替。nFROM子句用于指定查询的数据来源（一个或多个子句用于指定查询的数据来源（一个或多个表）。表）。nWHERE子句用于构造查询条件。此条件表达式是子句用于构造查询条件。此条件表达式是由关系运算符或逻辑运算符

9、构成的逻辑表达式。由关系运算符或逻辑运算符构成的逻辑表达式。安徽理工大学计算机学院91选择查询选择查询例如，要从例如，要从“员工员工”表中查询出所有姓表中查询出所有姓“张张”的员工姓名、性别和年龄，的员工姓名、性别和年龄，SQL语语句为：句为：SELECT姓名姓名,性别性别,YEAR(NOW()-YEAR(出生日期出生日期)AS 年龄年龄FROM 员工员工 WHERE 姓名姓名 Like“张张%”nGROUP BY子句用于对结果进行分组。分子句用于对结果进行分组。分组中经常使用合计函数（又称聚集函数）组中经常使用合计函数（又称聚集函数）对数据进行统计运算，它返回应用于一组对数据进行统计运算，它

10、返回应用于一组记录的统计结果值。记录的统计结果值。安徽理工大学计算机学院10常用的合计函数常用的合计函数 函数函数描述描述AVG返回指定字段的平均值返回指定字段的平均值COUNT返回选定记录的个数返回选定记录的个数SUM返回指定字段中所有值的总和返回指定字段中所有值的总和MAX返回指定字段中的最大值返回指定字段中的最大值MIN返回指定字段中的最小值返回指定字段中的最小值例如，统计男女员工的人数、最大年龄、平均年龄。例如，统计男女员工的人数、最大年龄、平均年龄。SELECT 性别性别,COUNT(*)AS 人数人数,MAX(YEAR(NOW()-YEAR(出生日期出生日期)AS 最大年最大年龄龄

11、,AVG(YEAR(NOW()-YEAR(出生日期出生日期)AS 平均平均年龄年龄 FROM 员工员工 GROUP BY 性别性别安徽理工大学计算机学院112插入记录（插入记录（INSERT INTO 语句）语句）n可添加一条或多条记录到数据表中。可添加一条或多条记录到数据表中。INSERT INTO 表名（字段列表）表名（字段列表）VALUES（值列表）（值列表）例如，在例如，在“员工员工”表中增加一条新记录：表中增加一条新记录：INSERT INTO 员工（工号，姓名，性别员工（工号，姓名，性别,出生日期）出生日期）VALUES（03704，赵守赵守一一,男男,#1988-6-1#）安徽理

12、工大学计算机学院122插入记录（插入记录（INSERT INTO 语句）语句）n将查询结果插入到另一表中的语句格式如下：将查询结果插入到另一表中的语句格式如下：INSERT INTO 目标表名目标表名(字段列表字段列表)SELECT FROM 例如，将例如，将“员工员工”表中表中1945年以前出生的员工年以前出生的员工记录添加到记录添加到“退休员工退休员工”表中：表中：INSERT INTO 退休员工退休员工(姓名姓名,性别性别,出生日期出生日期)SELECT 姓名姓名,性别性别,出生日期出生日期 FROM 员工员工 WHERE 出生日期出生日期#1945-01-01#安徽理工大学计算机学院1

13、33更新记录更新记录UPDATE 表名表名 SET 字段字段1=表达式表达式1，字，字段段2=表达式表达式2，WHERE 例如，将所有员工的电话号码前加上一位例如，将所有员工的电话号码前加上一位“8”：UPDATE 员工员工 SET 电话电话=8&电话电话安徽理工大学计算机学院144删除记录删除记录删除记录的语句格式如下：删除记录的语句格式如下：DELETE FROM WHERE 例如，删除例如，删除“员工员工”表中表中1945年以前出生年以前出生的员工记录。的员工记录。DELETE FROM 员工员工 WHERE 出生年月出生年月 0,部门部门ID=&DataCombo1.BoundText

14、)tj=IIf(DataCombo2.Text=,tj,tj&and 职务职务ID=&DataCombo2.BoundText)tj=IIf(Text1=,tj,tj&and 姓名姓名 like%&Text1&%)DataEnvironment1.rscmdStaff.Filter=tj 利用记录集的利用记录集的Filter属性进行条件筛选属性进行条件筛选DataGrid1.RefreshEnd Sub 安徽理工大学计算机学院427.6.2 利用数据环境设计器设计数据报表利用数据环境设计器设计数据报表数据报表设计器属于数据报表设计器属于ActiveX Designer组中的组中的一个成员，在使

15、用前需选择一个成员，在使用前需选择“工程工程”“添加添加Data Report”命令，将报表设计器加入到当前工命令，将报表设计器加入到当前工程中，产生一个程中，产生一个DataReport对象，双击对象，双击DataReport对象后可进行报表设计。对象后可进行报表设计。报表标头区包含整个报表最开头的信息，报报表标头区包含整个报表最开头的信息，报表注脚区包含整个报表尾部的信息，一个报表只表注脚区包含整个报表尾部的信息，一个报表只有一个报表头和一个报表注脚区，一般在报表标有一个报表头和一个报表注脚区，一般在报表标头区使用头区使用“标签标签”控件建立报表标题，在报表注控件建立报表标题，在报表注脚区

16、用报表函数控件显示数据的统计结果。脚区用报表函数控件显示数据的统计结果。安徽理工大学计算机学院437.6.2 利用数据环境设计器设计数据报表利用数据环境设计器设计数据报表 页标头区设置报表每一页顶部的标题信页标头区设置报表每一页顶部的标题信息。息。页注脚区包含每一页底部的信息。页注脚区包含每一页底部的信息。细节区包含报表的具体数据，其高度将细节区包含报表的具体数据，其高度将决定报表数据的行高。当报表运行时，细决定报表数据的行高。当报表运行时，细节区部分随每条记录重复输出显示。节区部分随每条记录重复输出显示。安徽理工大学计算机学院44例例7-4 利用数据报表设计器设计利用数据报表设计器设计“员工

17、信员工信息报表息报表”。在工程中添加报表。在工程中添加报表。通过通过“工程工程”菜单中的菜单中的“添加添加Data Report”将数据报表将数据报表DataReport1加入到工加入到工程中。程中。将报表绑定到数据对象。将报表绑定到数据对象。在工程资源管理器中双击在工程资源管理器中双击DataReport1，在属性窗口的下拉列表中选中报表在属性窗口的下拉列表中选中报表DataReport1，将，将DataSource属性设为数属性设为数据环境据环境DataEnvironment1，DataMember属性设为命令对象属性设为命令对象cmdStaff。安徽理工大学计算机学院45例例7-4 利用

18、数据报表设计器设计利用数据报表设计器设计“员工信员工信息报表息报表”。在报表中添加绑定控件。在报表中添加绑定控件。从数据环境设计器窗口将命令对象中所需的字段从数据环境设计器窗口将命令对象中所需的字段拖放到报表细节区域，然后将其中的字段标题拖到拖放到报表细节区域，然后将其中的字段标题拖到页标头节，调整位置和设置格式。页标头节，调整位置和设置格式。在报表中添加其他控件。在报表中添加其他控件。单击工具箱中的单击工具箱中的“数据报表数据报表”按钮，打开报表控按钮，打开报表控件工具，根据需要在报表的细节区域添加直线，在件工具，根据需要在报表的细节区域添加直线，在标头节添加标题（标签控件），在报表的注脚节

19、添标头节添加标题（标签控件），在报表的注脚节添加合计函数（函数控件）并通过加合计函数（函数控件）并通过FunctionType属属性的常数或值确定函数功能。性的常数或值确定函数功能。安徽理工大学计算机学院46函数控件的函数控件的FunctionType常数与功能常数与功能 FunctionType常数常数值值功能功能rptFuncSum0（缺省的）合计数据字段的值（缺省的）合计数据字段的值rptFuncAve1计算数据字段的平均值计算数据字段的平均值rptFuncMin2返回数据字段的最小值返回数据字段的最小值rptFuncMax3返回数据字段的最大值返回数据字段的最大值rptFuncRCnt

20、4计数部分中的行数计数部分中的行数rptFuncVCnt5计数包含非空值的字段计数包含非空值的字段rptFuncSDEV6计算标准偏差计算标准偏差rptFuncSERR7计算标准错误计算标准错误安徽理工大学计算机学院47例例7-4 利用数据报表设计器设计利用数据报表设计器设计“员工信员工信息报表息报表”。对报表页脚中的统计函数控件设置如下表所示。对报表页脚中的统计函数控件设置如下表所示。属性属性结果结果DataSourceDataMember DataFieldFunctionType人数统人数统计计DataEnvironment1cmdStaff工号工号rptFuncRCnt平均年平均年龄龄

21、DataEnvironment1cmdStaff年龄年龄rptFuncAve 将报表设为启动对象，运行程序以预览报表。此外，将报表设为启动对象，运行程序以预览报表。此外，也可以在例也可以在例7-3的员工查询窗体中添加的员工查询窗体中添加“报表报表”按钮，按钮，再添加一行单击事件代码：再添加一行单击事件代码：DataReport1.Show后，后，即可在查询后单击该按钮预览报表。即可在查询后单击该按钮预览报表。安徽理工大学计算机学院487.7 编写程序代码访问数据库编写程序代码访问数据库 完全用编写代码的方法使用完全用编写代码的方法使用ADO实现数据访问，虽实现数据访问，虽然代码编写量比上述方法

22、大，但最为灵活。与在然代码编写量比上述方法大，但最为灵活。与在VB中中用代码创建其他对象一样，需要进行以下操作：用代码创建其他对象一样，需要进行以下操作：在工程中引用对象的类型库（例在工程中引用对象的类型库（例:选择选择“工程工程”菜菜单中的单中的“引用引用”后选中后选中Microsoft ActiveX Data Object 2.x Library）。）。声明和初始化对象。声明和初始化对象。设置对象属性。设置对象属性。打开对象。打开对象。利用对象的属性、方法和事件进行操作。利用对象的属性、方法和事件进行操作。关闭和释放对象。关闭和释放对象。例例7-5通过通过VB数据窗体向导创建数据访问窗体

23、。见数据窗体向导创建数据访问窗体。见P241安徽理工大学计算机学院497.8 数据访问综合实例数据访问综合实例例例7-6 在工程中创建员工考评窗体，如图在工程中创建员工考评窗体，如图7-16所示。要求：利用组合框选择部门后，左侧列表所示。要求：利用组合框选择部门后，左侧列表框显示该部门员工名单，单击其中的任一姓名后，框显示该部门员工名单，单击其中的任一姓名后，表格中显示出该员工历年的考评记录，并可以修表格中显示出该员工历年的考评记录，并可以修改。同时，使改。同时，使“打印年度报表打印年度报表”按钮不可用。按钮不可用。安徽理工大学计算机学院50例例7-6选择年度后，表格中显示出所有员工该年度的考

24、评选择年度后，表格中显示出所有员工该年度的考评记录，如图记录，如图7-17所示；若年度清空，表格中显示所示；若年度清空，表格中显示出所有员工各年度的考评记录。单击出所有员工各年度的考评记录。单击“打印年度报打印年度报表表”按钮，打印预览出所显示的考评记录的报表。按钮，打印预览出所显示的考评记录的报表。安徽理工大学计算机学院51例例7-6 在本例中，由于要访问的数据较多，因此采用在本例中，由于要访问的数据较多，因此采用数据环境设计器和编写代码相结合的方法。数据环境设计器和编写代码相结合的方法。对运行过程中保持不变的数据，如组合框下拉对运行过程中保持不变的数据，如组合框下拉列表中的列表中的“部门部

25、门”信息和信息和“年度年度”信息，采用信息，采用在数据环境设计器中分别创建命令对象在数据环境设计器中分别创建命令对象cmdDep 和和CmdYear，在设计时设置组合框，在设计时设置组合框数据属性与其绑定。数据属性与其绑定。对需要根据用户操作而变化的数据，如列表框对需要根据用户操作而变化的数据，如列表框中的名单要根据用户所选的部门确定，采用编中的名单要根据用户所选的部门确定，采用编写代码的方法动态创建记录集对象。写代码的方法动态创建记录集对象。安徽理工大学计算机学院52例例7-6n 而对表格中显示的考评记录，由于选择姓名而对表格中显示的考评记录，由于选择姓名和选择年度后要显示的数据内容不同，因

26、此可和选择年度后要显示的数据内容不同，因此可采用编写代码的方法，根据用户的操作，将采用编写代码的方法，根据用户的操作，将DataGrid1与不同的命令对象进行绑定，即所与不同的命令对象进行绑定，即所谓的动态绑定。这些在数据环境设计器中创建谓的动态绑定。这些在数据环境设计器中创建的命令对象，运行时也要通过程序代码按选定的命令对象，运行时也要通过程序代码按选定的条件进行筛选。的条件进行筛选。n添加添加“数据环境设计器数据环境设计器”、创建到、创建到Staff.mdb的连接的连接Connnction1、添加命令、添加命令cmdDep（数（数据源为据源为Staff.mdb中的中的“部门部门”表）表）安

27、徽理工大学计算机学院53 在数据环境中添加和设置命令。在数据环境中添加和设置命令。n添加命令添加命令cmdKP，数据源为，数据源为SQL命令文本，直接输入或命令文本，直接输入或通过通过“SQL生成器生成器”生成命令：生成命令：SELECT 工号工号,年度年度,出勤率出勤率,任务完成率任务完成率,工作表现得分工作表现得分,综合评价得分综合评价得分 FROM 年度考评年度考评 ORDER BY 年度年度锁定类型设为锁定类型设为“开放式开放式”，以便允许录入和编辑考评成绩。，以便允许录入和编辑考评成绩。n添加命令添加命令cmdKPRPT，数据源为，数据源为SQL命令文本，通过命令文本，通过“SQL生

28、成器生成器”生成包含生成包含3张表的查询命令：张表的查询命令：SELECT 部门部门.部门名称部门名称,员工员工.工号工号,员工员工.姓名姓名,年度考评年度考评.年度年度,年度考评年度考评.出勤率出勤率,年度考评年度考评.任务完成率任务完成率,年度考评年度考评.工作表现得分工作表现得分,年度考评年度考评.综合评价得分综合评价得分 FROM 员工员工,年度年度考评考评,部门部门 WHERE 员工员工.工号工号=年度考评年度考评.工号工号 AND 员员工工.部门部门ID=部门部门.部门部门ID ORDER BY 员工员工.工号工号锁定类型设为锁定类型设为“只读只读”，只供浏览打印。，只供浏览打印。

29、安徽理工大学计算机学院54 在数据环境中添加和设置命令。在数据环境中添加和设置命令。添加命令添加命令cmdYEAR，数据源为，数据源为SQL命令文本，直命令文本，直接输入或通过接输入或通过“SQL生成器生成器”生成命令：生成命令：SELECT DISTINCT 年度年度 FROM 年度考评年度考评其中，关键字其中，关键字DISTINCT 用来过滤掉结果中的重用来过滤掉结果中的重复行。复行。添加窗体。添加窗体。添加窗体，命名为添加窗体，命名为frmKP，放置，放置ActiveX控件控件DataCombo1（选择部门）、（选择部门）、DataCombo2（选（选择年度）、择年度）、DataList

30、1（选择员工）、（选择员工）、DataGrid1（显示或编辑结果）。（显示或编辑结果）。安徽理工大学计算机学院55 设置绑定控件的有关数据属性。设置绑定控件的有关数据属性。n设置设置DataCombo1 的有关数据属性，实现用的有关数据属性，实现用部门表的数据填充部门表的数据填充DataCombo1的列表的列表属性属性属性值属性值RowSourceDataEnvironment1RowMembercmdDepListField部门名称部门名称BoundColumn部门部门IDText删空删空安徽理工大学计算机学院56 设置绑定控件的有关数据属性。设置绑定控件的有关数据属性。n设置设置DataC

31、ombo2 的有关数据属性，实现用的有关数据属性，实现用年度考核表中的年度数据填充年度考核表中的年度数据填充DataCombo2的的列表列表 属性属性属性值属性值RowSourceDataEnvironment1RowMembercmdYEARListField年度年度BoundColumn年度年度Text删空删空安徽理工大学计算机学院57 设置绑定控件的有关数据属性。设置绑定控件的有关数据属性。设置设置 DataGrid1的属性。在的属性。在DataGrid1属性页属性页的的“通用通用”中设置中设置“允许添加允许添加”、“允许删除允许删除”、“允许更新允许更新”，有关绑定属性放在代码中动态绑

32、，有关绑定属性放在代码中动态绑定。定。创建报表。创建报表。选择选择“工程工程”菜单中的菜单中的“添加添加Data Report”命命令，在工程中添加报表令，在工程中添加报表DataReport2。打开打开DataReport2，通过属性窗口将报表的，通过属性窗口将报表的DataSource属性设为属性设为DataEnvironment1，DataMember属性设为属性设为cmdKPRPT；从数据环境设计器将从数据环境设计器将cmdKPRPT拖放到其中，拖放到其中，将每个字段的标签控件移到页标头，文本控件放将每个字段的标签控件移到页标头，文本控件放到细节区域，调整各控件的位置和节的高度。到细节

33、区域，调整各控件的位置和节的高度。安徽理工大学计算机学院58 创建报表。创建报表。通过属性窗口将报表标头命名为通过属性窗口将报表标头命名为Head，其中放置，其中放置Label控件，命名为控件，命名为title。在报表注脚节放置函数控件，分别绑定到各考评数在报表注脚节放置函数控件，分别绑定到各考评数字字段，报表页脚中的函数控件设置如下表所示。字字段，报表页脚中的函数控件设置如下表所示。属性控件DataSourceDataMemberDataField FunctionType总人数DataEnvironment1cmdKPRPT工号rptFuncRCnt平均出勤率DataEnvironment

34、1cmdKPRPT出勤率rptFuncAve平均综合考评DataEnvironment1cmdKPRPT综合考评分数rptFuncAve安徽理工大学计算机学院59 编写控件的事件代码。编写控件的事件代码。n“部门选择部门选择”组合框的事件代码。组合框的事件代码。当组合框选项发生变化时，对列表框的数据属性重新赋值，使得按所选当组合框选项发生变化时，对列表框的数据属性重新赋值，使得按所选部门的名单重新填充列表部门的名单重新填充列表DataList1的列表项。的列表项。Private Sub DataCombo1_Change()Dim rsName As ADODB.Recordset 声明声明A

35、DO记录集对象记录集对象rsName Set rsName=New ADODB.Recordset 创建创建ADO记录集对象记录集对象rsNamersName.Open select 工号工号,姓名姓名 from 员工员工 where 部门部门ID=_&DataCombo1.BoundText&,DataEnvironment1.Connection1 打开记录集对象打开记录集对象rsName，数据源为，数据源为SQL命令文本，连接为数据环命令文本，连接为数据环境中的境中的Connection1Set DataList1.RowSource=rsName 设置列表项来源为记录集设置列表项来源为

36、记录集对象对象rsNameDataList1.ListField=“姓名姓名”设置列表项取自设置列表项取自“姓名姓名”字字段段DataList1.BoundColumn=工号工号 设置列表返回设置列表返回“工号工号”字段字段End Sub安徽理工大学计算机学院60 编写控件的事件代码。编写控件的事件代码。n“员工选择员工选择”列表框的事件代码。列表框的事件代码。单击其中的姓名时，将返回的工号作为记录集单击其中的姓名时，将返回的工号作为记录集rscmdKP的的筛选条件，使绑定的表格筛选条件，使绑定的表格DataGrid1显示筛选出的员工考显示筛选出的员工考评记录。评记录。Private Sub

37、DataList1_Click()DataCombo2.Text=年度组合框清空年度组合框清空cmdPRT.Enabled=False 使打印报表按钮不可用使打印报表按钮不可用DataEnvironment1.rscmdKP.Filter=工号工号=&DataList1.BoundText&记录集记录集rscmdKP按按DataList1所选员工的工号筛选所选员工的工号筛选DataEnvironment1.rscmdKP.Sort=年度年度Set DataGrid1.DataSource=DataEnvironment1DataGrid1.DataMember=cmdKP DataGrid1绑

38、定到命令绑定到命令cmdKPEnd Sub安徽理工大学计算机学院61 编写控件的事件代码。编写控件的事件代码。n“年度选择年度选择”组合框事件代码。组合框事件代码。对对cmdKPRPT的记录集的记录集rscmdKPRPT，利用，利用Filter属性过属性过滤出所选年度的记录。滤出所选年度的记录。Private Sub DataCombo2_Change()If DataCombo2.Text Then DataEnvironment1.rscmdKPRPT.Filter=年度年度=&DataCombo2.TextElse DataEnvironment1.rscmdKPRPT.Filter=年

39、度年度 0End IfSet DataGrid1.DataSource=DataEnvironment1DataGrid1.DataMember=cmdKPRPTEnd Sub安徽理工大学计算机学院62 编写控件的事件代码。编写控件的事件代码。n“打印报表打印报表”按钮事件代码。按钮事件代码。使报表标题根据所选年度显示为：使报表标题根据所选年度显示为：XXXX年度考评报年度考评报表表”。Private Sub cmdPRT_Click()DataReport2.Sections(Head).Controls(title)=DataCombo2.Text&年度考评报表年度考评报表”Head和和title分别是在报表属性窗口给报表标头节分别是在报表属性窗口给报表标头节和标题标签控件所设置的的称和标题标签控件所设置的的称DataReport2.Show 打印预览报表打印预览报表End Sub