VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CustomerDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 塊 名 稱 :客戶模塊中的數據據庫操作
'*    功 能 描 述 :完成數據庫操作
'*    程序員姓名  : 黃朝和
'*    最后修改人  : 黃朝和
'*    最后修改時間:2005/08/19
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :刷新數據庫顯示記錄函數
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true             -刷新成功
'*                 false            -刷新失敗
'**************************************
Public Function C_Refresh(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command             ' 執行存儲過程的命令
    
    C_Refresh = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                              ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "Customer_show"     ' 指定存儲過程的名子
    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
            C_Refresh = True
        Else
            C_Refresh = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    C_Refresh = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :客戶數據庫增加函數
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true     -新增成功
'*                 false    -新增失敗
'**************************************
Public Function addcustomer(recSet As ADODB.Recordset, customer As String, _
                            founddate As Date, creditbrow As String, address As String, _
                            superinrtendent As String, taxnum As String, bank As String, _
                            banknum As String, phone As String, backphone As String, _
                            mobile As String, fax As String, email As String, http As String, _
                            accounts As String, paymentdate As Date, gatherdate As Date, _
                            company As String, corporation As String, accountsaddress As String, _
                            city As String, province As String, postcode As String, _
                            state As String, operation As String, taxreceipt As String, _
                            notedate As Date, counterman As String, subjection As String, _
                            memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 執行存儲過程的命令
    addcustomer = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "Customer_Add"        ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = customer            ' 參數-客戶名稱
    cmdProc.Parameters(2) = founddate           ' 參數-建檔日期
    cmdProc.Parameters(3) = creditbrow          ' 參數-信用額度
    cmdProc.Parameters(4) = address             ' 參數-聯系地址
    cmdProc.Parameters(5) = superinrtendent     ' 參數-聯系人
    cmdProc.Parameters(6) = taxnum              ' 參數-稅號
    cmdProc.Parameters(7) = bank                ' 參數-開戶銀行
    cmdProc.Parameters(8) = banknum             ' 參數-銀行帳號
    cmdProc.Parameters(9) = phone               ' 參數-聯系電話
    cmdProc.Parameters(10) = backphone          ' 參數-備用電話
    cmdProc.Parameters(11) = mobile             ' 參數-聯系手機
    cmdProc.Parameters(12) = fax                ' 參數-傳真
    cmdProc.Parameters(13) = email              ' 參數-電子郵件
    cmdProc.Parameters(14) = http               ' 參數-網絡地址
    cmdProc.Parameters(15) = accounts           ' 參數-帳號
    cmdProc.Parameters(16) = paymentdate        ' 參數-付款期限
    cmdProc.Parameters(17) = gatherdate         ' 參數-收款期限
    cmdProc.Parameters(18) = company            ' 參數-公司名稱
    cmdProc.Parameters(19) = corporation        ' 參數-法人代表
    cmdProc.Parameters(20) = accountsaddress    ' 參數-記帳地址
    cmdProc.Parameters(21) = city               ' 參數-城市
    cmdProc.Parameters(22) = province           ' 參數-省份
    cmdProc.Parameters(23) = postcode           ' 參數-郵政編碼
    cmdProc.Parameters(24) = state              ' 參數-國家
    cmdProc.Parameters(25) = operation          ' 參數-業務來源
    cmdProc.Parameters(26) = taxreceipt         ' 參數-稅票
    cmdProc.Parameters(27) = notedate           ' 參數-記錄時間
    cmdProc.Parameters(28) = counterman         ' 參數-業務員
    cmdProc.Parameters(29) = subjection         ' 參數-隸屬
    cmdProc.Parameters(30) = memo               ' 參數-備注
    
                                                ' 執行命令 把查詢到的結果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
'    With recSet
'        If Not .EOF Then
'            addcustomer = True
'        Else
'            addcustomer = False
'        End If
'   End With
       
    Exit Function
    
Cwcl:
    addcustomer = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :顯示要修改的記錄函數
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true     -顯示成功
'*                 false    -顯示失敗
'**************************************
Public Function C_DanTiao(recSet As ADODB.Recordset, customerId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 執行存儲過程的命令
    
    C_DanTiao = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "Customer_showinfo"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = customerId            '參數-客戶編號
    
    On Error GoTo Cwcl
    
                                                  ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            C_DanTiao = True
        Else
            C_DanTiao = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    C_DanTiao = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改單條記錄函數
'*    輸 入 參 數 :無
'*    輸 出 參 數 :true     -顯示成功
'*                 false    -顯示失敗
'**************************************
Public Function modifycustomer(recSet As ADODB.Recordset, id As String, customer As String, _
founddate As Date, creditbrow As String, address As String, superinrtendent As String, taxnum As String, bank As String, banknum As String, phone As String, backphone As String, _
mobile As String, fax As String, email As String, http As String, accounts As String, paymentdate As Date, gatherdate As Date, _
company As String, corporation As String, accountsaddress As String, city As String, province As String, postcode As String, _
state As String, operation As String, taxreceipt As String, notedate As Date, counterman As String, subjection As String, memo As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 執行存儲過程的命令
    
    modifycustomer = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "Customer_modify"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                  ' 參數-客戶編號
    cmdProc.Parameters(2) = customer            ' 參數-客戶名稱
    cmdProc.Parameters(3) = founddate           ' 參數-建檔日期
    cmdProc.Parameters(4) = creditbrow          ' 參數-信用額度
    cmdProc.Parameters(5) = address             ' 參數-聯系地址
    cmdProc.Parameters(6) = superinrtendent     ' 參數-聯系人
    cmdProc.Parameters(7) = taxnum              ' 參數-稅號