unitmain.dfm

来自「一套宾馆管理系统」· DFM 代码 · 共 116 行

object frmMain: TfrmMain
  Left = 232
  Top = 200
  Width = 696
  Height = 480
  Caption = 'frmMain'
  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
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar: TStatusBar
    Left = 0
    Top = 409
    Width = 688
    Height = 25
    Panels = <
      item
        Width = 100
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object MainMenu1: TMainMenu
    Images = menuImages
    Left = 72
    Top = 144
    object R1: TMenuItem
      Caption = #27880#38144#29992#25143'(&R)'
    end
    object N1: TMenuItem
      Caption = #30331#24405#20449#24687'(&W)'
      object N5: TMenuItem
        Caption = #30331#35760#39038#23458#20449#24687
        OnClick = N5Click
      end
    end
    object Q1: TMenuItem
      Caption = #32508#21512#26597#35810'(&Q)'
      object N3: TMenuItem
        Caption = #25151#38388#26597#35810
        OnClick = N3Click
      end
      object N7: TMenuItem
        Caption = #20303#23487#35760#24405#26597#35810
      end
    end
    object S1: TMenuItem
      Caption = #31995#32479#35774#32622'(&S)'
      object N2: TMenuItem
        Caption = #25151#38388#35774#32622
        ShortCut = 16467
        OnClick = N2Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #22791#20221#25991#20214#36335#24452#35774#32622
        OnClick = N8Click
      end
      object sparactor1: TMenuItem
        Caption = #25968#25454#22791#20221
        OnClick = sparactor1Click
      end
      object N6: TMenuItem
        Caption = #25968#25454#24674#22797
        OnClick = N6Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #25968#25454#24211#36830#25509#37197#32622
        OnClick = N9Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object N4: TMenuItem
        Caption = #29992#25143#31649#29702
        OnClick = N4Click
      end
      object N10: TMenuItem
        Caption = #35282#33394#35774#32622
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #26435#38480#35774#32622
        OnClick = N11Click
      end
    end
    object X1: TMenuItem
      Caption = #36864#20986#31995#32479'(&X)'
      OnClick = X1Click
    end
  end
  object menuImages: TImageList
    Left = 168
    Top = 160
  end
end