main.dfm

已经投入使用的商业级管理系统：液化气管理系统。 附带全部源码

        Caption = #23458#25143#20449#24687
      end
      object N1: TMenuItem
        Caption = #20379#36151#21830#20449#24687
      end
      object FileExitItem: TMenuItem
        Action = FileExit1
        Caption = #36865#27668#21592#20449#24687
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object N3: TMenuItem
        Caption = #21830#21697#20449#24687
      end
      object N4: TMenuItem
        Caption = #38050#29942#20449#24687
      end
    end
    object Edit1: TMenuItem
      Caption = #19994#21153#22788#29702
      Hint = 'Edit commands'
      object CutItem: TMenuItem
        Action = EditCut1
        Caption = #20837#24211#21333
      end
      object CopyItem: TMenuItem
        Action = EditCopy1
        Caption = #38144#21806#21333
      end
      object PasteItem: TMenuItem
        Action = EditPaste1
        Caption = #35746#21333#22788#29702
      end
      object N6: TMenuItem
        Caption = #27966#24037#19982#22238#21333
      end
      object N7: TMenuItem
        Caption = #27424#36153#21333#25454#25910#27454
      end
    end
    object N8: TMenuItem
      Caption = #25968#25454#26597#35810
      object N17: TMenuItem
        Caption = #20837#24211#26597#35810
      end
      object N18: TMenuItem
        Caption = #35746#36135#38144#21806#26597#35810
      end
      object N19: TMenuItem
        Caption = '-'
      end
      object N20: TMenuItem
        Caption = #36865#27668#21592#36865#27668#26597#35810
      end
      object N21: TMenuItem
        Caption = #26410#35746#27668#23458#25143#26597#35810
      end
      object N22: TMenuItem
        Caption = #21830#21697#24211#23384#26597#35810
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N24: TMenuItem
        Caption = #25910#20184#27969#27700#24080
      end
    end
    object N9: TMenuItem
      Caption = #25968#25454#32479#35745
      object N28: TMenuItem
        Caption = #38144#21806#26085#25253#34920
      end
      object N29: TMenuItem
        Caption = #38144#21806#26376#25253#34920
      end
      object N30: TMenuItem
        Caption = #26376#38144#21806#19968#35272#34920
      end
      object N31: TMenuItem
        Caption = #24180#24230#38144#21806#20998#26512#34920
      end
    end
    object N10: TMenuItem
      Caption = #25968#25454#22788#29702
      object N11: TMenuItem
        Caption = #19978#20256#25968#25454
      end
      object N12: TMenuItem
        Caption = #19979#36733#25968#25454
      end
    end
    object N13: TMenuItem
      Caption = #31995#32479#32500#25252
      object N14: TMenuItem
        Caption = #22791#20221#19982#24674#22797
      end
      object N15: TMenuItem
        Caption = #26597#30475#27969#27700#24080
      end
      object N16: TMenuItem
        Caption = #25968#25454#21021#22987#21270
      end
    end
    object Window1: TMenuItem
      Caption = '&Window'
      Hint = 'Window related commands'
      object WindowCascadeItem: TMenuItem
        Action = WindowCascade1
      end
      object WindowTileItem: TMenuItem
        Action = WindowTileHorizontal1
      end
      object WindowTileItem2: TMenuItem
        Action = WindowTileVertical1
      end
      object WindowMinimizeItem: TMenuItem
        Action = WindowMinimizeAll1
      end
      object WindowArrangeItem: TMenuItem
        Action = WindowArrangeAll1
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      Hint = 'Help topics'
      object HelpAboutItem: TMenuItem
        Action = HelpAbout1
      end
    end
  end
  object OpenDialog: TOpenDialog
    Filter = 'All files (*.*)|*.*'
    Left = 8
    Top = 200
  end
  object ActionList1: TActionList
    Images = ImageList1
    Left = 72
    Top = 200
    object FileNew1: TAction
      Category = 'File'
      Caption = '&New'
      Hint = 'New|Create a new file'
      ImageIndex = 6
      ShortCut = 16462
    end
    object FileOpen1: TAction
      Category = 'File'
      Caption = '&Open'
      Hint = 'Open|Open a file'
      ImageIndex = 7
      ShortCut = 16463
    end
    object FileClose1: TWindowClose
      Category = 'File'
      Caption = '&Close'
      Hint = 'Close|Close current file'
    end
    object FileSave1: TAction
      Category = 'File'
      Caption = '&Save'
      Hint = 'Save|Save current file'
      ImageIndex = 8
      ShortCut = 16467
    end
    object FileSaveAs1: TAction
      Category = 'File'
      Caption = 'Save &As...'
      Hint = 'Save As|Save current file with different name'
    end
    object FileExit1: TAction
      Category = 'File'
      Caption = 'E&xit'
      Hint = 'Exit|Exit application'
      OnExecute = FileExit1Execute
    end
    object EditCut1: TEditCut
      Category = 'Edit'
      Caption = 'Cu&t'
      Hint = 'Cut|Cuts the selection and puts it on the Clipboard'
      ImageIndex = 0
      ShortCut = 16472
    end
    object EditCopy1: TEditCopy
      Category = 'Edit'
      Caption = '&Copy'
      Hint = 'Copy|Copies the selection and puts it on the Clipboard'
      ImageIndex = 1
      ShortCut = 16451
    end
    object EditPaste1: TEditPaste
      Category = 'Edit'
      Caption = '&Paste'
      Hint = 'Paste|Inserts Clipboard contents'
      ImageIndex = 2
      ShortCut = 16470
    end
    object WindowCascade1: TWindowCascade
      Category = 'Window'
      Caption = '&Cascade'
      Hint = 'Cascade'
      ImageIndex = 17
    end
    object WindowTileHorizontal1: TWindowTileHorizontal
      Category = 'Window'
      Caption = 'Tile &Horizontally'
      Hint = 'Tile Horizontally'
      ImageIndex = 15
    end
    object WindowTileVertical1: TWindowTileVertical
      Category = 'Window'
      Caption = 'Tile &Vertically'
      Hint = 'Tile Vertically'
      ImageIndex = 16
    end
    object WindowMinimizeAll1: TWindowMinimizeAll
      Category = 'Window'
      Caption = '&Minimize All'
      Hint = 'Minimize All'
    end
    object WindowArrangeAll1: TWindowArrange
      Category = 'Window'
      Caption = '&Arrange All'
      Hint = 'Arrange All'
    end
    object HelpAbout1: TAction
      Category = 'Help'
      Caption = '&About...'
      Hint = 
        'About|Displays program information, version number, and copyrigh' +
        't'
      OnExecute = HelpAbout1Execute
    end
  end
  object ImageList1: TImageList
    Left = 104
    Top = 200
    Bitmap = {
      494C010119001D00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000008000000001002000000000000080
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000