No Description
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 2.1KB

123456789101112131415161718192021222324252627
  1. Module 全域變數
  2. '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  3. 'Public 登入人IP As String = "mssql-147629-0.cloudclusters.net,12711" : Public 登入人IP2 As String = "mssql-147629-0.cloudclusters.net,12711"
  4. Public 登入人IP As String = "106.1.48.106,4567" : Public 登入人IP2 As String = "106.1.48.106,4567"
  5. Public 登入人SQL As String = "Huang_PH_SYS" : Public 登入人SQL2 As String = "HSKIN-ERP-SYS"
  6. Public gUserName As String
  7. Public 版本號 As String : Public Target As String : Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
  8. Public AA(99) As String : Public CC(99) As Boolean
  9. '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  10. Public 版本 As String = "2024030502"
  11. '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  12. 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,
  13. PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA49 As String
  14. Public NU1 As Integer
  15. Public Do1, Do2, Do3 As Double
  16. Public BL1 As Boolean
  17. Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
  18. Public DTPS(5), 圖片庫 As String
  19. Public Class MyModule1
  20. Friend Shared Sub 進度條()
  21. 平均數 = 10000 / 資料數
  22. 最終數 += 平均數
  23. If 最終數 > 10000 Then : 最終數 = 10000 : End If
  24. GRAMS_SYS.ToolStripProgressBar1.Value = 最終數
  25. End Sub
  26. End Class
  27. End Module