1、第十二章第十二章 数据库及数据库及ActiveX控件控件 12.1 Visual Basic 6.0数据库编程数据库编程 概述概述 12.2 结构化查询语言结构化查询语言SQL12.3 ActiveX控件控件 12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用12.5 其它常用其它常用ActiveX控件控件12.6 本章小结本章小结12.1 Visual Basic 6.0数据库编程概述数据库编程概述 1关系（表）关系（表）我们目前使用的大部分数据库都是关系型数据库（我们目前使用的大部分数据库都是关系型数据库（Relational Database）。关系型数据库通过若干个表（）
2、。关系型数据库通过若干个表（Table）来存储数）来存储数据，可以把关系理解成一张二维表（据，可以把关系理解成一张二维表（Table），每张表都有一），每张表都有一个名称，即关系名。个名称，即关系名。2记录（行）记录（行）每张二维表均由若干行和列构成，其中每一行称为一条记录每张二维表均由若干行和列构成，其中每一行称为一条记录（Record），记录是一组数据项），记录是一组数据项(字段值字段值)的集合，表中不允的集合，表中不允许出现完全相同的记录，但记录出现的先后次序可以任意。许出现完全相同的记录，但记录出现的先后次序可以任意。3字段（列）字段（列）二维表中的每一列称为一个字段（二维表中的每一列
3、称为一个字段（Field），每一列均有一个），每一列均有一个名字，称为字段名，各字段名互不相同。列出现的次序可以是名字，称为字段名，各字段名互不相同。列出现的次序可以是任意的，但同一列中的数据类型必须相同。任意的，但同一列中的数据类型必须相同。12.1 Visual Basic 6.0数据库编程概述数据库编程概述 4主键主键在数据库中最常用的是检索信息，为了提高检索效率，常将关在数据库中最常用的是检索信息，为了提高检索效率，常将关系数据库中的某个字段或某些字段的组合定义为主键系数据库中的某个字段或某些字段的组合定义为主键（Primary Key）。每条记录的主键值是唯一的，这就保证了）。每条记
4、录的主键值是唯一的，这就保证了可以通过主键唯一标识一条记录。可以通过主键唯一标识一条记录。5索引索引为了提高数据库的访问效率，表中的记录应该按照一定顺序排为了提高数据库的访问效率，表中的记录应该按照一定顺序排列，如学生基本情况表应按学号排序。但数据库经常要进行更列，如学生基本情况表应按学号排序。但数据库经常要进行更新，如果每次更新都要对表重新排序，则太浪费时间。为此，新，如果每次更新都要对表重新排序，则太浪费时间。为此，通常需要建立一个较小的表通常需要建立一个较小的表索引表，该表中只含有索引字索引表，该表中只含有索引字段和记录号。通过索引表可以快速确定要访问记录的位置。段和记录号。通过索引表可
5、以快速确定要访问记录的位置。12.1 Visual Basic 6.0数据库编程概述数据库编程概述 Visual Basic 6.0作为数据库应用程序开发平台既简单、灵活，作为数据库应用程序开发平台既简单、灵活，而且还具有可扩充性，其优点表现如下：而且还具有可扩充性，其优点表现如下：简单性简单性 Visual Basic 6.0提供了数据库相关控件，通过这些提供了数据库相关控件，通过这些控件只要编写少量的代码甚至不编写任何代码就可以访问和操控件只要编写少量的代码甚至不编写任何代码就可以访问和操作数据库。作数据库。灵活性灵活性 Visual Basic 6.0除了可以直接建立和访问内部的除了可以
6、直接建立和访问内部的Access数据库外，还可以通过数据库引擎或者数据库外，还可以通过数据库引擎或者ODBC驱动程驱动程序与其他类型的数据库进行连接。序与其他类型的数据库进行连接。可扩充性可扩充性 用户界面和应用程序数据库引擎数据库12.2结构化查询语言结构化查询语言SQL SQL在关系数据库领域中被称为标准数据库语言，功在关系数据库领域中被称为标准数据库语言，功能强大。能强大。SQL包括了对数据库的所有操作，主要分为包括了对数据库的所有操作，主要分为三个部分：（三个部分：（1）数据定义语言（）数据定义语言（DDL），主要定义），主要定义数据库的逻辑结构，包括定义数据库、基本表、索引数据库的逻
7、辑结构，包括定义数据库、基本表、索引和视图；（和视图；（2）数据操纵语言（）数据操纵语言（DML），包括数据查），包括数据查询和数据更新两大类操作，其中数据更新又包括插入、询和数据更新两大类操作，其中数据更新又包括插入、修改和删除操作；（修改和删除操作；（3）数据控制语言（）数据控制语言（DCL），主），主要有对基本表和视图的授权、事务控制等。要有对基本表和视图的授权、事务控制等。12.2结构化查询语言结构化查询语言SQL SQL的特点如下所述：1综合统一2面向集合的操作方式3同一种语法结构具有两种使用方式4语言非过程化、简洁，易学易用12.2结构化查询语言结构化查询语言SQL SQL语言由命
8、令、子句、运算符和函数等基本元素构成，通语言由命令、子句、运算符和函数等基本元素构成，通过这些元素组成语句对数据库进行操作。过这些元素组成语句对数据库进行操作。1SQL 命令命令SQL使用了使用了9个命令动词个命令动词表表12-1 常用常用SQL命令命令常用常用SQL命令命令功能功能CREATE创建新的表、字段和索引创建新的表、字段和索引DELETE从数据库表中删除记录从数据库表中删除记录INSERT向数据库表中添加记录向数据库表中添加记录SELECT在数据库表中查找满足条件在数据库表中查找满足条件的记录的记录UPDATE改变指定记录和字段的值改变指定记录和字段的值12.2结构化查询语言结构化
9、查询语言SQL 2SQL子句子句SQL子句是用来修改查询条件的，通过它们可以定义要选择子句是用来修改查询条件的，通过它们可以定义要选择和要操作的数据。和要操作的数据。表表12-2 SQL子句子句SQL子句子句功能功能FROM指定一个或多个数据表指定一个或多个数据表WHERE指定所选记录要满足的条件指定所选记录要满足的条件GROUP BY把所选记录分组把所选记录分组HAVING指定每个组要满足的条件指定每个组要满足的条件ORDER BY按指定的次序将记录排序按指定的次序将记录排序12.2结构化查询语言结构化查询语言SQL 3SQL运算符运算符SQL有两类运算符：逻辑运算符和比较运算符。逻辑运算符
10、有两类运算符：逻辑运算符和比较运算符。逻辑运算符有有AND（逻辑与）、（逻辑与）、OR（逻辑或）和（逻辑或）和 NOT（逻辑非）（逻辑非）3个。个。比较运算符除了有比较运算符除了有(小于小于)、(大大于于)、=(大于或等于大于或等于)、(不等于不等于)等等,还包括还包括BETWEEN、LIKE、IN，如表，如表12-3所示。所示。表表12-3 SQL的的3个运算符个运算符 运算符运算符含义含义BETWEEN用来指定属性列值的范围用来指定属性列值的范围如：英语如：英语 BETWEEN 80 TO 100LIKE用来查找指定字段值与匹配串匹配的元组用来查找指定字段值与匹配串匹配的元组如：姓名如：姓
11、名 LIKE WANG*IN用来查找指定字段值在指定列表中出现的元组用来查找指定字段值在指定列表中出现的元组如：性别如：性别 IN（“男男”，“女女”）12.2结构化查询语言结构化查询语言SQL 4函数函数SQL中比较常用的是统计函数，利用统计函数可以对记录组中比较常用的是统计函数，利用统计函数可以对记录组进行操作，并返回单一的运算结果，进行操作，并返回单一的运算结果，SQL常用的统计函数如常用的统计函数如表表12-4所示。所示。表表12-4 SQL常用的统计函数常用的统计函数 函数函数功能功能AVG用于计算指定字段中值的平均数用于计算指定字段中值的平均数COUNT用于计算所选记录的个数用于计
12、算所选记录的个数SUM用于返回指定字段值的总和用于返回指定字段值的总和MAX用于返回指定字段值的最大值用于返回指定字段值的最大值MIN用于返回指定字段值的最小值用于返回指定字段值的最小值12.2结构化查询语言结构化查询语言SQL 1语句一般格式为：语句一般格式为：SELECT INTO 新表新表 FROM 记录源记录源 WHERE 查询条件查询条件 GROUP BY 分组字段分组字段 HAVING 分组条件分组条件 ORDER BY 排序字段排序字段Asc|Desc 12.2结构化查询语言结构化查询语言SQL 2常见的基本用法常见的基本用法（1）选取表中的部分列。）选取表中的部分列。例如：查询
13、课程表中的课程名称例如：查询课程表中的课程名称和学分。和学分。SELECT 课程名称，学分课程名称，学分 FROM 课程表课程表（2）选取表中的所有列。）选取表中的所有列。例如：查询课程表中的所有信息。例如：查询课程表中的所有信息。SELECT*FROM 课程表课程表（3）查询满足特定条件的信息。）查询满足特定条件的信息。例如：查询课程表中学分为例如：查询课程表中学分为4的课的课程信息。程信息。SELECT*FROM 课程表课程表 WHERE 学分学分=4（4）将查询的信息按指）将查询的信息按指定列排序。定列排序。例如：查询课程表中学分例如：查询课程表中学分是是4的课程信息的课程信息,并将查询
14、并将查询结果按学时降序排列。结果按学时降序排列。SELECT*FROM 课程表课程表 WHERE 学分学分=4 ORDER BY 学时学时 DESC12.2结构化查询语言结构化查询语言SQL 2常见的基本用法常见的基本用法（5）统计信息。）统计信息。例如：查询课程表中学分是例如：查询课程表中学分是4的课程的数量。的课程的数量。SELECT COUNT（*）AS 课程数量课程数量 FROM 课程表课程表（6）分组统计信息。）分组统计信息。例如：查询每种学分的平均例如：查询每种学分的平均学时。学时。SELECT 学分学分,AVG(学时学时)AS 平均学时平均学时FROM 课程表课程表GROUP B
15、Y 学分学分（7）查询组内满足条件的信息。）查询组内满足条件的信息。例如：查询相同学分超过例如：查询相同学分超过2门课门课程的平均学时和学分。程的平均学时和学分。SELECT AVG(学时学时)AS 平均学平均学时时,学分学分FROM 课程表课程表GROUP BY 学分学分HAVING COUNT（*）2（8）多表查询：从多表中选取）多表查询：从多表中选取指定的列。指定的列。例如：查询学生的姓名、课程名例如：查询学生的姓名、课程名和成绩。和成绩。SELECT学生表学生表.姓名姓名,课程表课程表.课课程名程名,成绩表成绩表.成绩成绩FROM 学生表学生表,课程表课程表,成绩表成绩表 12.3 A
16、ctiveX控件控件 ActiveX控件是一段可重复使用的编程代码和数据，是控件是一段可重复使用的编程代码和数据，是Visual Basic工具箱的扩展。它由用工具箱的扩展。它由用ActiveX技术创建的一个技术创建的一个或多个对象所组成。或多个对象所组成。提供代码可重用性。提供代码可重用性。它可以被加入到客户服务器应用程序、它可以被加入到客户服务器应用程序、Web应用程序、应用程序、Java applet以及使用以及使用JavaScript和和Visual Basic Script的的Web页面中，页面中，以完成特定的功能。以完成特定的功能。在客户系统的安全性设置允许的情况下，它能对客户系统
17、的资在客户系统的安全性设置允许的情况下，它能对客户系统的资源进行完全访问。源进行完全访问。具体步骤如下：具体步骤如下：(1)新建一个新建一个“标准标准EXE”工程。工程。(2)执行菜单栏执行菜单栏【工程工程】|【部件部件】命令打开命令打开“部件部件”对话框，对话框，选取选取“Microsoft Calendar Control 8.0”，如图，如图1所示，如果所示，如果部件中没有列出，可以单击对话框中的部件中没有列出，可以单击对话框中的“浏览浏览”按钮打开文件按钮打开文件MSCAL.ocx(一般在系统目录一般在系统目录system32下下)。这样我们就可以。这样我们就可以在工具箱中找到在工具箱
18、中找到Calendar控件图标，如图控件图标，如图2所示。所示。12.3 ActiveX控件控件(3)从工具箱中选中从工具箱中选中Calendar控件，在窗体上画出合适大小的控件，在窗体上画出合适大小的日历。日历。(4)运行程序，如图所示，可以通过月份下拉列表框和年份下运行程序，如图所示，可以通过月份下拉列表框和年份下拉列表框进行选择，显示出相应的日历。拉列表框进行选择，显示出相应的日历。12.3 ActiveX控件控件12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 ADO（ActiveX Data Objects）是）是Microsoft公司推出公司推出的一致数据访问技术（
19、的一致数据访问技术（UDA）中的一层接口。）中的一层接口。ADO是是应用层的编程接口，它通过应用层的编程接口，它通过OLE DB提供的提供的COM接口接口访问数据，它适合于各种客户机访问数据，它适合于各种客户机/服务器应用系统和基服务器应用系统和基于于Web的应用，尤其在一些脚本语言中访问数据库操的应用，尤其在一些脚本语言中访问数据库操作是作是ADO的主要优势。的主要优势。ADO是一套用自动化技术建立是一套用自动化技术建立起来的对象层次结构，它比其他一些对象模型如起来的对象层次结构，它比其他一些对象模型如DAO（Data Access Object）、）、RDO（Remote Data Obj
20、ect）等具有更好的灵活性，使用更为方便，并且）等具有更好的灵活性，使用更为方便，并且访问数据的效率更高。访问数据的效率更高。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 1.概述ADO的对象模型定义了一组可编程的自动化对象，整个ADO对象模型由这些对象组成。表12-5 ADO对象对象说明Connection连接数据库Command从数据源获取所需数据的命令信息，包含SQL语句Recordset所获取的一组记录组成的记录集Parameter包含SQL语句参数Error在访问数据库时，由数据源所返回的错误信息Property包含ADO对象特性Field包含Recordset对
21、象列（即记录集中某个字段的信息）12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 要想在程序中使用ADO对象，必须先为当前工程引用ADO对象库。引用方法是：执行工程菜单的引用命令，启动引用对话框，选取“Microsoft ActiveX Data Object 2.5 Library”选项。2.使用ADO命令编程一般要按照以下几个步骤：1)创建连接 2)创建命令 3)运行命令返回记录集4)操作记录集在Visual Basic的设计阶段和编写代码阶段都可以创建和使用ADO对象。例如，我们可以在程序中直接声明或新建ADO对象：Dim cn As New ADODB.Connecti
22、onDim cmd As New ADODB.CommandDim rs As New ADODB.Recordset12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 例【12-1】将我们前面建立的“学生成绩管理.mdb”数据库打开，利用SQL语言中的DELETE语句，从课程表中删除课程名为大学英语的课程记录（在窗体上添加一个命令按钮Command1）。Dim cn As New ADODB.ConnectionDim cmd As New ADODB.CommandDim rs As New ADODB.RecordsetPrivate Sub Command1_Click(
23、)Dim sql As Stringsql=delete*from 课程表 where 课程名=大学英语 Set cmd.ActiveConnection=cn ActiveConnection属性为命令指定Connection对象cmd.CommandText=sql CommandText用于定义命令的可执行文本12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 例【12-1】将我们前面建立的学生成绩管理.mdb数据库打开，利用SQL语言中的DELETE语句，从课程表中删除课程名为大学英语的课程记录（在窗体上添加一个命令按钮Command1）。cmd.Execute 执行命令
24、End SubPrivate Sub Form_Load()Dim pstr As Stringpstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:VB SAMPLESCHAP1313-7学生成绩管理.mdb;Persist Security Info=False 设置ConnectionString，包含连接信息cn.Open pstr 建立到数据源的物理连接End Sub12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 ADO数据控件缺省时不在工具箱中。要添加此部件，选择“工程”菜单下的“部件”命令，在弹出“部件”对话框中
25、，选择Microsoft ADO Data Control 6.0(OLEDB)项，单击“确定”按钮，则ADO数据控件出现在工具箱中。1 ADO数据控件的主要属性数据控件的主要属性（1）ConnectionString属性属性（2）RecordSource属性属性该属性指明了数据源，数据库中的一个表，也可以是一个该属性指明了数据源，数据库中的一个表，也可以是一个SQL查询、存储过程或视图。在查询、存储过程或视图。在ADO属性页对话框中，通过属性页对话框中，通过“记录源记录源”选项卡，可以从下面选项卡，可以从下面4种方式中选择一种。种方式中选择一种。8-adCmdUnknown：未知，为系统默认
26、值。：未知，为系统默认值。1-adCmdText：文本命令类型。：文本命令类型。2-adCmdTable：数据表。：数据表。3-adCmdstoredProc：存储过程。：存储过程。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用（3）BOFAction 和 EOFAction属性BOF属性用来判断记录指针是否在首记录之前，而 EOF属性用来判断记录指针是否在末记录之后。BOFAction 和 EOFAction属性只对鼠标操作ADO控件有效，在用代码操作记录集时并不起作用。（4）Mode属性该属性用来设置对数据操作的权限，具体取值如表13-7所示。（5）RecordSet属性
27、用来设置或返回ADO的记录集对象。（6）RecordCount属性返回记录集中的记录数，为只读属性。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 2Recordset记录集的属性和方法（1）CursorLocation属性长整型值。设置或返回游标的位置值。（2）ActiveConnection属性包含有效连接字符串值或Connection对象的一个引用。(3)Open方法打开一个新的Recordset对象（4）AddNew方法用来在ADO控件的记录集中添加一条新记录。添加记录之后，可以给记录集的各个字段赋值，并调用UpdateBatch方法保存，或用CancelUpdate
28、方法取消保存。（5）Refresh方法执行刷新操作。通过重新执行对象所基于的查询,来更新Recordset对象中的数据。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 2Recordset记录集的属性和方法（6）Move方法用来移动记录指针，其格式和参数与Data控件的该方法相似。（7）Find方法在记录集中查找满足条件的记录，若找到则记录指针指向该记录，否则指针指向记录集的末尾。（8）UpdateBatch方法将所有新添加的记录集或修改后的内容写入数据库保存。（9）Delete方法用来删除当前记录。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 3 数据绑
29、定控件数据绑定控件需要指出的是，数据控件本身并不直接显示和修改记录集中的当前记录，而是需要指出的是，数据控件本身并不直接显示和修改记录集中的当前记录，而是通过与它绑顶的控件（也称数据绑定控件）才能在数据绑定控件中自动显示通过与它绑顶的控件（也称数据绑定控件）才能在数据绑定控件中自动显示当前记录的相关字段值。当前记录的相关字段值。可以做数据绑定控件的标准控件有八种：文本框、标签、图片框、图像框、复可以做数据绑定控件的标准控件有八种：文本框、标签、图片框、图像框、复选框、列表框、组合框、选框、列表框、组合框、OLE控件。此外，控件。此外，DBList、DBCombo、DataList、DataCo
30、mbo、DataGrid、MSFlexGrid、MSHFlexGrid 等等ActiveX控件也可以作为数据绑定控件。要实现绑定控件能与数据库进行连控件也可以作为数据绑定控件。要实现绑定控件能与数据库进行连接，必须设置它的两个属性。接，必须设置它的两个属性。（1）DataSource属性属性该属性通过指定一个有效的数据控件使绑定控件连接到数据库上。该属性通过指定一个有效的数据控件使绑定控件连接到数据库上。（2）DataField属性属性该属性设置数据库有效的字段与绑定控件建立联系。该属性设置数据库有效的字段与绑定控件建立联系。当绑定控件与数据控件绑定后，当绑定控件与数据控件绑定后，Visual
31、 Basic 6.0将当前记录的字段值赋给绑定将当前记录的字段值赋给绑定控件，如果修改在绑定控件内的数据，只要移动记录指针，修改后的数据会控件，如果修改在绑定控件内的数据，只要移动记录指针，修改后的数据会自动写入数据库。自动写入数据库。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 4.DataGrid控件要对ADO数据控件执行中得到的记录集进行操作显示，需要用到绑定控件。VB6.0除了保留以往的数据绑定控件外，又提供了一些新的成员来连接不同数据类型的数据，如DataGrid控件。通过设置DataGrid控件的DataSource属性为某Adodc数据控件，可将DataGri
32、d控件绑定到相应的数据控件上。DataGrid控件允许用户同时浏览或修改多个记录的数据。在使用DataGrid控件前必须通过“工程”|“部件”菜单，选择“Microsoft DataGrid Control 6.0(SP6)(OLEDB)”选项，将DataGrid控件添加到工具箱中。设计时，将DataGrid控件绑定到ADO数据控件之后，用鼠标右键单击DataGrid控件，在弹出的快捷菜单中选择“检索字段”，可将表的字段装载到DataGrid控件中。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 使用ADO数据控件例【12-2】修改例【12-1】程序。我们用数据绑定控件用Da
33、taGrid将记录删除前后的课程表内容显示出来，以便对比，同时允许用户指定要删除的课程名。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 创建步骤：新建一个工程，按图13-5所示设计界面，在窗体上添加1个标签（Label1）和1个文本框(Text1)、1个命令按钮(Command1)、1个ADO数据控件(名称为Adodc1)和一个DataGrid控件(名称为DataGrid1)。设置标签（Label1）的Caption属性为“要删除的课程名”。（2）设置数据绑定之前，应首先设置ADO数据控件Adodc1的数据源，这里仍采用“学生成绩管理.mdb”数据库“课程表”，具体方法见前
34、面“ConnectionString属性”部分内容。然后在属性窗口中，将Adodc1的Caption属性设置为“课程表基本信息”，Mode属性设为3-adModeReadWrite。（3）设置数据绑定。设置数据绑定控件DataGrid1的DataSource属性为Adodc1。12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用（4）在代码窗口添加“代码”如下：。Dim cn As New ADODB.ConnectionDim cmd As New ADODB.CommandDim rs As New ADODB.RecordsetPrivate Sub Command1_Cli
35、ck()Dim sql As String,condition As Stringcondition=Trim(Text1.Text)If condition Thensql=delete*from 课程表 where 课程名=+condition+Set cmd.ActiveConnection=cn ActiveConnection指示当前所属的连接Connection对象cmd.CommandText=sql CommandText用于定义命令的可执行文本cmd.Execute 执行在CommandText属性中指定的SQL语句rs.RequerySet DataGrid1.DataSo
36、urce=rsDataGrid1.RefreshEnd IfEnd Sub12.4 ADO及其在及其在VB数据库编程的应用数据库编程的应用 Private Sub Form_Load()Dim pstr As Stringpstr=Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&App.Path&学生成绩管理.mdb;Persist Security Info=Falsecn.Open pstr 建立到数据源的连接，打开数据库rs.CursorLocation=adUseClientrs.Open 课程表,cn,adOpenKeyset,adLock
37、PessimisticEnd Sub（5）运行程序，在文本框中输入“普通物理”，点删除按钮，结果如图12-9所示。本程序事实上是ADO对象命令方式与控件方式的混合编程，数据的显示由控件完成，操作由ADO对象命令完成。由这样既简化了程序的编制，又能实现复杂的操作，在具体的应用程序开发中，一般使用该方法。1.TabStrip控件控件2.ImageList控件控件3.Slider控件控件4.ListView控件控件5.ProgressBar控件控件 6.TreeView控件控件7.RichTextBox控件控件12.5 其它常用其它常用ActiveX控件控件一般步骤如下：一般步骤如下：（1）新建）新
38、建ActiveX控件工程。控件工程。（2）设定设定ActiveX控件界面。控件界面。（3）为控件编写事件驱动程序。为控件编写事件驱动程序。（4）单击单击“运行运行”命令在命令在IE浏览器中运行程序，并检测控浏览器中运行程序，并检测控件的各项功能。件的各项功能。（5）发布）发布OCX文件。文件。12.5 其它常用其它常用ActiveX控件控件设计一个用于用户登录的设计一个用于用户登录的ActiveX控件。控件。操作步骤：操作步骤：（1）新建一个）新建一个ActiveX控件工程。启动控件工程。启动Visual Basic或执或执行行“文件文件”菜单中的菜单中的“新建工程新建工程”命令，打开命令，打
39、开“新建工程新建工程”对话框，选择对话框，选择“ActiveX 控件控件”，单击，单击“打开打开”按钮。按钮。（2）添加需要的标准控件。在窗体上有两个标签、两个文）添加需要的标准控件。在窗体上有两个标签、两个文本框和两个按钮。其属性设置值如表本框和两个按钮。其属性设置值如表12-8所示。控件运行所示。控件运行时，在文本框中分别输入用户名（假设为时，在文本框中分别输入用户名（假设为student）和口令）和口令（假设为（假设为1234），单击），单击“登录登录”按钮，验证用户名和口令按钮，验证用户名和口令是否正确，如果正确，弹出消息框提示登录成功；否则，是否正确，如果正确，弹出消息框提示登录成功
40、；否则，弹出消息框提示用户用户名或口令错误，并要求用户重新弹出消息框提示用户用户名或口令错误，并要求用户重新输入。要求，用户名和口令输入错误不能超过输入。要求，用户名和口令输入错误不能超过3次。次。12.5 其它常用其它常用ActiveX控件控件对象对象属性属性属性值属性值标签标签1 1（名称）（名称）UserLabelUserLabelCaptionCaption用户名：用户名：标签标签2 2（名称）（名称）PassLabelPassLabelCaptionCaption口令：口令：文本框文本框1 1（名称）（名称）UserTextUserTextTextText文本框文本框2 2（名称）（
41、名称）PassTextPassTextPasswordCharPasswordChar*TextText命令按钮命令按钮1 1（名称）（名称）OkCmdOkCmdCaptionCaption登录登录命令按钮命令按钮2 2（名称）（名称）CancelCmdCancelCmdCaptionCaption取消取消（3）为控件编写事件驱动程序。编写“登录”命令按钮的单击事件过程代码。Private Sub OkCmd _Click()Dim i As IntegerIf UserText.Text=student And PassText.Text=1234 ThenMsgBox 您的身份已确认合法，
42、欢迎进入！,vbInformation,登录Elsei=i+1If i=3 ThenMsgBox 输入用户名或密码第3次错误，对不起！拒绝进入。,vbCritical,登录Exit SubElseMsgBox 用户名或密码第&i&次错误，请重试！,vbCritical,登录UserText.Text=PassText.Text=UserText.SetFocusEnd IfEnd IfEnd Sub12.5 其它常用其它常用ActiveX控件控件编写“取消”命令按钮的单击事件过程代码。Private Sub CancelCmd_Click()UserText.Text=PassText.Tex
43、t=UserText.SetFocusEnd Sub（4）单击“运行”命令在IE浏览器中运行程序，并检测控件的各项功能。（5）发布OCX文件。保存ActiveX 控件工程，执行“文件”菜单中的“生成myregister.ocx文件”命令，生成“.OCX”文件。设置控件的版本号和描述，选择菜单命令“工程”|“myregister属性”项，在弹出的属性框中选择“生成”选项卡，并设定相应的版本、描述、图标等信息。（6）新建一个标准EXE工程，向工具箱中添加自定义控件，并可根据需要添加到窗体中。12.5 其它常用其它常用ActiveX控件控件1.多媒体多媒体（multimedia）的英文单词是由mul
44、tiple和media复合而成，是指能够同时采集、处理、编辑、存储和展示两个以上不同类型类型信息媒体的技术。2.Visual Basic多媒体程序设计对Visual Basic而言，可以通过下述三种途径来完成多媒体应用的开发：(1)使用对象链接嵌入(OLE)技术；(2)利用MCI多媒体控件；(3)调用Windows的API函数。12.5 其它常用其它常用ActiveX控件控件 Animation控件可以用来显示无声的AVI文件。AVI动画类似于电影，由若于帧位图组成。Animation控件是ActiveX 控件，要使用它需要使用“工程”|“部件”命令，然后在“部件”对话框中选中“Microso
45、ft Windows Common Controls2-5.0”选项并单击“确定”按钮，将它添加到工具箱中。Animation控件的使用很简单，它只有几个基本操作Open、Play、Stop和Close方法。在使用该控件时，可用Open方法打开.avi文件，用Play方法进行播放，用Stop方法停止播放。在动画播放完毕以后，可用Close方法关闭该文件。在打开新文件之前不必关闭旧文件。12.5 其它常用其它常用ActiveX控件控件编写程序，这个程序可以通过两个按钮来控制动画的播放，一个按钮负责打开并播放编写程序，这个程序可以通过两个按钮来控制动画的播放，一个按钮负责打开并播放AVI文文件，而
46、另一个按钮则负责停止动画的播放。件，而另一个按钮则负责停止动画的播放。操作步骤：操作步骤：（1）在窗体上添加需要的控件。在窗体上有一个）在窗体上添加需要的控件。在窗体上有一个CommandDialog控件、一个控件、一个Animation控控件和两个命令按钮，控件摆放如图件和两个命令按钮，控件摆放如图12-13所示。其属性设置值如表所示。其属性设置值如表12-2所示。其中所示。其中CommandDialog控件和控件和Animation控件都为控件都为ActiveX 控件，都需要先添加到工具箱中再使控件，都需要先添加到工具箱中再使用。用。（2）为控件编写事件驱动程序。）为控件编写事件驱动程序。
47、编写编写“打开并播放打开并播放”命令按钮的单击事件过程代码。命令按钮的单击事件过程代码。Private Sub PlayCmd _Click()OpenComDlg.Filter=avi 文件文件(*.avi)|*.aviOpenComDlg.ShowOpenAVIMedia.Open OpenComDlg.FileNameAVIMedia.PlayEnd Sub编写编写“停止停止”命令按钮的单击事件过程代码。命令按钮的单击事件过程代码。Private Sub StopCmd_Click()AVIMedia.StopEnd Sub12.5 其它常用其它常用ActiveX控件控件1.MultiM
48、edia控件介绍控件介绍MultiMedia控件可用于管理媒体控制接口（控件可用于管理媒体控制接口（MCI）设备。这些设备有：声卡、设备。这些设备有：声卡、MIDI发生器、发生器、CD-ROM驱动器、音频播放器、视盘播放器和视视频磁带录驱动器、音频播放器、视盘播放器和视视频磁带录放器。它是放器。它是Visual Basic提供的一个专门用于控制多提供的一个专门用于控制多媒体设备的控件对象，利用它可以播放声音、音乐、媒体设备的控件对象，利用它可以播放声音、音乐、动画、影像和动画、影像和CD唱片。唱片。MultiMedia控件不是标准控控件不是标准控件，若想使用它，必须首先执行件，若想使用它，必须
49、首先执行“工程工程”|“部件部件”菜菜单命令打开部件对话框，在单命令打开部件对话框，在“控件控件”标签卡上选中标签卡上选中“Microsoft Multimedia Contr01 6.0”复选框，将复选框，将MultiMedia控件加入到工具箱中。此时，在工具箱控件加入到工具箱中。此时，在工具箱内将出现对应的图标，然后就可以像使用其他控件内将出现对应的图标，然后就可以像使用其他控件一样使用一样使用MultiMedia控件，如图所示为添加了控件，如图所示为添加了MultiMedia控件的工具箱。控件的工具箱。12.5 其它常用其它常用ActiveX控件控件将多媒体控件添加到窗体中，将出现一个如
50、图所示的控制面板。将多媒体控件添加到窗体中，将出现一个如图所示的控制面板。它包含九个功能下压式按钮，这些按钮与通常的它包含九个功能下压式按钮，这些按钮与通常的CD机或录像机或录像机上的按键很相似，每个按钮都有各自的名称和功能，见表所机上的按键很相似，每个按钮都有各自的名称和功能，见表所示。示。9个按钮对应着个按钮对应着9个媒体播放命令，其功能依次为：个媒体播放命令，其功能依次为：按键名称功能Previous回到当前曲目的起点Next跳到下一个曲目的起点Play播放Pause暂停Back单步退回Step步进Stop停止Record录音Eject弹出光盘或磁带12.5 其它常用其它常用Active
