cmainunit.~dfm

实例4学院信息管理系统 - RAR 档案文件

object MainForm: TMainForm
  Left = 466
  Top = 358
  Width = 327
  Height = 148
  Caption = 'MainForm'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenuMain
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenuMain: TMainMenu
    AutoHotkeys = maManual
    AutoLineReduction = maManual
    Left = 8
    Top = 8
    object XueYuan: TMenuItem
      Caption = '学员'
      object ZengJia: TMenuItem
        Action = S_Add
      end
      object XiuGai: TMenuItem
        Action = S_MD
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object KeCheng: TMenuItem
        Action = S_Course
      end
      object ChengJi: TMenuItem
        Action = S_Grade
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object TuiChu: TMenuItem
        Action = OnClose
      end
    end
    object XiTong: TMenuItem
      Action = SYS_Year
    end
  end
  object ActionListMain: TActionList
    Left = 64
    Top = 8
    object OnClose: TAction
      Caption = '退出'
      OnExecute = OnCloseExecute
    end
    object S_Add: TAction
      Caption = '增加'
      OnExecute = S_AddExecute
    end
    object S_MD: TAction
      Caption = '修改'
      OnExecute = S_MDExecute
    end
    object S_Course: TAction
      Caption = '课程'
      OnExecute = S_CourseExecute
    end
    object S_Grade: TAction
      Caption = '成绩'
      OnExecute = S_GradeExecute
    end
    object SYS_Year: TAction
      Caption = '系统'
      OnExecute = SYS_YearExecute
    end
  end
end