upub1.dfm

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

object fmpub1: Tfmpub1
  Left = 190
  Top = 104
  Width = 565
  Height = 363
  Caption = #35831#31561#24453'...'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #26032#32454#26126#20307
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 15
  object PageControl: TPageControl
    Left = 0
    Top = 40
    Width = 557
    Height = 296
    ActivePage = Tabbrowse
    Align = alClient
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Images = DM.ImageTool
    ParentFont = False
    Style = tsFlatButtons
    TabOrder = 0
    TabStop = False
    object Tabbrowse: TTabSheet
      Caption = #27983#35272
      object Splitter: TSplitter
        Left = 0
        Top = 0
        Width = 0
        Height = 264
        Color = clBtnFace
        ParentColor = False
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 549
        Height = 264
        Align = alClient
        Caption = 'Panel1'
        TabOrder = 0
        object DBGrid1: TdxDBGrid
          Left = 1
          Top = 1
          Width = 547
          Height = 262
          Bands = <
            item
              Caption = #24038#36793#37096#20998
            end
            item
              Caption = #20013#38388#37096#20998
            end
            item
              Caption = #21491#36793#37096#20998
              Visible = False
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          TabOrder = 0
          OnDblClick = DBGrid1DblClick
          AutoSearchColor = clYellow
          AutoSearchTextColor = clBlue
          DataSource = DSMain
          Filter.Criteria = {00000000}
          FixedBandLineColor = clRed
          GridLineColor = clBlue
          GroupPanelColor = clBlack
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnHeaderButtonClick = DBGrid1HeaderButtonClick
          OnColumnClick = DBGrid1ColumnClick
        end
        object Panel3: TPanel
          Left = 1
          Top = 263
          Width = 547
          Height = 0
          Align = alBottom
          BevelOuter = bvNone
          BorderStyle = bsSingle
          TabOrder = 1
          Visible = False
        end
      end
    end
    object TabEdit: TTabSheet
      Caption = #24405#20837
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 0
        Top = 0
        Width = 289
        Height = 245
        Align = alLeft
        TabOrder = 0
      end
      object Panel2: TPanel
        Left = 289
        Top = 0
        Width = 282
        Height = 245
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
      end
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 557
    Height = 40
    ButtonHeight = 38
    ButtonWidth = 43
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = DM.ImageTool
    ShowCaptions = True
    TabOrder = 1
    Transparent = True
    object TBPreview: TToolButton
      Left = 0
      Top = 0
      Action = APreview
      AutoSize = True
    end
    object TBPrint: TToolButton
      Left = 35
      Top = 0
      Action = APrint
      AutoSize = True
    end
    object TBExcel: TToolButton
      Left = 70
      Top = 0
      Action = AExcel
      AutoSize = True
    end
    object TBBlank1: TToolButton
      Left = 105
      Top = 0
      Width = 8
      Caption = 'TBBlank1'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBInformation: TToolButton
      Left = 113
      Top = 0
      Action = AInformation
      AutoSize = True
    end
    object TBLocate: TToolButton
      Left = 148
      Top = 0
      Action = ALocate
      AutoSize = True
    end
    object TBFilter: TToolButton
      Left = 183
      Top = 0
      Action = AFilter
      AutoSize = True
    end
    object TBRefresh: TToolButton
      Left = 218
      Top = 0
      Action = ARefresh
      AutoSize = True
    end
    object TBBlank2: TToolButton
      Left = 253
      Top = 0
      Width = 8
      Caption = 'TBBlank2'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBTemp: TToolButton
      Left = 261
      Top = 0
      AutoSize = True
      Caption = #21151#33021
      DropdownMenu = Menu3
      ImageIndex = 22
      Style = tbsDropDown
    end
    object TBApprove: TToolButton
      Left = 309
      Top = 0
      Action = AApprove
      AutoSize = True
    end
    object TBConfirm: TToolButton
      Left = 344
      Top = 0
      Action = AConfirm
      AutoSize = True
    end
    object TBBlank3: TToolButton
      Left = 0
      Top = 0
      Width = 8
      Caption = 'TBBlank3'
      ImageIndex = 22
      Wrap = True
      Style = tbsSeparator
    end
    object TBFirst: TToolButton
      Left = 0
      Top = 46
      Action = AFirst
      AutoSize = True
    end
    object TBLast: TToolButton
      Left = 47
      Top = 46
      Action = ALast
      AutoSize = True
    end
    object TBBlank4: TToolButton
      Left = 94
      Top = 46
      Width = 8
      Caption = 'TBBlank4'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBAdd: TToolButton
      Left = 102
      Top = 46
      Action = AAdd
      AutoSize = True
      DropdownMenu = Menu1
      Style = tbsDropDown
    end
    object TBEdit: TToolButton
      Left = 150
      Top = 46
      Action = AEdit
      AutoSize = True
    end
    object TBDelete: TToolButton
      Left = 185
      Top = 46
      Action = ADelete
      AutoSize = True
    end
    object TBSave: TToolButton
      Left = 220
      Top = 46
      Action = ASave
      AutoSize = True
      DropdownMenu = Menu2
      Style = tbsDropDown
    end
    object TBCancel: TToolButton
      Left = 268
      Top = 46
      Action = ACancel
      AutoSize = True
    end
    object TBBlank5: TToolButton
      Left = 303
      Top = 46
      Width = 8
      Caption = 'TBBlank5'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBClose: TToolButton
      Left = 311
      Top = 46
      Action = AClose
      AutoSize = True
    end
    object TBHelp: TToolButton
      Left = 346
      Top = 46
      Action = AHelp
      AutoSize = True
    end
  end
  object DSMain: TDataSource
    Left = 130
    Top = 175
  end
  object ActionList: TActionList
    Images = DM.ImageTool
    Left = 94
    Top = 175
    object APreview: TAction
      Category = 'Browse'
      Caption = #39044#35272
      ImageIndex = 2
      ShortCut = 16464
      OnExecute = APreviewExecute
    end
    object AInformation: TAction
      Category = 'Browse'
      Caption = #26085#24535
      ImageIndex = 23
      ShortCut = 16496
      Visible = False
      OnExecute = AInformationExecute
    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
      Enabled = False
      ImageIndex = 12
      Visible = False
    end
    object AConfirm: TAction
      Category = 'Deal'
      Caption = #35760#24080
      Enabled = False
      ImageIndex = 13
      Visible = False
    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
    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 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 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
  end
  object Menu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 93
    Top = 135
    object N22222: TMenuItem
      Action = ACopyAdd
    end
  end
  object Menu2: TPopupMenu
    AutoHotkeys = maManual
    Left = 130
    Top = 135
    object N2: TMenuItem
      Action = ASaveAdd
    end
  end
  object Menu3: TPopupMenu
    AutoHotkeys = maManual
    Left = 166
    Top = 135
    object Mutl: TMenuItem
      Caption = #22810#34892#36873#23450
      OnClick = MutlClick
    end
    object Column: TMenuItem
      Caption = #23383#27573#26174#31034
    end
    object Grid: TMenuItem
      Caption = #20445#23384#32593#26684#23646#24615
      OnClick = N3Click
    end
  end
end