ufrmreport.dfm

水电管理系统,你们不妨看看怎么样?我再继续给你们别的

        Top = 32
        Width = 746
        Height = 362
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataSource2
        FixedColor = clScrollBar
        Flat = True
        FooterColor = clFuchsia
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        FrozenCols = 2
        ImeName = '中文 (简体) - 王码五笔型86版'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        SumList.Active = True
        TabOrder = 1
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        Columns = <
          item
            EditButtons = <>
            EndEllipsis = True
            FieldName = 'F_WrokShopName'
            Footer.Alignment = taCenter
            Footer.FieldName = 'F_WrokShopName'
            Footer.Value = '统计'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Caption = '班组名称'
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'F_MeterID'
            Footers = <>
            Title.Caption = '表编号'
          end
          item
            EditButtons = <>
            FieldName = 'F_MeterSortNameSum'
            Footers = <>
            Title.Caption = '表类别'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_CurValue'
            Footer.FieldName = 'F_CurValue'
            Footer.ValueType = fvtSum
            Footer.WordWrap = True
            Footers = <>
            Title.Caption = '使用数量'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_ChargeTotal'
            Footer.Color = clRed
            Footer.FieldName = 'F_ChargeTotal'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用统计(元)|总费用'
            Width = 90
          end
          item
            EditButtons = <>
            FieldName = 'F_Charge'
            Footer.FieldName = 'F_Charge'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用统计(元)|计划内费用'
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'F_QuotaCharge'
            Footer.FieldName = 'F_QuotaCharge'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用统计(元)|超支费用'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_Quota'
            Footer.FieldName = 'F_Quota'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用统计(元)|限额费用'
          end
          item
            EditButtons = <>
            FieldName = 'F_PriceNumber'
            Footer.FieldName = 'F_PriceNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '单价(元)|单价'
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'F_ExceedPrice'
            Footer.FieldName = 'F_ExceedPrice'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '单价(元)|超出部分单价'
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'F_TakeNumber'
            Footer.FieldName = 'F_TakeNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '最后抄表数'
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'F_BaseNumber'
            Footer.FieldName = 'F_BaseNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '安装基数'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_SubjoinNumber'
            Footer.FieldName = 'F_SubjoinNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '附加数量'
            Width = 40
          end
          item
            EditButtons = <>
            FieldName = 'F_Multiple'
            Footer.FieldName = 'F_Multiple'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '倍率'
            Width = 30
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '车间汇总表'
      ImageIndex = 2
      object DBGridEh2: TDBGridEh
        Left = 0
        Top = 0
        Width = 746
        Height = 394
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataSource3
        Flat = True
        FooterColor = clFuchsia
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -13
        FooterFont.Name = 'MS Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        FrozenCols = 2
        ImeName = '中文 (简体) - 王码五笔型86版'
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -13
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        UseMultiTitle = True
        Columns = <
          item
            EditButtons = <>
            FieldName = 'WrokShopName'
            Footer.Alignment = taCenter
            Footer.FieldName = 'WrokShopName'
            Footer.Value = '统计'
            Footer.ValueType = fvtStaticText
            Footers = <>
            Title.Caption = '车间名称'
            Width = 100
          end
          item
            EditButtons = <>
            FieldName = 'MeterSortName'
            Footers = <>
            Title.Caption = '类型'
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'F_CurValue'
            Footer.FieldName = 'F_CurValue'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '使用数量|实用数量'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_SubjoinNumber'
            Footer.FieldName = 'F_SubjoinNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '使用数量|附加数量'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'PriceName'
            Footers = <>
            Title.Caption = '单价(元)|单价名称'
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'F_PriceNumber'
            Footer.FieldName = 'F_PriceNumber'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '单价(元)|单价'
            Width = 65
          end
          item
            EditButtons = <>
            FieldName = 'F_ExceedPrice'
            Footer.FieldName = 'F_ExceedPrice'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '单价(元)|超出部分单价'
            Width = 80
          end
          item
            EditButtons = <>
            FieldName = 'F_ChargeTotal'
            Footer.FieldName = 'F_ChargeTotal'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用(元)|费用合计'
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'F_Charge'
            Footer.FieldName = 'F_Charge'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用(元)|计划内费用'
            Width = 70
          end
          item
            EditButtons = <>
            FieldName = 'F_QuotaCharge'
            Footer.FieldName = 'F_QuotaCharge'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用(元)|超支费用'
            Width = 60
          end
          item
            EditButtons = <>
            FieldName = 'F_Quota'
            Footer.FieldName = 'F_Quota'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = '费用(元)|限额费用'
            Width = 65
          end>
      end
    end
  end
  object XPMenu1: TXPMenu
    DimLevel = 30
    GrayLevel = 10
    Font.Charset = GB2312_CHARSET
    Font.Color = clMenuText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Color = clBtnFace
    IconBackColor = clBtnFace
    MenuBarColor = clBtnFace
    SelectColor = clHighlight
    SelectBorderColor = clHighlight
    SelectFontColor = clMenuText
    DisabledColor = clInactiveCaption
    SeparatorColor = clBtnFace
    CheckedColor = clHighlight
    IconWidth = 24
    DrawSelect = True
    UseSystemColors = True
    OverrideOwnerDraw = False
    Gradient = False
    FlatMenu = False
    AutoDetect = False
    Active = True
    Left = 60
    Top = 119
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.Txt'
    Filter = '文本文件(Text File)|*.txt'
    Title = '导出文件到...'
    Left = 60
    Top = 183
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 52
    Top = 379
  end
  object ADOQuery1: TADOQuery
    CursorType = ctStatic
    Parameters = <>
    Left = 84
    Top = 379
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 156
    Top = 379
  end
  object ADOQuery2: TADOQuery
    Parameters = <>
    Left = 188
    Top = 379
  end
  object DataSource3: TDataSource
    DataSet = ADOQuery3
    Left = 252
    Top = 383
  end
  object ADOQuery3: TADOQuery
    Parameters = <>
    Left = 284
    Top = 383
  end
  object PrintDBGridEh1: TPrintDBGridEh
    DBGridEh = DBGDWorkshop
    Options = []
    Page.BottomMargin = 2
    Page.LeftMargin = 2
    Page.RightMargin = 2
    Page.TopMargin = 2
    PageFooter.Font.Charset = DEFAULT_CHARSET
    PageFooter.Font.Color = clWindowText
    PageFooter.Font.Height = -11
    PageFooter.Font.Name = 'MS Sans Serif'
    PageFooter.Font.Style = []
    PageHeader.Font.Charset = DEFAULT_CHARSET
    PageHeader.Font.Color = clWindowText
    PageHeader.Font.Height = -16
    PageHeader.Font.Name = '宋体'
    PageHeader.Font.Style = []
    Units = MM
    Left = 356
    Top = 383
  end
end