procedure TForm1.FormCreate(Sender: TObject);
begin
ADOTable1.delete “清空当前记录
end;
procedure TForm1.addClick(Sender: TObject); "添加记录的"
begin
with adotable1 do
begin
open;
adotable1.InsertRecord([edit1.text,edit2.Text,edit3.text,edit4.text,edit5.text,edit6.text,edit7.text,edit8.Text,edit9.text,edit10.text,edit11.text,edit12.text,edit13.text,edit14.text]);
edit;
post;
end;
end;
第3就更容易了,我没有现成的源码,你自己看看书吧。