45 lines
1.8 KiB
VB.net
45 lines
1.8 KiB
VB.net
Module SqlAddressModule
|
|
Private Const mainCartDB As String = "jomtTesterDB.jomtCartridgeTbl"
|
|
Private Const testCartDB As String = "jomtTesterServerDB.jomtCartridgeTbl"
|
|
|
|
Private Const mainHFTestDB As String = "jomtTesterDB.jomtHFTestTbl"
|
|
Private Const testHFTestDB As String = "jomtTesterServerDB.jomtHFTestTbl"
|
|
|
|
Private Const mainRFTestDB As String = "jomtTesterDB.jomtRFTestTbl"
|
|
Private Const testRFTestDB As String = "jomtTesterServerDB.jomtRFTestTbl"
|
|
|
|
Private Const mainPD1CntDB As String = "jomtTesterDB.jomtMES_PD1Tbl"
|
|
Private Const testPD1CntDB As String = "jomtTesterServerDB.jomtMES_PD1Tbl"
|
|
|
|
Private Const mainNonTDDB As String = "jomtTesterDB.jomtNonTDTbl"
|
|
Private Const testNonTDDB As String = "jomtTesterServerDB.jomtNonTDTbl"
|
|
|
|
Private Const MainReturnDB As String = "jomtTesterDB.jomtReturnTbl"
|
|
Private Const TestReturnDB As String = "jomtTesterServerDB.jomtReturnTbl"
|
|
|
|
Public Const LoginDB As String = "jomtAccountDB.jomtTesterUserIDTbl"
|
|
Public Const InfoRegStateDB As String = "jomtTesterDB.jomtInfoRegStateTbl"
|
|
|
|
Public ApplyCartDB As String = mainCartDB
|
|
Public ApplyHFTestDB As String = mainHFTestDB
|
|
Public ApplyRFTestDB As String = mainRFTestDB
|
|
Public ApplyPD1CntDB As String = mainPD1CntDB
|
|
Public ApplyNonTDDB As String = mainNonTDDB
|
|
Public ApplyReturnDB As String = MainReturnDB
|
|
|
|
Public Sub ServerChanger(ChangeState As Boolean)
|
|
If ChangeState = True Then
|
|
applyCartDB = testCartDB
|
|
applyHFTestDB = testHFTestDB
|
|
ApplyRFTestDB = testRFTestDB
|
|
ApplyPD1CntDB = testPD1CntDB
|
|
Else
|
|
applyCartDB = mainCartDB
|
|
applyHFTestDB = mainHFTestDB
|
|
ApplyRFTestDB = mainRFTestDB
|
|
ApplyPD1CntDB = mainPD1CntDB
|
|
End If
|
|
End Sub
|
|
|
|
End Module
|