VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsDBConfig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
'數據庫配置，包括ConnectionString的幾個屬性 和 一個函數（返回了連接數據庫所需要的字符串）


Public Enum DBTypeEnum          '數據庫類型     枚舉類型        ACCESS or SQL
    access = 0
    SqlServer = 1
End Enum
Public Enum LoginTypeEnum       '登陸身份       枚舉類型        WINNT or SQL
    WinNT = 0
    Sql = 1
End Enum
'注意：聲明屬性變量都是私有的
Private strDBName As String                     '數據庫名稱
Private enumDBType As DBTypeEnum                '數據庫類型
Private strHostName As String                   '服務器名稱
Private strLoginName As String                  '登陸名
Private strLoginPwd As String                   '登陸密碼
Private enumLoginType As LoginTypeEnum          '登陸身份

Public Property Get DBName() As String
    DBName = strDBName
End Property

Public Property Let DBName(ByVal vNewValue As String)
    strDBName = vNewValue
End Property

Public Property Get DBType() As DBTypeEnum
    DBType = enumDBType
End Property

Public Property Let DBType(ByVal vNewValue As DBTypeEnum)
    enumDBType = vNewValue
End Property

Public Function GetConfigByFile()

End Function

Public Property Get HostName() As String
    HostName = strHostName
End Property

Public Property Let HostName(ByVal vNewValue As String)
    strHostName = vNewValue
End Property

Public Property Get LoginName() As String
    LoginName = strLoginName
End Property

Public Property Let LoginName(ByVal vNewValue As String)
    strLoginName = vNewValue
End Property

Public Property Get LoginPwd() As String
    LoginPwd = strLoginPwd
End Property

Public Property Let LoginPwd(ByVal vNewValue As String)
    strLoginPwd = vNewValue
End Property

Public Property Get LoginType() As LoginTypeEnum
    LoginType = enumLoginType
End Property

Public Property Let LoginType(ByVal vNewValue As LoginTypeEnum)
    enumLoginType = vNewValue
End Property
'注意：函數為public  此函數返回連接數據庫的connectionstring屬性，在連接數據庫的函數（ConToDB）中被調用
Public Function GetConnectionString(ByVal Pdbc As clsDBConfig) '參數Pdbc:數據庫的配置參數對象（這個參數是clsDBConfig類型的，包括所有配置的屬性）
    Dim strCon As String
    If Pdbc.DBType = access Then            '數據庫類型是ACCESS
         strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pdbc.DBName & ";Persist Security Info=False"   'DBName為什么沒有路徑
    Else                                    '數據庫類型是SQL
        If Pdbc.LoginType = WinNT Then      'WINNT身份登陸  不要密碼
            strCon = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" & Pdbc.DBName & ";Data Source=" & Pdbc.HostName
        Else                                'SQLserver身份登陸  需要登陸名和密碼
            strCon = "Provider=SQLOLEDB.1;Password=" & Pdbc.LoginPwd & ";Persist Security Info=True;User ID=" & Pdbc.LoginName & ";Initial Catalog=" & Pdbc.DBName & ";Data Source=" & Pdbc.HostName
        End If
    End If
    GetConnectionString = strCon    '函數返回值
End Function