fwryjs.dfm

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

object FwRyJsForm: TFwRyJsForm
  Left = 259
  Top = 153
  Width = 313
  Height = 296
  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 Panel1: TPanel
    Left = 8
    Top = 8
    Width = 289
    Height = 257
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label4: TLabel
      Left = 40
      Top = 24
      Width = 56
      Height = 14
      Caption = '起始日期'
    end
    object Label5: TLabel
      Left = 40
      Top = 64
      Width = 56
      Height = 14
      Caption = '终止日期'
    end
    object DateTimePicker1: TDateTimePicker
      Left = 112
      Top = 24
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 37412.7195804051
      Time = 37412.7195804051
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 0
    end
    object DateTimePicker2: TDateTimePicker
      Left = 112
      Top = 64
      Width = 145
      Height = 22
      CalAlignment = dtaLeft
      Date = 37412.7195804051
      Time = 37412.7195804051
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 1
    end
    object dxfColorButton1: TdxfColorButton
      Left = 192
      Top = 144
      Width = 65
      Height = 40
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '明细')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton1Click
    end
    object dxfColorButton2: TdxfColorButton
      Left = 192
      Top = 192
      Width = 65
      Height = 40
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '退出')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton2Click
    end
    object RadioGroup1: TRadioGroup
      Left = 40
      Top = 96
      Width = 105
      Height = 137
      Caption = '服务类型'
      Items.Strings = (
        '安装'
        '维修'
        '调试'
        '回访'
        '全部')
      TabOrder = 4
    end
    object dxfColorButton3: TdxfColorButton
      Left = 192
      Top = 96
      Width = 65
      Height = 40
      Cursor = crHandPoint
      Color = clAqua
      Caption.Strings = (
        '汇总')
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Visible = True
      OnClick = dxfColorButton3Click
    end
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSource1
    Parameters = <>
    SQL.Strings = (
      'select * from fwsl,fwjs')
    Left = 8
    Top = 72
  end
  object ADOQueryryxx: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct fwjs.zxrm from fwsl,fwjs ')
    Left = 8
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQueryryxx
    Left = 16
    Top = 40
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'select fwjs.zxrm,sum(yfryfy),sum(yfryjtfy),sum(yfrywgfy) from fw' +
        'sl,fwjs where fwsl.delflag='#39'否'#39' '
      
        ' and fwsl.jsflag='#39'是'#39' and fwjs.jslx<>'#39'回访'#39' and fwjs.dabh = fwsl' +
        '.dabh group by fwjs.zxrm order by fwjs.zxrm')
    Left = 8
    Top = 136
  end
end