Attribute VB_Name = "modSQL"

' **********************************************************************
'  描  述：超市銷售系統源代碼
'  Play78.com : 網站導航，源碼之家，絕對開源
'  海闊天空收集整理
'  主站地址：http://www.play78.com/
'  源碼下載地址：http://www.play78.com/blog
'  圖片下在地址：http://www.play78.com/pic
'  QQ：13355575
'  e-mail:hglai@eyou.com
'  編寫日期：2005年08月14日
' **********************************************************************

Public strSQLServer As String   'SQL服務器地址
Public strSQLUser As String 'SQL用戶名
Public strSQLPW As String 'SQL密碼
Public strSQLDB As String 'SQL數據庫
Public cnMain As New ADODB.Connection   '主連接


'連接SQL服務器
Public Function sqlConnect(ByVal cnThis As ADODB.Connection, ByVal strServer As String, ByVal strUser As String, ByVal strPass As String, Optional ByVal strDataBase As String = "")
    Dim strSQL As String
    '生成連接字符串
    strSQL = "provider=sqloledb;server=" & strServer & ";user id=" & strUser & ";password=" & strPass
    If strDataBase <> "" Then strSQL = strSQL & ";database=" & strDataBase  '如果需要連接到數據庫
    cnThis.Open strSQL
End Function

'讀取SQL服務器配置信息
Public Sub readServer()
On Error GoTo aaaa
    Dim strTmp As String, strT() As String
    Open GetApp & "Files\sql.inf" For Input As #1
        If EOF(1) = False Then Line Input #1, strTmp
    Close #1
    strTmp = Trim(strTmp)
    If strTmp <> "" Then
        strT = Split(strTmp, "||")
        For i = 0 To 3
            strT(i) = strT(i)
        Next
        strSQLServer = strT(0)
        strSQLUser = strT(1)
        strSQLPW = strT(2)
        strSQLDB = strT(3)
    End If
Exit Sub
aaaa:
    strSQLServer = ""
    strSQLUser = ""
    strSQLPW = ""
    strSQLDB = ""
End Sub

'保存SQL服務器配置信息
Public Sub SaveServer(ByVal strServer As String, ByVal strUser As String, ByVal strPass As String, ByVal strDataBase)
On Error GoTo aaaa
    Open GetApp & "Files\sql.inf" For Output As #1
        Print #1, strServer & "||" & strUser & "||" & strPass & "||" & strDataBase
    Close #1
Exit Sub
aaaa:
    MsgBox "保存 SQL 服務器信息失敗！", vbCritical
End Sub