customerdao.cls

即时通讯

    cmdProc.Parameters(8) = bank                ' 参数-开户银行
    cmdProc.Parameters(9) = banknum             ' 参数-银行税号
    cmdProc.Parameters(10) = phone              ' 参数-联系电话
    cmdProc.Parameters(11) = backphone          ' 参数-备用电话
    cmdProc.Parameters(12) = mobile             ' 参数-联系手机
    cmdProc.Parameters(13) = fax                ' 参数-传真
    cmdProc.Parameters(14) = email              ' 参数-电子传真
    cmdProc.Parameters(15) = http               ' 参数-网络地址
    cmdProc.Parameters(16) = accounts           ' 参数-帐号
    cmdProc.Parameters(17) = paymentdate        ' 参数-付款期限
    cmdProc.Parameters(18) = gatherdate         ' 参数-收款期限
    cmdProc.Parameters(19) = company            ' 参数-公司名称
    cmdProc.Parameters(20) = corporation        ' 参数-法人代表
    cmdProc.Parameters(21) = accountsaddress    ' 参数-记帐地址
    cmdProc.Parameters(22) = city               ' 参数-城市
    cmdProc.Parameters(23) = province           ' 参数-省份
    cmdProc.Parameters(24) = postcode           ' 参数-邮政地址
    cmdProc.Parameters(25) = state              ' 参数-国家
    cmdProc.Parameters(26) = operation          ' 参数-业务来源
    cmdProc.Parameters(27) = taxreceipt         ' 参数-税票
    cmdProc.Parameters(28) = notedate           ' 参数-记录时间
    cmdProc.Parameters(29) = counterman         ' 参数-业务员
    cmdProc.Parameters(30) = subjection         ' 参数-隶属
    cmdProc.Parameters(31) = memo               ' 参数-备注
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    modifycustomer = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :根据客户的ID从表中删除一条仓库记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function DeletecustomerId(recSet As ADODB.Recordset, customerId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    DeletecustomerId = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "customer_delete"     ' 指定存储过程的名子
    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
            DeletecustomerId = True
        Else
            DeletecustomerId = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    DeletecustomerId = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :判断要修改的记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function Customer_showinfo1(recSet As ADODB.Recordset, customer As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    Customer_showinfo1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Customer_showinfo1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = customer            '参数-客户名称
    
    On Error GoTo Cwcl
    
                                                  ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Customer_showinfo1 = True
        Else
            Customer_showinfo1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Customer_showinfo1 = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :查询所得到的记录函数1
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function Customer_showinfoList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    Customer_showinfoList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Customer_showinfoList"     ' 指定存储过程的名子
    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
            Customer_showinfoList = True
        Else
            Customer_showinfoList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Customer_showinfoList = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :查询所得到的记录函数1
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function Customer_showinfo2(recSet As ADODB.Recordset, customer As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    Customer_showinfo2 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Customer_showinfo2"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = customer            '参数-客户名称
    On Error GoTo Cwcl
    
                                                  ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Customer_showinfo2 = True
        Else
            Customer_showinfo2 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Customer_showinfo2 = False
    Exit Function
End Function