请问:在delphi中怎样判断DBgrid中数据是否被修改,以便在退出窗口时加以提示
2024-08-30 17:57:04
若DBGrid.DataSource.DateSet为ADOQuery1,这样试一下:if ADOQuery1.Modified then ...
- procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ADODataSet1.Modified then
begin
Messagedlg('对不起,你还没有保存数据?',mtInformation,[mbOK],0);
CanClose:=false;
end;
end;
试试
DBGrid.DataSource.DateSet.Fields[i].NewValue<>DBGrid.DataSource.DateSet.Fields[i].OldValue
DBGrid.DataSource.DateSet.Fields[i].NewValue<>DBGrid.DataSource.DateSet.Fields[i].OldValue
- procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ADOQuery1.Modified then
begin
ADOTable1.post;
end;
end;
- procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if not(DBGrid.DataSource.DataSet.State in [dsEdit,dsInsert]) then
begin
Messagedlg('对不起,你还没有保存数据?',mtInformation,[mbOK],0);
CanClose:=false;
end;
end;
- 不好意思,上面搞錯啦:procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if DBGrid.DataSource.DataSet.State in [dsEdit,dsInsert] then
begin
Messagedlg('对不起,你还没有保存数据?',mtInformation,[mbOK],0);
CanClose:=false;
end;
end;
- konhon(优华无限)的方法我还没试,不过前面的midified是不行,请问mvt是什么方法
- procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if DBGrid.DataSource.DataSet.State in [dsEdit,dsInsert] then
begin
Messagedlg('对不起,你还没有保存数据?',mtInformation,[mbOK],0);
CanClose:=false;
end;
end;测试中还有存在这种情况,假如编号原来为:0001,我修改为0002,但是在我退出之前又改为原来的0001,也就是说并没有修改编号,但是退出之前还问我是否保存,理论上不应该提示
最新文章
- Java中引用类 strong reference .SoftReference 、 WeakReference 和 PhantomReference的区别
- marquee滚动语法
- 有关Rander生成随机数的问题
- [转]Oracle_ProC编程
- SQL 随笔
- C++:默认的构造函数
- 遍历 TextBox控件
- h.264 FMO
- Mac下Mysql启动异常[";ERROR 2002 (HY000): Can&#39;t connect to local MySQL server through socket &#39;/tmp/mysql.sock&#39; (2)";]
- TCP和UDP的";保护消息边界"; (经典)
- 更换Winform 皮肤(下)----完全GDI+绘制
- 语义化标签SEO
- 什么是Annotation
- jeecg开发环境搭建
- 严重: StandardWrapper.Throwable org.springframework.beans.factory.BeanCreationException: Error creating bean with name &#39;goodsController&#39; defined in file [D:\eclipse\eclipse-space\pinyougou_parent\pinyou
- ASP.NET微信支付XXE漏洞修复
- ignore_user_abort(true); set_time_limit(0);程序在本地测试可以一直运行,上传服务器只能运行10-15分钟
- xml文件格式化后不能获取到值
- 08 IO库
- Docker for Windows(一)下载与安装
热门文章
- python--复习之路的目录
- js polyfill , to developing the cross browser js
- 北京Uber优步司机奖励政策(1月21日)
- 成都Uber优步司机奖励政策(2月18日)
- 机器学习实战:KNN代码报错“AttributeError: &#39;dict&#39; object has no attribute &#39;iteritems&#39;”
- Ruby &; Rails学习资料
- wamp报错SCREAM:Error suppression ignored for
- Updating Homebrew... 长时间不动解决方法
- dva框架之redux相关
- python 文件编译成exe可执行文件。