fwhfcl.dfm

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

object FwHfclForm: TFwHfclForm
  Left = 7
  Top = 135
  Width = 735
  Height = 420
  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 GroupBox1: TGroupBox
    Left = 7
    Top = 8
    Width = 713
    Height = 177
    Caption = '服务信息'
    TabOrder = 0
    object DBGrid1: TDBGrid
      Left = 8
      Top = 16
      Width = 609
      Height = 153
      DataSource = DataSourcefwsl
      ReadOnly = True
      TabOrder = 0
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'fwlx'
          Title.Alignment = taCenter
          Title.Caption = '类型'
          Width = 55
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'khmc'
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 153
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'slrq'
          Title.Alignment = taCenter
          Title.Caption = '受理日期'
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'zxrm'
          Title.Alignment = taCenter
          Title.Caption = '执行人'
          Width = 69
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'jsrq'
          Title.Alignment = taCenter
          Title.Caption = '结算日期'
          Width = 107
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'hfrq'
          Title.Alignment = taCenter
          Title.Caption = '回访日期'
          Width = 89
          Visible = True
        end>
    end
    object Button1: TButton
      Left = 632
      Top = 16
      Width = 65
      Height = 25
      Caption = '查询'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button7: TButton
      Left = 632
      Top = 112
      Width = 65
      Height = 25
      Caption = '退出'
      TabOrder = 2
      OnClick = Button7Click
    end
    object CheckBox1: TCheckBox
      Left = 632
      Top = 144
      Width = 73
      Height = 17
      Caption = '全部信息'
      TabOrder = 3
      OnClick = CheckBox1Click
    end
    object Button2: TButton
      Left = 632
      Top = 48
      Width = 65
      Height = 25
      Caption = '回访'
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button4: TButton
      Left = 632
      Top = 80
      Width = 65
      Height = 25
      Caption = '取消回访'
      TabOrder = 5
      OnClick = Button4Click
    end
  end
  object GroupBox2: TGroupBox
    Left = 7
    Top = 190
    Width = 713
    Height = 195
    Caption = '回访信息'
    TabOrder = 1
    object Label9: TLabel
      Left = 24
      Top = 24
      Width = 56
      Height = 14
      Caption = '商品型号'
    end
    object Label14: TLabel
      Left = 24
      Top = 152
      Width = 56
      Height = 14
      Caption = '回访人员'
    end
    object Label1: TLabel
      Left = 24
      Top = 56
      Width = 56
      Height = 14
      Caption = '回访情况'
    end
    object Label3: TLabel
      Left = 24
      Top = 120
      Width = 56
      Height = 14
      Caption = '回访日期'
    end
    object Label2: TLabel
      Left = 24
      Top = 88
      Width = 56
      Height = 14
      Caption = '客户建议'
    end
    object Label4: TLabel
      Left = 264
      Top = 152
      Width = 56
      Height = 14
      Caption = '档案编号'
    end
    object DBEdit6: TDBEdit
      Left = 88
      Top = 24
      Width = 113
      Height = 22
      DataField = 'flmc'
      DataSource = DataSourcefwsl
      ReadOnly = True
      TabOrder = 0
    end
    object DBEdit7: TDBEdit
      Left = 208
      Top = 24
      Width = 113
      Height = 22
      DataField = 'ppmc'
      DataSource = DataSourcefwsl
      ReadOnly = True
      TabOrder = 1
    end
    object DBEdit8: TDBEdit
      Left = 328
      Top = 24
      Width = 113
      Height = 22
      DataField = 'ggmc'
      DataSource = DataSourcefwsl
      ReadOnly = True
      TabOrder = 2
    end
    object DBRadioGroup1: TDBRadioGroup
      Left = 328
      Top = 56
      Width = 113
      Height = 81
      Caption = '回访方式'
      DataField = 'zxfwyj'
      DataSource = DataSourcefwhf
      Items.Strings = (
        '上门'
        '电话'
        '经理认可')
      TabOrder = 3
    end
    object DBEdit3: TDBEdit
      Left = 88
      Top = 88
      Width = 233
      Height = 22
      DataField = 'fwbz'
      DataSource = DataSourcefwhf
      TabOrder = 4
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 88
      Top = 152
      Width = 121
      Height = 22
      DataField = 'zxrybh'
      DataSource = DataSourcefwhf
      KeyField = 'rybh'
      ListField = 'ryxm'
      ListSource = DataSourceryxx
      TabOrder = 5
    end
    object Button3: TButton
      Left = 488
      Top = 152
      Width = 81
      Height = 33
      Caption = '确认'
      TabOrder = 6
      OnClick = Button3Click
    end
    object Button5: TButton
      Left = 592
      Top = 152
      Width = 81
      Height = 33
      Caption = '放弃'
      TabOrder = 7
      OnClick = Button5Click
    end
    object DBCheckBox1: TDBCheckBox
      Left = 456
      Top = 26
      Width = 113
      Height = 17
      Caption = '支付人员回访费用'
      DataField = 'iszfryfwfy'
      DataSource = DataSourcefwhf
      TabOrder = 8
      ValueChecked = '是'
      ValueUnchecked = '否'
      OnClick = DBCheckBox1Click
    end
    object DBLookupComboBox2: TDBLookupComboBox
      Left = 88
      Top = 56
      Width = 233
      Height = 22
      DataField = 'zxqkbh'
      DataSource = DataSourcefwhf
      KeyField = 'bh'
      ListField = 'mc'
      ListSource = DataSourcehfxx
      TabOrder = 9
    end
    object DBCheckBox2: TDBCheckBox
      Left = 456
      Top = 57
      Width = 121
      Height = 17
      Caption = '支付人员误工费'
      DataField = 'iszfrywgfy'
      DataSource = DataSourcefwhf
      TabOrder = 10
      ValueChecked = '是'
      ValueUnchecked = '否'
      OnClick = DBCheckBox2Click
    end
    object DBCheckBox3: TDBCheckBox
      Left = 456
      Top = 89
      Width = 121
      Height = 17
      Caption = '支付人员交通费'
      DataField = 'iszfryjtfy'
      DataSource = DataSourcefwhf
      TabOrder = 11
      ValueChecked = '是'
      ValueUnchecked = '否'
      OnClick = DBCheckBox3Click
    end
    object DBCheckBox4: TDBCheckBox
      Left = 456
      Top = 120
      Width = 137
      Height = 17
      Caption = '收取供应商回访费'
      DataField = 'gysfyflag'
      DataSource = DataSourcefwhf
      TabOrder = 12
      ValueChecked = '是'
      ValueUnchecked = '否'
      OnClick = DBCheckBox4Click
    end
    object DBEdit1: TDBEdit
      Left = 592
      Top = 24
      Width = 97
      Height = 22
      DataField = 'yfryfy'
      DataSource = DataSourcefwhf
      ReadOnly = True
      TabOrder = 13
    end
    object DBEdit2: TDBEdit
      Left = 592
      Top = 56
      Width = 97
      Height = 22
      DataField = 'yfrywgfy'
      DataSource = DataSourcefwhf
      ReadOnly = True
      TabOrder = 14
    end
    object DBEdit4: TDBEdit
      Left = 592
      Top = 88
      Width = 97
      Height = 22
      DataField = 'yfryjtfy'
      DataSource = DataSourcefwhf
      ReadOnly = True
      TabOrder = 16
    end
    object DBEdit5: TDBEdit
      Left = 592
      Top = 120
      Width = 97
      Height = 22
      DataField = 'mffwfy'
      DataSource = DataSourcefwhf
      ReadOnly = True
      TabOrder = 15
    end
    object DBEdit10: TDBEdit
      Left = 88
      Top = 120
      Width = 113
      Height = 22
      DataField = 'zxrq'
      DataSource = DataSourcefwhf
      ReadOnly = True
      TabOrder = 17
    end
    object DateTimePicker1: TDateTimePicker
      Left = 88
      Top = 120
      Width = 121
      Height = 22
      CalAlignment = dtaLeft
      Date = 37463.6885265046
      Time = 37463.6885265046
      DateFormat = dfLong
      DateMode = dmComboBox
      Kind = dtkDate
      ParseInput = False
      TabOrder = 18
      Visible = False
    end
    object DBEdit9: TDBEdit
      Left = 328
      Top = 152
      Width = 113
      Height = 22
      DataField = 'dabh'
      DataSource = DataSourcefwsl
      ReadOnly = True
      TabOrder = 19
    end
  end
  object ADOQueryfwsl: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from fwsl  where hfflag='#39'否'#39' and delflag='#39'否'#39' '
      'and (  jsflag='#39'是'#39' or  fwlx='#39'回访'#39' ) order by slrq')
    Left = 143
    Top = 112
  end
  object DataSourcefwsl: TDataSource
    DataSet = ADOQueryfwsl
    OnStateChange = DataSourcefwslStateChange
    Left = 183
    Top = 112
  end
  object ADOQueryfwjs: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQueryfwjsAfterInsert
    DataSource = DataSourcefwsl
    Parameters = <
      item
        Name = 'dabh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '00001'
      end>
    SQL.Strings = (
      'select * from fwjs where dabh=:dabh and jslx='#39'回访'#39)
    Left = 359
    Top = 128
  end
  object DataSourcefwhf: TDataSource
    DataSet = ADOQueryfwjs
    Left = 399
    Top = 136
  end
  object ADOTableryxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'ryxx'
    Left = 471
    Top = 88
  end
  object DataSourceryxx: TDataSource
    DataSet = ADOTableryxx
    Left = 511
    Top = 96
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 255
    Top = 144
  end
  object DataSourcehfxx: TDataSource
    DataSet = ADOQueryhfxx
    Left = 535
    Top = 152
  end
  object ADOQueryhfxx: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from fwqkxx where lx='#39'回访'#39)
    Left = 495
    Top = 152
  end
end