csinfo.dfm

客户关系管理系统 客户关系管理系统

    end
    object Label2: TLabel
      Left = 212
      Top = 22
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #23458#25143#20195#30721':'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 21
      Top = 57
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #20844#21496#21517#31216':'
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 222
      Top = 92
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #30005#35805'1:'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 453
      Top = 57
      Width = 61
      Height = 13
      AutoSize = False
      Caption = #20844#21496#31867#22411':'
    end
    object Label6: TLabel
      Left = 23
      Top = 92
      Width = 50
      Height = 13
      AutoSize = False
      Caption = #36127#36131#20154':'
      FocusControl = DBEdit6
    end
    object Label7: TLabel
      Left = 21
      Top = 163
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #22791#27880':'
      FocusControl = DBEdit7
    end
    object Label9: TLabel
      Left = 8
      Top = 144
      Width = 3
      Height = 13
    end
    object Label10: TLabel
      Left = 21
      Top = 127
      Width = 44
      Height = 13
      AutoSize = False
      Caption = #25163#26426':'
      FocusControl = DBEdit8
    end
    object Label11: TLabel
      Left = 288
      Top = 127
      Width = 41
      Height = 13
      AutoSize = False
      Caption = 'E--mail:'
      FocusControl = DBEdit9
    end
    object Label12: TLabel
      Left = 467
      Top = 92
      Width = 41
      Height = 13
      AutoSize = False
      Caption = #30005#35805'2:'
      FocusControl = DBEdit5
    end
    object SpeedButton8: TSpeedButton
      Left = 648
      Top = 160
      Width = 81
      Height = 25
      Caption = #32852#31995#35760#24405'(&R)'
      Flat = True
      OnClick = SpeedButton8Click
    end
    object DBEdit1: TDBEdit
      Left = 84
      Top = 22
      Width = 95
      Height = 21
      Color = clGradientInactiveCaption
      DataField = #32534#21495
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 9
    end
    object DBEdit2: TDBEdit
      Left = 281
      Top = 22
      Width = 147
      Height = 21
      DataField = 'ClientID'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 0
    end
    object DBEdit3: TDBEdit
      Left = 84
      Top = 57
      Width = 346
      Height = 21
      DataField = 'ClientName'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 1
    end
    object DBEdit4: TDBEdit
      Left = 270
      Top = 92
      Width = 162
      Height = 21
      DataField = 'ClientTel'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 4
    end
    object DBEdit6: TDBEdit
      Left = 84
      Top = 92
      Width = 117
      Height = 21
      DataField = 'ClientManager'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 3
    end
    object DBEdit7: TDBEdit
      Left = 84
      Top = 163
      Width = 562
      Height = 21
      DataField = 'ClientMemo'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 8
    end
    object DBEdit8: TDBEdit
      Left = 84
      Top = 127
      Width = 185
      Height = 21
      DataField = 'ClientMobil'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 6
    end
    object DBEdit9: TDBEdit
      Left = 333
      Top = 127
      Width = 313
      Height = 21
      DataField = 'ClientEmail'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 7
    end
    object DBLookupComboBox1: TDBLookupComboBox
      Left = 522
      Top = 57
      Width = 124
      Height = 21
      DataField = 'ClientType'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      KeyField = 'typedocument'
      ListField = 'typedocument'
      ListSource = DataSource2
      TabOrder = 2
    end
    object DBEdit5: TDBEdit
      Left = 522
      Top = 92
      Width = 123
      Height = 21
      DataField = 'ClientTel1'
      DataSource = DataSource1
      Enabled = False
      ImeName = #32043#20809#25340#38899#36755#20837#27861
      TabOrder = 5
    end
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 680
    Top = 9
  end
  object ADOQuery1: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from client')
    Left = 648
    Top = 8
    object ADOQuery1DSDesigner: TAutoIncField
      FieldName = #32534#21495
      ReadOnly = True
    end
    object ADOQuery1ClientID: TWideStringField
      DisplayLabel = #23458#25143#20195#30721
      FieldName = 'ClientID'
      Size = 50
    end
    object ADOQuery1ClientName: TWideStringField
      DisplayLabel = #23458#25143#21517#31216
      FieldName = 'ClientName'
      Size = 50
    end
    object ADOQuery1ClientTel: TWideStringField
      DisplayLabel = #30005#35805
      FieldName = 'ClientTel'
      Size = 50
    end
    object ADOQuery1ClientTel1: TWideStringField
      FieldName = 'ClientTel1'
      Size = 50
    end
    object ADOQuery1ClientType: TWideStringField
      DisplayLabel = #20844#21496#31867#22411
      FieldName = 'ClientType'
      Size = 50
    end
    object ADOQuery1ClientManager: TWideStringField
      DisplayLabel = #36127#36131#20154
      FieldName = 'ClientManager'
      Size = 50
    end
    object ADOQuery1ClientMemo: TWideStringField
      DisplayLabel = #22791#27880
      FieldName = 'ClientMemo'
      Size = 50
    end
    object ADOQuery1ClientMobil: TWideStringField
      DisplayLabel = #25163#26426
      FieldName = 'ClientMobil'
      Size = 50
    end
    object ADOQuery1ClientEmail: TWideStringField
      DisplayLabel = 'Email'
      FieldName = 'ClientEmail'
      Size = 100
    end
  end
  object ADOQuery2: TADOQuery
    Connection = MainForm.ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select distinct typedocument from companytype')
    Left = 680
    Top = 57
  end
  object DataSource2: TDataSource
    DataSet = ADOQuery2
    Left = 648
    Top = 57
  end
  object ADOQuery3: TADOQuery
    Connection = MainForm.ADOConnection1
    Parameters = <>
    Left = 680
    Top = 112
  end
end