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

Module 全域變數
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public g_conn_type, gUserName, 登入人部門, 員工編號, Target, Target1, Target2, FTP帳號, FTP密碼, FTP實體位置, 登入人IP, AA(99), 版本號, SQL密碼 As String
    Public CC(99), 登入判斷 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 = "2024100101"
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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, PA49 As String
    Public 列印用SQL, 列印用SQL1, 列印用SQL2, 驗貨報告, 新流水號1, OD(45), 簽核圖片編號, 編號, WWD1, WWD2, WWD3, EDFR, AASS, SSDD, KKKJJ, KKKJJ2, KKKJJ3, WW, 進度條後墜, 圖片庫, DTP, 新項次,
           WWW, XXCC, DTP1, DTP2, DTP3, 新流水號4, DTP4, DTP5, 新流水號5, file_name, DDFF, ESTR, kkk1, kkk2, kkk3, kkk4, kkk5, kkk6, 條件變更, GGHH, PPAA, 系統語言, DTPs(6), PPBB(3000) As String
    Public 平均數, 最終數, 資料數, 分母, 圖庫限制, EDRW, NN1 As Integer
    Public 分段1, 分段2, 分段3, 分段4, KKOO As Double
    '----樣品系統用分類-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 樣品進度表分類1, 樣品進度表分類2, 樣品進度表分類3, 樣品進度表分類4, 樣品進度表分類5,樣品備註 As String
    '----清單修改-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 部門清單修改, 職稱清單修改, 客戶清單修改, 工廠清單修改, 顏色清單修改, 港口清單修改, 季節清單修改, 供應商清單修改, 國家清單修改, PURPOSE清單修改, 部件清單修改, 交貨條件修改,
           到港清單修改, 交貨管道修改, 模具用結構, 模具用材質, 行政物料, 訂單顏色修改, 楦頭編碼修改, 廠商類別修改 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