YD-ERP-SYS-LEEHSIEHJUI/YD-ERP-SYS/Module/全域變數.vb

Module 全域變數
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public g_conn_type, gUserName, 登入人職稱, 登入人級別, 登入人組別, 登入人IP, 版本號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP物理位置, 業務號碼, AA(99), 類別 As String
    Public BB(99), CC(99), 登入判斷 As Boolean
    '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 版本 As String = "2022121701"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 列印用SQL, 列印用SQL2, 公司編號, 公司電話, 公司統編, 公司地址, 關鍵字編號, 進度條後墜 As String
    '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 判斷重登, 內外網, 重登確認, 主頁開啟 As Boolean
    Public timeExit, timeExit2, timeNow, timeNow2, 分母, NN1 As Integer : Public 密碼時限 As Integer = 30
    '----全域字串變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public PPAA, 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 As String
    Public PA27, PA28, PA29, PA30, PA31, PA32, PA33, PA34, PA35, PA36 As String
    Public PPBB(3000) As String
    '----全域數字變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public NU1, NU2, NU3, NU4, NU5, 分段1, 分段2, 分段3, 分段4 As Double
    '----全域布林含數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public BL1, BL2, BL3, BL4, BL5, BL6 As Boolean
    '----介面開啟判斷-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 客戶資料強制對話框模式, 入庫選擇1, 入庫選擇2 As Boolean
    '----進度條計算式-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            YD_ERP_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module