dbaddress.vb

This program is designed for a menu ordering system under pocket pc platform .

Module DBAddress

#Region "***SQL Server 2005 ***"

    '***SQL Server 2005 ***
    Public Const DbType As String = "SQL Server 2005"  '預設使用資料庫
    Public Const DbName As String = "test"  '使用資料庫名稱
    Public Const SQLUserID As String = "sa"  'SQL Server使用者ID
    Public Const SQLUserPwd As String = "123456"  'SQL Server使用者密碼
    Public Const DBServer As String = "none-6dcb84198"  '資料庫伺服器名稱 也是 電腦名稱
    Public Const WorkStationID As String = "dorm-c603b6bd33"  '電腦名稱
    Public Const ServerIP As String = "localhost"  '設定IP
    Public Const ServerDNS As String = "localhost"  '領域伺服器名稱
    Public Const DataSource As String = ".\\SQLEXPRESS"

#End Region

    Dim strAssmPath As String = System.Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase
    Dim GlobalAppPath As String = strAssmPath.Substring(0, strAssmPath.LastIndexOf("\") + 1)

    Dim AppPath As String = System.IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().GetName().CodeBase.ToString()) & "\"

#Region "***資料庫連線設定"

    Dim ConnString As String

    '設定全域連線字串for SQL Server

    Public Function SQLConnectionString() As String

        ConnString = "data Source=" + ServerIP + ";initial catalog=" + DbName + ";user id=" + SQLUserID + ";password=" + SQLUserPwd

        Return ConnString

    End Function

#End Region

End Module