unit6.~dfm

以学生本班的成绩管理为应用、开发一个小小和成绩管理系统。设计了如下类： Person 、Student、Teacher、Credit。利用builder的可视化编程.

object Form6: TForm6
  Left = 637
  Top = 209
  Width = 833
  Height = 582
  Caption = #25104#32489#31649#29702
  Color = clMoneyGreen
  Font.Charset = ANSI_CHARSET
  Font.Color = clTeal
  Font.Height = -16
  Font.Name = #23435#20307
  Font.Style = [fsBold]
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 16
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 913
    Height = 153
    Caption = #25104#32489#31649#29702
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 48
      Width = 52
      Height = 16
      Caption = #23398'  '#21495
    end
    object Label4: TLabel
      Left = 224
      Top = 48
      Width = 26
      Height = 12
      Caption = #26597#30475
      Font.Charset = ANSI_CHARSET
      Font.Color = clTeal
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsBold]
      ParentFont = False
      OnClick = Label4Click
    end
    object Label5: TLabel
      Left = 320
      Top = 48
      Width = 61
      Height = 16
      Caption = #31185'   '#30446
    end
    object Label6: TLabel
      Left = 16
      Top = 112
      Width = 85
      Height = 16
      Caption = #35831#36755#20837#25104#32489
    end
    object Edit1: TEdit
      Left = 80
      Top = 40
      Width = 121
      Height = 24
      Color = clMoneyGreen
      TabOrder = 0
    end
    object GroupBox2: TGroupBox
      Left = 576
      Top = 8
      Width = 225
      Height = 145
      Caption = #21516#23398#20449#24687
      TabOrder = 1
      object Label2: TLabel
        Left = 15
        Top = 40
        Width = 34
        Height = 16
        Caption = #22995#21517
      end
      object Label3: TLabel
        Left = 16
        Top = 88
        Width = 34
        Height = 16
        Caption = #29677#32423
      end
      object Edit2: TEdit
        Left = 56
        Top = 32
        Width = 113
        Height = 24
        Color = clMoneyGreen
        ReadOnly = True
        TabOrder = 0
      end
      object Edit3: TEdit
        Left = 56
        Top = 80
        Width = 113
        Height = 24
        Color = clMoneyGreen
        ReadOnly = True
        TabOrder = 1
      end
    end
    object Edit5: TEdit
      Left = 112
      Top = 104
      Width = 137
      Height = 24
      Color = clMoneyGreen
      TabOrder = 2
    end
    object Button1: TButton
      Left = 288
      Top = 112
      Width = 75
      Height = 25
      Caption = #20445#23384#25104#32489
      TabOrder = 3
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 376
      Top = 112
      Width = 105
      Height = 25
      Caption = #26597#30475#25152#26377#25104#32489
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 504
      Top = 112
      Width = 49
      Height = 25
      Caption = #36864#20986
      TabOrder = 5
      OnClick = Button3Click
    end
    object ComboBox1: TComboBox
      Left = 408
      Top = 40
      Width = 145
      Height = 24
      Color = clMoneyGreen
      ItemHeight = 16
      TabOrder = 6
      Text = #39640#25968
      Items.Strings = (
        #39640#25968
        #33521#35821
        #35821#25991
        #29289#29702
        #21270#23398
        #19987#19994#35838
        #25919#27835
        #21382#21490
        #20307#32946)
    end
    object Button4: TButton
      Left = 192
      Top = 112
      Width = 75
      Height = 25
      Caption = #26597#30475#25104#32489
      TabOrder = 7
      Visible = False
      OnClick = Button4Click
    end
  end
  object Memo1: TMemo
    Left = 0
    Top = 160
    Width = 913
    Height = 562
    Align = alCustom
    Color = clScrollBar
    Lines.Strings = (
      '')
    TabOrder = 1
  end
end