142
if MessageDlg('Вы действительно хотите удалить норму
'+DataInfo.qListNorms.FieldByName('NormName').asString+'?',mtConfirmation,[mb
Yes, mbNo],0)=mrNo then Exit;
DataInfo.qQuery.Close;
DataInfo.qQuery.SQL.Clear;
DataInfo.qQuery.SQL.Add('delete from Norms where
Id='+DataInfo.qListNorms.FieldByName('Id').asString);
DataInfo.qQuery.ExecSQL;
DataInfo.qListNorms.Close;
DataInfo.qListNorms.Open;
end;
end;
end;
end.