WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/MyModule/全域變數.vb

Module 全域變數
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public g_conn_type As String = "" : Public gUserName As String : Public 登入人部門 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 登入人IP As String
    Public CC(99) As Boolean : Public AA(99) As String : Public 版本號 As String ': Public BB(99) As Boolean :  
    Public 登入判斷 As Boolean
    Public 登入權限 As String = "姓名, 帳號, 密碼, 部門, 職稱, CC00, CC01, CC02, CC03, CC04, CC05, CC06, CC07, CC08, CC09, CC10, CC11, CC12, CC13, CC14, CC15, CC16, CC17, CC18, CC19, CC20, CC21, CC22, 
                                 CC23, CC24, CC25, CC26, CC27, CC28, CC29, CC30, CC31, CC32, CC33, CC34, CC35, CC36, CC37, CC38, CC39, CC40, CC41, CC42, CC43, CC44, CC45, CC46, CC47, CC48, CC49, CC50, 
                                 CC51, CC52, CC53, CC54, CC55, CC56, CC57, CC58, CC59, CC60, CC61, CC62, CC63, CC64, CC65, CC66, CC67, CC68, CC69, CC70, CC71, CC72, CC73, CC74, CC75, CC76, CC77, CC78, 
                                 CC79, CC80, CC81, CC82, CC83, CC84, CC85, CC86, CC87, CC88, CC89, CC90, CC91, CC92, CC93, CC94, CC95 FROM"
    '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 版本 As String = "2021040501"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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 列印用SQL As String = "" : Public 列印用SQL1 As String = "" : Public 列印用SQL2 As String = "" : Public 驗貨報告 As String
    Public OD(45) As String : Public 簽核圖片編號 As String = ""
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public KKKJJ As String : Public KKKJJ2 As String : Public KKKJJ3 As String
    '----樣品系統用分類-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 樣品進度表分類1 As String : Public 樣品進度表分類2 As String : Public 樣品進度表分類3 As String : Public 樣品進度表分類4 As String : Public 樣品進度表分類5 As String
    Public 樣品備註 As String
    '----清單修改-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 部門清單修改 As Boolean : Public 職稱清單修改 As Boolean : Public 客戶清單修改 As Boolean : Public 工廠清單修改 As Boolean : Public 顏色清單修改 As Boolean : Public 港口清單修改 As Boolean
    Public 季節清單修改 As Boolean : Public 供應商清單修改 As Boolean : Public 國家清單修改 As Boolean : Public PURPOSE清單修改 As Boolean : Public 部件清單修改 As Boolean : Public 交貨條件修改 As Boolean
    Public 到港清單修改 As Boolean : Public 交貨管道修改 As Boolean : Public 模具用結構 As Boolean : Public 模具用材質 As Boolean : Public 行政物料 As Boolean : Public 訂單顏色修改 As Boolean
    Public 楦頭編碼修改 As Boolean : Public 廠商類別修改 As Boolean
    '----清單修改2----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public INVOICE用客戶資料 As Boolean
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            WINPROFIT_ERP_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module