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 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 登入人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 String = "2021101301"
    '----系統閒置-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    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 列印用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 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 Class MyMoule
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
        End Sub
    End Class
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            GCM_ERP_SYS.ToolStripProgressBar1.Value = 最終數
        End Sub
    End Class
End Module