procedure TForm1.Button1Click(Sender: TObject);
begin
if ADOTable1.active=False then exit;
ADOTable1.Append;
ADOTable1.FieldByName('XXXX').asstring:='ABC';
ADOTable1.FieldByName('YYYY').asstring:='DEF';
ADOTable1.Post;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if ADOTable1.active and (not ADOTable1.IsEmpty) then
ADOTable1.Delete;
end;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024