upub3.dfm

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

object fmpub3: Tfmpub3
  Left = 189
  Top = 102
  Width = 544
  Height = 375
  Caption = #35831#31561#24453'...'
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object OptionPanel: TPanel
    Left = 0
    Top = 40
    Width = 536
    Height = 26
    Align = alTop
    BevelOuter = bvNone
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    Visible = False
    object PnlProject: TPanel
      Left = 0
      Top = 0
      Width = 175
      Height = 26
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 0
      object LblProject: TLabel
        Left = 8
        Top = 8
        Width = 24
        Height = 13
        Caption = #39033#30446
      end
      object CmbProject: TComboBox
        Left = 34
        Top = 3
        Width = 133
        Height = 22
        Style = csOwnerDrawFixed
        ItemHeight = 16
        TabOrder = 0
      end
    end
    object PnlMonth: TPanel
      Left = 175
      Top = 0
      Width = 124
      Height = 26
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 1
      Visible = False
      object LblMonth: TLabel
        Left = 8
        Top = 8
        Width = 24
        Height = 13
        Caption = #26376#20221
      end
      object DTPMonth: TDateTimePicker
        Left = 34
        Top = 4
        Width = 85
        Height = 21
        Date = 38353.000000000000000000
        Format = 'yyyy-MM '
        Time = 38353.000000000000000000
        DateFormat = dfLong
        DateMode = dmUpDown
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
      end
    end
    object PnlDate: TPanel
      Left = 299
      Top = 0
      Width = 312
      Height = 26
      Align = alLeft
      BevelOuter = bvNone
      TabOrder = 2
      Visible = False
      object LbLStart: TLabel
        Left = 6
        Top = 7
        Width = 48
        Height = 13
        Caption = #36215#22987#26102#38388
      end
      object LblEnd: TLabel
        Left = 162
        Top = 7
        Width = 48
        Height = 13
        Caption = #25130#27490#26102#38388
      end
      object DateTo: TwwDBDateTimePicker
        Left = 212
        Top = 3
        Width = 90
        Height = 21
        Hint = #20351#29992'DEL'#38190#21487#28165#38500#26085#26399#20540
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        CalendarAttributes.Options = [mdoDayState, mdoWeekNumbers]
        Epoch = 1950
        ParentShowHint = False
        ShowHint = True
        ShowButton = True
        TabOrder = 1
        UnboundDataType = wwDTEdtDate
        DisplayFormat = 'YYYY-MM-DD'
      end
      object DateFrm: TwwDBDateTimePicker
        Left = 56
        Top = 3
        Width = 90
        Height = 21
        Hint = #20351#29992'DEL'#38190#21487#28165#38500#26085#26399#20540
        CalendarAttributes.Font.Charset = DEFAULT_CHARSET
        CalendarAttributes.Font.Color = clWindowText
        CalendarAttributes.Font.Height = -11
        CalendarAttributes.Font.Name = 'MS Sans Serif'
        CalendarAttributes.Font.Style = []
        CalendarAttributes.Options = [mdoDayState, mdoWeekNumbers]
        Epoch = 1950
        ParentShowHint = False
        ShowHint = True
        ShowButton = True
        TabOrder = 0
        UnboundDataType = wwDTEdtDate
        DisplayFormat = 'YYYY-MM-DD'
      end
    end
    object PnlSelect: TPanel
      Left = 611
      Top = 0
      Width = 413
      Height = 26
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 3
      Visible = False
      object LBLSelect: TLabel
        Left = 7
        Top = 8
        Width = 36
        Height = 13
        Caption = #36807#28388#39033
        Layout = tlCenter
      end
      object dxBtnSelect: TdxButtonEdit
        Left = 47
        Top = 4
        Width = 252
        TabOrder = 0
        MaxLength = 8000
        OnChange = dxBtnSelectChange
        Buttons = <
          item
            Default = True
          end>
        StoredValues = 2
        ExistButtons = True
      end
    end
  end
  object PageControl: TPageControl
    Left = 0
    Top = 66
    Width = 536
    Height = 282
    ActivePage = TabBrowse
    Align = alClient
    Style = tsFlatButtons
    TabOrder = 1
    object TabBrowse: TTabSheet
      Caption = #26174#31034
      object Splitter: TSplitter
        Left = 0
        Top = 0
        Width = -1
        Height = 251
        Color = clBtnFace
        ParentColor = False
      end
      object DBGrid1: TdxDBGrid
        Left = -1
        Top = 0
        Width = 529
        Height = 251
        Bands = <
          item
            Caption = #24038#36793#37096#38376
            Fixed = bfLeft
          end
          item
            Caption = #20013#38388#37096#38376
          end
          item
            Caption = #21491#36793#37096#38376
            Visible = False
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alClient
        TabOrder = 0
        DataSource = DataSource1
        Filter.Criteria = {00000000}
        FixedBandLineColor = clRed
        GridLineColor = clBlue
        GroupPanelColor = 15451300
        GroupPanelFontColor = 8404992
        GroupNodeColor = 16247513
        HeaderColor = 16247513
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        OnAddGroupColumn = DBGrid1AddGroupColumn
        OnHeaderButtonClick = DBGrid1HeaderButtonClick
        OnColumnClick = DBGrid1ColumnClick
      end
    end
    object TabReport: TTabSheet
      Caption = #39044#30041
      ImageIndex = 1
    end
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 536
    Height = 40
    ButtonHeight = 36
    ButtonWidth = 43
    Caption = '`'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = DM.ImageTool
    ShowCaptions = True
    TabOrder = 2
    Transparent = True
    Wrapable = False
    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 TBLocate: TToolButton
      Left = 113
      Top = 0
      Action = ALocate
      AutoSize = True
    end
    object TBFilter: TToolButton
      Left = 148
      Top = 0
      Action = AFilter
      AutoSize = True
    end
    object TBRefresh: TToolButton
      Left = 183
      Top = 0
      Action = ARefresh
      AutoSize = True
    end
    object TBBlank2: TToolButton
      Left = 218
      Top = 0
      Width = 8
      Caption = 'TBBlank2'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBTemp: TToolButton
      Left = 226
      Top = 0
      AutoSize = True
      Caption = #21151#33021
      Enabled = False
      ImageIndex = 22
      Style = tbsDropDown
      Visible = False
    end
    object TBApprove: TToolButton
      Left = 274
      Top = 0
      Action = AApprove
      AutoSize = True
    end
    object TBConfirm: TToolButton
      Left = 309
      Top = 0
      Action = AConfirm
      AutoSize = True
    end
    object TBBlank3: TToolButton
      Left = 344
      Top = 0
      Width = 8
      Caption = 'TBBlank3'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBFirst: TToolButton
      Left = 352
      Top = 0
      Action = AFirst
      AutoSize = True
    end
    object TBLast: TToolButton
      Left = 399
      Top = 0
      Action = ALast
      AutoSize = True
    end
    object TBBlank4: TToolButton
      Left = 446
      Top = 0
      Width = 8
      Caption = 'TBBlank4'
      ImageIndex = 22
      Style = tbsSeparator
    end
    object TBClose: TToolButton
      Left = 454
      Top = 0
      Action = AClose
      AutoSize = True
    end
    object TBHelp: TToolButton
      Left = 489
      Top = 0
      Action = AHelp
      AutoSize = True
    end
  end
  object DataSource1: TDataSource
    Left = 102
    Top = 149
  end
  object SubAction: TActionList
    Images = DM.ImageTool
    Left = 133
    Top = 149
    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
    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 = #26597#35810
      ImageIndex = 12
    end
    object AConfirm: TAction
      Category = 'Deal'
      Caption = #32479#35745
      ImageIndex = 13
    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 AClose: TAction
      Category = 'Browse'
      Caption = #20851#38381
      ImageIndex = 20
      OnExecute = ACloseExecute
    end
    object AHelp: TAction
      Category = 'Browse'
      Caption = #24110#21161
      ImageIndex = 21
      OnExecute = AHelpExecute
    end
  end
  object Menu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 70
    Top = 180
    object N22222: TMenuItem
    end
  end
  object Menu2: TPopupMenu
    AutoHotkeys = maManual
    Left = 100
    Top = 180
    object N2: TMenuItem
    end
  end
  object Menu3: TPopupMenu
    AutoHotkeys = maManual
    Left = 129
    Top = 180
    object Mutl: TMenuItem
      Caption = #22810#34892#36873#23450
    end
    object Column: TMenuItem
      Caption = #23383#27573#26174#31034
      OnClick = ColumnClick
    end
    object Grid: TMenuItem
      Caption = #20445#23384#32593#26684#23646#24615
      OnClick = GridClick
    end
  end
end