fwfx.dfm

售后服务系统优质的售后服务是企业生存和市场竞争的保障

object FwFxForm: TFwFxForm
  Left = 197
  Top = 145
  Width = 666
  Height = 353
  Caption = '服务分析'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -14
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 456
    Top = 208
    Width = 56
    Height = 14
    Caption = '起始日期'
  end
  object Label2: TLabel
    Left = 456
    Top = 248
    Width = 56
    Height = 14
    Caption = '终止日期'
  end
  object DBChart1: TDBChart
    Left = 8
    Top = 8
    Width = 433
    Height = 305
    BackWall.Brush.Color = clWhite
    BackWall.Color = clSilver
    BottomWall.Brush.Color = clWhite
    LeftWall.Brush.Color = clWhite
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -19
    Title.Font.Name = '黑体'
    Title.Font.Style = [fsBold]
    Title.Text.Strings = (
      '')
    BackColor = clSilver
    View3D = False
    View3DOptions.Elevation = 315
    View3DOptions.Orthogonal = False
    View3DOptions.Perspective = 0
    View3DOptions.Rotation = 360
    BevelOuter = bvLowered
    TabOrder = 0
    object CheckBox1: TCheckBox
      Left = 360
      Top = 280
      Width = 65
      Height = 17
      Caption = '3D效果'
      TabOrder = 0
      OnClick = CheckBox1Click
    end
    object Series2: TPieSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Style = smsLabelPercent
      Marks.Visible = True
      DataSource = ADOQueryfwry
      SeriesColor = 16777088
      Title = '服务人员服务量比较'
      OtherSlice.Text = 'Other'
      PieValues.DateTime = False
      PieValues.Name = 'Pie'
      PieValues.Multiplier = 1
      PieValues.Order = loNone
      PieValues.ValueSource = 'Expr1001'
    end
    object Series1: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOQueryfwry
      SeriesColor = 12615680
      Title = '服务人员费用比较'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
    object Series3: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOQueryfwry
      SeriesColor = 16744576
      Title = '服务人员创效比较'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'Expr1001'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
    object Series4: TFastLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = ADOQueryslqs
      SeriesColor = clRed
      Title = '服务受理趋势'
      XLabelsSource = 'slrq'
      LinePen.Color = clRed
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'slrq'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
    object Series5: TBarSeries
      Active = False
      Marks.ArrowLength = 20
      Marks.Visible = True
      DataSource = ADOQuerybxqs
      SeriesColor = 8421440
      Title = '商品报修'
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loNone
      XValues.ValueSource = 'Expr1001'
      YValues.DateTime = False
      YValues.Name = 'Bar'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
    object Series6: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = ADOQuerysrqs
      SeriesColor = clRed
      Title = '服务收入趋势'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'slrq'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
    object Series7: TLineSeries
      Active = False
      Marks.ArrowLength = 8
      Marks.Visible = False
      DataSource = ADOQuerycbqs
      SeriesColor = clBlue
      Title = '服务成本趋势'
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = True
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      XValues.ValueSource = 'slrq'
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
      YValues.ValueSource = 'Expr1001'
    end
  end
  object DateTimePicker1: TDateTimePicker
    Left = 528
    Top = 208
    Width = 121
    Height = 22
    CalAlignment = dtaLeft
    Date = 37480.5368247685
    Time = 37480.5368247685
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 1
  end
  object DateTimePicker2: TDateTimePicker
    Left = 528
    Top = 248
    Width = 121
    Height = 22
    CalAlignment = dtaLeft
    Date = 37480.5368247685
    Time = 37480.5368247685
    DateFormat = dfLong
    DateMode = dmComboBox
    Kind = dtkDate
    ParseInput = False
    TabOrder = 2
  end
  object Button1: TButton
    Left = 464
    Top = 280
    Width = 75
    Height = 33
    Caption = '确定'
    TabOrder = 3
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 560
    Top = 280
    Width = 75
    Height = 33
    Caption = '退出'
    TabOrder = 4
    OnClick = Button2Click
  end
  object RadioGroup1: TRadioGroup
    Left = 448
    Top = 8
    Width = 201
    Height = 185
    Caption = '选择分析类型'
    ItemIndex = 0
    Items.Strings = (
      '服务收入与成本趋势'
      '服务受理趋势'
      '商品报修趋势'
      '服务人员服务量'
      '服务人员费用'
      '服务人员创效')
    TabOrder = 5
    OnClick = RadioGroup1Click
  end
  object ADOQueryfwry: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'P_srq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2000-01-01'
      end
      item
        Name = 'P_erq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2002-12-31'
      end>
    SQL.Strings = (
      'select fwjs.zxrm,sum(yfryfy+yfryjtfy+yfrywgfy) '
      'from fwsl,fwjs where fwsl.slrq>=:P_srq and fwsl.slrq<=:P_erq'
      ' and fwsl.dabh = fwjs.dabh group by fwjs.zxrm')
    Left = 592
    Top = 120
  end
  object ADOQueryslqs: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'P_srq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2000-01-01'
      end
      item
        Name = 'P_erq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2002-12-31'
      end>
    SQL.Strings = (
      'select slrq,count(*) from fwsl '
      'where slrq>=:P_srq and slrq<=:P_erq and delflag='#39'否'#39
      ' group by slrq')
    Left = 592
    Top = 40
  end
  object ADOQuerybxqs: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select flmc,count(*) '
      'from fwsl group by flmc')
    Left = 616
    Top = 64
  end
  object ADOQuerysrqs: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'P_srq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2000-01-01'
      end
      item
        Name = 'P_erq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2002-12-31'
      end>
    SQL.Strings = (
      'select fwsl.slrq,sum(mfpjfy+mffwfy+gysjtfy+gyswgfy+sskhfy)'
      ' from fwsl,fwjs '
      'where slrq>=:P_srq and slrq<=:P_erq and delflag='#39'否'#39
      'and fwsl.dabh=fwjs.dabh  group by slrq')
    Left = 360
    Top = 16
  end
  object ADOQuerycbqs: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'P_srq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2000-01-01'
      end
      item
        Name = 'P_erq'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '2002-12-31'
      end>
    SQL.Strings = (
      'select fwsl.slrq,sum(yfryfy+yfryjtfy+yfrywgfy+fwpjcb)'
      ' from fwsl,fwjs '
      'where slrq>=:P_srq and slrq<=:P_erq and delflag='#39'否'#39
      'and fwsl.dabh=fwjs.dabh  group by slrq')
    Left = 392
    Top = 16
  end
end