frmflash.frm

学生学籍管理系统是一个教育单位不可缺少的部分,它的内容对于学校的决策者和管理者来说都至关重要,所以学生学籍管理系统应该能够为用户提供充足的信息和快捷的查询手段。但一直以来人们使用传统人工的方式管理文件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmflash 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "请稍候，正在进入系统……"
   ClientHeight    =   855
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   3330
   Icon            =   "frmflash.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   855
   ScaleWidth      =   3330
   StartUpPosition =   1  '所有者中心
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   30
      Left            =   960
      Top             =   960
   End
   Begin MSComctlLib.ProgressBar ProgressBar 
      Height          =   315
      Left            =   0
      TabIndex        =   0
      Top             =   480
      Width           =   3375
      _ExtentX        =   5953
      _ExtentY        =   556
      _Version        =   393216
      Appearance      =   0
      Max             =   15
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "请稍候，正在进入系统……"
      Height          =   180
      Left            =   600
      TabIndex        =   1
      Top             =   120
      Width           =   2160
   End
End
Attribute VB_Name = "frmflash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Unload(Cancel As Integer)
    Frmmain.Show
End Sub


Private Sub Form_Activate()
    Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
    If ProgressBar.Value < ProgressBar.Max Then
        ProgressBar.Value = ProgressBar.Value + 1
    Else
        ProgressBar.Value = ProgressBar.Max
       Unload Me
    End If
End Sub