?? clsopappendmerchandise.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsOpAppendMerchandise"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Option Explicit
'***********************************************************************
'* 過程名:AppendNewApply
'* 功 能:追加新補貨申請
'* 參 數:clsOpuser 當前用戶
'* 版 本:2006.01.01 顏志軍 初版
'***********************************************************************
Public Sub AppendNewApply(ByRef currentUser As clsOpuser)
Dim newApply As clsAppendMerchandise
Set newApply = New clsAppendMerchandise
frmAppendMerchandise.ShowDlg newApply, False, currentUser
End Sub
'***********************************************************************
'* 過程名:EditApply
'* 功 能:修改補貨申請
'* 參 數:clsAppendMerchandise 被修改補貨申請
'* :clsOpuser 當前用戶
'* 版 本:2006.01.01 顏志軍 初版
'***********************************************************************
Public Sub EditApply(ByRef curApply As clsAppendMerchandise, _
ByRef currentUser As clsOpuser)
frmAppendMerchandise.ShowDlg curApply, True, currentUser
End Sub
'***********************************************************************
'* 過程名:RemoveApply
'* 功 能:刪除補貨申請
'* 參 數:clsMerchandise 被刪除商品對象
'* :clsOpuser 當前用戶
'* 返回值:Boolean True 成功 False 失敗
'* 版 本:2006.01.03 顏志軍 初版
'***********************************************************************
Public Function RemoveApply(ByRef curApply As clsAppendMerchandise, _
ByRef currentUser As clsOpuser) As Boolean
RemoveApply = False
Select Case curApply.Delete()
Case DbOpOk
RemoveApply = True
Case Else
RemoveApply = False
End Select
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -