primary.bas

医院糖尿病管理系统．是客户机服务器架构的

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