翻译|其它|编辑:郝浩|2006-01-06 09:29:00.000|阅读 2338 次
概述:
# 界面/图表报表/文档/IDE等千款热门软控件火热销售中 >>
条目 | 设置 |
工程类型 | ActiveX控件 |
工程名称 | DataLV |
工程描述 | 通过ADO,使得ListView控件能够直接操作数据库 |
UserControl 的Name属性 | DataListView |
UserControl 的Public属性 | True |
◆保存这个工程。
◆选择【文件】|【添加工程】菜单选项。然后添加一个标准EXE工程。建立该工程的目的是为了在创建ActiveX控件时不断地进行测试。
此时已建立了一个由控件工程和测试工程组成的工程组,下面就可以正式开始创建DataListView控件。
(5)实现控件的外观
确定控件外观的方式取决于当前控件的创建模型。如果要创建一个用户绘制控件,那么必须自己在UserControl_Paint 事件过程编写代码来完成所有的绘制工作,同时还需要确定何时绘制控件,以便在需要的时候调用UserControl的Refresh方法来产生Paint 事件。如果是改进一个现有控件,那么只需正确地将组成控件放置在UserControl上即可。
由于DataListView控件仅包含ListView一个组成控件,那么只需简单地在UserControl1上绘出一个标准ListView控件,控件名为缺省的ListView1,即可完成外观绘制工作。
为了在使用控件时,使ListView控件和自己绘制的空间相匹配,必须建立UserControl的Resize事件过程。Resize事件过程的代码如下:
Private Sub UserControl_Resize()
ListView1.Left = 0
ListView1.Top = 0
ListView1.Width = UserControl.Width
ListView1.Height = UserControl.Height
End Sub
仅四行代码的Resize事件过程是简单控件的用户界面的所有必须的代码,其目的是使ListView控件和UserControl对象有相同的尺寸。
(6)实现控件的接口和功能
这是整个创建过程中最核心、最重要也是最复杂的步骤。对于创建控件的每一属性、事件和方法均需逐一实现。
◆创建DataServerName属性
要创建DataServerName属性值,首先需要添加一个在内部存贮属性值的局部变量。要做到这一点,在UserControl对象的Genaral Declarations通用声明语句中创建此变量。如下所示:
Dim m_DataServerName As String
接着需要创建称为DataServerName的新属性,可以通过手工输入Get和Let过程,或者选择【工具】|【添加过程】|【类型】创建这个新属性。DataServerName属性的代码相当容易理解。当置DataServerName属性的值时,Property Get过程仅将局部变量的存贮内容取出来。当设置DataServerName属性值时,Property Let过程将为局部变量赋予一个有效值。以下是两个Property过程的代码:
Public Property Get DataServername() As String
DataServername = m_DataServerName
End Property
Public Property Let DataServername(ByVal New_DataServerName As String)
m_DataServerName = New_DataServerName
PropertyChanged "DataServerName"
End Property
需要注意的是在Property Let过程中,有一个PropertyChanged方法,它的功能是通知容器(可以理解为存放所有属性的单元)属性值已变更,需产生一个WriteProperties 事件,来保存新属性值。事实上不仅在Property Let过程需要调用PropertyChanged方法,在UserControl的代码模块中无论何时改变了ActiveX控件的某个属性值,均需调用该过程,以保存属性的变化。
注意Property DataServerName方法的用法,此方法与ReadProperties
和WriteProperties事件在一起使用。
此时需要使用用户控件的InitProperties事件指定此属性的初始值:
Private Sub UserControl_InitProperties()
m_DataServerName = m_def_DataServerName
End Sub
即使用户没有设置初始值,这些代码也会确保设置了一个初始值。
至于DataBaseName、AdministratorName、PasseordName 属性的创建过程跟DataServername属性的创建过程完全一样,这里就不再重复叙述。
◆使用PropertyBag对象
用户还需要为WriteProperties和ReadProperties事件创建代码,从而保护DataServername、DataBaseName、AdministratorName、PasseordName属性在设计阶段的属性值。这两个事件都使用PropertyBag 对象保存和检索DataServername、DataBaseName、AdministratorName、PasseordName属性的值。PropertyBag对象能够保持DataServername、DataBaseName、
AdministratorName、PasseordName的设计值。具体实现代码如下:
Private Sub UserControl_ReadProperties(PropBag As PropertyBag)
m_DataServerName = PropBag.ReadProperty("DataServerName",
m_def_DataServerName)
m_DataBaseName = PropBag.ReadProperty("DataBaseName",
m_def_DataBaseName)
m_AdministratorName = PropBag.ReadProperty("AdministratorName", m_def_AdministratorName)
m_PasswordName = PropBag.ReadProperty("PasswordName",
m_def_PasswordName)
End Sub
Private Sub UserControl_WriteProperties(PropBag As PropertyBag)
Call PropBag.WriteProperty("DataServerName", m_DataServerName,
m_def_DataServerName)
Call PropBag.WriteProperty("DataBaseName", m_DataBaseName,
m_def_DataBaseName)
Call PropBag.WriteProperty("AdministratorName",
m_AdministratorName, m_def_AdministratorName)
Call PropBag.WriteProperty("PasswordName", m_PasswordName,
m_def_PasswordName)
End Sub
由于这两个过程是针对"容器"对象的,因此所有属性值的保存和读取都通过这两个过程来实现,而不是每个属性都需要单独的两个过程。其中,PropertyBag就是"容器对象"的名称。
WriteProperty方法有三个参数:第一个字符串标识需要保存的属性,第二个参数是需要保存的值,最后的参数是属性的缺省值。
ReadProperty 方法需要两个参数:一个字符串用来保存属性的名称,另一个为缺省值。
在窗体上绘制ActiveX控件的那一刻,就会开始执行ActiveX控件的代码。在控件设计过程中,将DataServername、DataBaseName、AdministratorName、PasseordName属性的默认值设置为:
Const m_def_DataServerName = "lyc"
Const m_def_DataBaseName = "pubs"
Const m_def_AdministratorName = "sa"
Const m_def_PasswordName = ""
当然,也可以在程序运行时多次修改它。控件的正常行为是当程序终止时恢复其默认值,这样增加了保持属性的两种独立状态的要求。
简言之,如果在设计阶段改变了一个属性值,那么控件必须得到这个新值,而不是使用默认值。相反,如果在程序运行时改变属性值,那么当返回设计状态时,控件必须检索此属性值。
PropertyBag对象允许ActiveX控件存贮有关它自己的属性值,使它能执行这个动作。PropertyChanged 方法会通知用户已经改变了一个属性。通过了解程序的状态以及是否调用了PropertyChanged方法,VB 就可以激发WriteProperties和ReadProperties事件。
◆为ShowDataBase方法编写代码
ShowDataBase方法实现在ListView控件中显示Select命令所执行的数据库操作结果。在其具体实现过程中采用了 ADO(ActiveX Data Objects)的数据存取方法。ADO的主要特点是使用更加容易,访问速度更快,而对磁盘和存储容量的要求更小,ADO支持建立各种客户/服务器模式与基于Web的应用程序,具有远程数据服务RDS(Remote Data Service)的特性,通过RDS能够在一次往返中将服务器端的数据传送到客户端的应用程序或Web页面中,并在客户端对数据进行处理后,立即更新服务器端的数据。采用ADO所基于的OLE
DB技术,可以对电子邮件、文本文件、数据表格等各类数据通过统一的接口API接口进行存取,是远程数据存取的一个主要发展方向。ShowDataBase方法具有一个字符串参数,但无任何返回值,具体代码如下所示:
Public Sub showdatabase(ssql As String)
Dim AdoDatabase As New ADODB.Connection
Dim AdoTable As New ADODB.Recordset
Dim scnn As String
Dim response As String
Dim I As Integer
On Error GoTo errorhandle
scnn = "Provider=SQLOLEDB;Data Source="& Trim(m_DataServerName) & ";
Initial Catalog=" & Trim(m_DataBaseName) & ";
User Id=" & Trim(m_AdministratorName) & ";
Password=" & Trim(m_PasswordName) & ";"
AdoDatabase.Open scnn
AdoTable.CursorType = adOpenKeyset
AdoTable.LockType = adLockOptimistic
AdoTable.CursorLocation = adUseClient
AdoTable.Open ssql, AdoDatabase, , , adCmdText
If AdoTable.BOF And AdoTable.EOF Then
response = MsgBox("没有符合条件的记录!!",
vbOKOnly + vbInformation, "数据库控件")
AdoTable.Close
Set Adotable=Nothing
AdoDatabase.Close
Set AdoDataBase=Nothing
Exit Sub
End If
ListView1.ColumnHeaders.Clear
ListView1.ListItems.Clear
Dim clmX As ColumnHeader
For I = 0 To AdoTable.Fields.Count - 1
Set clmX = ListView1.ColumnHeaders.Add()
With clmX
.Text = AdoTable.Fields(I).Name
End With
Next
Dim itmX As ListItem
AdoTable.MoveFirst
Do While Not AdoTable.EOF
Set itmX = ListView1.ListItems.Add()
With itmX
If IsNull(AdoTable.Fields(0).Value) Then
.Text = "NULL"
Else
.Text = AdoTable.Fields(0).Value
End If
End With
For I = 1 To AdoTable.Fields.Count - 1
If IsNull(AdoTable.Fields(I).Value) Then
itmX.SubItems(I) = "NULL"
Else
itmX.SubItems(I)
= AdoTable.Fields(I).Value
End If
Next
AdoTable.MoveNext
Loop
ListView1.View = lvwReport
AdoTable.Close
Set Adotable=Nothing
AdoDatabase.Close
Set AdoDataBase=Nothing
Exit Sub
errorhandle:
RaiseEvent Errordatabase
End Sub
当对数据库的操作发生错误后,除了不能正常显示以外,还应通知宿主程序用户。可以通过创建一个叫做Errordatabase的事件实现上述功能。要创建这个事件,把下述代码添加到UserControl对象的GeneralDeclarations段中。
Public Event Errordatabase()
此事件的工作像其他控件的事件一样。使用控件的用户可以将代码放到这个事件中,用户要做的唯一的事情就是用RaiseEvent方法激发此事件。
(7)编译控件部件(.ocx 文件)。
现在已经完成了DataListView控件的创建工作,为了在DataLV工程外也可以使用该控件,只需将DataLV工程编译.ocx控件部件即可。
在【工程组】窗口单击【DataLV】以选择该工程,在【文件】菜单上单击【生成DataLV.ocx】,在【生成工程】对话框中选择控件存放的目录后, 单击【确定】即可创建.ocx 文件。
一旦生成了.ocx文件的控件,就可以象使用其它控件一样来随心所欲地使用它了。
4)结束语
ActiveX技术可以灵活、高效的实现可交互、重入、重用、完全分布式、与语言无关的各种应用。随着ActiveX技术的发展,ActiveX控件在应用程序中的作用将会显得越来越重要,那么创建一个功能完善、具有自己特色的ActiveX控件就非常具有现实意义。只要掌握了创建ActiveX控件的基本方法,就不难创建自定制的可在各种应用领域使用的ActiveX控件。
但是,ActiveX技术也有一些明显缺点,ActiveX技术依赖于Windows平台,对广泛应用的UNIX平台目前仍不兼容,另外 ActiveX在许多方面的性能还较弱,ActiveX技术仍需要不断完善和发展。
本站文章除注明转载外,均为本站原创或翻译。欢迎任何形式的转载,但请务必注明出处、不得修改原文相关链接,如果存在内容上的异议请邮件反馈至chenjj@evget.com