upub2.dfm

成本系统三层结构源码 开发工具：Delphi 7.0+SQLServer 2005 主要技术：Midas、COM+ 所用第三方控件： FastReport V2.47 D7 Inforp

      Width = 8
      Caption = 'TBBlank3'
      ImageIndex = 22
      Wrap = True
      Style = tbsSeparator
    end
    object TBFirst: TToolButton
      Left = 0
      Top = 44
      Action = AFirst
      AutoSize = True
    end
    object TBLast: TToolButton
      Left = 47
      Top = 44
      Action = ALast
      AutoSize = True
    end
    object TBBlank4: TToolButton
      Left = 94
      Top = 44
      Width = 8
      Caption = 'TBBlank4'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBAdd: TToolButton
      Left = 102
      Top = 44
      Action = AAdd
      AutoSize = True
      DropdownMenu = Menu1
      Style = tbsDropDown
    end
    object TBEdit: TToolButton
      Left = 150
      Top = 44
      Action = AEdit
      AutoSize = True
    end
    object TBDelete: TToolButton
      Left = 185
      Top = 44
      Action = ADelete
      AutoSize = True
    end
    object TBSave: TToolButton
      Left = 220
      Top = 44
      Action = ASave
      AutoSize = True
      DropdownMenu = Menu2
      Style = tbsDropDown
    end
    object TBCancel: TToolButton
      Left = 268
      Top = 44
      Action = ACancel
      AutoSize = True
    end
    object TBBlank5: TToolButton
      Left = 303
      Top = 44
      Width = 6
      Caption = 'TBBlank5'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBClose: TToolButton
      Left = 309
      Top = 44
      Action = AClose
      AutoSize = True
    end
    object TBHelp: TToolButton
      Left = 344
      Top = 44
      Action = AHelp
      AutoSize = True
    end
  end
  object DSMas: TDataSource
    Left = 52
    Top = 216
  end
  object DSSub: TDataSource
    Left = 80
    Top = 216
  end
  object ActionSub: TActionList
    Images = DM.ImageTool
    Left = 24
    Top = 216
    object AInformation: TAction
      Category = 'Browse'
      Caption = #26085#24535
      ImageIndex = 23
      ShortCut = 16496
      Visible = False
      OnExecute = AInformationExecute
    end
    object APreview: TAction
      Category = 'Browse'
      Caption = #39044#35272
      ImageIndex = 2
      ShortCut = 16464
      OnExecute = APreviewExecute
    end
    object APrint: TAction
      Category = 'Browse'
      Caption = #25171#21360
      ImageIndex = 3
      OnExecute = APrintExecute
    end
    object ALocate: TAction
      Category = 'Browse'
      Caption = #26597#25214
      ImageIndex = 5
      ShortCut = 114
      OnExecute = ALocateExecute
    end
    object ALocateNext: TAction
      Category = 'Browse'
      Caption = #26597#25214#19979#19968#20010
      ImageIndex = 5
      OnExecute = ALocateNextExecute
    end
    object AFilter: TAction
      Category = 'Browse'
      Caption = #31579#36873
      ImageIndex = 6
      ShortCut = 115
      OnExecute = AFilterExecute
    end
    object ARefresh: TAction
      Category = 'Browse'
      Caption = #21047#26032
      ImageIndex = 4
      ShortCut = 116
      OnExecute = ARefreshExecute
    end
    object AExcel: TAction
      Category = 'Browse'
      Caption = #36755#20986
      Hint = #36755#20986'Excel'
      ImageIndex = 7
      ShortCut = 119
      OnExecute = AExcelExecute
    end
    object AApprove: TAction
      Category = 'Deal'
      Caption = #25209#26680
      ImageIndex = 12
      ShortCut = 117
      OnExecute = AApproveExecute
    end
    object AConfirm: TAction
      Category = 'Deal'
      Caption = #35760#24080
      ImageIndex = 13
      ShortCut = 118
      OnExecute = AConfirmExecute
    end
    object AFirst: TAction
      Category = 'Browse'
      Caption = #31532#19968#39029
      ImageIndex = 8
      OnExecute = AFirstExecute
    end
    object APrior: TAction
      Category = 'Browse'
      Caption = #19978#19968#39029
      ImageIndex = 9
      OnExecute = APriorExecute
    end
    object ANext: TAction
      Category = 'Browse'
      Caption = #19979#19968#39029
      ImageIndex = 10
      OnExecute = ANextExecute
    end
    object ALast: TAction
      Category = 'Browse'
      Caption = #26368#21518#39029
      ImageIndex = 11
      OnExecute = ALastExecute
    end
    object AAdd: TAction
      Category = 'Enter'
      Caption = #22686#21152
      ImageIndex = 15
      ShortCut = 16449
      OnExecute = AAddExecute
    end
    object ACopyAdd: TAction
      Category = 'Enter'
      Caption = #22797#21046#24182#22686#21152
      ImageIndex = 15
      ShortCut = 49217
      OnExecute = ACopyAddExecute
    end
    object ASubCopyAdd: TAction
      Category = 'Enter'
      Caption = #20174#34920#21333#34892#22797#21046
      ImageIndex = 15
      SecondaryShortCuts.Strings = (
        'Ctrl+Down')
      OnExecute = ASubCopyAddExecute
    end
    object AEdit: TAction
      Category = 'Enter'
      Caption = #32534#36753
      ImageIndex = 16
      ShortCut = 16453
      OnExecute = AEditExecute
    end
    object ADelete: TAction
      Category = 'Enter'
      Caption = #21024#38500
      ImageIndex = 17
      ShortCut = 16452
      OnExecute = ADeleteExecute
    end
    object ASubDel: TAction
      Category = 'Enter'
      Caption = 'ASubDel'
      ImageIndex = 17
      SecondaryShortCuts.Strings = (
        'Ctrl+Del')
      OnExecute = ASubDelExecute
    end
    object ASave: TAction
      Category = 'Enter'
      Caption = #20445#23384
      ImageIndex = 18
      ShortCut = 16467
      OnExecute = ASaveExecute
    end
    object ASaveAdd: TAction
      Category = 'Enter'
      Caption = #20445#23384#24182#22686#21152
      ImageIndex = 18
      ShortCut = 49235
      OnExecute = ASaveAddExecute
    end
    object ACancel: TAction
      Category = 'Enter'
      Caption = #21462#28040
      ImageIndex = 19
      OnExecute = ACancelExecute
    end
    object AClose: TAction
      Category = 'Deal'
      Caption = #20851#38381
      ImageIndex = 20
      OnExecute = ACloseExecute
    end
    object AHelp: TAction
      Category = 'Deal'
      Caption = #24110#21161
      ImageIndex = 21
      OnExecute = AHelpExecute
    end
    object AStatus1: TAction
      Category = 'Status'
      Caption = #26410#25209#26680
      OnExecute = AStatus1Execute
    end
    object AStatus2: TAction
      Category = 'Status'
      Caption = #24050#25209#26680
      OnExecute = AStatus2Execute
    end
    object AStatus3: TAction
      Category = 'Status'
      Caption = #24050#35760#24080
      OnExecute = AStatus3Execute
    end
    object AStatus4: TAction
      Category = 'Status'
      Caption = #25152#26377
      OnExecute = AStatus4Execute
    end
  end
  object Menu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 25
    Top = 184
    object N1: TMenuItem
      Action = ACopyAdd
    end
  end
  object Menu2: TPopupMenu
    AutoHotkeys = maManual
    Left = 52
    Top = 184
    object N2: TMenuItem
      Action = ASaveAdd
    end
  end
  object Menu3: TPopupMenu
    AutoHotkeys = maManual
    Left = 80
    Top = 184
    object Mutl: TMenuItem
      Caption = #22810#34892#36873#23450
      OnClick = MutlClick
    end
    object Column: TMenuItem
      Caption = #23383#27573#26174#31034
      OnClick = MenuItem2Click
    end
    object Grid: TMenuItem
      Caption = #20445#23384#32593#26684#23646#24615
      OnClick = MenuItem3Click
    end
  end
end