unitmain.dfm

教务管理系统

object frmMain: TfrmMain
  Left = 153
  Top = 164
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #25945#21153#36741#21161#31649#29702#31995#32479
  ClientHeight = 321
  ClientWidth = 567
  Color = clAppWorkSpace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 56
    Top = 104
    Width = 448
    Height = 58
    Caption = #25945#21153#36741#21161#31649#29702#31995#32479
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -56
    Font.Name = #21326#25991#24425#20113
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 144
    Top = 184
    Width = 246
    Height = 12
    Caption = 'Copyleft '#26446#23376#26126' '#24464#26230#26126' '#24352#26126#38686' '#36213#26187#36745' 2004'
    Font.Charset = GB2312_CHARSET
    Font.Color = clWhite
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object mnuMain: TMainMenu
    object N1: TMenuItem
      Caption = #25945#24072#20449#24687#31649#29702
      object N2: TMenuItem
        Caption = #24405#20837#25945#24072#20449#24687
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #25945#24072#20449#24687#31649#29702
        OnClick = N3Click
      end
    end
    object N7: TMenuItem
      Caption = #35838#31243#20449#24687#31649#29702
      object N8: TMenuItem
        Caption = #35838#31243#20449#24687#24405#20837
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #35838#31243#20449#24687#31649#29702
        OnClick = N9Click
      end
    end
    object N5: TMenuItem
      Caption = #25945#23460#31649#29702
      OnClick = N5Click
    end
    object N4: TMenuItem
      Caption = #23433#25490#35838#31243
      OnClick = N4Click
    end
    object SQL1: TMenuItem
      Caption = 'SQL'#26597#35810#32479#35745
      OnClick = SQL1Click
    end
    object N6: TMenuItem
      Caption = #22791#20221#25968#25454#24211
      OnClick = N6Click
    end
  end
  object sv: TSaveDialog
    FileName = 'EAAMS.mdb'
    Filter = #25968#25454#24211#25991#20214'|*.mdb'
    Title = #22791#20221#25968#25454#24211
    Left = 32
  end
end