• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

请问:在delphi中怎样判断DBgrid中数据是否被修改,以便在退出窗口时加以提示 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

若DBGrid.DataSource.DateSet为ADOQuery1,这样试一下:if ADOQuery1.Modified then ...


    1. 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

    1. procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
      begin
        if ADOQuery1.Modified then
          begin
          ADOTable1.post;
          end;
      end;

    1. 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;

    1. 不好意思,上面搞錯啦: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;

  1. konhon(优华无限)的方法我还没试,不过前面的midified是不行,请问mvt是什么方法
    1. 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,也就是说并没有修改编号,但是退出之前还问我是否保存,理论上不应该提示
         

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
Matlab 快速多通道积分图计算函数发布时间:2022-07-18
下一篇:
MATLAB求解二重积分案例发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap