man.bas

员工信息管理系统

Attribute VB_Name = "Module1"
Option Explicit

Public dbConn As New ADODB.Connection
Public loginUser As String
Public loginOK As Boolean
Public cmdType As String
Public tUser_id As String
Public tDept_id As Integer
Public tEmp_id As Integer
Public tCheck_ym As String
Public tQx As String

Sub Main()
    If ConnectToDatabase = False Then
        MsgBox "连接数据库出错！"
        End
    End If
    

    
    loginOK = False
    cmdType = ""

    frmLogin.Show vbModal
    Unload frmLogin

    If loginOK Then
        MDIForm1.Show
    End If
End Sub

'连接到数据库
Function ConnectToDatabase() As Boolean
    On Error GoTo ERR_CONN
  
    '设置服务器名称，数据库名称，登录名（此时假设密码为空）
   dbConn.ConnectionString = "dsn=rsgl;Database=man;uid=sa;pwd="
   'dbConn.ConnectionString = "Provider=msdasql;Database=man;server=computer;uid=sa;pwd="
    dbConn.Open
  
    ConnectToDatabase = True
    Exit Function

ERR_CONN:
    ConnectToDatabase = False
End Function