1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- Module 全域變數
- '----系統登入----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public g_conn_type, gUserName, 登入人部門, 登入人課別, 登入人組別, 登入人級別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 電腦識別碼 As String
- Public 倉儲倉級1, 倉儲倉級2, 倉儲倉級3, 倉儲倉級4, 倉儲倉級5, 倉儲倉級6, 倉儲倉級7, 倉儲倉級8, 倉儲倉級9, 簽核圖片編號, 系統語言, 介面, 低網, 圖片庫, 計算機調, AA(99) As String
- Public 密碼時限, 行政採購簽核級別基數, 建築採購簽核級別基數, 工程圖庫限制 As Integer
- Public 零用金選擇, 低網速模式, BB(99), CC(200) As Boolean
- Public 不變形 As Boolean = True
- '------LINE變數-------
- Public 發送對象, LINE_權限代號, PA201, PA202, PA203, PA204, PA205, 通知變數X, 通知變數Y, Line通訊IP, Line伺服器名稱 As String
- '----系統版本----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 版本 As String = "2023081401" : Public 資料庫版本 As String
- '----系統閒置----------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 判斷重登, 重登確認, 主頁開啟, 首次開啟, 物料查詢, 深色風格, 不刪除檔案, 跨部門開啟 As Boolean
- Public timeExit, timeExit2, timeNow, timeNow2 As Integer
-
- '----系統用全域變數----------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 圖片傳遞 As Image
- Public 測試IP As String = "106.1.48.106,4567"
- Public 進度條後墜, 工程日報控制, 工程日報明細, 清單列表, 幣別, 列印用SQL, 列印用SQL2, PPAA, DTP, DTP1, DTP2, DTP3, 物料關鍵字, PDF路徑, 通知訊息, 訊息回應, 訊息類型, 語言 As String
- '--------------整數變數
- Public 比例1, 比例2, 比例3, 分母, NN1, 計算累加 As Integer
- '--------------布林函數
- Public 系統分區控制, BL, BL1, BL2, BL3, BL4, BL5, BL6, BL7, BL8, BL9, H(999), 一級, 二級, 三級, 四級, TW, EN, 在職, 工人, 不用WEB As Boolean
- '--------------雙精變數
- Public 分段1, 分段2, 分段3, 分段4, NU1, NU2, NU3, NU4, NU5 As Double
- '--------------字串變數
- Public BBL1, BBL2, BBL3, BBL4, BBL5, BBL6 As String
- Public PA, PA1, PA2, PA3, PA4, PA5, PA6, PA7, PA8, PA9, PA10, PA11, PA12, PA13, PA14, PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29, PA30,
- PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49, PA50 As String
- Public 翻譯EN, 翻譯IN, 翻譯, 翻譯CH As String
- Public PPBB(3000), 指定會科 As String
- '--------------物料格式表頭專用
- Public AAA1, AAA2, AAA3, AAA4, AAA5, AAA6, AAA7, AAA8 As String
- '--------------桌面捷徑預設使用
- Public 捷徑名稱(100), 顯示名稱(100), 捷徑類別(100) As String : Public 捷徑數量 As Integer
-
- '----表頭宣告-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 表頭(200), 合約試算表頭(40) As String
-
- Public screenWidth = Screen.PrimaryScreen.Bounds.Width
- Public screenHeight = Screen.PrimaryScreen.Bounds.Height
- '----語轉字典-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Public 系統語言字典 As New Dictionary(Of String, String)()
- End Module
|