//第一步  插入N〉10条数据后 ,执行第三步时 提示我 键列信息不足或不正确 更新影响过多行
                      //该如何修改呢????
procedure TForm1.Button3Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Insert into Card(ID,Name,IFuse) Values(''000003'',''Wang'',''0'')');
  ADOQuery1.ExecSQL;
end;
//第二步
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.Close;
  ADOQuery1.SQL.Clear;
  ADOQuery1.SQL.Add('Select Top 10 * from Card');
  ADOQuery1.Open;end;
//第三步
procedure TForm1.Button2Click(Sender: TObject);
begin
  ADOQuery1.Edit;
  While Not ADOQuery1.Eof do
    begin
      ADOQuery1.Fieldbyname('IFUse').Value:='2';
      ADOQuery1.Next;
    end;
end;