流行模式

实现的客户需求
1.删除当前记录时弹出提示信息
2.删除当前记录后再删除另外一个表的数据

begin
if MessageDlg('注意：会同时删除领用记录，单号为: '+Tabledoc.FieldByName('领用单号').asstring +'，条形码为: '+Tabledoc.FieldByName('条形码').asstring +'，确定删除吗 ? ' ,2,3,nil)=7 then
OpenQuery('ADOQuerySQLCV','select 1 as a')
else
begin
OpenQuery('ADOQuerySQLCV','select 1 as a from 刀具归还明细 where 1=2');
ExeSqlCmd('delete from 刀具领用明细 where 领用单号 = '''+Tabledoc.fieldByName('领用单号').asstring+''' and 条形码 = '''+Tabledoc.fieldByName('条形码').asstring+'''');
end;
end.