Module SQL_連線字串
    Friend Sub SQL_連線字串_正式()
        Dim catalogName As String = "GF" & 資料庫編號 & "-ERP-SYS"
        If Strings.Left(登入人IP, 3) = "106" Then
            ConString = "Data Source=" & 登入人IP & ";Initial Catalog=GF00-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;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_連線字串_管理SQL()
        ConString1 = "Data Source=" & 登入人IP & ";Initial Catalog=GCM-IP-DATE02;Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200; Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_版本SQL()
        Dim catalogName As String = PA50
        ConString4 = "Data Source=" & 登入人IP & ";Initial Catalog=" & catalogName & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_圖片資料庫()
        ConString2 = "Data Source=" & 登入人IP & ";Initial Catalog=" & 圖片庫 & ";Persist Security Info=True;User ID=b70340;Password=Lee0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_本機()
        Dim Str As String = Application.StartupPath
        AccessConString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Str & "/HabitData.mdb;Jet OLEDB:Database Password=Qaz!@#123;Persist Security Info=False;User ID=Admin"
    End Sub
End Module