client.dfm

1.使用某一高级语言和数据库（SOL2000

    end
    object Label2: TLabel
      Left = 212
      Top = 22
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #27004#25151#21495':'
      FocusControl = DBEdit2
    end
    object Label3: TLabel
      Left = 21
      Top = 57
      Width = 59
      Height = 13
      AutoSize = False
      Caption = #19994#20027':'
      FocusControl = DBEdit3
    end
    object Label4: TLabel
      Left = 222
      Top = 92
      Width = 45
      Height = 13
      AutoSize = False
      Caption = #27004#25151#31867#22411':'
      FocusControl = DBEdit4
    end
    object Label5: TLabel
      Left = 453
      Top = 56
      Width = 61
      Height = 14
      AutoSize = False
      Caption = #20986#21806#24773#20917':'
    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 = 52
      Height = 13
      AutoSize = False
      Caption = #27004#25151#20449#24687':'
      FocusControl = DBEdit7
    end
    object Label8: TLabel
      Left = 437
      Top = 22
      Width = 48
      Height = 13
      AutoSize = False
    end
    object Label9: TLabel
      Left = 8
      Top = 144
      Width = 3
      Height = 13
    end
    object Label10: TLabel
      Left = 8
      Top = 127
      Width = 73
      Height = 13
      AutoSize = False
      Caption = #36127#36131#20154#30005#35805':'
      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 = 448
      Top = 92
      Width = 97
      Height = 13
      AutoSize = False
      Caption = #19994#20027#32852#31995#30005#35805':'
      FocusControl = DBEdit5
    end
    object SpeedButton8: TSpeedButton
      Left = 648
      Top = 160
      Width = 0
      Height = 25
      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 = 554
      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 = Datafrm.con
    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 = Datafrm.con
    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 = Datafrm.con
    Parameters = <>
    Left = 680
    Top = 112
  end
end