unit2.~dfm

c++ builder,ado控件用法的部分演示

object Form2: TForm2
  Left = 230
  Top = 221
  Width = 534
  Height = 371
  Caption = 'Form2'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object lbl1: TLabel
    Left = 7
    Top = 8
    Width = 48
    Height = 13
    Caption = #29992#25143#21517#65306
  end
  object lbl2: TLabel
    Left = 7
    Top = 32
    Width = 19
    Height = 13
    Caption = 'QQ:'
  end
  object lbl3: TLabel
    Left = 7
    Top = 56
    Width = 28
    Height = 13
    Caption = 'Email:'
  end
  object lbl4: TLabel
    Left = 23
    Top = 112
    Width = 14
    Height = 13
    Caption = 'ID:'
  end
  object lbl5: TLabel
    Left = 0
    Top = 80
    Width = 50
    Height = 13
    Caption = #33258#23450#20041'ID:'
  end
  object dbedtusername: TDBEdit
    Left = 56
    Top = 0
    Width = 121
    Height = 21
    DataField = 'username'
    DataSource = ds1
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 0
  end
  object dbedt2: TDBEdit
    Left = 56
    Top = 24
    Width = 121
    Height = 21
    DataField = 'QQ'
    DataSource = ds1
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 1
  end
  object dbedt3: TDBEdit
    Left = 56
    Top = 48
    Width = 121
    Height = 21
    DataField = 'username'
    DataSource = ds1
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 2
  end
  object dbedt4: TDBEdit
    Left = 56
    Top = 80
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    TabOrder = 3
  end
  object btnExit: TButton
    Left = 416
    Top = 280
    Width = 75
    Height = 25
    Caption = 'Exit'
    TabOrder = 4
    OnClick = btnExitClick
  end
  object btnQuery: TButton
    Left = 192
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Query'
    TabOrder = 5
    OnClick = btnQueryClick
  end
  object con1: TADOConnection
    Connected = True
    ConnectionString = 
      'Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initi' +
      'al Catalog=test;Data Source=71D6A006CF694DF'
    Provider = 'SQLOLEDB.1'
    Left = 192
    Top = 8
  end
  object ds1: TDataSource
    DataSet = qry1
    Left = 288
    Top = 8
  end
  object qry1: TADOQuery
    Active = True
    Connection = con1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from userinfo order by id')
    Left = 248
    Top = 24
  end
end