mdlmain.bas

来自「基于Visual Basic 6.0 与Access 2003的学籍管理系统,可」· BAS 代码 · 共 27 行

Attribute VB_Name = "mdlMain"
Option Explicit

Public ConnString$, UserName$, UserID$

Sub Main()

    ConnString = "DRIVER = Microsoft Access Driver(*.mdb);DBQ=" & App.Path & "\StudentMIS.mdb"

   frmLogin.Show vbModal
   
   If frmLogin.LoginSucceded Then
   
   frmMain.Show
   
   Unload frmLogin
   
    Else
    
    MsgBox "你无权使用本系统！", , "登录失败"
    
    End
    
    End If

End Sub