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

Dim m_Parent As SysUg
Dim m_SmXtjg As SmXtjg
Dim m_SysForm As SysForm

Dim m_SysUgPrivTbs As SysUgPrivTbs

Dim M_SysUgPriv_SysUgNo As Double
Dim M_SysUgPriv_SysXtjgNo As Double

Dim M_SysUgPriv_SysFormNo As Double
Dim m_SysUgPriv_SysFormCode As String
Dim m_SysUgPriv_SysFormMc As String

Dim M_SysUgPrivNo As Double

Dim m_SelectFlg As Integer

Dim M_SysUgPriv_id As Integer
Dim M_SysUgPriv_Key As Long

Private Sub Class_Initialize()
   M_SysUgPriv_id = -1
End Sub

Public Property Get Parent() As SysUg
   Set Parent = m_Parent
End Property

Public Property Get SysForm() As SysForm

If m_SysForm Is Nothing Then
   Set m_SysForm = New SysForm
   If M_SysUgPriv_SysFormNo <> 0 Then
      m_SysForm.Requery m_SysUgPriv_SysFormCode
   End If
End If

Set SysForm = m_SysForm

End Property

Public Property Get SmXtjg() As SmXtjg

If m_SmXtjg Is Nothing Then
   Set m_SmXtjg = New SmXtjg
   m_SmXtjg.Requery 0, M_SysUgPriv_SysXtjgNo
End If

Set SmXtjg = m_SmXtjg

End Property

Public Property Get SysUgPrivTbs() As SysUgPrivTbs

If m_SysUgPrivTbs Is Nothing Then
   Set m_SysUgPrivTbs = New SysUgPrivTbs
   m_SysUgPrivTbs.Fillbydb Me
End If

Set SysUgPrivTbs = m_SysUgPrivTbs

End Property

Public Property Get SysUgPriv_SysUgNo() As Double

SysUgPriv_SysUgNo = M_SysUgPriv_SysUgNo

End Property

Public Property Get SysUgPriv_SysFormNo() As Double

SysUgPriv_SysFormNo = M_SysUgPriv_SysFormNo

End Property

Public Property Get SysUgPriv_SysFormCode() As String

SysUgPriv_SysFormCode = m_SysUgPriv_SysFormCode

End Property

Public Property Get SysUgPriv_SysFormMc() As Double

SysUgPriv_SysFormMc = m_SysUgPriv_SysFormMc

End Property

Public Property Get SysUgPrivNo() As Double

SysUgPrivNo = M_SysUgPrivNo

End Property

Public Property Get SelectFlg() As Integer

   SelectFlg = m_SelectFlg

End Property

Public Property Get SysUgPriv_id() As Integer

    SysUgPriv_id = M_SysUgPriv_id

End Property

Public Property Get SysUgPriv_Key() As Long

    SysUgPriv_Key = M_SysUgPriv_Key

End Property

Public Property Set Parent(vParent As SysUg)

Set m_Parent = vParent

End Property

Public Property Let SelectFlg(vSelectFlg As Integer)

m_SelectFlg = vSelectFlg

End Property

Public Property Let SysUgPriv_id(vSysUgPriv_id As Integer)

M_SysUgPriv_id = vSysUgPriv_id

End Property

Public Property Let SysUgPriv_Key(vSysUgPriv_Key As Long)

M_SysUgPriv_Key = vSysUgPriv_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_SysUgPriv_id = -1 Then
   
       Cmd.CommandText = "{CALL SysUgPrivREC_INSERT(?,?,?)}"
       
       Cmd.Parameters(0) = Parent.SysUgNo
       Cmd.Parameters(1) = M_SysUgPriv_SysFormNo
       Cmd.Parameters(2).Direction = adParamOutput
       
       Cmd.Execute
       M_SysUgPrivNo = Cmd.Parameters(2)
       SysUgPrivTbs.DbSave
       M_SysUgPriv_id = 1
       
   Else
      
      SysUgPrivTbs.DbSave
      
   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 SysUgPrivrec_delete(?)}"
   
   Cmd.Parameters(0) = M_SysUgPrivNo
   
   'gDbCommon.Conn.BeginTrans
   Cmd.Execute
   'gDbCommon.Conn.CommitTrans
   
   Set Cmd = Nothing

Exit Sub
ErrorHandle:
   Set Cmd = Nothing
   gDbCommon.Conn.RollbackTrans
End Sub

Public Sub BatchLet(ParamArray Properties())

M_SysUgPriv_SysUgNo = Properties(0)
M_SysUgPriv_SysXtjgNo = Properties(1)

M_SysUgPriv_SysFormNo = Properties(2)
m_SysUgPriv_SysFormCode = Properties(3)
m_SysUgPriv_SysFormMc = Properties(4)

M_SysUgPrivNo = Properties(5)
m_SelectFlg = Properties(6)

M_SysUgPriv_id = 1

End Sub

Public Property Get Name() As String

Name = "SysUgPriv"

End Property

Private Sub Class_Terminate()

Set m_Parent = Nothing
Set m_SysUgPrivTbs = Nothing
Set m_SmXtjg = Nothing

End Sub