supplierdao.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 = "supplierDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 块 名 称 :供应商模块中的数据据库操作
'*    功 能 描 述 :完成数据库操作
'*    程序员姓名  : 黄朝和
'*    最后修改人  : 黄朝和
'*    最后修改时间:2005/08/24
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :刷新数据库显示记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function s_Refresh(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    s_Refresh = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Supplier_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
            s_Refresh = True
        Else
            s_Refresh = False
        End If
    End With
    
    Exit Function
Cwcl:
    s_Refresh = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :供应商数据库增加函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function addsupplier(recSet As ADODB.Recordset, supplier As String, _
                            founddate As Date, creditbrow As String, _
                            address As String, superinrtendent As String, postcode As String, _
                            taxnum As String, bank As String, banknum As String, sort As String, _
                            qualityapp As String, priceapp As String, customersortid As String, _
                            customergradeid As String, customersourceid As String, state As String, _
                            province As String, taxreceiptinfo As String, corporation As String, _
                            accountsaddress As String, city As String, _
                            customer As String, mobile As String, phone As String, _
                            fax As String, http As String, email As String, notedate As Date, _
                            counterman As String, subjection As String, listdate As Date, _
                            memo As String, cooperatestate As String, server As String, qhapp As String, gysh As String, gysmm As String, jglspj As String) As String
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    addsupplier = ""
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Supplier_Add"        ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc       ' 刷新存储过程
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplier            ' 参数-供应商名称
    cmdProc.Parameters(2) = founddate           ' 参数-建档日期
    cmdProc.Parameters(3) = creditbrow          ' 参数-信用额度
    cmdProc.Parameters(4) = address             ' 参数-联系地址
    cmdProc.Parameters(5) = superinrtendent     ' 参数-邮政编码
    cmdProc.Parameters(6) = postcode            ' 参数-邮政编码
    cmdProc.Parameters(7) = taxnum              ' 参数-税号
    cmdProc.Parameters(8) = bank                ' 参数-开户银行
    cmdProc.Parameters(9) = banknum             ' 参数-银行帐号
    cmdProc.Parameters(10) = sort               ' 参数-类别
    cmdProc.Parameters(11) = qualityapp         ' 参数-质量评价
    cmdProc.Parameters(12) = priceapp           ' 参数-价格评价
    cmdProc.Parameters(13) = customersortid     ' 参数-客户类别ID
    cmdProc.Parameters(14) = customergradeid    ' 参数-客户等级ID
    cmdProc.Parameters(15) = customersourceid   ' 参数-客户来源ID
    cmdProc.Parameters(16) = state              ' 参数-国家
    cmdProc.Parameters(17) = province           ' 参数-省份
    cmdProc.Parameters(18) = taxreceiptinfo     ' 参数-税票信息
    cmdProc.Parameters(19) = corporation        ' 参数-法人代表
    cmdProc.Parameters(20) = accountsaddress    ' 参数-记帐地址
    cmdProc.Parameters(21) = city               ' 参数-城市
    cmdProc.Parameters(22) = customer           ' 参数-客户名称
    cmdProc.Parameters(23) = mobile             ' 参数-联系手机
    cmdProc.Parameters(24) = phone              ' 参数-联系电话
    cmdProc.Parameters(25) = fax                ' 参数-传真
    cmdProc.Parameters(26) = http               ' 参数-网络地址
    cmdProc.Parameters(27) = email              ' 参数-电子邮件
    cmdProc.Parameters(28) = notedate           ' 参数-记录时间
    cmdProc.Parameters(29) = counterman         ' 参数-业务员
    cmdProc.Parameters(30) = subjection         ' 参数-隶属
    cmdProc.Parameters(31) = listdate           ' 参数-列入日期
    cmdProc.Parameters(32) = memo               ' 参数-备注
    cmdProc.Parameters(33) = cooperatestate     ' 参数-合作状态
    cmdProc.Parameters(34) = server             ' 参数-服务
    cmdProc.Parameters(35) = qhapp              ' 参数-货期评价
    cmdProc.Parameters(36) = gysh              ' 参数-供应商号
    cmdProc.Parameters(37) = gysmm              ' 参数-供应商密码
    cmdProc.Parameters(38) = jglspj              ' 参数-加工历史评价
    cmdProc.Parameters(39) = "0000"
    
                                                ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute
    addsupplier = cmdProc.Parameters(39)

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function

    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    addsupplier = ""
End Function


'**************************************
'*    功 能 描 述 :显示要修改的记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function S_DanTiao(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    S_DanTiao = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "supplier_showinfo"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId            ' 参数-客户编号
    
    On Error GoTo Cwcl
    
                                                  ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            S_DanTiao = True
        Else
            S_DanTiao = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    S_DanTiao = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改单条记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function modifysupplier(recSet As ADODB.Recordset, id As String, supplier As String, founddate As Date, creditbrow As String, _
                            address As String, postcode As String, taxnum As String, bank As String, _
                            banknum As String, sort As String, qualityapp As String, priceapp As String, customersortid As String, _
                            customergradeid As String, customersourceid As String, state As String, province As String, taxreceiptinfo As String, _
                            corporation As String, accountsaddress As String, city As String, customer As String, mobile As String, phone As String, _
                            fax As String, http As String, email As String, notedate As Date, counterman As String, subjection As String, listdate As Date, _
                            memo As String, cooperatestate As String, server As String, qhapp As String, gysh As String, gysmm As String, jglspj As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    modifysupplier = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "supplier_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                  ' 参数=供应商编号
    cmdProc.Parameters(2) = supplier            ' 参数-供应商名称
    cmdProc.Parameters(3) = founddate           ' 参数-建档日期
    cmdProc.Parameters(4) = creditbrow          ' 参数-信用额度
    cmdProc.Parameters(5) = address             ' 参数-联系地址
    cmdProc.Parameters(6) = postcode            ' 参数-邮政编码
    cmdProc.Parameters(7) = taxnum              ' 参数-税号
    cmdProc.Parameters(8) = bank                ' 参数-开户银行
    cmdProc.Parameters(9) = banknum             ' 参数-银行帐号
    cmdProc.Parameters(10) = sort               ' 参数-类别
    cmdProc.Parameters(11) = qualityapp         ' 参数-质量评价
    cmdProc.Parameters(12) = priceapp           ' 参数-价格评价
    cmdProc.Parameters(13) = customersortid     ' 参数-客户类别ID
    cmdProc.Parameters(14) = customergradeid    ' 参数-客户等级ID
    cmdProc.Parameters(15) = customersourceid   ' 参数-客户来源ID
    cmdProc.Parameters(16) = state              ' 参数-国家
    cmdProc.Parameters(17) = province           ' 参数-省份
    cmdProc.Parameters(18) = taxreceiptinfo     ' 参数-税票信息
    cmdProc.Parameters(19) = corporation        ' 参数-法人代表
    cmdProc.Parameters(20) = accountsaddress    ' 参数-记帐地址
    cmdProc.Parameters(21) = city               ' 参数-城市
    cmdProc.Parameters(22) = customer           ' 参数-客户名称
    cmdProc.Parameters(23) = mobile             ' 参数-联系手机
    cmdProc.Parameters(24) = phone              ' 参数-联系电话
    cmdProc.Parameters(25) = fax                ' 参数-传真
    cmdProc.Parameters(26) = http               ' 参数-网络地址
    cmdProc.Parameters(27) = email              ' 参数-电子邮件
    cmdProc.Parameters(28) = notedate           ' 参数-记录时间
    cmdProc.Parameters(29) = counterman         ' 参数-业务员
    cmdProc.Parameters(30) = subjection         ' 参数-隶属
    cmdProc.Parameters(31) = listdate           ' 参数-列入日期
    cmdProc.Parameters(32) = memo               ' 参数-备注
    cmdProc.Parameters(33) = cooperatestate     ' 参数-合作状态
    cmdProc.Parameters(34) = server             ' 参数-服务
    cmdProc.Parameters(35) = qhapp              ' 参数-货期评价
    cmdProc.Parameters(36) = gysh              ' 参数-供应商号
    cmdProc.Parameters(37) = gysmm              ' 参数-供应商密码
    cmdProc.Parameters(38) = jglspj              ' 参数-加工历史评价
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    modifysupplier = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :根据客户的ID从表中删除一条仓库记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Deletesupplierid(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    Deletesupplierid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "supplier_delete"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId          ' 参数--供应商编号
    cmdProc.Parameters(2) = "1"                 ' 参数--删除记号
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
'    With recSet
'        If Not .EOF Then
'            Deletesupplierid = True
'        Else
'            Deletesupplierid = False
'        End If
'    End With
'
    Exit Function
    
Cwcl:
    Deletesupplierid = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :显示商品的记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function S_goods(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    S_goods = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection