hwbfrcs.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 = "HwBfRcs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit

Dim OHwBfRcs As Collection

Public Property Get Count() As Integer

Count = OHwBfRcs.Count
    
End Property

Public Sub Add(OHwBfRc As HwBfRc)

Dim vKey As Integer, vHwBfRc As HwBfRc

For Each vHwBfRc In OHwBfRcs
   If vHwBfRc.HwBfRc_Key > vKey Then
      vKey = vHwBfRc.HwBfRc_Key
   End If
Next

vKey = vKey + 1

OHwBfRc.HwBfRc_Key = vKey
OHwBfRcs.Add OHwBfRc, CStr(vKey)

End Sub

Public Function Item(Vindex) As HwBfRc
Attribute Item.VB_UserMemId = 0

   Set Item = OHwBfRcs.Item(Vindex)

End Function

Public Sub Remove(Vindex, Optional NeedDel As Integer = 1)

If NeedDel = 1 Then
   Dim mHwBfRc As HwBfRc
   Set mHwBfRc = OHwBfRcs(Vindex)
   mHwBfRc.DbDel
End If
   
OHwBfRcs.Remove (Vindex)
      
End Sub

Public Sub ClearAll()

Dim i, Vcount As Integer
Vcount = OHwBfRcs.Count

For i = 1 To Vcount
   OHwBfRcs.Remove (1)
Next

End Sub

Public Sub Fillbydb(Optional Wherestr As String = "", Optional Orderstr As String = "HwBfRcCode")
   Dim OHwBfRc As HwBfRc
   Dim Rs As DbRs
   Dim SqlStr As String
   Dim vKey As Integer
On Error GoTo ErrorHandle

   ClearAll
   
   SqlStr = "SELECT HwBfRcCode,HwBfRcMC,HwBfRcISSTOP,HwBfRcNO FROM HwBfRcREC "
   
   If Wherestr <> "" Then
      SqlStr = SqlStr + " where " + Wherestr
   End If
   
   If Orderstr <> "" Then
      SqlStr = SqlStr + " order by " + Orderstr
   End If
   
   Set Rs = New DbRs
   
   Rs.Fillbydb SqlStr
   Rs.MoveFirst
   
   vKey = 1

   Do Until Rs.EOF
      Set OHwBfRc = New HwBfRc
      OHwBfRc.HwBfRc_Key = vKey
      OHwBfRc.BatchLet Rs!HwBfRcCode, Rs!HwBfRcMc, Rs!HwBfRcIsStop, Rs!HwBfRcNo
      OHwBfRcs.Add OHwBfRc, CStr(vKey)
      Rs.MoveNext
      vKey = vKey + 1
   Loop

   Set Rs = Nothing

Exit Sub
ErrorHandle:
   Set Rs = Nothing
   Err.Raise vbObjectError + 1, , Err.Description
End Sub

Public Function NewEnum() As IUnknown
Attribute NewEnum.VB_UserMemId = -4
Attribute NewEnum.VB_MemberFlags = "40"

  Set NewEnum = OHwBfRcs.[_NewEnum]
  
End Function

Private Sub Class_Initialize()

Set OHwBfRcs = New Collection

End Sub

Private Sub Class_Terminate()

Set OHwBfRcs = Nothing

End Sub

Public Property Get Name() As String

Name = "HwBfRcs"

End Property

Public Sub DbSave()
   Dim mNotSaved As Collection
   Dim mHwBfRc As HwBfRc
On Error GoTo ErrorHandle
   
   Set mNotSaved = New Collection
   
   gDbCommon.Conn.BeginTrans
   
   For Each mHwBfRc In OHwBfRcs
      If mHwBfRc.HwBfRc_id = -1 Then
         mNotSaved.Add mHwBfRc
      End If
      mHwBfRc.DbSave
   Next
   
   gDbCommon.Conn.CommitTrans
   
   Set mNotSaved = Nothing

Exit Sub
ErrorHandle:
   For Each mHwBfRc In mNotSaved
      mHwBfRc.HwBfRc_id = -1
   Next
   Set mNotSaved = Nothing
   gDbCommon.Conn.RollbackTrans
End Sub