module1.bas

客户关系管理系统(打包+源程序)是数据库系统开发项目方案精解系列丛书VB数据库管理中附带CD中的程序

Attribute VB_Name = "Module1"
Option Explicit
    Public CnnDatabase As New ADODB.Connection  '设置ADODB连接对象的公共变量
    Public strNowUser As String                 '记录当前登录的用户名
    Public flagAddSupplier As Boolean           '判断是否为建立新的供应商信息：True=新建；False=修改
    Public flagAddCustomer As Boolean           '判断是否为建立新的客户信息：True=建立；False=修改
    Public strSuppID As String                   '要修改的供应商代码
    Public strCustID As String                   '要修改的客户代码
    
Public Function ConnectDB() As Boolean  '打开数据库的公共函数
On Error GoTo ErrorHandle               '出现任何错误将执行errorhandle进行错误处理
    Dim e As ADODB.Error
    
    ConnectDB = True                    'ConnectDB为真时表示打开数据库无误
    CnnDatabase.Errors.Clear
    CnnDatabase.CommandTimeout = 60     '执行SQL命令的缺省等待时间
    CnnDatabase.ConnectionTimeout = 60  '连接数据库的缺省时间
    CnnDatabase.ConnectionString = "driver={microsoft access driver (*.mdb)}; dbq=" _
        & App.Path & "\database\suppandcust.mdb"
    CnnDatabase.Open                    '打开数据库
    Exit Function
    
ErrorHandle:
    If CnnDatabase.Errors.Count < 1 Then
        MsgBox Err.Description, vbOKOnly + vbExclamation '显示错误描述
    Else
        For Each e In CnnDatabase.Errors
            MsgBox e.Description        '显示错误描述
        Next e
    End If
    ConnectDB = False                   'ConnectDB为假(False)时表示打开数据库有误
    Set CnnDatabase = Nothing           '关闭错误的数据库
    Exit Function
End Function

Public Function MSFBackColor(msf As MSFlexGrid, i As Integer)   '设置MSFlexGrid控件的颜色效果
    Dim coli As Integer
    With msf
           .Row = i
            For coli = 0 To Int((.Cols - 1) / 2)
                .Col = 2 * coli
                .CellBackColor = &HC0FFFF
            Next
    End With
End Function