Ei kuvausta
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

全域變數.vb 4.0KB

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