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

Dim M_HwDbRcCode As String
Dim M_HwDbRcMc As String
Dim M_HwDbRcIsStop As Integer
Dim M_HwDbRcNo As Double

Dim M_HwDbRc_id As Integer
Dim M_HwDbRc_Key As Long

Private Sub Class_Initialize()

M_HwDbRc_id = -1

End Sub

Public Property Get HwDbRcCode() As String

HwDbRcCode = M_HwDbRcCode

End Property

Public Property Get HwDbRcMc() As String

HwDbRcMc = M_HwDbRcMc

End Property

Public Property Get HwDbRcIsStop() As Integer

HwDbRcIsStop = M_HwDbRcIsStop

End Property

Public Property Get HwDbRcNo() As Double

HwDbRcNo = M_HwDbRcNo

End Property

Public Property Get HwDbRc_id() As Integer

    HwDbRc_id = M_HwDbRc_id

End Property

Public Property Get HwDbRc_Key() As Long

    HwDbRc_Key = M_HwDbRc_Key

End Property

Public Property Let HwDbRcCode(VHwDbRcCode As String)

If Trim(VHwDbRcCode) = "" Then
   Err.Raise Number:=vbObjectError + 1, Description:="调拨原因不能为空！"
   Exit Property
End If

If VHwDbRcCode <> M_HwDbRcCode Then
    If M_HwDbRc_id = -1 Or VHwDbRcCode <> M_HwDbRcCode Then
       If gPublicFunction.ExistFlg("FROM HwDbRcREC WHERE HwDbRcCode='" + VHwDbRcCode + "'") = 1 Then
          Err.Raise Number:=vbObjectError + 1, Description:="已有调拨原因:" & VHwDbRcCode
          Exit Property
       End If
    End If
End If
    
M_HwDbRcCode = VHwDbRcCode

End Property

Public Property Let HwDbRcMc(VHwDbRcMc As String)

If Trim(VHwDbRcMc) = "" Then
   Err.Raise vbObjectError + 1, , "调拨原因说明不能为空！"
   Exit Property
End If

If VHwDbRcMc <> M_HwDbRcMc Then
    If M_HwDbRc_id = -1 Or VHwDbRcMc <> M_HwDbRcMc Then
       If gPublicFunction.ExistFlg("FROM HwDbRcREC WHERE HwDbRcMc='" + VHwDbRcMc + "'") = 1 Then
          Err.Raise Number:=vbObjectError + 1, Description:="已有调拨原因说明:" & VHwDbRcMc
          Exit Property
       End If
    End If
    M_HwDbRcMc = VHwDbRcMc
End If

End Property

Public Property Let HwDbRcIsStop(VHwDbRcIsStop As Integer)

If VHwDbRcIsStop <> 0 And VHwDbRcIsStop <> 1 Then
   Err.Raise vbObjectError + 1, , "停用标志只能为0或1！"
   Exit Property
End If

M_HwDbRcIsStop = VHwDbRcIsStop

End Property

Public Property Let HwDbRc_id(vHwDbRc_id As Integer)

M_HwDbRc_id = vHwDbRc_id

End Property

Public Property Let HwDbRc_Key(vHwDbRc_Key As Long)

M_HwDbRc_Key = vHwDbRc_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_HwDbRc_id = -1 Then
   
       Cmd.CommandText = "{CALL HwDbRcREC_INSERT(?,?,?,?)}"
       
       Cmd.Parameters(0) = M_HwDbRcCode
       Cmd.Parameters(1) = M_HwDbRcMc
       Cmd.Parameters(2) = M_HwDbRcIsStop
       Cmd.Parameters(3).Direction = adParamOutput
       
       Cmd.Execute
       
       M_HwDbRc_id = 1
   
       M_HwDbRcNo = Cmd.Parameters(3)
      
   Else
   
       Cmd.CommandText = "{CALL HwDbRcREC_UPDATE(?,?,?,?)}"
       
       Cmd(0) = M_HwDbRcNo
       
       Cmd(1) = M_HwDbRcCode
       Cmd(2) = M_HwDbRcMc
       Cmd(3) = M_HwDbRcIsStop
       
       Cmd.Execute
   
   End If
   
   Set Cmd = Nothing

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

Public Sub DbDel()
   Dim Cmd As ADODB.Command
   
   gPublicFunction.CheckCanBeDelete "HWDBRCREC", "HWDBRCNO", CStr(M_HwDbRcNo)
   
On Error GoTo ErrorHandle

   Set Cmd = New ADODB.Command
   
   Set Cmd.ActiveConnection = gDbCommon.Conn
   
   Cmd.CommandText = "{call HwDbRcrec_delete(?)}"
   
   Cmd.Parameters(0) = M_HwDbRcNo
   
   gDbCommon.Conn.BeginTrans
   Cmd.Execute
   gDbCommon.Conn.CommitTrans
   
   Set Cmd = Nothing

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

Public Function Requery(VHwDbRcCode As String) As Integer
   Dim Rs As DbRs
On Error GoTo ErrorHandle

   Set Rs = New DbRs
   
   Rs.Fillbydb ("select HwDbRcCode,HwDbRcMc,HwDbRcISSTOP,HwDbRcNo from HwDbRcrec where HwDbRcCode='" + VHwDbRcCode + "'")
   Requery = -1
   If Not Rs.EOF Then
      Requery = 1
      BatchLet Rs!HwDbRcCode, Rs!HwDbRcMc, Rs!HwDbRcIsStop, Rs!HwDbRcNo
   End If
 
   Set Rs = Nothing

Exit Function
ErrorHandle:
   Set Rs = Nothing
End Function

Public Sub BatchLet(ParamArray Properties())

M_HwDbRcCode = Properties(0)
M_HwDbRcMc = Properties(1)
M_HwDbRcIsStop = Properties(2)
M_HwDbRcNo = Properties(3)

M_HwDbRc_id = 1

End Sub

Public Property Get Name() As String

Name = "HwDbRc"

End Property