?? positiondao.cls

?? 即時通訊
?? CLS
?? 第 1 頁 / 共 2 頁
字號:
12 下一頁
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "positionDAO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'**************************************
'*    模 塊 名 稱 :庫位管理模塊中的數據據庫操作
'*    功 能 描 述 :庫位管理模塊中的數據據庫操作
'*    程序員姓名  : 石春曉
'*    最后修改人  : 石春曉
'*    最后修改時間:2005/09/07
'**************************************
Option Explicit
'**************************************
'*    功 能 描 述 :取得所有庫位的列表
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  數據庫連接成功
'*                 False          -  數據庫連接失敗
'**************************************
Public Function FindAll(recSet As ADODB.Recordset, warehouseid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    FindAll = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_findAll"     ' 指定存儲過程的名子
    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
            FindAll = True
        Else
            FindAll = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindAll = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :新增一條庫位數據
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  新增成功
'*                 False          -  新增失敗
'**************************************
Public Function Newposition(recSet As ADODB.Recordset, _
                              warehouseid As String, name As String, quantity As String, cost As String, money As String, _
                              upperlimmit As String, lowerlimmit As String, article As String, articletype As String, _
                              validityperiod As Date, memo As String, jh As String, ch As String, wh As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    Newposition = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_add"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = warehouseid              ' 參數
    cmdProc.Parameters(2) = name                     ' 參數
    cmdProc.Parameters(3) = quantity                 ' 參數
    cmdProc.Parameters(4) = cost                     ' 參數
    cmdProc.Parameters(5) = money                    ' 參數
    cmdProc.Parameters(6) = upperlimmit              ' 參數
    cmdProc.Parameters(7) = lowerlimmit              ' 參數
    cmdProc.Parameters(8) = article                  ' 參數
    cmdProc.Parameters(9) = articletype              ' 參數
    cmdProc.Parameters(10) = validityperiod          ' 參數
    cmdProc.Parameters(11) = memo                    ' 參數
    cmdProc.Parameters(12) = jh                      ' 參數
    cmdProc.Parameters(13) = ch                      ' 參數
    cmdProc.Parameters(14) = wh                      ' 參數
    
    ' 執行命令 把查詢到的結果放在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   ' 回滾事務
    Newposition = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :修改一條庫位數據
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  新增成功
'*                 False          -  新增失敗
'**************************************
Public Function Modifyposition(recSet As ADODB.Recordset, _
                              name As String, quantity As String, cost As String, money As String, _
                              upperlimmit As String, lowerlimmit As String, article As String, articletype As String, _
                              validityperiod As Date, memo As String, jh As String, ch As String, wh As String, positionid As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    Modifyposition = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_modify"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = name                ' 參數
    cmdProc.Parameters(2) = quantity            ' 參數
    cmdProc.Parameters(3) = cost                ' 參數
    cmdProc.Parameters(4) = money               ' 參數
    cmdProc.Parameters(5) = upperlimmit         ' 參數
    cmdProc.Parameters(6) = lowerlimmit         ' 參數
    cmdProc.Parameters(7) = article             ' 參數
    cmdProc.Parameters(8) = articletype         ' 參數
    cmdProc.Parameters(9) = validityperiod      ' 參數
    cmdProc.Parameters(10) = memo               ' 參數
    cmdProc.Parameters(11) = positionid         ' 參數
    cmdProc.Parameters(12) = jh         ' 參數
    cmdProc.Parameters(13) = ch         ' 參數
    cmdProc.Parameters(14) = wh         ' 參數
    ' 執行命令 把查詢到的結果放在recSet中
    MainForm.g_application.m_databaseCon.m_adoConnection.BeginTrans    ' 開始事務
    
    On Error GoTo Cwcl
           cmdProc.Execute
           Modifyposition = True

    MainForm.g_application.m_databaseCon.m_adoConnection.CommitTrans   ' 結束事務
    Modifyposition = True
    Exit Function
    
Cwcl:
    MainForm.g_application.m_databaseCon.m_adoConnection.RollbackTrans   ' 回滾事務
    Modifyposition = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根據庫位ID取得所有庫位的列表
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  數據庫連接成功
'*                 False          -  數據庫連接失敗
'**************************************
Public Function FindById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    FindById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_findByld"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 參數
    
    On Error GoTo Cwcl
    
    ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            FindById = True
        Else
            FindById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    FindById = False
    Exit Function
End Function
'**************************************
'*    功 能 描 述 :根據庫位ID從表中刪除一條庫位記錄
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  數據庫連接成功
'*                 False          -  數據庫連接失敗
'**************************************
Public Function DeleteById(recSet As ADODB.Recordset, houseId As String) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    DeleteById = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_delete"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = houseId             ' 參數
    
    On Error GoTo Cwcl
    
    ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            DeleteById = True
        Else
            DeleteById = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    DeleteById = False
    Exit Function
End Function

'**************************************
'*    功 能 描 述 :根據庫位ID，庫位名稱，倉庫ID及商品名稱查找庫位記錄
'*    輸 入 參 數 :無
'*    輸 出 能 數 :True           -  成功
'*                 False          -  失敗
'**************************************
Public Function Findposition(recSet As ADODB.Recordset, _
                             materialId As String) As Boolean
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    Findposition = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "position_findByld"    ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
    cmdProc.Parameters.Refresh
    cmdProc.Parameters(1) = materialId            ' 參數
    
    On Error GoTo Cwcl
    
    ' 執行命令 把查詢到的結果放在recSet中
    With recSet
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open cmdProc
    End With
    
    With recSet
        If Not .EOF Then
            Findposition = True
        Else
            Findposition = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    Findposition = False
    Exit Function
End Function

Public Function show_part(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    show_part = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "part_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_part = True
        Else
            show_part = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_part = False
    Exit Function
End Function

Public Function show_production(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    show_production = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "production_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_production = True
        Else
            show_production = False
        End If
    End With
    
    Exit Function
    
Cwcl:
    show_production = False
    Exit Function
End Function

Public Function show_goods(recSet As ADODB.Recordset) As Boolean
    
    Dim cmdProc As ADODB.Command          ' 執行存儲過程的命令
    
    show_goods = False
    Set cmdProc = New ADODB.Command
    Set cmdProc.ActiveConnection = MainForm.g_application.m_databaseCon.m_adoConnection
    
    ' 執行存儲過程的命令的設置
    cmdProc.CommandText = "goods1_show"     ' 指定存儲過程的名子
    cmdProc.CommandType = adCmdStoredProc
12 下一頁
?? 文件大小 2190 K
?? 上傳用戶 huanghuanl
?? 所屬分類匯編語言
??? 相關標簽

#即時通訊
?? 快捷鍵說明

復制代碼 Ctrl + C
搜索代碼 Ctrl + F
全屏模式 F11
切換主題 Ctrl + Shift + D
顯示快捷鍵 ?
增大字號 Ctrl + =
減小字號 Ctrl + -
亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

?? positiondao.cls

?? 快捷鍵說明
