formstart.frm

图书管理系统。本图书管理系统具有查询

VERSION 5.00
Begin VB.Form Formstart 
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   1515
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   3105
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "Formstart.frx":0000
   ScaleHeight     =   1515
   ScaleWidth      =   3105
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Frame Frame1 
      Height          =   855
      Left            =   135
      TabIndex        =   0
      Top             =   120
      Width           =   2820
      Begin VB.Timer Timer1 
         Interval        =   1500
         Left            =   1980
         Top             =   465
      End
      Begin VB.Image Image1 
         Height          =   390
         Left            =   210
         Picture         =   "Formstart.frx":F404
         Top             =   300
         Width           =   2415
      End
   End
   Begin VB.Label Label1 
      Caption         =   "正在启动"
      Height          =   210
      Left            =   1200
      TabIndex        =   1
      Top             =   1140
      Width           =   720
   End
End
Attribute VB_Name = "Formstart"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'************************启动窗体********************
'所调用的API函数,自定义过程,类型,常数请参阅相应模块




Option Explicit
Dim iflogin As Long
Private Sub Form_Load()
iflogin = getininum("option", "ifpassword")    '读取系统配置
End Sub

Private Sub Timer1_Timer()    '根据系统配置选项决定是否显示登陆窗体
If iflogin = 0 Then
Formmain.Show
Unload Me
Else
formLogin.Show
Unload Me
End If
End Sub