supplierdao.cls

即时通讯

    End With
    
    With recSet
        If Not .EOF Then
            FindEmployee = True
        Else
            FindEmployee = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindEmployee = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根据联系人ID取得该联系人的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function Findsuperinrtendentid(recSet As ADODB.Recordset, superinrtendentid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    Findsuperinrtendentid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_findid"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = superinrtendentid             ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Findsuperinrtendentid = True
        Else
            Findsuperinrtendentid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findsuperinrtendentid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改单条记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function modify_superinrtendent(recSet As ADODB.Recordset, id As String, superinrtendent As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    modify_superinrtendent = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Supplier_superinrtendent"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = superinrtendent     ' 参数-邮政编码
    cmdProc.Parameters(2) = id                  ' 参数=供应商编号
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    modify_superinrtendent = False
    Exit Function
End Function
'* ===============================以下为自动对供应商进行评价的函数=====================
'**************************************
'*    功 能 描 述 :在供应商完成一次外协加工时，根据外协单的收工情况，对外协商进行自动的
'*                 货期评价、质量评价、加工次数评价
'*    输 入 参 数 :supplierId       - 供应商的ID
'*                 hq               - 货应商供货情况 :  0 - 按期    1 - 超期
'*                 finishNum        - 完工的数量
'*                 totalNum         - 计划生产的数量
'*                 allowEligibility - 物品允许的合格率
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function AppraiseHqQualityJgls(supplierId As String, _
                                      hq As Integer, _
                                      finishNum As Double, _
                                      totalNum As Double, _
                                      allowEligibility As Double) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    AppraiseHqQualityJgls = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Supplier_hq_quality_jgls_appraise"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 参数
    cmdProc.Parameters(2) = hq                     ' 参数
    cmdProc.Parameters(3) = finishNum              ' 参数
    cmdProc.Parameters(4) = totalNum               ' 参数
    cmdProc.Parameters(5) = allowEligibility       ' 参数
    
    ' 执行命令 把查询到的结果放在recSet中
    On Error GoTo Cwcl
    
    cmdProc.Execute
    AppraiseHqQualityJgls = True

    Exit Function
    
Cwcl:
    AppraiseHqQualityJgls = False
End Function
'**************************************
'*    功 能 描 述 :供应同的价格评价
'*    输 入 参 数 :supplierId       - 供应商的ID
'*    输 出 能 数 :True           -  新增成功
'*                 False          -  新增失败
'**************************************
Public Function AppraisePrice(supplierId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    AppraisePrice = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "Supplier_price_appraise"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = supplierId             ' 参数

    
    ' 执行命令 把查询到的结果放在recSet中
    On Error GoTo Cwcl
    
    cmdProc.Execute
    AppraisePrice = True

    Exit Function
    
Cwcl:
    AppraisePrice = False
End Function
'**************************************
'*    功 能 描 述 :查找到所有的省份的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function FindAllProvince(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    FindAllProvince = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "province_findAll"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindAllProvince = True
        Else
            FindAllProvince = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAllProvince = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改默认联系人
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function superinrtendent_lxbj(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    superinrtendent_lxbj = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_lxbj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                  ' 参数=供应商编号
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    superinrtendent_lxbj = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改默认联系人
'*    输 入 参 数 :无
'*    输 出 参 数 :true     -显示成功
'*                 false    -显示失败
'**************************************
Public Function superinrtendent_lxbj_1(recSet As ADODB.Recordset, id As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    superinrtendent_lxbj_1 = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "superinrtendent_lxbj_1"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = id                  ' 参数=供应商编号
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    Exit Function
    
Cwcl:
    superinrtendent_lxbj_1 = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :刷新数据库显示记录函数
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************
Public Function supplier_showinfoList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    supplier_showinfoList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "supplier_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
            supplier_showinfoList = True
        Else
            supplier_showinfoList = False
        End If
    End With
    
    Exit Function
Cwcl:
    supplier_showinfoList = False
    Exit Function
End Function