modsql.bas

超市销售管理系统 4) 文档里面有完整的需求说明书

Attribute VB_Name = "modSQL"
'超市销售系统
'程序开发：lc_mtt
'CSDN博客：http://blog.csdn.net/lc_mtt/
'个人主页：http://www.3lsoft.com
'邮箱：[e-mail]
'注：此代码禁止用于商业用途。有修改者发我一份，谢谢！
'---------------- 开源世界，你我更进步 ----------------
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