?? clsmembershopset.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsMembershopSet"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Collection" ,"clsMembershop"
Attribute VB_Ext_KEY = "Member0" ,"clsMembershop"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
'局部變量,保存集合
Private mCol As Collection
Public Function Add(shopId As Integer, shopName As String, address As String, leader As String, phone As String, remark As String, Optional sKey As String) As clsMembershop
'創(chuàng)建新對象
Dim objNewMember As clsMembershop
Set objNewMember = New clsMembershop
'設置傳入方法的屬性
objNewMember.shopId = shopId
objNewMember.shopName = shopName
objNewMember.address = address
objNewMember.leader = leader
objNewMember.phone = phone
objNewMember.remark = remark
If Len(sKey) = 0 Then
mCol.Add objNewMember
Else
mCol.Add objNewMember, sKey
End If
'返回已創(chuàng)建的對象
Set Add = objNewMember
Set objNewMember = Nothing
End Function
Public Property Get Item(vntIndexKey As Variant) As clsMembershop
Attribute Item.VB_UserMemId = 0
'引用集合中的一個元素時使用。
'vntIndexKey 包含集合的索引或關鍵字,
'這是為什么要聲明為 Variant 的原因
'語法:Set foo = x.Item(xyz) or Set foo = x.Item(5)
Set Item = mCol(vntIndexKey)
End Property
Public Property Get Count() As Long
'檢索集合中的元素數(shù)時使用。語法:Debug.Print x.Count
Count = mCol.Count
End Property
Public Sub Remove(vntIndexKey As Variant)
'刪除集合中的元素時使用。
'vntIndexKey 包含索引或關鍵字,這是為什么要聲明為 Variant 的原因
'語法:x.Remove(xyz)
mCol.Remove vntIndexKey
End Sub
Public Property Get NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"
'本屬性允許用 For...Each 語法枚舉該集合。
Set NewEnum = mCol.[_NewEnum]
End Property
Private Sub Class_Initialize()
'創(chuàng)建類后創(chuàng)建集合
Set mCol = New Collection
'初始化集合
LoadSet
End Sub
Private Sub Class_Terminate()
'類終止后破壞集合
Set mCol = Nothing
End Sub
'***********************************************************************
'* 函數(shù)名:LoadSet
'* 功 能:載入連鎖店集
'* 參 數(shù):
'* 返回值:Boolean True 成功 False 失敗
'* 版 本:2006.01.02 顏志軍 初版
'***********************************************************************
Private Function LoadSet() As Boolean
'變量定義
Dim sql As String 'SQL
Dim rs As ADODB.Recordset '記錄集
'構造SQL
sql = "SELECT * FROM membershop "
'取得集合
LoadSet = False
On Error GoTo FUNEND
Set rs = g_conn.Execute(sql)
Do While Not rs.EOF
Add rs("shopId"), rs("shopName"), rs("address"), rs("leader"), _
rs("phone"), rs("remark"), KEYPRE & rs("shopId")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
LoadSet = True
FUNEND:
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -