supplierdao.cls

即时通讯

                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "goods_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_goods = True
        Else
            S_goods = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    S_goods = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :删除供应商-商品关系表函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -新增成功
'*                 false    -新增失败
'**************************************
Public Function relation_delete1(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                        ' 执行存储过程的命令
    relation_delete1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                        ' 执行存储过程的命令的设置
    cmdProc.CommandText = "relation_delete1"            ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId
                                                        ' 执行命令 把查询到的结果放在recSet中
    
    On Error GoTo Cwcl
    
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    'With recSet
        'If Not .EOF Then
            'relation_delete = True
        'Else
            'relation_delete = False
        'End If
   'End With
       
    Exit Function
    
Cwcl:
    relation_delete1 = False
    Exit Function
End Function




'**************************************
'*    功 能 描 述 :显示供应商名称
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function showsuppliername(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command                    ' 执行存储过程的命令
    
    showsuppliername = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "show_suppliername"       ' 指定存储过程的名子
    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
            showsuppliername = True
        Else
            showsuppliername = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    showsuppliername = False
    Exit Function
End Function



'**************************************
'*    功 能 描 述 :显示要修改的记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function supplier_showinfo1(recSet As ADODB.Recordset, supplier As String) As Boolean
    
    Dim cmdProc As ADODB.Command                 ' 执行存储过程的命令
    
    supplier_showinfo1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                  ' 执行存储过程的命令的设置
    cmdProc.CommandText = "supplier_showinfo1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplier            ' 参数-客户编号
    
    On Error GoTo Cwcl
    
                                                  ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            supplier_showinfo1 = True
        Else
            supplier_showinfo1 = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    supplier_showinfo1 = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :保存联系人记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  成功
'*                 False          -  失败
'**************************************
Public Function Newsuperinrtendent(recSet As ADODB.Recordset, _
                             supplierId As String, _
                             superinrtendent As String, sex As String, bm As String, lxrch As String, _
                             tell As String, ywcz As String, sj As String, grwz As String, gryx As String, _
                             grkh As String, grzh As String, jtdh As String, jtdz As String, sr As Date, _
                             jlr As String, jlrq As Date, mome As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Newsuperinrtendent = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_add"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId               ' 参数
    cmdProc.Parameters(2) = superinrtendent          ' 参数
    cmdProc.Parameters(3) = sex                      ' 参数
    cmdProc.Parameters(4) = bm                       ' 参数
    cmdProc.Parameters(5) = lxrch                    ' 参数
    cmdProc.Parameters(6) = tell                     ' 参数
    cmdProc.Parameters(7) = ywcz                     ' 参数
    cmdProc.Parameters(8) = sj                       ' 参数
    cmdProc.Parameters(9) = grwz                     ' 参数
    cmdProc.Parameters(10) = gryx                    ' 参数
    cmdProc.Parameters(11) = grkh                    ' 参数
    cmdProc.Parameters(12) = grzh                    ' 参数
    cmdProc.Parameters(13) = jtdh                    ' 参数
    cmdProc.Parameters(14) = jtdz                    ' 参数
    cmdProc.Parameters(15) = sr                      ' 参数
    cmdProc.Parameters(16) = jlr                     ' 参数
    cmdProc.Parameters(17) = jlrq                    ' 参数
    cmdProc.Parameters(18) = mome                    ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
    
    cmdProc.Execute


    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    Newsuperinrtendent = False
End Function

'**************************************
'*    功 能 描 述 :根据供应商ID取得该供应商的联系人的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Findsupplierid(recSet As ADODB.Recordset, supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findsupplierid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_findidall"     ' 指定存储过程的名子
    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
            Findsupplierid = True
        Else
            Findsupplierid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findsupplierid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改一条产品类别数据
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function modifysuperinrtendent(recSet As ADODB.Recordset, _
                              superinrtendentid As String, supplierId As String, superinrtendent As String, sex As String, bm As String, lxrch As String, _
                             tell As String, ywcz As String, sj As String, grwz As String, gryx As String, _
                             grkh As String, grzh As String, jtdh As String, jtdz As String, sr As Date, _
                             jlr As String, jlrq As Date, mome As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    modifysuperinrtendent = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_modify"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = superinrtendentid        ' 参数
    cmdProc.Parameters(2) = supplierId               ' 参数
    cmdProc.Parameters(3) = superinrtendent          ' 参数
    cmdProc.Parameters(4) = sex                      ' 参数
    cmdProc.Parameters(5) = bm                       ' 参数
    cmdProc.Parameters(6) = lxrch                    ' 参数
    cmdProc.Parameters(7) = tell                     ' 参数
    cmdProc.Parameters(8) = ywcz                     ' 参数
    cmdProc.Parameters(9) = sj                       ' 参数
    cmdProc.Parameters(10) = grwz                    ' 参数
    cmdProc.Parameters(11) = gryx                    ' 参数
    cmdProc.Parameters(12) = grkh                    ' 参数
    cmdProc.Parameters(13) = grzh                    ' 参数
    cmdProc.Parameters(14) = jtdh                    ' 参数
    cmdProc.Parameters(15) = jtdz                    ' 参数
    cmdProc.Parameters(16) = sr                      ' 参数
    cmdProc.Parameters(17) = jlr                     ' 参数
    cmdProc.Parameters(18) = jlrq                    ' 参数
    cmdProc.Parameters(19) = mome                    ' 参数
    ' 执行命令 把查询到的结果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 开始事务
    
    On Error GoTo Cwcl
           cmdProc.Execute
           modifysuperinrtendent = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 结束事务
    modifysuperinrtendent = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滚事务
    modifysuperinrtendent = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根据供应商ID从表中删除该供应商的所有记录
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败