Delphi ADOTable 增删查改
//添加记录
ADOTable1.AppendRecord([val1,val2]);
//删除记录
ADOTable1.Filter :='SaleID='''+text+'''';
ADOTable1.Filtered := true;
if ADOTable1.RecordCount = 0 then
begin
ADOTable1.Filtered := false;
end;
else
begin
ADOTable1.Filtered := true;
ADOTable1.Delete;
ADOTable1.Filtered := false;
end;
//查找记录
ADOTable1.Filter := 'SaleID='''+text+'''' ;
ADOTable1.Filtered :=True;
//更新记录
ADOTable1.Edit;
ADOTable1.FieldByName('SaleID').Asstring := text;
ADOTable1.Post;
Was this page helpful?