您的位置：程序门 -> delphi -> 数据库相关

-------关于dbedit等控件,如何在修改之后提示保存?（不好意思,没分了看看也行)

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

-------关于dbedit等控件,如何在修改之后提示保存?（不好意思,没分了看看也行)[已结贴,结贴人:cowbosky]

发表于：2007-03-03 23:55:54 楼主

请问

dbedit1...等控件绑定到了datam.customer中,偶在其相关的ds_customer的updatedata中加入了判断,但为什么总是提示我保存?

请问,如何改?谢了...

------------------------------------------------------------------

procedure tdatam.ds_customerupdatedata（sender: tobject);
begin

if messagedlg（ '是否要保存记录 ? ',mtconfirmation, [mbyes, mbno], 0) <> mryes then
customer.cancel
else
customer.post;
end;

发表于：2007-03-03 23:56:001楼得分:0

发表于：2007-03-04 00:27:432楼得分:0

自己解决了,公布答案以分享...

procedure tdatam.customerbeforepost（dataset: tdataset);
begin
if application.messagebox（ '是否保存？ ', 'information ',mb_okcancel+mb_iconquestion) <> mrok then
begin
begin
customer.cancel;
abort;
end;
end;
end;

发表于：2007-03-04 10:14:003楼得分:0

谢谢分享！~学习了！~

发表于：2007-12-20 16:10:444楼得分:0

解决了结帖

下一篇：rave5.1 的奇怪乱码问题，
上一篇：数据项如何放在pageheader中????

其他资讯