khgl.dfm

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

object KhGlForm: TKhGlForm
  Left = 192
  Top = 117
  Width = 602
  Height = 380
  BorderIcons = [biSystemMenu, biMinimize]
  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 = 8
    Top = 8
    Width = 577
    Height = 169
    Caption = '查询条件'
    TabOrder = 0
    object Label1: TLabel
      Left = 344
      Top = 24
      Width = 56
      Height = 14
      Caption = '查询条件'
    end
    object RadioGroup1: TRadioGroup
      Left = 344
      Top = 48
      Width = 113
      Height = 105
      Caption = '查询方式'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = '宋体'
      Font.Style = []
      Items.Strings = (
        '按客户名称'
        '按联系电话'
        '全部客户')
      ParentFont = False
      TabOrder = 0
      OnClick = RadioGroup1Click
    end
    object Edit1: TEdit
      Left = 416
      Top = 24
      Width = 145
      Height = 22
      TabOrder = 1
    end
    object DBGrid1: TDBGrid
      Left = 16
      Top = 24
      Width = 313
      Height = 129
      DataSource = DataSourcekhxx
      ReadOnly = True
      TabOrder = 2
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -14
      TitleFont.Name = '宋体'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'name'
          Title.Alignment = taCenter
          Title.Caption = '客户名称'
          Width = 92
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'qymc'
          Title.Alignment = taCenter
          Title.Caption = '区域'
          Width = 79
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'dz'
          Title.Alignment = taCenter
          Title.Caption = '地址'
          Width = 96
          Visible = True
        end>
    end
    object Button7: TButton
      Left = 480
      Top = 64
      Width = 75
      Height = 33
      Caption = '查询'
      TabOrder = 3
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 480
      Top = 112
      Width = 75
      Height = 33
      Caption = '服务信息'
      TabOrder = 4
      OnClick = Button8Click
    end
  end
  object Button1: TButton
    Left = 512
    Top = 192
    Width = 75
    Height = 25
    Caption = '增加'
    TabOrder = 1
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 512
    Top = 216
    Width = 75
    Height = 25
    Caption = '修改'
    TabOrder = 2
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 512
    Top = 240
    Width = 75
    Height = 25
    Caption = '保存'
    TabOrder = 3
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 512
    Top = 264
    Width = 75
    Height = 25
    Caption = '放弃'
    TabOrder = 4
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 512
    Top = 288
    Width = 75
    Height = 25
    Caption = '删除'
    TabOrder = 5
    OnClick = Button5Click
  end
  object GroupBox2: TGroupBox
    Left = 8
    Top = 184
    Width = 489
    Height = 161
    Caption = '客户信息'
    TabOrder = 6
    object Label2: TLabel
      Left = 40
      Top = 32
      Width = 56
      Height = 14
      Caption = '客户名称'
    end
    object Label3: TLabel
      Left = 16
      Top = 72
      Width = 84
      Height = 14
      Caption = '主要联系电话'
    end
    object Label4: TLabel
      Left = 16
      Top = 112
      Width = 84
      Height = 14
      Caption = '其他联系电话'
    end
    object Label6: TLabel
      Left = 264
      Top = 72
      Width = 56
      Height = 14
      Caption = '地址区域'
    end
    object Label7: TLabel
      Left = 264
      Top = 112
      Width = 56
      Height = 14
      Caption = '详细住址'
    end
    object DBEdit1: TDBEdit
      Left = 112
      Top = 32
      Width = 137
      Height = 22
      DataField = 'name'
      DataSource = DataSourcekhxx
      TabOrder = 0
    end
    object DBEdit2: TDBEdit
      Left = 112
      Top = 72
      Width = 137
      Height = 22
      DataField = 'lxdh'
      DataSource = DataSourcekhxx
      TabOrder = 1
    end
    object DBEdit3: TDBEdit
      Left = 112
      Top = 112
      Width = 137
      Height = 22
      DataField = 'yddh'
      DataSource = DataSourcekhxx
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 328
      Top = 112
      Width = 145
      Height = 22
      DataField = 'dz'
      DataSource = DataSourcekhxx
      TabOrder = 3
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 328
      Top = 72
      Width = 145
      Height = 22
      DataField = 'qybh'
      DataSource = DataSourcekhxx
      KeyField = 'qybh'
      ListField = 'mc'
      ListSource = DataSource1
      TabOrder = 4
    end
    object dxfPictureButton1: TdxfPictureButton
      Left = 240
      Top = 136
      Width = 26
      Height = 26
      Visible = True
      Style = dxfHighlight
      Dither.Style = dxfFill
      Dither.Color = clNone
      AllowAllUp = False
    end
  end
  object Button6: TButton
    Left = 512
    Top = 312
    Width = 75
    Height = 25
    Caption = '退出'
    TabOrder = 7
    OnClick = Button6Click
  end
  object ADOQuerykhxx: TADOQuery
    Connection = MainForm.ADOConnection1
    AfterInsert = ADOQuerykhxxAfterInsert
    BeforePost = ADOQuerykhxxBeforePost
    Parameters = <>
    SQL.Strings = (
      'select * from khxx')
    Left = 208
    Top = 88
  end
  object DataSourcekhxx: TDataSource
    DataSet = ADOQuerykhxx
    OnStateChange = DataSourcekhxxStateChange
    Left = 248
    Top = 88
  end
  object ADOTable1: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'dzqy'
    Left = 240
    Top = 120
  end
  object DataSource1: TDataSource
    DataSet = ADOTable1
    Left = 280
    Top = 120
  end
  object ADOTablesys: TADOTable
    Connection = MainForm.ADOConnection1
    TableName = 'sysparm'
    Left = 120
    Top = 96
  end
  object ADOQuerytmp: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 160
    Top = 120
  end
end