module1.bas

企业事务管理系统(程序+打包)是《数据库系统开发项目方案精解系列丛书VB数据库管理》附带CD中的程序。

Attribute VB_Name = "Module1"
Option Explicit
    Public CnnDataBase As New ADODB.Connection  '设置ADODB连接对象的公共变量
    Public BLduty As Integer                    '判断“值班”记录新增还是修改的标志
    Public BLsstabClick As Boolean              '判断SSTab控件的Click是否自己按下的
    
Public Function ConnectDB() As Boolean          '打开数据库的公共函数
On Error GoTo ErrorHandle   '出现任何错误将执行ErrorHandle进行错误处理
    ConnectDB = True                            '为真表示打开数据库无误
    CnnDataBase.Errors.Clear
    CnnDataBase.CommandTimeout = 60             '执行SQL命令的缺省等待时间
    CnnDataBase.ConnectionTimeout = 60          '连接数据库的缺省时间
    CnnDataBase.ConnectionString = _
        "driver={microsoft access driver (*.mdb)}; dbq=" _
        & App.Path & "\Affair.mdb"
    CnnDataBase.Open                            '打开数据库连接
    Exit Function
ErrorHandle:
    MsgBox Err.Description, vbOKOnly + vbExclamation '显示错误描述
    ConnectDB = False '为假表示打开数据库有误
    Set CnnDataBase = Nothing '关闭错误的数据库
End Function

Public Function ChangeNUll(var) As String
    If IsNull(var) = True Then                  '如果传入var值为Null
        ChangeNUll = ""                         '返回值是空
        Exit Function
    End If
    ChangeNUll = CStr(var)                      '其他值返回字符串型
End Function