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

Dim M_SysUg As SysUg

Dim M_SelectFlg As Integer

Dim M_SysUgRfd_RfdNo As Double
Dim M_SysUgRfd_RfdCode As String
Dim M_SysUgRfd_RfdMc As String

Dim M_SysUgRfdNo As Double

Dim M_SysUgRfd_id As Integer
Dim M_SysUgRfd_Key As Long

Private Sub Class_Initialize()
   M_SysUgRfd_id = -1
End Sub

Public Property Get SysUg() As SysUg
   Set SysUg = M_SysUg
End Property

Public Property Set SysUg(vSysUg As SysUg)
   Set M_SysUg = vSysUg
End Property

Public Property Get SelectFlg() As Integer
   SelectFlg = M_SelectFlg
End Property

Public Property Let SelectFlg(vSelectFlg As Integer)
   M_SelectFlg = vSelectFlg
End Property

Public Property Get SysUgRfd_RfdNo() As Double
   SysUgRfd_RfdNo = M_SysUgRfd_RfdNo
End Property

Public Property Get SysUgRfd_RfdCode() As String
   SysUgRfd_RfdCode = M_SysUgRfd_RfdCode
End Property

Public Property Get SysUgRfd_RfdMc() As String
   SysUgRfd_RfdMc = M_SysUgRfd_RfdMc
End Property

Public Property Get SysUgRfdNo() As Double
   SysUgRfdNo = M_SysUgRfdNo
End Property

Public Property Get SysUgRfd_id() As Integer
   SysUgRfd_id = M_SysUgRfd_id
End Property

Public Property Get SysUgRfd_Key() As Long
   SysUgRfd_Key = M_SysUgRfd_Key
End Property

Public Property Let SysUgRfd_id(vSysUgRfd_id As Integer)
   M_SysUgRfd_id = vSysUgRfd_id
End Property

Public Property Let SysUgRfd_Key(vSysUgRfd_Key As Long)
   M_SysUgRfd_Key = vSysUgRfd_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
   
   Cmd.CommandText = "{CALL SysUgRfdREC_INSERT(?,?,?)}"
   
   Cmd.Parameters(0) = SysUg.SysUgNo
   Cmd.Parameters(1) = M_SysUgRfd_RfdNo
   Cmd.Parameters(2).Direction = adParamOutput
   
   Cmd.Execute
   
   M_SysUgRfdNo = Cmd.Parameters(2)
   
   M_SysUgRfd_id = 1
   
   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 SysUgRfdrec_delete(?)}"
   Cmd.Parameters(0) = M_SysUgRfdNo
   Cmd.Execute
   
   Set Cmd = Nothing

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

Public Sub BatchLet(ParamArray Properties())

M_SelectFlg = Properties(0)

M_SysUgRfd_RfdNo = Properties(1)
M_SysUgRfd_RfdCode = Properties(2)
M_SysUgRfd_RfdMc = Properties(3)
M_SysUgRfdNo = Properties(4)

End Sub

Public Property Get Name() As String
   Name = "SysUgRfd"
End Property