mainform.dfm

来自「简单的C++小程序」· DFM 代码 · 共 97 行

object Form1: TForm1
  Left = 184
  Top = 122
  Width = 434
  Height = 277
  Caption = '图书管理系统'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 212
    Width = 426
    Height = 19
    Panels = <
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object MainMenu1: TMainMenu
    object mnuLog: TMenuItem
      Caption = '系统登录(&L)'
      object mnuLogin: TMenuItem
        Caption = '重新登录(&L)'
        OnClick = mnuLoginClick
      end
      object mnuChgPass: TMenuItem
        Caption = '管理员口令(&P)'
        OnClick = mnuChgPassClick
      end
      object mnuExit: TMenuItem
        Caption = '退出系统(&X)'
        OnClick = mnuExitClick
      end
    end
    object munSysManage: TMenuItem
      Caption = '系统管理(&M)'
      object mnuBookManage: TMenuItem
        Caption = '图书管理(&B)'
        OnClick = mnuBookManageClick
      end
      object mnu_sep1: TMenuItem
        Caption = '-'
      end
      object mnuReaderManage: TMenuItem
        Caption = '读者管理(&P)'
        OnClick = mnuReaderManageClick
      end
      object mnuReadClass: TMenuItem
        Caption = '读者类别(&C)'
        OnClick = mnuReadClassClick
      end
    end
    object mnuBookScans: TMenuItem
      Caption = '图书检索(&S)'
      object mnuBookScan: TMenuItem
        Caption = '图书检索(&S)'
        OnClick = mnuBookScanClick
      end
      object mnuLendStat: TMenuItem
        Caption = '借书统计(&L)'
        OnClick = mnuLendStatClick
      end
      object mnuReaderStat: TMenuItem
        Caption = '读者统计(&R)'
        OnClick = mnuReaderStatClick
      end
    end
    object mnuBookLend: TMenuItem
      Caption = '图书借阅(&B)'
      object mnuBookAll: TMenuItem
        Caption = '借书还书(&A)'
        OnClick = mnuBookAllClick
      end
    end
    object mnuAbout: TMenuItem
      Caption = '关于(&A)'
      OnClick = mnuAboutClick
    end
  end
  object Timer1: TTimer
    OnTimer = Timer1Timer
    Left = 32
  end
end