settings.vb

编程之道VB.NETt程序设计入门-589M.zip

Namespace Nozama.General

    Public Class Settings
        Private Shared CONNECT_STRING As String = "server=localhost; Initial Catalog=Nozama;User ID=sa;Password=sa"
        Private Shared SHOPPING_CART As String = "ShoppingCart"

        Public Shared ReadOnly Property ConnectionString() As String
            Get
                Return CONNECT_STRING
            End Get
        End Property

        Public Shared ReadOnly Property ShoppingCart() As String
            Get
                Return SHOPPING_CART
            End Get
        End Property
    End Class
End Namespace