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 = "2025040601"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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, PA50, PA54, PA55, PA56, PA57, PA58 As String
    Public NU1, 比例1, 比例2, 比例3, 分母 As Integer
    Public Do1, Do2, Do3, 分段1, 分段2, 分段3, 分段4 As Double
    Public BL1, BL2, BL3, 不刪除檔案, 非第一次, 重新計算, 首次開啟, 在職, 打卡 As Boolean
    Public 平均數, lastFoundRowIndex, lastFoundColIndex, NN1 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public DTPS(5), 圖片庫, PDF路徑, 進度條後墜 As String
    Public 圖片傳遞 As Image
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            GRAMS_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module