module1.bas

本人用VB 6.0和ACCESS编写的图书管理系统

Attribute VB_Name = "Module1"
Option Explicit
'以下两行为Office助手变量
Public OFFCAT As IAgentCtlCharacter
Public OFFCATRequest As IAgentCtlRequest
Global Const PurviewCount = 13          '全局常量权限总数
'声明全局变量(编号,人员代号,人员名,姓名,密码,当前人员的相对位置)
Global OperatorNum As Integer, OperatorPersonNum As Integer, _
       OperatorPersonName As String, OperatorName As String, _
       OperatorPassword As String * 20, OperatorIndex As Integer
'Public fMainForm As frmMDI
Public BookState As Integer             '图书状态标志
Public ReaderState As Integer           '读者状态标志
Public BRState As Integer               '借还书状态标志

Sub Main()
    frmSplash.Show vbModal              '显示启动屏幕
    frmSplash.Refresh

    Dim fLogin As New frmLogin
    fLogin.Show vbModal
    If Not fLogin.LoginSucceeded Then
        '登录失败，退出应用程序
        End
    End If
    Unload fLogin
        
'    Set fMainForm = New frmMDI    '显示主窗体
'    Load fMainForm
'    fMainForm.Show
    Load frmMDI
    frmMDI.Show
End Sub