Attribute VB_Name = "modSQL"

' **********************************************************************
'  描  述：超市銷售系統(tǒng)源代碼
'  Play78.com : 網(wǎng)站導(dǎo)航，源碼之家，絕對(duì)開(kāi)源
'  海闊天空收集整理
'  主站地址：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服務(wù)器地址
Public strSQLUser As String 'SQL用戶名
Public strSQLPW As String 'SQL密碼
Public strSQLDB As String 'SQL數(shù)據(jù)庫(kù)
Public cnMain As New ADODB.Connection   '主連接


'連接SQL服務(wù)器
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  '如果需要連接到數(shù)據(jù)庫(kù)
    cnThis.Open strSQL
End Function

'讀取SQL服務(wù)器配置信息
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服務(wù)器配置信息
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 服務(wù)器信息失敗！", vbCritical
End Sub