main_unit.dfm

这是我照着书做的一个销售管理系统,内容不难,很简单,但是对于我这个菜鸟来说已经很不错了

object FrmMain: TFrmMain
  Left = 232
  Top = 119
  Width = 560
  Height = 589
  Align = alClient
  Caption = #19968#36890#36827#38144#23384
  Color = clAppWorkSpace
  Ctl3D = False
  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
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 552
    Height = 33
    ButtonHeight = 31
    ButtonWidth = 32
    Caption = 'ToolBar1'
    Color = clActiveBorder
    Flat = True
    Images = ImageList1
    ParentColor = False
    ParentShowHint = False
    ShowHint = True
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 0
      Hint = #36827#36135
      Caption = 'ToolButton1'
      ImageIndex = 0
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton2: TToolButton
      Left = 32
      Top = 0
      Hint = #36827#36135#36864#36135
      Caption = 'ToolButton2'
      ImageIndex = 1
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton3: TToolButton
      Left = 64
      Top = 0
      Hint = #38144#21806
      Caption = 'ToolButton3'
      ImageIndex = 2
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton4: TToolButton
      Left = 96
      Top = 0
      Hint = #23458#25143#36864#36135
      Caption = 'ToolButton4'
      ImageIndex = 3
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton5: TToolButton
      Left = 128
      Top = 0
      Hint = #26680#31639
      Caption = 'ToolButton5'
      ImageIndex = 4
    end
    object ToolButton6: TToolButton
      Left = 160
      Top = 0
      Hint = #20998#26512
      Caption = 'ToolButton6'
      ImageIndex = 5
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton6Click
    end
    object ToolButton7: TToolButton
      Left = 192
      Top = 0
      Hint = #24211#23384
      Caption = 'ToolButton7'
      ImageIndex = 6
      ParentShowHint = False
      ShowHint = True
    end
    object ToolButton9: TToolButton
      Left = 224
      Top = 0
      Hint = #23548#33322#26465
      Caption = 'ToolButton9'
      ImageIndex = 8
      OnClick = ToolButton9Click
    end
    object ToolButton8: TToolButton
      Left = 256
      Top = 0
      Hint = #36864#20986
      Caption = 'ToolButton8'
      ImageIndex = 7
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton8Click
    end
  end
  object MainMenu1: TMainMenu
    OwnerDraw = True
    Left = 16
    Top = 56
    object N1: TMenuItem
      Caption = #22522#26412#36164#26009
      object N8: TMenuItem
        Caption = #23458#25143#36164#26009
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = #21592#24037#36164#26009
        OnClick = N9Click
      end
      object N10: TMenuItem
        Caption = #20379#36135#21830#36164#26009
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = #21830#21697#31867#21035
        OnClick = N12Click
      end
      object N13: TMenuItem
        Caption = #35745#37327#21333#20301
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #21830#21697#36164#26009
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = '-'
      end
      object N16: TMenuItem
        Caption = #25910#20184#27454#26041#24335
        OnClick = N16Click
      end
    end
    object N2: TMenuItem
      Caption = #36827#36135#25805#20316
      object N18: TMenuItem
        Caption = #36827'    '#36135
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = #36827#36135#36864#36135
        OnClick = N19Click
      end
      object N17: TMenuItem
        Caption = #36827#36135#26597#35810
        OnClick = N17Click
      end
    end
    object N3: TMenuItem
      Caption = #38144#21806#25805#20316
      object N21: TMenuItem
        Caption = #38144'    '#21806
        OnClick = N21Click
      end
      object N22: TMenuItem
        Caption = #23458#25143#36864#36135
        OnClick = N22Click
      end
      object N33: TMenuItem
        Caption = #38144#21806#26597#35810
        OnClick = N33Click
      end
    end
    object N4: TMenuItem
      Caption = #24211#23384
      object N24: TMenuItem
        Caption = #24211#23384#26597#35810#32479#35745
        OnClick = N24Click
      end
    end
    object N5: TMenuItem
      Caption = #25253#34920#25171#21360
      object N23: TMenuItem
        Caption = #22522#26412#36164#26009
        OnClick = N23Click
      end
      object N34: TMenuItem
        Caption = '-'
      end
      object N32: TMenuItem
        Caption = #36827#36135#21333
      end
      object N35: TMenuItem
        Caption = '-'
      end
      object N36: TMenuItem
        Caption = #38144#21806#21333
      end