我有一個表test,表中有一個boolean字段flag,我想在給它賦值前先判斷修改者的身份,只有驗證通過了才能寫入.(用的是wwDBGrid和ADOQuery)
我在下面事件中寫下面代碼.結果事件觸發了,但既便驗證通過也存不了.
procedure TDataModule1.QtestFlagSetText(Sender: TField;
const Text: string);
begin
if frmmain.comeMan <> qtesttestman.Value then
begin
showmessage('sorry,此記錄不是您新增,不能修改');
abort;
end;
end;請問我應如何實現,thanks.
我在下面事件中寫下面代碼.結果事件觸發了,但既便驗證通過也存不了.
procedure TDataModule1.QtestFlagSetText(Sender: TField;
const Text: string);
begin
if frmmain.comeMan <> qtesttestman.Value then
begin
showmessage('sorry,此記錄不是您新增,不能修改');
abort;
end;
end;請問我應如何實現,thanks.
解决方案 »
- 关于TPageControl页标题竖型问题
- Delphi 远程
- 如何增加Delphi 7的undo?
- 为什么其它类型的文件(doc,ini)可以成功下载, exe文件就是不能,要死机。
- 怎样设置打印机纸的大小
- 在delphi中用TStoreProc组件调用oracle存储过程出错:不能应用
- 【倒分投诉】请csdnlile和Iamanders解释
- 我将Menu放在了Toolbar上,如同delphi自己的菜单,发现问题.
- 我的程序在运行的时候会调用一个批处理文件,我怎么监视这个程序退出.
- 报表字段太多,超出边界怎么处理?
- Delphi7中,要建立基于COM+是使用Multier那项?
- 如何在内存中开辟一个区域用来保存从网上下载的excel文档?
Form1.Create
begin
DataSource.AutoEdit := false;
end