mainformunit.~dfm

一个很不错的系统! 查询模块方面是我编的最好的一次.几乎完美!!!!.

object frm_main: Tfrm_main
  Left = 330
  Top = 356
  Width = 848
  Height = 650
  Caption = #20250#21592#28040#36153#31649#29702#31995#32479'-'#20027#30028#38754
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu1: TMainMenu
    Images = ImageList1
    Left = 40
    Top = 200
    object N1: TMenuItem
      Caption = #31995#32479
      object N2: TMenuItem
        Caption = #25968#25454#22791#20221
      end
      object N3: TMenuItem
        Caption = #25968#25454#24674#22797
      end
      object N27: TMenuItem
        Caption = '-'
      end
      object N8: TMenuItem
        Caption = #29992#25143#21450#26435#38480#35774#32622
        OnClick = N8Click
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object N5: TMenuItem
        Caption = #20462#25913#23494#30721
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #20351#29992#21333#20301'...'
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object N35: TMenuItem
        Caption = #37325#30331#24405
        OnClick = N35Click
      end
      object N36: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #36864#20986
        OnClick = N9Click
      end
    end
    object N10: TMenuItem
      Caption = #36164#26009#24405#20837
      object N11: TMenuItem
        Caption = #20250#21592#36164#26009#24405#20837
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = #21592#24037#36164#26009#24405#20837
        OnClick = N12Click
      end
      object N31: TMenuItem
        Caption = #21830#21697#36164#26009#24405#20837
        OnClick = N31Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object N14: TMenuItem
        Caption = #20250#21592#36141#20080#21830#21697'...'
        OnClick = N14Click
      end
      object N28: TMenuItem
        Caption = #20250#21592#36164#37329#20805#20540'...'
        OnClick = N28Click
      end
      object N29: TMenuItem
        Caption = '-'
      end
      object N30: TMenuItem
        Caption = #21830#21697#36827#36135'...'
        OnClick = N30Click
      end
    end
    object N15: TMenuItem
      Caption = #36164#26009#26597#35810
      object N16: TMenuItem
        Caption = #20250#21592#36164#26009#26597#35810
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = #20250#21592#28040#36153#24773#20917#26597#35810
        OnClick = N17Click
      end
      object N18: TMenuItem
        Caption = #20250#21592#28040#36153#37329#39069#26597#35810
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = #20250#21592#36164#37329#32467#20313#26597#35810
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #20250#21592#27424#27454#24773#20917#26597#35810
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = '-'
      end
      object N22: TMenuItem
        Caption = #21592#24037#36164#26009#26597#35810
        OnClick = N22Click
      end
      object N23: TMenuItem
        Caption = #21592#24037#19994#32489#26597#35810
        OnClick = N23Click
      end
      object N24: TMenuItem
        Caption = '-'
      end
      object N25: TMenuItem
        Caption = #21830#21697#36164#26009#26597#35810
        OnClick = N25Click
      end
      object N26: TMenuItem
        Caption = #21830#21697#38144#21806#39069#26597#35810
        OnClick = N26Click
      end
    end
    object Help1: TMenuItem
      Caption = #24110#21161
      Hint = 'Help topics'
      object N32: TMenuItem
        Caption = #20851#20110'....'
      end
      object N34: TMenuItem
        Caption = '-'
      end
      object N33: TMenuItem
        Caption = #24110#21161#20027#39064'...'
      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'
    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