VB中数据集合对象的应用

摘要：集合对象（Collection）是VB重要的特征，利用它可以对具有共同属性的对象进行操作访问。本文介绍了VB中的内部集合和自定义集合的应用，以及它与数组的异同。

　　关键词：Visual Basic 6.0 集合对象 应用　

　　Visual Basic提供一种很有用的数据集合对象(Collection)，它是由相关数据所构成的有序集，它可以使编程者对一组对象进行操作。Visual Basic本身含有一些内部集合，如Forms、Controls和Printers等，它们给出了工程中所有窗体、具体窗体中的所有控件以及Windows环境中的所有打印机的信息。如果要建立自己的集合，则需要使用Collection类。

　　对象变量的集合

　　对于对象变量可以理解为属于某种类型对象的集合，这个集合可以有很多对象，也可以只有一个，甚至可以是空集。在VB中可以用Set语句使一个对象变量指向一个具体的控件。

　　对于集合对象，其Count属性是一个非常重要的属性，利用这个属性可以对同一类对象的某一共同的属性进行访问和操作。如可以用以下的代码实现将项目中所有窗体上控件的字体的大小都设置成统一的格式，所有载入的窗体中的控件的字体都被指定为宋体，字号为16。

　　（1） 在项目中定义一标准模块

‘定义两个全局变量
Global CtrFont As Control, Aform As Form
‘定义一FontAllSame子过程
Sub FontAllSame()
　Dim i, j As Integer
　For i = 0 To Forms.Count – 1　　‘Count属性是从0开始的整数
　　Set Aform = Forms(i)
　　For j = 0 To Aform.Controls.Count – 1　
　　　Set Font1 = Aform.Controls(j)
　　　CtrFont.FontName = "宋体"
　　　CtrFont.FontSize = 16
　　Next j
　Next i
End Sub
　　(2) 在项目中的所有窗体的Activate事件中加入以下语句：

FontAllSame
　　2 数据库中的集合对象

　　在VB的数据库编程中，所有的数据库均看作是一个结构良好一致的对象所组成。可以使用对象的属性及方法对这些对象进行操作、创建和删除。

　　在VB数据库管理中数据的集合对象存在两类：一类是用于数据库结构的维护和管理，有三种集合：如，表集（TableDefs）、字段集（Fields）和索引集（Indexes）；一类是数据存取对象的记录集：Recordset。每个集合对象都可以看作是一个数组，并按数组的方法来调用。一旦数据库建立以后，就可以用这些集合来对数据库的结构进行修改和数据处理。

　　在这些集合中同样具有属性Count，利用它可对集合中的元素进行操作，如下面是打开一个数据库，并取得其内各表（Table）的具体特征的应用程序实例。可以得到各表：表名，字段名，字段的个数，字段的类型，表中记录的条数。

Sub TableInfo()
　Dim i, j As Integer, Fname As String
　Dim db1 As Database, Td1 As TableDefs
　Dim fld1 As Fields
　Dim FieldNum, RecNum As Integer

　Fname$ = "d:\mdb\xx.mdb" ‘XX为Access数据库文件
　Set db1 = OpenDataBase(Fname$) '打开一数据库文件
　Set Td1 = db1.TableDefs
　For i = 1 To Td1.Count - 1
　　Debug.Print Td1(i).Name ‘输出表名
　　Set fld1 = Td1(i).Fields
　　FieldNum = fld1.Count
　　RecNum = Td1(i).RecordCount
　　Debug.Print "当前表共有"; FieldNum; "个字段" ‘输出字段的个数
　　Debug.Print "当前表有:"; RecNum; "记录" ‘输出记录的个数
　　For j = 0 To fld1.Count - 1
　　　Debug.Print "字段名", fld1(j).Name ‘输出字段名
　　　Debug.Print "类型", fld1(j).Type ‘输出字段类型
　　Next j
　Next i
End Sub
　　从以上的程序中可以清楚地看出：数据库、表、字段存在着层次关系。在VB中层次结构的顶部是Jet数据引擎（DBEngine对象），它是惟一不被其它对象所包含的数据访问对象。DBEngine对象拥有一个Workspaces集合，该集合含有一个或多个Workspace对象。每个Workspace对象有一个Database集合，该集合又有一个或多个Database对象。每个Database对象含有一个TableDfes集合，该集合又含有一个或多个TableDef对象，依次类推。集合的对象都是基于0的索引来访问的。

　　如：DBEngine.Workspaces(0).Databases(0).TableDefs(0).Fields(“CustName”)

　　建立自己的集合

　　VB中Collection类用于建立自己的集合。它的工作原理类似于C语言的链表，在使用时可以很方便地在其中进行数据的插入、删除，并且在使用了关键字以后，查询操作也变得简单了。建立集合后可以用Add方法添加项到集合，Remove方法从集合中删除项，Item方法检索集合中的特定项，Count属性反应集合中项的数目。

　　VB中旧的内部集合的索引大多是基于0的，即集合中元素的下标是从现0开始的，如上面所述的Forms、Controls和数据库上的集合等；Collection类建立的集合对象都是基于1的。

　　1、手工创建

　　用Add方法向中添加项：

Add(Item As Variant,[,Key As Variant][,Before As Variant][,After As Variant])
　　其中的Key为关键字，是一个字符串的表达式，如果以整数为关键字则必须用CStr函数将其转换为字符串。Before和After用于指定添加项所放的相对位置。

　　如建立一数据结构，用保存学生学号，姓名和成绩。

Public m_colData As New Collection ‘m_ColDta用于保存记录
　‘自定义一数据类型
　Type Mytype
　　ID as Strng
　　Name as String
　End Type
　‘建立一类Class1,如下
　Public ID As String
　Public Name As String
　Public Score As Integer
　‘定义插入函数用来接受数据到数据结构中
　Public Function InserT2col(pData As Mytype)
　　Dim Myclass As New Class1
　　Set Myclass = Nothing
　　Myclass.ID = pData.ID
　　Myclass.Name = pData.Name
　　Myclass.Score = pData.Score
　　m_colData.Add Item:=Myclass, Key:=pData.ID ‘以ID作为关键字
　End Function
　　这样这建立了数据结构，通过编写处理函数代码就可以对其中的数据进行处理输出，如成绩的排序、统计不及格人数等。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有