unit9.dfm

以前在某高校做外聘教师时做的学生学籍管理系统(delphi+access)。献丑献丑

object BakupDataBase: TBakupDataBase
  Left = 171
  Top = 143
  Cursor = crAppStart
  BorderStyle = bsDialog
  Caption = #25968#25454#24211#22791#20221
  ClientHeight = 130
  ClientWidth = 501
  Color = 15968672
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = True
  Position = poMainFormCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnMouseMove = FormMouseMove
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 152
    Top = 80
    Width = 140
    Height = 19
    Caption = #27491#22312#22791#20221#25968#25454#24211
    Font.Charset = ANSI_CHARSET
    Font.Color = clLime
    Font.Height = -19
    Font.Name = #23435#20307
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ProgressBar1: TProgressBar
    Left = 48
    Top = 33
    Width = 425
    Height = 25
    Smooth = True
    TabOrder = 0
  end
  object Timer1: TTimer
    Interval = 10
    OnTimer = Timer1Timer
    Left = 16
    Top = 16
  end
end