Module SQL_連線字串
    Friend Sub SQL_連線字串_ERP()
        ConString = "Data Source=" & 登入人IP & ";Initial Catalog=我的資料庫;Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_考勤()
        ConString1 = "Data Source=180.177.181.162,5264;Initial Catalog=GCM_AM_SYS;Persist Security Info=True;User ID=B70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
    Friend Sub SQL_連線字串_倉儲系統()
        ConString2 = "Data Source=180.177.181.162,5264;Initial Catalog=GCM-ERP-SYS;Persist Security Info=True;User ID=b70340;Password=0911274990;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
    Friend Sub SQL_連線字串_圖片資料庫()
        ConString3 = "Data Source=" & 登入人IP & ";Initial Catalog=" & 圖片庫 & ";Persist Security Info=True;User ID=b70340;Password=0911274990;Max pool size = 200;Connection Timeout=0"
    End Sub
End Module