VB COM基础讲座之类的测试

　　End Property

　　Public Property Let Address(ByVal NewValue As Variant)
　　　rs("Address") = NewValue
　　End Property

　　Public Property Get City() As Variant
　　　City = rs("City")
　　End Property

　　Public Property Let City(ByVal NewValue As Variant)
　　　rs("City") = NewValue
　　End Property

　　Public Property Get Region() As Variant
　　　　Region = rs("Region")
　　End Property

　　Public Property Let Region(ByVal NewValue As Variant)
　　　rs("Region") = NewValue
　　End Property

　　Public Property Get PostalCode() As Variant
　　　PostalCode = rs("PostalCode")
　　End Property

　　Public Property Let PostalCode(ByVal NewValue As Variant)
　　　rs("PostalCode") = NewValue
　　End Property

　　Public Property Get Country() As Variant
　　　Country = rs("Country")
　　End Property

　　Public Property Let Country(ByVal NewValue As Variant)
　　　rs("Country") = NewValue
　　End Property

　　Public Property Get Phone() As Variant
　　 Phone = rs("Phone")
　　End Property

　　Public Property Let Phone(ByVal NewValue As Variant)
　　　rs("Phone") = NewValue
　　End Property

　　Public Property Get Fax() As Variant
　　　Fax = rs("Fax")
　　End Property

　　Public Property Let Fax(ByVal NewValue As Variant)
　　　rs("Fax") = NewValue
　　End Property

　　Public Sub AddNew()
　　　rs.AddNew
　　End Sub

　　Public Sub Update()
　　　rs.Update
　　End Sub

　　Public Sub CancelUpdate()
　　　If rs.EditMode = adEditInProgress Or _rs.EditMode = adEditAdd Then
　　　　rs.CancelUpdate
　　　End If
　　End Sub
　　Public Sub MoveNext()
　　　rs.MoveNext
　　End Sub

　　Public Sub MovePrevious()
　　　rs.MovePrevious
　　End Sub

　　Public Sub MoveFirst()
　　　rs.MoveFirst
　　End Sub

　　Public Sub MoveLast()
　　　rs.MoveLast
　　End Sub

　　Public Function FindByCustomerID(CustomerID As String) As Boolean
　　　'Uses the Find method to locate customers
　　　'with a matching CustomerID.
　　　'Returns True value is customer(s) found
　　　Dim varBookmark As Variant
　　　rs.MoveFirst
　　　rs.Find ("CustomerID='" & CustomerID & "'")
　　　If rs.EOF = True Then
　　　　　FindByCustomerID = False
　　　　　rs.Bookmark = varBookmark
　　　Else
　　　　　FindByCustomerID = True
　　　End If
　　End Function

　　Public Property Get EOF() As Boolean
　　'Example of a read-only property
　　No Property Lets here
　　EOF = rs.EOF
　　End Property
　　Public Property Get BOF() As Boolean
　　　'Another example of a read-only property
　　　BOF = rs.BOF
　　End Property
　　Private Sub rs_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, _
　　　　　　　ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, _
　　　　　　　ByVal pRecordset As ADODB.Recordset)

　　　'Reacts to the recordset MoveComplete
　　　'method - raises event with each move
　　　RaiseEvent RecordsetMove
　　End Sub
　　需要说明的是：迄今为止，我们仅仅是在一个类中添加代码。当然，也可以选择"Project"->"Add Class"菜单来向工程添加多个类，而且还可利用"collections"使这些类工作在一起。但是在这里，我们仍然想用一个类来处理一个数据表。

　　将上述类的代码复制并粘贴到自己的类中，下一节将讨论该程序的编译。

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!