HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/00、Module/全域變數.vb

Module 全域變數
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    'Public 登入人IP As String = "mssql-147629-0.cloudclusters.net,12711" : Public 登入人IP2 As String = "mssql-147629-0.cloudclusters.net,12711"
    Public 登入人IP As String = "106.1.48.106,4567" : Public 登入人IP2 As String = "106.1.48.106,4567"
    Public 登入人SQL As String = "Huang_PH_SYS" : Public 登入人SQL2 As String = "HSKIN-ERP-SYS"
    Public gUserName As String
    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
    Public AA(99) As String : Public CC(99) As Boolean
    '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 版本 As String = "2024030502"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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, PA49 As String
    Public NU1 As Integer
    Public Do1, Do2, Do3 As Double
    Public BL1 As Boolean
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public DTPS(5), 圖片庫 As String
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            GRAMS_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module