setfwqkxx.dfm

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

object SetFwQkxxForm: TSetFwQkxxForm
  Left = 171
  Top = 179
  Width = 504
  Height = 356
  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 Button2: TButton
    Left = 8
    Top = 296
    Width = 75
    Height = 25
    Caption = '增加'
    TabOrder = 0
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 88
    Top = 296
    Width = 75
    Height = 25
    Caption = '修改'
    TabOrder = 1
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 168
    Top = 296
    Width = 75
    Height = 25
    Caption = '保存'
    TabOrder = 2
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 248
    Top = 296
    Width = 75
    Height = 25
    Caption = '放弃'
    TabOrder = 3
    OnClick = Button5Click
  end
  object Button6: TButton
    Left = 328
    Top = 296
    Width = 75
    Height = 25
    Caption = '删除'
    TabOrder = 4
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 408
    Top = 296
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 5
    OnClick = Button7Click
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 481
    Height = 281
    ActivePage = TabSheet1
    TabOrder = 6
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = '服务情况信息'
      object DBGrid1: TDBGrid
        Left = 48
        Top = 11
        Width = 369
        Height = 222
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '名称'
            Width = 304
            Visible = True
          end>
      end
    end
    object TabSheet2: TTabSheet
      Caption = '回访情况信息'
      ImageIndex = 1
      object DBGrid2: TDBGrid
        Left = 48
        Top = 11
        Width = 369
        Height = 222
        DataSource = DataSource1
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '名称'
            Width = 304
            Visible = True
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = '服务地址信息'
      ImageIndex = 2
      object DBGrid3: TDBGrid
        Left = 0
        Top = 3
        Width = 473
        Height = 246
        DataSource = DataSource3
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '名称'
            Width = 189
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'lc'
            Title.Alignment = taCenter
            Title.Caption = '距离（公里）'
            Width = 94
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'wgfy'
            Title.Alignment = taCenter
            Title.Caption = '误工费用'
            Width = 71
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'jtf'
            Title.Alignment = taCenter
            Title.Caption = '交通费用'
            Width = 68
            Visible = True
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = '故障编码信息'
      ImageIndex = 3
      object DBGrid4: TDBGrid
        Left = 64
        Top = 56
        Width = 345
        Height = 185
        DataSource = DataSourcegzbm
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -14
        TitleFont.Name = '宋体'
        TitleFont.Style = []
        Columns = <
          item
            Expanded = False
            FieldName = 'mc'
            Title.Alignment = taCenter
            Title.Caption = '故障编码名称'
            Width = 281
            Visible = True
          end>
      end
      object GroupBox1: TGroupBox
        Left = 64
        Top = 8
        Width = 345
        Height = 41
        Caption = '指定分类'
        TabOrder = 1
        object DBLookupComboBox1: TDBLookupComboBox
          Left = 80
          Top = 11
          Width = 169
          Height = 22
          KeyField = 'flbh'
          ListField = 'flmc'
          ListSource = DataSourceflxx
          TabOrder = 0
          OnClick = DBLookupComboBox1Click
        end
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQueryfwqkxx
    OnStateChange = DataSource1StateChange
    Left = 96
    Top = 128
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 196
    Top = 153
  end
  object ADOTable3: TADOTable
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOTable3AfterInsert
    BeforePost = ADOTable3BeforePost
    TableName = 'dzqy'
    Left = 64
    Top = 184
  end
  object DataSource3: TDataSource
    DataSet = ADOTable3
    OnStateChange = DataSource3StateChange
    Left = 96
    Top = 184
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Left = 344
    Top = 64
  end
  object DataSourceflxx: TDataSource
    DataSet = ADOTableflxx
    Left = 376
    Top = 64
  end
  object ADOQuerygzbm: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQuerygzbmAfterInsert
    BeforePost = ADOQuerygzbmBeforePost
    DataSource = DataSourceflxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = Null
      end>
    SQL.Strings = (
      'select * from gzbm where flbh=:flbh')
    Left = 296
    Top = 152
  end
  object DataSourcegzbm: TDataSource
    DataSet = ADOQuerygzbm
    OnStateChange = DataSourcegzbmStateChange
    Left = 328
    Top = 152
  end
  object ADOQueryfwqkxx: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <
      item
        Name = 'P_lx'
        Size = -1
        Value = Null
      end>
    SQL.Strings = (
      'select * from fwqkxx where lx=:P_lx')
    Left = 68
    Top = 121
  end
end