main.bas

来自「vb数据库编程资料」· BAS 代码 · 共 18 行

Attribute VB_Name = "mdlMain"
Option Explicit

Public ConnString$, UserName$, UserID$

Sub Main()
  ConnString = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & App.Path & "\CourseMIS.mdb"
  frmLogin.Show vbModal
  If frmLogin.LoginSucceeded Then
    frmMain.Show
    Unload frmLogin
  Else
    MsgBox "无权登录本系统", , "登录"
    End
  End If
End Sub