global.vb

--- -----串口程序处理程序

Imports System
Imports System.Data
Imports System.Data.SqlClient

Public Class sqlClass
    'Global静态类存放所有的应用程序全局变量,全局配置信息等.
    Public Sub New()

    End Sub
    '登陆数据库用
    Private Shared _varServer As String
    Private Shared _varDatabase As String
    Private Shared _varUserID As String
    Private Shared _varPWS As String
    '连接字符串
    Private Shared _varConnectionString As String
    '全局用户名与密码
    Private Shared _varPublicUser As String
    Private Shared _varPassword As String

    Private Shared _objConn As SqlConnection

    '属性
    Public Shared ReadOnly Property varServer() As String
        Get
            Return _varServer
        End Get
    End Property
    Public Shared ReadOnly Property varDatabase() As String
        Get
            Return _varDatabase
        End Get
    End Property
    Public Shared ReadOnly Property varUserID() As String
        Get
            Return _varUserID
        End Get
    End Property
    Public Shared ReadOnly Property varPWS() As String
        Get
            Return _varPWS
        End Get
    End Property
    Public Shared ReadOnly Property varConnectionString() As String
        Get
            Return _varConnectionString
        End Get
    End Property
    Public Shared Property varPublicUser() As String
        Get
            Return _varPublicUser
        End Get
        Set(ByVal Value As String)
            _varPublicUser = Value
        End Set
    End Property
    Public Shared Property varPassword() As String
        Get
            Return _varPassword
        End Get
        Set(ByVal Value As String)
            _varPassword = Value
        End Set
    End Property
    Public Shared ReadOnly Property objConn() As SqlConnection
        Get
            Return _objConn
        End Get
    End Property

    '公共方法
    Public Shared Function SetConnection(ByVal server As String, ByVal database As String, ByVal userid As String, ByVal pws As String) As Boolean

        If server = "" Or database = "" Or userid = "" Then Return False
        _varServer = server
        _varDatabase = database
        _varUserID = userid
        _varPWS = pws

        _varConnectionString = "packet size=4096;user id=" & _varUserID & ";password=" + _varPWS & ";data source=" & _varServer & ";persist security info=False;initial catalog=" & _varDatabase

        If Not (_objConn Is Nothing) Then
            _objConn.ConnectionString = _varConnectionString
        Else
            _objConn = New SqlConnection
            _objConn.ConnectionString = _varConnectionString
        End If

        Return True
    End Function

End Class