?? 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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -