GF00-ERP-SYS-UPDATE-LEEHSIEHJUI/GF00-ERP-UPDATE/全域變數.vb

Module 全域變數
    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 資料庫編號 As Integer = 0
    Friend Sub SQL_連線字串_測試()
        Dim catalogName As String = "GF" & 資料庫編號.ToString("00") & "-ERP-SYS"
        If Strings.Left(登入人IP, 3) = "106" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
        ElseIf Strings.Left(登入人IP, 3) = "180" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
        Else
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
        End If
    End Sub
    Friend Sub SQL_連線字串_正式()
        Dim catalogName As String = "GF" & 資料庫編號.ToString("00") & "-ERP-SYS"
        If Strings.Left(登入人IP, 3) = "106" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"

        ElseIf Strings.Left(登入人IP, 3) = "180" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
        Else
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";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 Mods
        Friend Shared Sub 進度()
            平均數 = 10000 / 資料數
            最終數 += 平均數
            If 最終數 > 10000 Then : 最終數 = 10000 : End If
            HX_PGS_UPDATE.ProgressBar1.Value = 最終數
        End Sub
    End Class
End Module