delphi删除时特别注意

最新推荐文章于 2024-09-03 21:45:31 发布

weixin_34315665

最新推荐文章于 2024-09-03 21:45:31 发布

阅读量122

点赞数

文章标签： python

原文链接：https://my.oschina.net/u/3328774/blog/1589175

版权

2019独角兽企业重金招聘Python工程师标准>>>

procedure TrklrFram.ado_shmainBeforeDelete(DataSet: TDataSet);
var
i_sql, idstr: string;
i: integer;
begin
inherited;
if ado_shmain.FindField('cSTATE').asstring <> '未提交' then
Abort;
if not myhs.Confirm1('确认要删除吗？') then
Abort;
i_sql := 'select * from tf_sc_sqmx where mid=' + ansiquotedstr(ado_shmain.findfield('id').AsString, '''');
OpenADODataset(maindm.QryPub, i_sql);
if maindm.QryPub.RecordCount > 0 then
begin
with maindm.QryPub do
for i := 1 to maindm.QryPub.RecordCount do
idstr := maindm.QryPub.findfield('mid').AsString;
with maindm.QryPub do
begin
Close;
sql.Clear;
sql.Text := 'DELETE FROM tf_sc_sqmx WHERE mid = ' + ansiquotedstr(idstr, '''');
ExecSQL;
end;
end;
end;