谁能帮帮我：

Question

不用sql对表操作？那用什么？

Answer 1

procedure TForm1.FormCreate(Sender: TObject);
begin
while ccd.recordcount>0 do
  begin
    ccd.delete;
  end;
if question.recordcount>0 then
  question.first;
while question.eof do
  begin
    ccd.fieldbyname('aa').value:=question.fieldbyname('aa').asstring;
    ......................................
  end;
end;

Answer 2

procedure TForm1.FormCreate(Sender: TObject);
begin
while ccd.recordcount>0 do
  begin
    ccd.delete;
  end;
if question.recordcount>0 then
  question.first;
while question.eof do
  begin
    ccd.fieldbyname('aa').value:=question.fieldbyname('aa').asstring;
    ......................................
  question.next;
  end;
end;

Answer 3

procedure TForm1.FormCreate(Sender: TObject);
begin
while ccd.recordcount>0 do
  begin
    ccd.delete;
  end;
if question.recordcount>0 then
  question.first;
while not question.eof do
  begin
    ccd.fieldbyname('aa').value:=question.fieldbyname('aa').asstring;
    ......................................
  question.next;
  end;
end;