VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "fygsbm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
'保持屬性值的局部變量
'定義用于存儲費用歸屬部門代碼的臨時變量
Private mvardm As Variant
'定義用于存儲費用歸屬部門名稱的臨時變量
Private mvargsbmmc As Variant
'保持屬性值的局部變量
Private mvarxuhao As Integer '局部復制
Public Property Let xuhao(ByVal vData As Integer)
'向屬性指派值時使用，位于賦值語句的左邊。
'Syntax: X.xuhao = 5
    mvarxuhao = vData
End Property
Public Property Get xuhao() As Integer
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.xuhao
    xuhao = mvarxuhao
End Property
Public Property Let gsbmmc(ByVal vData As Variant)
'向屬性指派值時使用，位于賦值語句的左邊。
'Syntax: X.gsbmmc = 5
    mvargsbmmc = vData
End Property

'設置費用歸屬部門名稱
Public Property Set gsbmmc(ByVal vData As Variant)
'向屬性指派對象時使用，位于 Set 語句的左邊。
'Syntax: Set x.gsbmmc = Form1
    Set mvargsbmmc = vData
End Property

'獲得費用歸屬部門名稱
Public Property Get gsbmmc() As Variant
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.gsbmmc
    If IsObject(mvargsbmmc) Then
        Set gsbmmc = mvargsbmmc
    Else
        gsbmmc = mvargsbmmc
    End If
End Property

Public Property Let dm(ByVal vData As Variant)
'向屬性指派值時使用，位于賦值語句的左邊。
'Syntax: X.dm = 5
    mvardm = vData
End Property

'設置費用歸屬部門代碼
Public Property Set dm(ByVal vData As Variant)
'向屬性指派對象時使用，位于 Set 語句的左邊。
'Syntax: Set x.dm = Form1
    Set mvardm = vData
End Property

'獲得費用歸屬部門代碼
Public Property Get dm() As Variant
'檢索屬性值時使用，位于賦值語句的右邊。
'Syntax: Debug.Print X.dm
    If IsObject(mvardm) Then
        Set dm = mvardm
    Else
        dm = mvardm
    End If
End Property
'添加一個費用歸屬部門的信息
Public Function AddNew(Optional ByVal strdm As String = "", _
                       Optional ByVal strgsbmmc As String = "") As fygsbmAddNew
  On Error Resume Next
  
  '如果參數為缺省值，即未傳入，則直接調用類中的參數，否則調用傳入的參數
  '判斷輸入的費用歸屬部門代碼是否為空，如果為空，則給出錯誤提示；如果不為空，
  '則在該類的dm變量中存儲部門代碼
  If strdm = "" Then
    MsgBox "費用歸屬部門代碼不能為空！"
    Exit Function
  Else
    Me.dm = strdm
  End If
  '判斷輸入的費用歸屬部門名稱是否為空，如果為空，則給出錯誤提示；如果不為空，
  '則在該類的gsbmmc變量中存儲部門名稱
  If strgsbmmc = "" Then
    MsgBox "費用歸屬部門名稱不能為空！"
    Exit Function
  Else
    Me.gsbmmc = strgsbmmc
  End If
  '檢測輸入的費用歸屬部門代碼是否存在
  If ExistByName("fygsbm", "dm", strdm) Then
      AddNew = DuplicateDm_AddNew
      MsgBox "輸入的費用歸屬部門代碼已經存在！"
      Exit Function
  End If
  '檢測輸入的費用歸屬部門名稱是否存在
  If ExistByName("fygsbm", "gsbmmc", strgsbmmc) Then
      AddNew = DuplicateGsbmmc_AddNew
      MsgBox "輸入的費用歸屬部門名稱已經存在！"
      Exit Function
  End If
  '定義存儲sql語句的臨時變量strSQL
  Dim strSQL As String
  '定義存儲sql語句執行錯誤時顯示的錯誤信息的臨時變量ErrMsg
  Dim ErrMsg As String
  '構造SQL語句，注意需調用RealString去除字符串中的單引號
  strSQL = "Insert into fygsbm (dm,gsbmmc)"
  strSQL = strSQL & " VALUES("
  strSQL = strSQL & "'" & RealString(dm) & "','"
  strSQL = strSQL & RealString(gsbmmc)
  strSQL = strSQL & "')"
   MsgBox strSQL
  '執行sql語句，并根據執行的結果設置函數返回值
  If RunSql(strSQL, ErrMsg) Then
    AddNew = AddNewOK
  Else
    AddNew = AddNewFail
  End If
End Function
'修改一個費用歸屬部門的信息
Public Function Update(Optional ByVal strdm As String = "", _
                       Optional ByVal strgsbmmc As String = "") As fygsbmUpdate
  On Error Resume Next
  '判斷輸入的費用歸屬部門代碼是否為空，如果為空，則給出錯誤提示；如果不為空，
  '則在該類的dm變量中存儲部門代碼
  If strdm = "" Then
    MsgBox "費用歸屬部門代碼不能為空！"
    Exit Function
  End If
  '判斷輸入的費用歸屬部門名稱是否為空，如果為空，則給出錯誤提示；如果不為空，
  '則在該類的gsbmmc變量中存儲部門名稱
  If strgsbmmc = "" Then
    MsgBox "費用歸屬部門名稱不能為空！"
    Exit Function
  End If
  '檢測輸入的費用歸屬部門代碼是否存在
  If strdm <> Me.dm Then
     If ExistByName("fygsbm", "dm", strdm) Then
         Update = DuplicateDm_Update
         MsgBox "輸入的費用歸屬部門代碼已經存在！"
         Exit Function
     Else
         Me.dm = strdm
     End If
  End If
  '檢測輸入的費用歸屬部門名稱是否存在
  If strgsbmmc <> Me.gsbmmc Then
      If ExistByName("fygsbm", "gsbmmc", strgsbmmc) Then
         Update = DuplicateGsbmmc_Update
         MsgBox "輸入的費用歸屬部門名稱已經存在！"
         Exit Function
      Else
         Me.gsbmmc = strgsbmmc
      End If
  End If
  Dim strSQL As String
  '構造SQL語句
  strSQL = "Update fygsbm set "
  strSQL = strSQL & "dm= '" & RealString(Me.dm) & "',"
  strSQL = strSQL & "gsbmmc= '" & RealString(Me.gsbmmc) & "'"
  strSQL = strSQL & " Where xuhao=" & Me.xuhao
  MsgBox strSQL
  '執行SQL語句
  Conn.Execute strSQL
  '根據執行的結果設置函數返回值
  If Err.Number = 0 Then
    Update = UpdateOK
  Else
    Update = UpdateFail
  End If
  '如果發生錯誤，則返回FALSE，表示未成功更新
End Function
'刪除一個費用歸屬部門的信息
Public Function Delete(Optional ByVal xuhao As Integer = 0) As fygsbmDelete
  Dim strSQL As String
  Dim m_xuhao As Integer
  If xuhao <> 0 Then
    m_xuhao = xuhao
  Else
    m_xuhao = Me.xuhao
  End If
  '判斷數據表fygsbm中是否存在欲刪除的費用歸屬部門
  If Not ExistByID("fygsbm", "xuhao", m_xuhao) Then
    '數據表fygsbm中不存在欲刪除的費用歸屬部門,設置函數返回值
    Delete = DeleteNoExists
    MsgBox "要刪除的費用歸屬部門信息不存在！"
    Exit Function
  End If
  On Error Resume Next
  '設置sql語句，用于刪除fygsbm表中的相關部門信息
  strSQL = "DELETE FROM fygsbm WHERE xuhao =" & m_xuhao
  '執行SQL語句
  MsgBox m_xuhao
  MsgBox strSQL
  Conn.Execute strSQL
  '返回操作結果
  Delete = IIf(Err.Number = 0, DeleteOK, DeleteFail)
End Function