Attribute VB_Name = "Module2"
Option Explicit

Public PStrFlDLID       As String           '大類ID

Public PCnnHisDB        As ADODB.Connection '數據庫連接

Sub Main()
    Dim StrUserName     As String
    Dim StrDbName       As String
    Dim StrUserPwd      As String
    Dim StrServerName   As String
    Dim StrConDB        As String
    
    


    
    


    Set PCnnHisDB = New ADODB.Connection

    StrServerName = GetSetting("SqwszYpsfglXt", "ServerName", "ServerName")
    StrDbName = GetSetting("SqwszYpsfglXt", "DbName", "DbName")
    StrUserName = GetSetting("SqwszYpsfglXt", "UserName", "UserName")
    StrUserPwd = GetSetting("SqwszYpsfglXt", "UserPwd", "UserPwd")

    StrConDB = " Provider=SQLOLEDB.1;Persist Security Info =False;" _
            & " User ID=" + StrUserName + ";" _
            & " Pwd=" + StrUserPwd + ";" _
            & " Initial Catalog=" + StrDbName + ";" _
            & " Data Source=" + StrServerName + ""
    PCnnHisDB.Open StrConDB

                       

    Form1.Show
End Sub

Public Sub ProcCloseHisDB()
      PCnnHisDB.Close
      Set PCnnHisDB = Nothing
      MsgBox " 已經斷開了", vbExclamation, "提示信息"
End Sub