module1.bas

简易员工管理系统,自己做的

Attribute VB_Name = "Module1"
'变量要求声明
Option Explicit

'Access数据库文件的名称
Public gFile As String

'数据库连接对象
Public gCon As New ADODB.Connection

'数据库集合对象
Public gRst As New ADODB.Recordset

'Excel程序对象
Public gX As Excel.Application
   '
   '打开数据库文件
Public Sub OpenDBFile()
   
   '打开错误处理陷阱
   
   Dim intErrFileNo As Integer  '自由文件号
   On Error GoTo ErrGoto
   '----------------------------------------------------
    gCon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gFile & ";Mode=ReadWrite;Persist Security Info=False"
   '----------------------------------------------------
   Exit Sub
   '-----------------------------
ErrGoto:
   '把错误信息保存在文件里
   intErrFileNo = FreeFile()
   Open "YFSystem.ini" For Append As intErrFileNo
   Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "OpenDBFile(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
   Close #intErrFileNo
End Sub

   '
   '关闭数据库连接
   '
Public Sub CloseDBFile()
   '打开错误处理陷阱
   Dim intErrFileNo As Integer  '自由文件号
   On Error GoTo ErrGoto
   '----------------------------------------------------
    gCon.Close
   '----------------------------------------------------
   Exit Sub
   '-----------------------------
ErrGoto:
   '把错误信息保存在文件里
   intErrFileNo = FreeFile()
   Open "YFSystem.ini" For Append As intErrFileNo
   Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "CloseDBFile(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
   Close #intErrFileNo
End Sub

'打开数据集
Public Sub OpenRS(SQL As String)
    '打开错误处理陷阱
    Dim intErrFileNo As Integer  '自由文件号
    On Error GoTo ErrGoto
    '----------------------------------------------------
    OpenDBFile
    gRst.Open SQL, gCon, adOpenStatic, adLockOptimistic
    
    '----------------------------------------------------
    Exit Sub
    '-----------------------------
ErrGoto:
    '把错误信息保存在文件里
    intErrFileNo = FreeFile()
    Open "YFSystem.ini" For Append As intErrFileNo
    Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "OpenRS(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
    Close #intErrFileNo
End Sub

'关闭打开的数据集合
Public Sub CloseRS()
    '打开错误处理陷阱
    Dim intErrFileNo As Integer  '自由文件号
    On Error GoTo ErrGoto
    '----------------------------------------------------
    gRst.Close
    CloseDBFile
    '----------------------------------------------------
    Exit Sub
    '-----------------------------
ErrGoto:
    '把错误信息保存在文件里
    intErrFileNo = FreeFile()
    Open "YFSystem.ini" For Append As intErrFileNo
    Print #intErrFileNo, Chr(34) + Format(Now, "YYYY-MM-DD HH:MM:SS") + Chr(34), Chr(34) + "信息" + Chr(34), Chr(34) + Err.Description + Chr(34), Chr(34) + "CloseRS(Module1)" + Chr(34), Chr(34) + App.Title + Chr(34)
    Close #intErrFileNo
End Sub