删除数据是经常操作的事，有时候不小心按错删除怎么办。
因此增加确认条件。确认后才进行删除。
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博客 ” ，链接：https://blog.itpub.net/729024/viewspace-1021356/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
DELPHI 新增与修改例子
下一篇：
delphi 取得、设置文件属性
请登录后发表评论
登录
全部评论
