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

Dim m_Parent As SysUr

Dim M_SysUrUg_SysUrNo As Double
Dim M_SysUrUg_SysUgNo As Double
Dim m_SysUrug_SysUgCode As String
Dim m_SysUrug_SysUgMc As String
Dim M_SysUrUgNo As Double

Dim m_SelectFlg As Integer

Dim M_SysUrUg_id As Integer
Dim M_SysUrUg_Key As Long

Private Sub Class_Initialize()

M_SysUrUg_id = -1

End Sub

Public Property Get Parent() As SysUr

Set Parent = m_Parent

End Property

Public Property Get SysUrUg_SysUrNo() As Double

SysUrUg_SysUrNo = M_SysUrUg_SysUrNo

End Property

Public Property Get SysUrUg_SysUgNo() As Double

SysUrUg_SysUgNo = M_SysUrUg_SysUgNo

End Property

Public Property Get SysUrUg_SysUgCode() As String

SysUrUg_SysUgCode = m_SysUrug_SysUgCode

End Property

Public Property Get SysUrUg_SysUgMc() As String

SysUrUg_SysUgMc = m_SysUrug_SysUgMc

End Property

Public Property Get SysUrUgNo() As Double

SysUrUgNo = M_SysUrUgNo

End Property

Public Property Get SelectFlg() As Integer

   SelectFlg = m_SelectFlg

End Property

Public Property Get SysUrUg_id() As Integer

    SysUrUg_id = M_SysUrUg_id

End Property

Public Property Get SysUrUg_Key() As Long

    SysUrUg_Key = M_SysUrUg_Key

End Property

Public Property Set Parent(vParent As SysUr)

Set m_Parent = vParent

End Property

Public Property Let SelectFlg(vSelectFlg As Integer)

m_SelectFlg = vSelectFlg

End Property

Public Property Let SysUrUg_id(vSysUrUg_id As Integer)

M_SysUrUg_id = vSysUrUg_id

End Property

Public Property Let SysUrUg_Key(vSysUrUg_Key As Long)

M_SysUrUg_Key = vSysUrUg_Key

End Property

Public Sub DbSave()
   Dim Cmd As ADODB.Command
   Dim mSqlStr As String
On Error GoTo ErrorHandle


   Set Cmd = New ADODB.Command
   Set Cmd.ActiveConnection = gDbCommon.Conn
   
   If M_SysUrUg_id = -1 Then
   
       Cmd.CommandText = "{CALL SysUrUgREC_INSERT(?,?,?)}"
       
       Cmd.Parameters(0) = Parent.SysUrNo
       Cmd.Parameters(1) = M_SysUrUg_SysUgNo
       Cmd.Parameters(2).Direction = adParamOutput
       
       Cmd.Execute
       M_SysUrUgNo = Cmd.Parameters(2)
       M_SysUrUg_id = 1
   
   End If
   
   Set Cmd = Nothing

Exit Sub
ErrorHandle:
   Set Cmd = Nothing
   Err.Raise vbObjectError + 1, , gDbCommon.Conn.Errors(0)
End Sub

Public Sub DbDel()
   Dim Cmd As ADODB.Command
On Error GoTo ErrorHandle

   Set Cmd = New ADODB.Command
   
   Set Cmd.ActiveConnection = gDbCommon.Conn
   
   Cmd.CommandText = "{call SysUrUgrec_delete(?)}"
   Cmd.Parameters(0) = M_SysUrUgNo
   
   Cmd.Execute
   Set Cmd = Nothing

Exit Sub
ErrorHandle:
   Set Cmd = Nothing
   Err.Raise vbObjectError + 1, , gDbCommon.Conn.Errors(0)
End Sub

Public Function Requery(VSysUrUg_SysUrNo As Double) As Integer
   Dim Rs As DbRs
On Error GoTo ErrorHandle

   Set Rs = New DbRs
   
   Rs.Fillbydb ("select SelectFlg=1,SysUrUg_SysUrNo,SysUrUg_SysUgNo,SysUrUg_SysUgCode=SysUgCode,SysUrUg_SysUgMc=SysUgMc,SysUrUgNO from SysUrUgrec,SysUgRec where SysUrUg_SysUrNo=" + CStr(VSysUrUg_SysUrNo) & " AND SYSURUGNO=SYSURUG_SYSUGNO")
   Requery = -1
   If Not Rs.EOF Then
      Requery = 1
      BatchLet Rs!SysUrUg_SysUrNo, Rs!SysUrUg_SysUgNo, Rs!SysUrUg_SysUgCode, Rs!SysUrUg_SysUgMc, Rs!SysUrUgNo, Rs!SelectFlg
   End If
 
   Set Rs = Nothing

Exit Function
ErrorHandle:
   Set Rs = Nothing
End Function

Public Sub BatchLet(ParamArray Properties())

M_SysUrUg_SysUrNo = Properties(0)
M_SysUrUg_SysUgNo = Properties(1)
m_SysUrug_SysUgCode = Properties(2)
m_SysUrug_SysUgMc = Properties(3)
M_SysUrUgNo = Properties(4)
m_SelectFlg = Properties(5)

M_SysUrUg_id = 1

End Sub

Public Property Get Name() As String

Name = "SysUrUg"

End Property

Private Sub Class_Terminate()

Set m_Parent = Nothing

End Sub