DELPHI 删除数据例子

删除数据是经常操作的事，有时候不小心按错删除怎么办。
因此增加确认条件。确认后才进行删除。

[@more@]

procedure TEduForm.DeleteBtnClick(Sender: TObject);
var
csql:string;
begin //删除按钮 。

if MessageBox(0,'删除当前记录，删除后不能恢复。'+#13+'要删除按"是",否则按"否"。','提示',MB_YESNO+MB_ICONQUESTION)=IDYES then
begin
csql:='delete bas_education where eduNo='+quotedStr(eduNoedt.Text);
with udm.Qry_edu do
begin
close;
sql.Clear;
sql.Add(csql);
try
execsql;
showMessage('删除成功！');
except
showMessage('删除失败！');
exit;
end;
end;
end;
end;

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/729024/viewspace-1021356/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/729024/viewspace-1021356/