clsappendmerchandiseset.cls

VB数据库设计的代码。需要根据自己的数据库再作调整

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsAppendMerchandiseSet"
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" ,"clsAppendMerchandise"
Attribute VB_Ext_KEY = "Member0" ,"clsAppendMerchandise"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit

'局部变量，保存集合
Private mCol As Collection

Public Function Add(applyid As Long, shopId As Integer, merchandiseId As Integer, applyCount As Integer, appendCount As Integer, shopName As String, merchandiseName As String, applyDate As Date, Optional sKey As String) As clsAppendMerchandise
    '创建新对象
    Dim objNewMember As clsAppendMerchandise
    Set objNewMember = New clsAppendMerchandise


    '设置传入方法的属性
    objNewMember.applyid = applyid
    objNewMember.shopId = shopId
    objNewMember.merchandiseId = merchandiseId
    objNewMember.applyCount = applyCount
    objNewMember.appendCount = appendCount
    objNewMember.shopName = shopName
    objNewMember.merchandiseName = merchandiseName
    objNewMember.applyDate = applyDate
    If Len(sKey) = 0 Then
        mCol.Add objNewMember
    Else
        mCol.Add objNewMember, sKey
    End If


    '返回已创建的对象
    Set Add = objNewMember
    Set objNewMember = Nothing


End Function

Public Property Get Item(vntIndexKey As Variant) As clsAppendMerchandise
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
    '检索集合中的元素数时使用。语法：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()
    '创建类后创建集合
    Set mCol = New Collection
    
    '取得全部补货申请
    LoadSet
End Sub


Private Sub Class_Terminate()
    '类终止后破坏集合
    Set mCol = Nothing
End Sub

'***********************************************************************
'* 函数名：LoadSet
'* 功  能：载入补货请求集
'* 参  数：
'* 返回值：Boolean                  True 成功 False 失败
'* 版  本：2006.01.04 颜志军 初版
'***********************************************************************
Private Function LoadSet() As Boolean
    '变量定义
    Dim sql As String 'SQL
    Dim rs As ADODB.Recordset   '记录集
    
    '构造SQL
    sql = "SELECT * FROM view_appendmerchandise "
    
    '取得集合
    LoadSet = False
    On Error GoTo FUNEND
    Set rs = g_conn.Execute(sql)
    Do While Not rs.EOF
        Add rs("applyid"), rs("shopId"), rs("merchandiseId"), _
            rs("applyCount"), rs("appendCount"), rs("shopName"), _
            rs("merchandiseName"), rs("applyDate"), _
            KEYPRE & rs("applyid")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    LoadSet = True
FUNEND:
End Function

'***********************************************************************
'* 函数名：LoadSetByShopId
'* 功  能：载入指定连锁店补货申请
'* 参  数：Integer                  商品类别
'* 返回值：Boolean                  True 成功 False 失败
'* 版  本：2006.01.03 颜志军 初版
'***********************************************************************
Public Function LoadSetByShopId(ByVal shopId As Integer) As Boolean
    '变量定义
    Dim sql As String 'SQL
    Dim rs As ADODB.Recordset   '记录集
    
    '构造SQL
    sql = "SELECT * FROM view_appendmerchandise WHERE shopId = " & CStr(shopId)
    
    '取得集合
    Set mCol = Nothing
    Set mCol = New Collection
    LoadSetByShopId = False
    On Error GoTo FUNEND
    Set rs = g_conn.Execute(sql)
    Do While Not rs.EOF
        Add rs("applyid"), rs("shopId"), rs("merchandiseId"), _
            rs("applyCount"), rs("appendCount"), rs("shopName"), _
            rs("merchandiseName"), rs("applyDate"), _
            KEYPRE & rs("applyid")
        rs.MoveNext
    Loop
    rs.Close
    Set rs = Nothing
    LoadSetByShopId = True
FUNEND:
End Function