2025-05-12 09:43:45 +09:00

134 lines
3.3 KiB
VB.net

Module mysqlAddress
Private mainOrderDB As String = "jomtOrderDB.jomtOrderTbl"
Private testOrderDB As String = "jomtOrderTestDB.jomtOrderTbl"
Private mainSalesDB As String = "jomtTesterDB.jomtSalesPackingTbl"
Private testSalesDB As String = "jomtTesterServerDB.jomtSalesPackingTbl"
Private mainProdDB As String = "jomtTesterDB.jomtProductTbl"
Private testProdDB As String = "jomtTesterServerDB.jomtProductTbl"
Private mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl"
Private testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl"
Private mainPlistDB As String = "jomtTesterDB.jomtProdList"
Private testPlistDB As String = "jomtTesterServerDB.jomtProdList"
Private mainClistDB As String = "jomtTesterDB.jomtComponentTbl"
Private testClistDB As String = "jomtTesterServerDB.jomtComponentTbl"
Private Const MainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl"
Private Const TestNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl"
Private mainPKCodeDB As String = "jomtTesterDB.jomtPKCodeTbl"
Public applyOrderDB As String = mainOrderDB
Public applySalesDB As String = mainSalesDB
Public applyProdDB As String = mainProdDB
Public applyCartDB As String = mainCartDB
Public applyPlistDB As String = mainPlistDB
Public applyClistDB As String = mainClistDB
Public applyPKCodeDB As String = mainPKCodeDB
Public applyNonTDDB As String = MainNonTDDB
Public Enum pSerialList
DivSet
ProFace
ProEye
ProBody
LuxFace
LuxEye
LuxBody
MAXIMUM
AlphaSet
AlphaFace
AlphaEye
AlphaBody
Alto
Effect
End Enum
Public pSerialData(pSerialList.Effect) As String
Public Enum cCountList
Mask5Cnt
Mask10Cnt
HairBandCnt
GelCnt
MiniGelCnt
AmpleCnt
CreamCnt
UmbrellaCnt
FenCnt
ChargerCnt
CableCnt
TonerCnt
Case_PRO_Black
Case_PRO_Beige
Case_PRO_Red
Case_PRO_Pink
Case_MAX_Black
Case_MAX_Apr
Case_MAX_Mint
Case_MAX_Beige
SoothingGelCnt
Carton0_Cnt
Carton1_Cnt
Carton2_Cnt
Carton3_Cnt
Carton4_Cnt
Carton5_Cnt
Carton6_Cnt
Shopbag_Cnt
CosShopbag_Cnt
DustBagCnt
maxPurple
proSnakeBlack
kollagen
kollagenSet
kollagen_P
kollagenSet_P
cleansingWater
tonerPad
MaxSaffianoBK
hologram1
hologram3
hologram5
MaxSaffianoPp
Case_MAX_Yellow
Kollagen_Pe1
Kollagen_Pe3
Kollagen_Pe5
ATCircleCase
APSquareCase
MaxPeach
MassageSoothing
Case_Max_SMint
MeshPouch
FirmingAmp
HyaluronicAmp
nightshotcnt
morningshotcnt
casemaxwoodicnt
Elicolltonercnt
Elicollampcnt
Elicollcreamcnt
Elihyaltonercnt
Elihyalampcnt
Elihyalcreamcnt
dayshotcnt
Beautyshotbagcnt
Gummycnt
Stickjellycnt
Newyearbagcnt
Emsbeltcnt
beltbagcnt
Dayshot2cnt
Elixircnt
End Enum
Public cCountData(cCountList.Elixircnt) As Integer
End Module