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

Dim m_Parent As SysUgPriv

Dim M_SysUgPrivTbNo1 As Double
Dim M_SysUgPrivTb_SysTbNo As Double
Dim M_SysUgPrivTb_SysTbCode As String
Dim M_SysUgPrivTb_SysTbMc As String
Dim M_SysUgPrivTbNo As Double

Dim m_SelectFlg As Integer

Dim M_SysUgPrivTb_id As Integer
Dim M_SysUgPrivTb_Key As Long

Private Sub Class_Initialize()

M_SysUgPrivTb_id = -1

End Sub

Public Property Get SelectFlg() As Integer

SelectFlg = m_SelectFlg

End Property

Public Property Get SysUgPrivTbNo1() As Double

SysUgPrivTbNo1 = M_SysUgPrivTbNo1

End Property

Public Property Get SysUgPrivTb_SysTbNo() As Double

SysUgPrivTb_SysTbNo = M_SysUgPrivTb_SysTbNo

End Property

Public Property Get SysUgPrivTb_SysTbCode() As String

SysUgPrivTb_SysTbCode = M_SysUgPrivTb_SysTbCode

End Property

Public Property Get SysUgPrivTb_SysTbMc() As String

SysUgPrivTb_SysTbMc = M_SysUgPrivTb_SysTbMc

End Property

Public Property Get SysUgPrivTbNo() As Double

SysUgPrivTbNo = M_SysUgPrivTbNo

End Property

Public Property Get Parent() As SysUgPriv

Set Parent = m_Parent

End Property

Public Property Get SysUgPrivTb_id() As Integer

    SysUgPrivTb_id = M_SysUgPrivTb_id

End Property

Public Property Get SysUgPrivTb_Key() As Long

    SysUgPrivTb_Key = M_SysUgPrivTb_Key

End Property

Public Property Let SelectFlg(vSelectFlg As Integer)

m_SelectFlg = vSelectFlg

End Property

Public Property Set Parent(vParent As SysUgPriv)

Set m_Parent = vParent

End Property

Public Property Let SysUgPrivTb_id(vSysUgPrivTb_id As Integer)

M_SysUgPrivTb_id = vSysUgPrivTb_id

End Property

Public Property Let SysUgPrivTb_Key(vSysUgPrivTb_Key As Long)

M_SysUgPrivTb_Key = vSysUgPrivTb_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_SysUgPrivTb_id = -1 Then
   
      Cmd.CommandText = "{CALL SysUgPrivTbREC_INSERT(?,?,?)}"
      
      Cmd.Parameters(0) = Parent.SysUgPrivNo
      Cmd.Parameters(1) = M_SysUgPrivTb_SysTbNo
      Cmd.Parameters(2).Direction = adParamOutput
      
      Cmd.Execute
      M_SysUgPrivTbNo = Cmd.Parameters(2)
            
      M_SysUgPrivTb_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 SysUgPrivTbrec_delete(?)}"
   
   Cmd.Parameters(0) = M_SysUgPrivTbNo
   Cmd.Execute
   
   Set Cmd = Nothing

Exit Sub
ErrorHandle:
   Set Cmd = Nothing
End Sub

Public Sub BatchLet(ParamArray Properties())

M_SysUgPrivTbNo1 = Properties(0)
M_SysUgPrivTb_SysTbNo = Properties(1)
M_SysUgPrivTb_SysTbCode = Properties(2)
M_SysUgPrivTb_SysTbMc = Properties(3)
M_SysUgPrivTbNo = Properties(4)
m_SelectFlg = Properties(5)

End Sub

Public Property Get Name() As String

Name = "SysUgPrivTb"

End Property