upub2.dfm

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

object fmpub2: Tfmpub2
  Left = 191
  Top = 104
  Width = 548
  Height = 417
  Caption = #35831#31561#24453'...'
  Color = clBtnFace
  ParentFont = True
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Scaled = False
  Visible = True
  WindowState = wsMaximized
  OnActivate = FormActivate
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl: TPageControl
    Left = 0
    Top = 84
    Width = 540
    Height = 306
    ActivePage = Tabbrowse
    Align = alClient
    Images = DM.ImageTool
    Style = tsFlatButtons
    TabOrder = 0
    TabStop = False
    object Tabbrowse: TTabSheet
      Caption = #27983#35272
      object Splitter: TSplitter
        Left = 0
        Top = 273
        Width = 532
        Height = 4
        Cursor = crVSplit
        Align = alTop
      end
      object GridMas: TdxDBGrid
        Left = 0
        Top = 0
        Width = 532
        Height = 273
        Bands = <
          item
            Caption = #24038#36793#37096#20998
          end
          item
            Caption = #20013#36793#37096#20998
          end
          item
            Caption = #21491#36793#37096#20998
            Visible = False
          end>
        DefaultLayout = False
        HeaderPanelRowCount = 1
        SummaryGroups = <>
        SummarySeparator = ', '
        Align = alTop
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        TabOrder = 0
        OnDblClick = GridMasDblClick
        BandFont.Charset = CHINESEBIG5_CHARSET
        BandFont.Color = clWindowText
        BandFont.Height = -12
        BandFont.Name = #26032#32454#26126#20307
        BandFont.Style = []
        DataSource = DSMas
        Filter.Criteria = {00000000}
        FixedBandLineColor = clRed
        GridLineColor = clBlue
        HeaderFont.Charset = ANSI_CHARSET
        HeaderFont.Color = clWindowText
        HeaderFont.Height = -12
        HeaderFont.Name = 'MS Sans Serif'
        HeaderFont.Style = []
        OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        PreviewFont.Charset = DEFAULT_CHARSET
        PreviewFont.Color = clBlue
        PreviewFont.Height = -12
        PreviewFont.Name = #26032#32454#26126#20307
        PreviewFont.Style = []
        OnChangeNode = GridMasChangeNode
        OnHeaderButtonClick = GridMasHeaderButtonClick
        OnColumnClick = GridMasColumnClick
      end
      object PanelButtom: TPanel
        Left = 0
        Top = 250
        Width = 532
        Height = 24
        Align = alBottom
        Caption = 'PanelButtom'
        TabOrder = 1
        object StatusTabSet: TTabSet
          Left = 1
          Top = 1
          Width = 530
          Height = 22
          Align = alClient
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -15
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          SelectedColor = clYellow
          Tabs.Strings = (
            #26410#25209#26680
            #24050#25209#26680
            #24050#35760#24080
            #25152#26377)
          TabIndex = 0
          OnChange = StatusTabSetChange
        end
      end
      object PanelGrid: TPanel
        Left = 0
        Top = 277
        Width = 532
        Height = 348
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 2
        object GridSub: TdxDBGrid
          Left = 0
          Top = 0
          Width = 532
          Height = 348
          Bands = <
            item
              Caption = #24038#36793#37096#20998
            end
            item
              Caption = #20013#36793#37096#20998
            end
            item
              Caption = #21491#36793#37096#20998
              Visible = False
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          TabOrder = 0
          DataSource = DSSub
          Filter.Criteria = {00000000}
          FixedBandLineColor = clRed
          GridLineColor = clBlue
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
          OnColumnClick = GridSubColumnClick
        end
      end
    end
    object TabEdit: TTabSheet
      Caption = #24405#20837
      ImageIndex = 1
      object PanelEnter: TPanel
        Left = 0
        Top = 0
        Width = 532
        Height = 89
        Align = alTop
        BorderStyle = bsSingle
        TabOrder = 0
      end
      object PanelView: TPanel
        Left = 0
        Top = 89
        Width = 532
        Height = 185
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object GridEnter: TdxDBGrid
          Left = 0
          Top = 0
          Width = 532
          Height = 185
          Hint = #29992'Ctrl+Del '#21024#38500#24403#21069#23376#39033#65111
          Bands = <
            item
              Fixed = bfLeft
            end
            item
            end>
          DefaultLayout = False
          HeaderPanelRowCount = 1
          SummaryGroups = <>
          SummarySeparator = ', '
          Align = alClient
          ParentShowHint = False
          ShowHint = True
          TabOrder = 0
          OnKeyDown = GridEnterKeyDown
          DataSource = DSSub
          DefaultRowHeight = 23
          Filter.Criteria = {00000000}
          FixedBandLineColor = clRed
          GridLineColor = clBlue
          OptionsBehavior = [edgoAutoSort, edgoDragScroll, edgoEditing, edgoEnterShowEditor, edgoImmediateEditor, edgoSeekDetail, edgoTabThrough, edgoVertThrough]
          OptionsDB = [edgoCanInsert, edgoCanNavigation, edgoConfirmDelete, edgoUseBookmarks]
          OptionsView = [edgoBandHeaderWidth, edgoIndicator, edgoUseBitmap]
        end
      end
    end
    object TabReport: TTabSheet
      Caption = #39044#30041
      ImageIndex = 2
    end
  end
  object ToolBar: TToolBar
    Left = 0
    Top = 0
    Width = 540
    Height = 84
    AutoSize = True
    ButtonHeight = 36
    ButtonWidth = 43
    Caption = '`'
    EdgeBorders = [ebTop, ebBottom]
    Flat = True
    Images = DM.ImageTool
    ShowCaptions = True
    TabOrder = 1
    Transparent = True
    OnDblClick = ToolBarDblClick
    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