23 lines
1.4 KiB
VB.net
23 lines
1.4 KiB
VB.net
|
Module modConstant
|
|||
|
|
|
|||
|
|
Public Const defInteger As Integer = -999 '宣告整數使用的常數，用以辨識參數是否有傳入Function中。
|
|||
|
|
Public Const defString As String = "Null" '宣告字串使用的常數，用以辨識參數是否有傳入Function中。
|
|||
|
|
Public Const defDateTime As Date = #12/31/1900# '宣告日期使用的常數，用以辨識參數是否有傳入Function中。
|
|||
|
|
Public Const defSingle As Single = -999 '宣告單精準數使用的常數，用以辨識參數是否有傳入Function中。
|
|||
|
|
Public Const defDouble As Double = -999 '宣告雙精準數使用的常數，用以辨識參數是否有傳入Function中。
|
|||
|
|
Public Const strAddTagLabel As String = "extrabase" 'Add by py for Combine Addition XML doc
|
|||
|
|
Public Const strAddTagName As String = "ExtraBase" 'Add by py for Combine Addition XML doc
|
|||
|
|
Public Const defWinErrCode As String = "0000-899999"
|
|||
|
|
Public Const defNullDate As Date = #12/31/1910# '宣告日期使用的常數，用以辨識參數是否要變更為Null。
|
|||
|
|
Public Const defNullInteger As Integer = -9999 '宣告數值使用的常數，用以辨識參數是否要變更為Null。
|
|||
|
|
End Module
|
|||
|
|
|
|||
|
|
'2020/01/15 Shih Kai,供前端InvokeSrv_Module時使用，用以辨識是否存入EventLog (1,2,3 >存入)
|
|||
|
|
Public Enum _enuInvokeType
|
|||
|
|
_Load = 0
|
|||
|
|
_Add = 1
|
|||
|
|
_Edit = 2
|
|||
|
|
_Delete = 3
|
|||
|
|
_Get = 4
|
|||
|
|
End Enum
|