TENDEN-MES-SYS-LEEHSIEHJUI/TENDEN-MES-SYS/Module/全域變數.vb

Module 全域變數
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public g_conn_type As String = "" : 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 登入人IP As String
    Public CC(99) As Boolean : Public AA(99) As String : Public 登入判斷 As Boolean
    '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 版本 As String = "2022011401"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 匯率 As Double

    Public 開發部門 As Boolean = False : Public 確認部門 As Boolean = False : Public frmOpenFlag As Boolean = False : Public 匯入列表開啟 As Boolean : Public 力威匯入列表 As Boolean
    Public 財務列印(3) As Boolean : Public 修改清單(16) As Boolean : Public 中文樣品單開啟修改 As Boolean : Public 量產樣品匯入列表開啟 As Boolean

    Public PA As String = "" : Public PA1 As String = "" : Public PA2 As String = "" : Public PA3 As String = "" : Public PA4 As String = "" : Public PA5 As String = ""
    Public PA6 As String = "" : Public PA7 As String = "" : Public PA8 As String = "" : Public PA9 As String = "" : Public PA10 As String = "" : Public PA11 As String = ""
    Public PA12 As String = "" : Public PA13 As String = "" : Public PA14 As String = "" : Public PA15 As String = "" : Public PA16 As String = "" : Public PA17 As String = ""
    Public PA18 As String = "" : Public PA19 As String = "" : Public PA20 As String = "" : Public PA21 As String = "" : Public PA22 As String = "" : Public PA23 As String = ""
    Public PA24 As String = "" : Public PA25 As String = "" : Public PA26 As String = "" : Public PA27 As String = "" : Public PA28 As String = "" : Public PA29 As String = ""
    Public PA30 As String = ""
    Public QA As String = "" : Public PP1 As String = "" : Public PP2 As String = "" : Public PP3 As String = ""
    Public 訂單資料表(10) As String : Public OD(42) As String : Public 列印用SQL As String = "" : Public 驗貨報告 As String = "" : Public 訂單紀錄流水號 As String
    Public PB(60) As String : Public BL(1) As Boolean : Public DN(3) As Double
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            TENDEN_MES_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module