VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CooperateLossDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    功 能 描 述 :根據外協單ID刷新數據庫顯示索賠單列表
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true             -刷新成功
'*                 false            -刷新失敗
'**************************************
Public Function cooperateloss_show(recSet As ADODB.Recordset, cooperateId As String, m_queryType As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 執行存儲過程的命令
    
    cooperateloss_show = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "cooperateloss_show"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperateId
    cmdProc.Parameters(2) = m_queryType
    
    On Error GoTo Cwcl
    
                                             ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperateloss_show = True
        Else
            cooperateloss_show = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperateloss_show = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根據索賠單ID刷新數據庫顯示索賠單信息
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true             -刷新成功
'*                 false            -刷新失敗
'**************************************
Public Function cooperateloss_showid(recSet As ADODB.Recordset, cooperatelossid As String) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 執行存儲過程的命令
    
    cooperateloss_showid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "cooperateloss_showid"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = cooperatelossid
    
    On Error GoTo Cwcl
    
                                             ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperateloss_showid = True
        Else
            cooperateloss_showid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperateloss_showid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根據外協單ID刷新數據庫顯示索賠單列表
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true             -刷新成功
'*                 false            -刷新失敗
'**************************************
Public Function cooperateloss_all(recSet As ADODB.Recordset, m_queryType As Integer) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 執行存儲過程的命令
    
    cooperateloss_all = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "cooperateloss_all"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = m_queryType
     
    On Error GoTo Cwcl
    
                                             ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperateloss_all = True
        Else
            cooperateloss_all = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperateloss_all = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查詢根據外協單ID刷新數據庫顯示索賠單列表
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true             -刷新成功
'*                 false            -刷新失敗
'**************************************
Public Function cooperateloss_showidList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 執行存儲過程的命令
    
    cooperateloss_showidList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "cooperateloss_showidList"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
     
    On Error GoTo Cwcl
    
                                             ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            cooperateloss_showidList = True
        Else
            cooperateloss_showidList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    cooperateloss_showidList = False
    Exit Function
End Function