module1.bas

一个使用vb编写的人事管理系统

Attribute VB_Name = "Module1"
Option Explicit

   Public DB As Connection
   Public ADORst As Recordset
Sub main()
    '==================================================
    '主程序：其主要功能为
    '设置与数据库的连接，返回包含表中所有记录的记录集；
    '设置启动窗体
    '==================================================
    
    Dim DBSTR As String
        
    '获取应用程序安装路径
    DBSTR = App.Path
    If Right(App.Path, 1) <> "\" Then DBSTR = App.Path & "\"
    DBSTR = DBSTR & "rsgl.mdb"
 
 'DBSTR = "E:\BOOK\VB举一反三\本书内容\人事管理信息系统\RSGL.mdb"
    '设置连接，设置DataGrid1的DataSource属性
    Set DB = New ADODB.Connection
    DB.Open "provider=Microsoft.Jet.OLEDB.3.51;" _
         & "Data Source=" & DBSTR
    
    Set ADORst = New ADODB.Recordset
    ADORst.Open "select * from EMP", DB, adOpenStatic, adLockOptimistic

    Splash.Show
End Sub