GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/00-MyModule/全域變數.vb

Module Module1
    '----系統登入-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public g_conn_type As String : Public gUserName As String : Public 版本號 As String : Public 登入判斷 As Boolean
    Public 員工編號 As String : Public 登入人部門 As String
    Public 登入人課別, 登入人組別, 登入人級別, 電腦識別碼 As String
    Public 倉儲倉級1, 倉儲倉級2, 倉儲倉級3, 倉儲倉級4, 倉儲倉級5, 倉儲倉級6, 倉儲倉級7, 倉儲倉級8, 倉儲倉級9, 簽核圖片編號, 系統語言, 介面, 低網, 圖片庫, 計算機調 As String
    Public AA(99) As String : Public BB(99) As Boolean : Public CC(99) As Boolean
    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 登入權限AQL 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"
    Public 零用金選擇, 低網速模式 As Boolean
    Public 行政採購簽核級別基數, 建築採購簽核級別基數, 工程圖庫限制 As Integer
    '----系統版本-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 版本 As String = "2024021901"
    '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 判斷重登 As Boolean : Public 內外網 As Boolean : Public 重登確認 As Boolean : Public 主頁開啟 As Boolean
    Public timeExit As Integer = 0 : Public timeExit2 As Integer = 0 : Public timeNow As Integer = 0 : Public timeNow2 As Integer = 0 : Public 密碼時限 As Integer = 30
    '----系統用全域變數-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public MSG As MsgBoxResult
    Public DTPS(5) As String
    Public TEXT1 As String : Public ER As String
    Public 圖片傳遞 As Image
    Public 列印用SQL1 As String = ""
    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 進度條後墜, 工程日報控制, 工程日報明細, 清單列表, 幣別 As String
    Public NU1 As Integer

    Public Do1 As Double : Public Do2 As Double : Public Do3 As Double
    Public 列印(99) As Boolean : Public BL1 As Boolean

    Public SUM1 As Double : Public SUM2 As Double : Public SUM3 As Double
    Public N1 As Double : Public N2 As Double : Public N3 As Double : Public N4 As Double : Public N5 As Double : Public N6 As Double : Public N8 As Double : Public N9 As Double
    Public N10 As Double : Public N11 As Double : Public N12 As Double : Public N13 As Double
    Public N15 As Double : Public N16 As Double : Public N17 As Double : Public N18 As Double : Public N19 As Double : Public N20 As Double
    Public N21 As Double : Public N22 As Double : Public N23 As Double : Public N24 As Double
    Public R1 As Double : Public R2 As Double : Public R3 As Double : Public R4 As Double : Public R5 As Double : Public R6 As Double : Public R8 As Double : Public R9 As Double
    Public R10 As Double : Public R11 As Double : Public R12 As Double : Public R13 As Double
    Public R15 As Double : Public R16 As Double : Public R17 As Double : Public R18 As Double : Public R19 As Double : Public R20 As Double
    Public R21 As Double : Public R22 As Double : Public R23 As Double : Public R24 As Double

    Public 科目清單 As String() = {"-請選擇-", "A-ROBOT型號", "B-第六軸前端設備", "C-上下料設備", "D-週邊設備", "E-電控硬體規劃", "F-選配仕樣", "G-系統整合",
                                   "H-加工程式編程", "I-磨砂拋光硬體", "J-輔助去毛邊系統", "Z-結構整合零件", "其他", "機台組合"}

    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    '--------------布林函數
    Public 系統分區控制, BL, BL2, BL3, BL4, BL5, BL6, BL7, BL8, BL9, H(999), 一級, 二級, 三級, 四級, TW, EN As Boolean
    '--------------字串變數
    Public BBL1, BBL2, BBL3, BBL4, BBL5, BBL6 As String
    Public PA15, PA16, PA17, PA18, PA19, PA20, PA21, PA22, PA23, PA24, PA25, PA26, PA27, PA28, PA29 As String
    Public PA30, PA31, PA32, PA33, PA34, PA35, PA36, PA37, PA38, PA39, PA40, PA41, PA42, PA43, PA44, PA45, PA46, PA47, PA48, PA49, 列印用SQL, 列印用SQL2, PPAA, 翻譯, 翻譯CH As String
    Public 翻譯EN, 翻譯IN As String
    Public PPBB(3000) As String
    '--------------物料格式表頭專用
    Public AAA1, AAA2, AAA3, AAA4, AAA5, AAA6, AAA7, AAA8 As String
    '----表頭宣告-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Public 表頭(200), 合約試算表頭(40) As String
    Public Class MyMoule
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
        End Sub
    End Class
    '--------------整數變數
    Public 比例1, 比例2, 比例3, 分母, NN1, 計算累加 As Integer
    '--------------雙精變數
    Public 分段1, 分段2, 分段3, 分段4, NU2, NU3, NU4, NU5 As Double
End Module