PC-SYS-UPDATE-LEEHSIEHJUI/SYS-UPDATE/全域變數.vb

Module 全域變數
    Public g_conn_type As String : Public gUserName As String : Public 版本號 As String :: Public 登入人IP As String : Public AA(99) 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 登入人SQL As String = "YS-ERP-SYS"
    Friend Sub SQL_連線字串_ERP()
        If SYS_UPDATE.伺服器區域_cb.Text = "設計" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & 登入人SQL & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
        Else
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & 登入人SQL & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
        End If
    End Sub
    Public 平均數 As Integer : Public 最終數 As Integer = 0 : Public 資料數 As Integer = 0
    Public Class MyModule1
        Friend Shared Sub 進度條()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            SYS_UPDATE.ProgressBar1.Value = 最終數
        End Sub
    End Class
End Module