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" Private Const mainModelInfoDB As String = "jomtTesterDB.jomtModelInfoTbl" Private Const testModelInfoDB As String = "jomtTesterServerDB.jomtModelInfoTbl" 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 ApplyModelInfoDB As String = mainModelInfoDB Structure item_info Dim item_type As String 'P:Product / C:Component Dim prod_code As String Dim sales_packing_cnt_col_nm As String Dim sales_packing_serial_col_nm As String Dim cnt As String Dim serial As String End Structure Public item_product_list As New ArrayList Public item_component_list As New ArrayList End Module