stockstoredao.cls

即时通讯

    End With
    
    Exit Function
    
Cwcl:
    s_stockstore1 = False
    Exit Function
End Function


'**************************************
'*    功 能 描 述 :判断采购入库函数的合法性
'*    输 入 参 数 :无
'*    输 出 参 数 :true             -刷新成功
'*                 false            -刷新失败
'**************************************


Public Function judge_position(recSet As ADODB.Recordset, warehouseid As String, article As String, articletype As String) As Boolean
    
    Dim cmdProc As ADODB.Command                ' 执行存储过程的命令
    
    judge_position = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
                                                ' 执行存储过程的命令的设置
    cmdProc.CommandText = "judge_position"          ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid
    cmdProc.Parameters(2) = article
    cmdProc.Parameters(3) = articletype
    
    On Error GoTo Cwcl
    
                                                ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With

    With recSet
        If Not .EOF Then
            judge_position = True
        Else
            judge_position = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    judge_position = False
    Exit Function
End Function

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



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



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

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