5,388
社区成员
发帖
与我相关
我的任务
分享我在adotable控件的Beforedelete事件中想防止用戶刪除記錄,但下面的語句不管用!
在beforedelet事件中的代碼
if (ADOTable1.FieldByName('Operatortype_id').AsInteger =8 ) then
begin
ShowMessage('此用戶不能刪除');
ADOTable1.Cancel ;
exit;
end
if (ADOTable1.FieldByName('Operatortype_id').AsInteger =8 ) then
begin
ShowMessage('此用戶不能刪除');
ADOTable1.Cancel ;
exit;
end
...全文
请发表友善的回复…
发表回复
huanyi 2004-08-06
- 打赏
- 举报
在beforedelet事件中
huanyi 2004-08-06
- 打赏
- 举报
试试
if (ADOTable1.FieldByName('Operatortype_id').AsInteger =8 ) then
begin
ShowMessage('此用戶不能刪除');
Abort；
end
if (ADOTable1.FieldByName('Operatortype_id').AsInteger =8 ) then
begin
ShowMessage('此用戶不能刪除');
Abort；
end
liulovetoo 2004-08-06
- 打赏
- 举报
up
