Module 全域變數
    Public g_conn_type As String : Public gUserName As String : Public 版本號 As String :: Public 登入人IP As String : Public AA(99) As String
    Public Target1 As String : Public Target2 As String : Public FTP帳號 As String : Public FTP密碼 As String : Public FTP物理位置 As String
    Public 登入人SQL As String = "YS-ERP-SYS"
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0

    Friend Sub SQL_系統版本號驗證()
        ConnOpen() : SQL1 = "SELECT 系統認證版本號 FROM 版本號管理 " : CmdSet_For_dr()
    End Sub
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            SYS_UPDATE.ProgressBar1.Value = 最終數
        End Sub
    End Class
End Module