main.dfm

delphi框架可以学习, 写的很好的

object frmMain: TfrmMain
  Left = 144
  Top = 107
  Width = 731
  Height = 560
  Caption = #29275#20180#24067#20449#24687#31649#29702#31995#32479
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = mmMain
  OldCreateOrder = False
  WindowState = wsMaximized
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object MDIBackGround1: TMDIBackGround
    Left = 0
    Top = 0
    Width = 723
    Height = 487
  end
  object RzStatusBar1: TRzStatusBar
    Left = 0
    Top = 487
    Width = 723
    Height = 19
    AutoStyle = False
    SimpleFrameStyle = fsNone
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    TabOrder = 0
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 58
      Height = 19
      Align = alLeft
      AutoSize = True
      Caption = #31995#32479#29992#25143
    end
    object spEmpName: TRzStatusPane
      Left = 58
      Top = 0
      Width = 40
      Height = 19
      FrameStyle = fsGroove
      Align = alLeft
      AutoSize = True
    end
    object RzStatusPane2: TRzStatusPane
      Left = 98
      Top = 0
      Width = 58
      Height = 19
      Align = alLeft
      AutoSize = True
      Caption = #31995#32479#25552#31034
    end
    object RzStatusPane3: TRzStatusPane
      Left = 156
      Top = 0
      Width = 567
      Height = 19
      Align = alClient
    end
  end
  object mmMain: TMainMenu
    AutoHotkeys = maManual
    Images = ImglNav
    OwnerDraw = True
    Left = 96
    Top = 24
    object miSystem: TMenuItem
      Caption = #31995#32479#21151#33021
      object N17: TMenuItem
        Action = actSysLog
      end
      object N15: TMenuItem
        Action = actTempLock
      end
      object N11: TMenuItem
        Action = actChangePassword
      end
      object N6: TMenuItem
        Action = actSendMessage
      end
      object N39: TMenuItem
        Caption = #31995#32479#35774#32622
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = #29992#25143#31649#29702
        object N13: TMenuItem
          Action = actUserManager
        end
        object N14: TMenuItem
          Caption = #26435#38480#22411#31649#29702
        end
      end
      object miSQL: TMenuItem
        Action = actSQL
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N26: TMenuItem
        Action = actTest
      end
      object N9: TMenuItem
        Action = actClose
      end
    end
    object miSell: TMenuItem
      Tag = 1
      Caption = #38144#21806#31649#29702
      object N91: TMenuItem
        Caption = #25253#22806#36164#26009#26597#35810
      end
      object N71: TMenuItem
        Action = actQuote
        Caption = #25253#20215#36164#26009#26597#35810
      end
      object N90: TMenuItem
        Caption = '-'
      end
      object N1: TMenuItem
        Caption = #24847#21521#35746#21333#24405#20837
      end
      object N88: TMenuItem
        Caption = #24847#21521#35746#21333#23457#26680
      end
      object N89: TMenuItem
        Caption = '-'
      end
      object N24: TMenuItem
        Caption = #35746#21333#36164#26009#24405#20837
        OnClick = actOrderInputExecute
      end
      object N59: TMenuItem
        Caption = #35746#21333#25968#25454#23457#26680
      end
    end
    object miStock: TMenuItem
      Tag = 1
      Caption = #37319#36141#31649#29702
      object N60: TMenuItem
        Caption = #21407#26009#37319#36141#21333#30331#35760
      end
      object N3: TMenuItem
        Caption = #21407#26009#21040#36135#30830#35748
      end
      object N40: TMenuItem
        Caption = #21407#26009#36136#37327#26597#35810
      end
      object N41: TMenuItem
        Caption = #21407#26009#20837#20179#26597#35810
      end
    end
    object miProduce: TMenuItem
      Tag = 1
      Caption = #29983#20135#31649#29702
      object N72: TMenuItem
        Caption = #24037#33402#31649#29702
        object N74: TMenuItem
          Action = actCraftInput
        end
        object N37: TMenuItem
          Action = actCheckCraft
        end
      end
      object N73: TMenuItem
        Caption = '-'
      end
      object N61: TMenuItem
        Caption = #21407#26009#37319#36141#35745#21010
      end
      object N62: TMenuItem
        Caption = #35746#21333#29983#20135#35745#21010
      end
      object N94: TMenuItem
        Caption = '-'
      end
      object N63: TMenuItem
        Caption = #36710#38388#25490#20135
        object N64: TMenuItem
          Caption = #32455#36896#36710#38388#25490#20135
        end
        object N65: TMenuItem
          Caption = #27974#26579#36710#38388#25490#20135
        end
      end
    end
    object miQuality: TMenuItem
      Tag = 1
      Caption = #36136#37327#31649#29702
      object N25: TMenuItem
        Caption = #21407#26009#36136#37327#26816#39564
      end
      object N43: TMenuItem
        Caption = #32986#24067#36136#37327#26816#39564
      end
      object N44: TMenuItem
        Caption = #25104#21697#36136#37327#26816#39564
      end
      object N46: TMenuItem
        Caption = '-'
      end
      object N45: TMenuItem
        Caption = #25104#21697#21487#20132#36135#30830#35748
      end
      object N50: TMenuItem
        Caption = '-'
      end
      object N51: TMenuItem
        Caption = #25104#21697#24320#21305
      end
    end
    object miStorge: TMenuItem
      Tag = 1
      Caption = #24211#23384#31649#29702
      object N55: TMenuItem
        Caption = #21407#26009#20179
        object N54: TMenuItem
          Caption = #21040#36135#30331#35760
        end
        object N93: TMenuItem
          Caption = #23454#38469#20837#20179
        end
        object N100: TMenuItem
          Caption = #39046#29992#20986#20179
        end
        object N101: TMenuItem
          Caption = #36864#22238#21378#21830
        end
      end
      object N86: TMenuItem
        Caption = '-'
      end
      object N56: TMenuItem
        Caption = #20116#37329#20179
      end
      object N87: TMenuItem
        Caption = '-'
      end
      object N47: TMenuItem
        Caption = #25104#21697#20179
        object N48: TMenuItem
          Caption = #25104#21697#20837#20179
        end
        object N49: TMenuItem
          Caption = #25104#21697#20986#20179
        end
        object N53: TMenuItem
          Caption = '-'
        end
        object N52: TMenuItem
          Caption = #26495#24067#20837#20179
        end
        object N66: TMenuItem
          Caption = #26495#24067#20986#20179
        end
        object N57: TMenuItem
          Caption = '-'
        end
        object N58: TMenuItem
          Caption = #25104#21697#20179#32508#21512#26597#35810
        end
      end
    end
    object miReport: TMenuItem
      Tag = 1
      Caption = #25253#34920#20013#24515
    end
    object miBaseData: TMenuItem
      Tag = 1
      Caption = #22522#30784#36164#26009
      object N18: TMenuItem
        Caption = #31995#32479#36164#26009
        object N19: TMenuItem
          Action = actBase_Computer