⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 fwsl.dfm

📁 售后服务系统优质的售后服务是企业生存和市场竞争的保障
💻 DFM
字号:
object FwSlForm: TFwSlForm
  Left = 28
  Top = 104
  Width = 729
  Height = 453
  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 GroupBox2: TGroupBox
    Left = 7
    Top = 3
    Width = 602
    Height = 126
    Caption = '客户信息'
    TabOrder = 0
    object Label2: TLabel
      Left = 24
      Top = 24
      Width = 56
      Height = 14
      Caption = '客户名称'
    end
    object Label3: TLabel
      Left = 336
      Top = 24
      Width = 84
      Height = 14
      Caption = '主要联系电话'
    end
    object Label5: TLabel
      Left = 336
      Top = 56
      Width = 84
      Height = 14
      Caption = '其他联系电话'
    end
    object Label6: TLabel
      Left = 24
      Top = 56
      Width = 56
      Height = 14
      Caption = '地址区域'
    end
    object Label7: TLabel
      Left = 24
      Top = 88
      Width = 56
      Height = 14
      Caption = '详细住址'
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 96
      Top = 56
      Width = 169
      Height = 22
      DataField = 'qybh'
      KeyField = 'qybh'
      ListField = 'mc'
      ListSource = DataSourcedzqy
      TabOrder = 3
      OnClick = DBLookupComboBox1Click
    end
    object Edit1: TEdit
      Left = 96
      Top = 24
      Width = 169
      Height = 22
      TabOrder = 0
    end
    object Edit2: TEdit
      Left = 432
      Top = 24
      Width = 153
      Height = 22
      TabOrder = 1
    end
    object Edit3: TEdit
      Left = 432
      Top = 56
      Width = 153
      Height = 22
      TabOrder = 2
    end
    object Edit5: TEdit
      Left = 96
      Top = 88
      Width = 241
      Height = 22
      TabOrder = 4
    end
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 136
    Width = 705
    Height = 281
    Caption = '服务信息'
    TabOrder = 1
    object RadioGroup1: TRadioGroup
      Left = 260
      Top = 18
      Width = 105
      Height = 121
      Caption = '服务类型'
      ItemIndex = 1
      Items.Strings = (
        '安装'
        '维修'
        '调试'
        '回访')
      TabOrder = 1
      OnClick = RadioGroup1Click
    end
    object GroupBox3: TGroupBox
      Left = 14
      Top = 18
      Width = 233
      Height = 249
      Caption = '商品信息'
      TabOrder = 0
      object Label8: TLabel
        Left = 17
        Top = 26
        Width = 56
        Height = 14
        Caption = '商品分类'
      end
      object Label9: TLabel
        Left = 17
        Top = 58
        Width = 56
        Height = 14
        Caption = '商品品牌'
      end
      object Label10: TLabel
        Left = 17
        Top = 89
        Width = 56
        Height = 14
        Caption = '商品规格'
      end
      object Label1: TLabel
        Left = 17
        Top = 152
        Width = 56
        Height = 14
        Caption = '购买日期'
      end
      object Label11: TLabel
        Left = 17
        Top = 208
        Width = 56
        Height = 14
        Caption = '发票号码'
      end
      object Label4: TLabel
        Left = 17
        Top = 121
        Width = 56
        Height = 14
        Caption = '商品型号'
      end
      object DBLookupComboBox2: TDBLookupComboBox
        Left = 80
        Top = 28
        Width = 137
        Height = 22
        KeyField = 'flbh'
        ListField = 'flmc'
        ListSource = DataSourceflxx
        TabOrder = 0
        OnClick = DBLookupComboBox2Click
      end
      object DBLookupComboBox3: TDBLookupComboBox
        Left = 80
        Top = 59
        Width = 137
        Height = 22
        KeyField = 'ppbh'
        ListField = 'mc'
        ListSource = DataSourceppxx
        TabOrder = 1
        OnClick = DBLookupComboBox3Click
      end
      object DBLookupComboBox4: TDBLookupComboBox
        Left = 80
        Top = 89
        Width = 137
        Height = 22
        KeyField = 'ggbh'
        ListField = 'mc'
        ListSource = DataSourceggxx
        TabOrder = 2
      end
      object DateTimePicker1: TDateTimePicker
        Left = 80
        Top = 151
        Width = 137
        Height = 22
        CalAlignment = dtaLeft
        Date = 37430.3741018171
        Time = 37430.3741018171
        DateFormat = dfLong
        DateMode = dmComboBox
        Kind = dtkDate
        ParseInput = False
        TabOrder = 3
      end
      object Edit7: TEdit
        Left = 80
        Top = 208
        Width = 137
        Height = 22
        TabOrder = 4
      end
      object CheckBox2: TCheckBox
        Left = 80
        Top = 181
        Width = 113
        Height = 17
        Caption = '购买日期不详'
        TabOrder = 5
        OnClick = CheckBox2Click
      end
      object Edit4: TEdit
        Left = 80
        Top = 120
        Width = 137
        Height = 22
        TabOrder = 6
      end
    end
    object RadioGroup2: TRadioGroup
      Left = 260
      Top = 146
      Width = 105
      Height = 121
      Caption = '保修类型'
      ItemIndex = 0
      Items.Strings = (
        '商场保修'
        '商场过期'
        '外购保修'
        '外购非保修')
      TabOrder = 2
      OnClick = RadioGroup2Click
    end
    object GroupBox5: TGroupBox
      Left = 376
      Top = 18
      Width = 313
      Height = 247
      Caption = '服务描述'
      TabOrder = 3
      object Label16: TLabel
        Left = 21
        Top = 32
        Width = 56
        Height = 14
        Caption = '现象类型'
      end
      object Label13: TLabel
        Left = 21
        Top = 63
        Width = 56
        Height = 14
        Caption = '现象描述'
      end
      object Label15: TLabel
        Left = 21
        Top = 94
        Width = 56
        Height = 14
        Caption = '服务备注'
      end
      object Label14: TLabel
        Left = 21
        Top = 124
        Width = 56
        Height = 14
        Caption = '服务方式'
      end
      object Label17: TLabel
        Left = 21
        Top = 211
        Width = 56
        Height = 14
        Caption = '接待人员'
      end
      object DBLookupComboBox6: TDBLookupComboBox
        Left = 80
        Top = 32
        Width = 193
        Height = 22
        KeyField = 'gzbh'
        ListField = 'mc'
        ListSource = DataSourcegzbm
        TabOrder = 0
      end
      object Edit8: TEdit
        Left = 80
        Top = 63
        Width = 193
        Height = 22
        TabOrder = 1
      end
      object RadioButton1: TRadioButton
        Left = 96
        Top = 124
        Width = 81
        Height = 17
        Caption = '工场服务'
        Checked = True
        TabOrder = 2
        TabStop = True
        OnClick = RadioButton1Click
      end
      object RadioButton2: TRadioButton
        Left = 184
        Top = 124
        Width = 81
        Height = 17
        Caption = '上门服务'
        TabOrder = 3
        OnClick = RadioButton1Click
      end
      object Edit9: TEdit
        Left = 80
        Top = 94
        Width = 193
        Height = 22
        TabOrder = 4
      end
      object DBLookupComboBox7: TDBLookupComboBox
        Left = 80
        Top = 211
        Width = 121
        Height = 22
        KeyField = 'rybh'
        ListField = 'ryxm'
        ListSource = DataSourceryxx
        TabOrder = 5
      end
      object GroupBox4: TGroupBox
        Left = 16
        Top = 152
        Width = 281
        Height = 49
        Caption = '约定时间'
        TabOrder = 6
        object Label18: TLabel
          Left = 192
          Top = 19
          Width = 14
          Height = 14
          Caption = '时'
        end
        object Label19: TLabel
          Left = 264
          Top = 19
          Width = 14
          Height = 14
          Caption = '分'
        end
        object DateTimePicker2: TDateTimePicker
          Left = 8
          Top = 19
          Width = 121
          Height = 22
          CalAlignment = dtaLeft
          Date = 37430.3741018171
          Time = 37430.3741018171
          DateFormat = dfLong
          DateMode = dmComboBox
          Kind = dtkDate
          ParseInput = False
          TabOrder = 0
        end
        object ComboBox1: TComboBox
          Left = 216
          Top = 19
          Width = 41
          Height = 22
          Style = csDropDownList
          BiDiMode = bdLeftToRight
          ItemHeight = 14
          ParentBiDiMode = False
          TabOrder = 1
          Items.Strings = (
            '00'
            '15'
            '30'
            '45')
        end
        object Edit10: TEdit
          Left = 136
          Top = 19
          Width = 33
          Height = 22
          ReadOnly = True
          TabOrder = 2
          Text = '12'
        end
        object UpDown1: TUpDown
          Left = 169
          Top = 19
          Width = 15
          Height = 22
          Associate = Edit10
          Min = 0
          Max = 24
          Position = 12
          TabOrder = 3
          Wrap = False
        end
      end
    end
  end
  object Button1: TButton
    Left = 624
    Top = 16
    Width = 81
    Height = 33
    Caption = '确定'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 624
    Top = 96
    Width = 81
    Height = 33
    Caption = '放弃'
    TabOrder = 3
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 624
    Top = 56
    Width = 81
    Height = 33
    Caption = ' 服务资料'
    TabOrder = 4
    OnClick = Button3Click
  end
  object ADOTabledzqy: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'dzqy'
    Left = 375
    Top = 83
  end
  object DataSourcedzqy: TDataSource
    DataSet = ADOTabledzqy
    Left = 424
    Top = 80
  end
  object ADOTableflxx: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'flxx'
    Top = 160
  end
  object DataSourceflxx: TDataSource
    DataSet = ADOTableflxx
    Top = 184
  end
  object ADOQueryppxx: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSourceflxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from ppxx where gsfl=:flbh')
    Top = 216
  end
  object DataSourceppxx: TDataSource
    DataSet = ADOQueryppxx
    Top = 256
  end
  object ADOQueryggxx: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSourceppxx
    Parameters = <
      item
        Name = 'gsfl'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end
      item
        Name = 'ppbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from ggxx where flbh=:gsfl and ppbh=:ppbh')
    Top = 288
  end
  object DataSourceggxx: TDataSource
    DataSet = ADOQueryggxx
    Top = 320
  end
  object ADOQuerygzbm: TADOQuery
    Connection = MainForm.ADOConnection1
    DataSource = DataSourceflxx
    Parameters = <
      item
        Name = 'flbh'
        Attributes = [paNullable]
        DataType = ftFixedChar
        NumericScale = 255
        Precision = 255
        Size = 510
        Value = '0001'
      end>
    SQL.Strings = (
      'select * from gzbm where flbh=:flbh')
    Left = 536
    Top = 112
  end
  object DataSourcegzbm: TDataSource
    DataSet = ADOQuerygzbm
    Left = 568
    Top = 120
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from khxx')
    Left = 408
    Top = 112
  end
  object ADOTablesys: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'sysparm'
    Left = 488
    Top = 112
  end
  object DataSourcetmp: TDataSource
    DataSet = ADOQuerytmp
    Left = 440
    Top = 112
  end
  object ADOQueryryxx: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    SQL.Strings = (
      'select * from ryxx')
    Left = 104
    Top = 384
  end
  object DataSourceryxx: TDataSource
    DataSet = ADOQueryryxx
    Left = 144
    Top = 392
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -