month_report1.~dfm

此为 汽车维修管理系统 采用ODBC驱动 控制面板里设置 数据库名:qcwxgl 说明：汽车维修管理 SQL服务器名:yangfeng 默认数据库名:qcwxgl

          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 14
        end
      end
      object SummaryBand1: TQRBand
        Left = 38
        Top = 143
        Width = 718
        Height = 40
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          105.833333333333300000
          1899.708333333333000000)
        BandType = rbSummary
        object QRLabel8: TQRLabel
          Left = 352
          Top = 8
          Width = 70
          Height = 25
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            66.145833333333340000
            931.333333333333500000
            21.166666666666670000
            185.208333333333300000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #24635#21033#28070
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 16
        end
        object QRDBText7: TQRDBText
          Left = 504
          Top = 8
          Width = 70
          Height = 25
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            66.145833333333340000
            1333.500000000000000000
            21.166666666666670000
            185.208333333333300000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Color = clWhite
          DataSet = Query2
          DataField = #24635#21033#28070
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -21
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          Transparent = False
          WordWrap = True
          FontSize = 16
        end
      end
      object QRBand1: TQRBand
        Left = 38
        Top = 79
        Width = 718
        Height = 24
        Frame.Color = clBlack
        Frame.DrawTop = False
        Frame.DrawBottom = False
        Frame.DrawLeft = False
        Frame.DrawRight = False
        AlignToBottom = False
        Color = clWhite
        ForceNewColumn = False
        ForceNewPage = False
        Size.Values = (
          63.500000000000000000
          1899.708333333333000000)
        BandType = rbColumnHeader
        object QRLabel3: TQRLabel
          Left = 120
          Top = 0
          Width = 49
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            317.500000000000000000
            0.000000000000000000
            129.645833333333300000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #38646#20214#21495
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel4: TQRLabel
          Left = 240
          Top = 0
          Width = 33
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            635.000000000000000000
            0.000000000000000000
            87.312500000000000000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #25968#37327
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel5: TQRLabel
          Left = 336
          Top = 0
          Width = 33
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            889.000000000000000000
            0.000000000000000000
            87.312500000000000000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #20215#26684
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel6: TQRLabel
          Left = 440
          Top = 0
          Width = 33
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            1164.166666666667000000
            0.000000000000000000
            87.312500000000000000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #25104#26412
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel7: TQRLabel
          Left = 536
          Top = 0
          Width = 33
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            1418.166666666667000000
            0.000000000000000000
            87.312500000000000000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #21033#28070
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
        object QRLabel2: TQRLabel
          Left = 24
          Top = 0
          Width = 49
          Height = 17
          Frame.Color = clBlack
          Frame.DrawTop = False
          Frame.DrawBottom = False
          Frame.DrawLeft = False
          Frame.DrawRight = False
          Size.Values = (
            44.979166666666670000
            63.500000000000000000
            0.000000000000000000
            129.645833333333300000)
          Alignment = taLeftJustify
          AlignToBand = False
          AutoSize = True
          AutoStretch = False
          Caption = #38646#20214#21517
          Color = clWhite
          Transparent = False
          WordWrap = True
          FontSize = 10
        end
      end
    end
  end
  object Query1: TQuery
    DatabaseName = 'qcgl'
    SQL.Strings = (
      'drop table month_part'
      'create table month_part('#38646#20214#21495' [varchar](10) not null ,'#25968#37327' int)'
      'insert into month_part('#38646#20214#21495','#25968#37327') '
      
        'select '#38646#20214#21495',sum('#38646#20214#25968#37327') as '#25968#37327'  from z3  where '#23436#20462#26085#26399'>'#39'2005-3-1'#39' and '#23436 +
        #20462#26085#26399'<'#39'2005-3-31'#39' group by '#38646#20214#21495
      
        'select z4.'#38646#20214#21517',month_part.'#38646#20214#21495',month_part.'#25968#37327',z4.'#20215#26684',z4.'#25104#26412', (z4.'#20215#26684'-z' +
        '4.'#25104#26412')*month_part.'#25968#37327' as '#21033#28070
      'from z4,month_part where month_part.'#38646#20214#21495'=z4.'#38646#20214#21495)
    Left = 592
    Top = 8
  end
  object Query2: TQuery
    Active = True
    DatabaseName = 'qcgl'
    SQL.Strings = (
      'select sum((z4.'#20215#26684'-z4.'#25104#26412')*month_part.'#25968#37327') as '#24635#21033#28070'  '
      'from z4,month_part where month_part.'#38646#20214#21495'=z4.'#38646#20214#21495)
    Left = 632
    Top = 8
  end
end