📄 positiondao.cls

📁 即时通讯
💻 CLS
📖 第 1 页 / 共 2 页
字号:
上一页 12
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            show_goods = True
        Else
            show_goods = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_goods = False
    Exit Function
End Function

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

Public Function show_warehouse(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    show_warehouse = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "warehouse_show"     ' 指定存储过程的名子
    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
            show_warehouse = True
        Else
            show_warehouse = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_warehouse = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :打印一个仓库的库位的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function position_dyid(recSet As ADODB.Recordset, warehouseid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    position_dyid = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "position_tj"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid                ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            position_dyid = True
        Else
            position_dyid = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    position_dyid = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :仓库物料统计
'*    输 入 参 数 :warehouseId    - 当为空时，为统计所有仓库中的物料库存情况
'*                                  当不空时，为统计某一个仓库的物料库存情况
'*                 materialType   --  物料类型    '  '    -  当为空时为统计所有的物料
'*                                --  物料类型    '0'    -  统计原料
'*                                --  物料类型    '1'    -  统计零件
'*                                --  物料类型    '2'    -  统计产品
'*                                --  物料类型    '3'    -  统计中间工序物料
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function PositionMaterialStat(recSet As ADODB.Recordset, _
                             warehouseid As String, _
                             materialType As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    PositionMaterialStat = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "position_material_stat"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid                ' 仓库ID
    cmdProc.Parameters(2) = materialType               ' 物料类型
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            PositionMaterialStat = True
        Else
            PositionMaterialStat = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    PositionMaterialStat = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :判断一个物料在一个仓库中的库位是否存在
'*    输 入 参 数 :warehouseId     - 仓库ID
'*                 materialId      - 物料ID
'*    输 出 能 数 :True           -  存在
'*                 False          -  不存在
'**************************************
Public Function PositionJudgeExist(warehouseid As String, _
                                   materialId As String) As Boolean
    Dim recSet As ADODB.Recordset
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    PositionJudgeExist = False
    Set recSet = New ADODB.Recordset
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "position_judge_exist"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid
    cmdProc.Parameters(2) = materialId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            PositionJudgeExist = True
        Else
            PositionJudgeExist = False
        End If
    End With
    recSet.Close
    Exit Function
    
Cwcl:
    PositionJudgeExist = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :判断一个物料在一个仓库中的库位是否存在
'*    输 入 参 数 :warehouseId     - 仓库ID
'*                 materialId      - 物料ID
'*    输 出 能 数 :True           -  存在
'*                 False          -  不存在
'**************************************
Public Function position_ouputposition(recSet As ADODB.Recordset, warehouseid As String, _
                                   materialId As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    position_ouputposition = False
    Set recSet = New ADODB.Recordset
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "position_ouputposition"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid
    cmdProc.Parameters(2) = materialId
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            position_ouputposition = True
        Else
            position_ouputposition = False
        End If
    End With
    Exit Function
    
Cwcl:
    position_ouputposition = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :取得所有库位的列表
'*    输 入 参 数 :无
'*    输 出 能 数 :True           -  数据库连接成功
'*                 False          -  数据库连接失败
'**************************************
Public Function position_findByldList(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 执行存储过程的命令
    
    position_findByldList = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 执行存储过程的命令的设置
    cmdProc.CommandText = "position_findByldList"     ' 指定存储过程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
'    cmdProc.Parameters(1) = warehouseid                ' 参数
    
    On Error GoTo Cwcl
    
    ' 执行命令 把查询到的结果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            position_findByldList = True
        Else
            position_findByldList = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    position_findByldList = False
    Exit Function
End Function
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -