?? positiondao.cls
字號(hào):
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :取得所有庫位的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function position_tj1(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
position_tj1 = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_tj1" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :取得所有庫位的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function position_tj(recSet As ADODB.Recordset, warehouseid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
position_tj = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_tj" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = warehouseid ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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 ' 執(zhí)行存儲(chǔ)過程的命令
show_warehouse = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "warehouse_show" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :打印一個(gè)倉庫的庫位的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function position_dyid(recSet As ADODB.Recordset, warehouseid As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
position_dyid = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_tj" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = warehouseid ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :倉庫物料統(tǒng)計(jì)
'* 輸 入 參 數(shù) :warehouseId - 當(dāng)為空時(shí)，為統(tǒng)計(jì)所有倉庫中的物料庫存情況
'* 當(dāng)不空時(shí)，為統(tǒng)計(jì)某一個(gè)倉庫的物料庫存情況
'* materialType -- 物料類型 ' ' - 當(dāng)為空時(shí)為統(tǒng)計(jì)所有的物料
'* -- 物料類型 '0' - 統(tǒng)計(jì)原料
'* -- 物料類型 '1' - 統(tǒng)計(jì)零件
'* -- 物料類型 '2' - 統(tǒng)計(jì)產(chǎn)品
'* -- 物料類型 '3' - 統(tǒng)計(jì)中間工序物料
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function PositionMaterialStat(recSet As ADODB.Recordset, _
warehouseid As String, _
materialType As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
PositionMaterialStat = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_material_stat" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = warehouseid ' 倉庫ID
cmdProc.Parameters(2) = materialType ' 物料類型
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :判斷一個(gè)物料在一個(gè)倉庫中的庫位是否存在
'* 輸 入 參 數(shù) :warehouseId - 倉庫ID
'* materialId - 物料ID
'* 輸 出 能 數(shù) :True - 存在
'* False - 不存在
'**************************************
Public Function PositionJudgeExist(warehouseid As String, _
materialId As String) As Boolean
Dim recSet As ADODB.Recordset
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
PositionJudgeExist = False
Set recSet = New ADODB.Recordset
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_judge_exist" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = warehouseid
cmdProc.Parameters(2) = materialId
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :判斷一個(gè)物料在一個(gè)倉庫中的庫位是否存在
'* 輸 入 參 數(shù) :warehouseId - 倉庫ID
'* materialId - 物料ID
'* 輸 出 能 數(shù) :True - 存在
'* False - 不存在
'**************************************
Public Function position_ouputposition(recSet As ADODB.Recordset, warehouseid As String, _
materialId As String) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
position_ouputposition = False
Set recSet = New ADODB.Recordset
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_ouputposition" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
cmdProc.Parameters(1) = warehouseid
cmdProc.Parameters(2) = materialId
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
'**************************************
'* 功 能 描 述 :取得所有庫位的列表
'* 輸 入 參 數(shù) :無
'* 輸 出 能 數(shù) :True - 數(shù)據(jù)庫連接成功
'* False - 數(shù)據(jù)庫連接失敗
'**************************************
Public Function position_findByldList(recSet As ADODB.Recordset) As Boolean
Dim cmdProc As ADODB.Command ' 執(zhí)行存儲(chǔ)過程的命令
position_findByldList = False
Set cmdProc = New ADODB.Command
Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
' 執(zhí)行存儲(chǔ)過程的命令的設(shè)置
cmdProc.CommandText = "position_findByldList" ' 指定存儲(chǔ)過程的名子
cmdProc.CommandType = adCmdStoredProc
cmdProc.Parameters.Refresh
' cmdProc.Parameters(1) = warehouseid ' 參數(shù)
On Error GoTo Cwcl
' 執(zhí)行命令 把查詢到的結(jié)果放在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
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -