main.~dfm

来自「delphi制作的图书管理系统」· ~DFM 代码 · 共 109 行

object MainForm: TMainForm
  Left = -106
  Top = 166
  Width = 812
  Height = 563
  Caption = #21830#24215#22270#20070#38144#21806#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OldCreateOrder = False
  WindowState = wsMaximized
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object MainStatusBar: TStatusBar
    Left = 0
    Top = 498
    Width = 804
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object Main_Panel: TPanel
    Left = 0
    Top = 25
    Width = 804
    Height = 473
    Align = alClient
    BevelInner = bvLowered
    BevelOuter = bvNone
    Color = clCream
    DockSite = True
    TabOrder = 1
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 804
    Height = 25
    Caption = 'ToolBar1'
    TabOrder = 2
  end
  object MainMenu: TMainMenu
    Left = 382
    Top = 282
    object Menu_purchase: TMenuItem
      Caption = #36827#20070#31649#29702'[&P]'
      object PurchaseBook_Sub: TMenuItem
        Caption = #36827#20070
        OnClick = PurchaseBook_SubClick
      end
    end
    object Menu_Sales: TMenuItem
      Caption = #38144#20070#31649#29702'[&S]'
      object Saleing_Sub: TMenuItem
        Caption = #20986#38144
        OnClick = Saleing_SubClick
      end
    end
    object Menu_Account: TMenuItem
      Caption = #32479#35745#19982#20998#26512'[&A]'
      object Sub_BookAccount: TMenuItem
        Caption = #24211#23384#22270#20070#32479#35745
        OnClick = Sub_BookAccountClick
      end
      object Sub_PAccount: TMenuItem
        Caption = #36827#20070#32479#35745
        OnClick = Sub_PAccountClick
      end
      object Sub_SAccount: TMenuItem
        Caption = #38144#20070#32479#35745
        OnClick = Sub_SAccountClick
      end
      object Sub_MReport: TMenuItem
        Caption = #26376#25253#34920#20998#26512
        OnClick = Sub_MReportClick
      end
    end
    object Menu_Initial: TMenuItem
      Caption = #20449#24687#21021#22987#21270'[&I]'
      object N1: TMenuItem
        Caption = #37319#36141#21592#35774#32622
        OnClick = N1Click
      end
      object N2: TMenuItem
        Caption = #38144#21806#21592#35774#32622
        OnClick = N2Click
      end
      object NewBook_Sub: TMenuItem
        Caption = #28155#21152#26032#20070#31821
        OnClick = NewBook_SubClick
      end
    end
    object N3: TMenuItem
      Caption = #31995#32479'[&E]'
      object N4: TMenuItem
        Caption = #36864#20986#31995#32479
        OnClick = N4Click
      end
    end
  end
end