光标离开单元格就提交数据到ClientDataSet.Delta

最新推荐文章于 2017-09-18 20:40:41 发布
最新推荐文章于 2017-09-18 20:40:41 发布
阅读量719 收藏 1
点赞数
分类专栏： 研发
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/hrdzkj/article/details/7996994
版权
procedure TfrmdbxError.DBGrid1ColExit(Sender: TObject);
begin
  if dmHandleError.cdsAuthors.State = dsEdit then
    dmHandleError.cdsAuthors.Post;

end;


可能不用写这个了;因为这个事界面上的，不是数据变化上的，这样写不和逻辑；在cds.fields[i].OnChange里面post也可以

hrdzkj
关注
专栏目录
clientdataset 遍历字段_ClientDataSet使用locate或Filter定位到字段为空值的记录
weixin_39611389的博客
01-14 606
场景，程序想检查是否存在某个字段的值是空的，如果存在，则不允许增加记录，否则允许增加记录。解决这个问题，我一开始用了两种错误的方法if not clientdataset.locate('AFieldName','',[]) then //如果存在字段AFieldName的值为空的记录，则不允许增加一行记录appendclientdataset.appendelseexit;第二种错误方法Cli...
ClientDataSet数据更新,Delta解析,视图更新
02-02
将ClientDataset的Delta数据打包成JSon字符串 可以将这个JSon字符串传递到服务端, 进行解码,生成更新的SQL语句. 主键更新. 建议主键使用GUID,这样更新数度快, SELECT可以多个表,但是要更新的字段不要AS成其他名字. 打包的时候指定要更新的表和更新主键. 思路不错的.封装到位. 数字字段删除也可以更新.
一个ClientDataset的Delta与XML相互转换
weixin_34090643的博客
02-27 225
2019独角兽企业重金招聘Python工程师标准>>> ...
查看ClientDataSet中的Delta数据情况
new_BCBER的专栏
03-16 735
/* // 查看ClientDataSet中的Delta数据情况 ShowMessage(CDS_b->ChangeCount); ClientDataSet2->Data = CDS_h->Delta; // 主表的Delta,结构与主表完全相同 ClientDataSet2->Open(); //从表的Delta包含在主表的字段中 ClientDataSet
delphi把Clientdataset的Delta保存到数据库
Hmillet的专栏
09-18 3120
版权声明：本文为博主原创文章，未经博主允许不得转载。 [delphi] view plain copy //ATableName-表名, AKeyField-主键，多个主键用;隔开，如 ;pid;times;  from：unit HlsImplBase;   [delphi] view plain copy function T
ClientDataSet通过UpdateStatus方法配合Delta属性查找已删除的记录
xiao_jun_0820的专栏
09-17 4264
  procedure TFrmTempSaleContract.Button1Click(Sender: TObject);var  TestXML:TNativeXml;  RootNode,MainNode,LineNode,TempNode:TXmlNode;begin  inherited;  try  TestXML:=TNativeXml.Cr
搜索和过滤ClientDataSet.flv
08-17
搜索和过滤ClientDataSet.flv
Delphi下ClientDataSet使用例子
05-18
摘要:Delphi源码,控件组件,ClientDataSet　Delphi环境下的ClientDataSet使用例子。ClientDataSet是Delphi三层开发常用控件。...演示打开本地文件、保存到文件、保存CDS和XML、显示远程数据、保存到远程服务器等功能。
Delphi7调C#Webservice用返回ClientDataSet XML格式数据
12-25
一旦XML数据被加载到ClientDataSet，就可以进行查询、编辑和过滤等操作。 5. **错误处理和调试**：在实际应用中，需要考虑网络问题、数据格式错误等各种异常情况。Delphi提供了Try...Except结构来捕获和处理错误，...
ClientDataSet中修改，删除，添加数据和Delta属性
weixin_34396902的博客
03-05 955
ClientDataSet中使用Post提交变更的数据时，实际上并没有更新到后端数据库中，而是提交到了由DataSnap管理的数据缓冲区中。当使用了ClientDataSet.ApplyUpDates(MaxErrors:integer)方法才更新到数据库中。ApplyUpDates方法也只更新修改的数据，这些数据放在ClientDataSet.Delta属性中。调用AppplyUpDates更新...
把ClientDataSet的修改的数据集Delta提交到服务器端
xiongmao000738
11-17 2284
// 把版本的信息更新至服务器 function SubmitVersionInfo(var vMsg: string): Boolean; var   RetData, Msg: OleVariant; begin   Result := False;   try     with DMCaseClient.ClientDsVersion do     begin      /
实现一个客户端的DataSet-----ClientDataSet.htc
zgqtxwd的专栏
05-01 266
<!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--><script type="text/javascript"
delphi中 clientdataset使用方法
热门推荐
云中雁012345之成长
08-31 1万+
1.基本情况介绍; clientdataset内存表，他的data属性存放的是数据， delta 增量记录的是日志， 就相当于数据库的 savepoint保存点；每当clientdataset的数据有变化时（onbeforeedit, onafteredit），savepoint都会变化。如果我们想取消一段时间的操作，我们可以先记录下这个savepoint,然后修改，如果想取消，直接让这个save
delphi listview结合adapter适配器将access表中数据对应到设置好的列中显示的代码
最新发布
07-13
在Delphi中，可以使用TListView组件结合TAdapterBindSource和TAdapterListViewAdapter来将Access表中的数据适配到ListView上显示。下面是一个示例代码，展示如何实现这个功能： ```delphi unit MainForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Data.Bind.GenData, Data.Bind.EngExt, Vcl.Bind.DBEngExt, System.Rtti, System.Bindings.Outputs, Vcl.Bind.Editors, Data.Bind.Components, Data.Bind.Grid, Vcl.Grids, Data.Bind.ObjectScope, Vcl.StdCtrls, Vcl.ExtCtrls, Vcl.Bind.Navigator, Vcl.ComCtrls; type TForm1 = class(TForm) ListView1: TListView; Button1: TButton; procedure FormCreate(Sender: TObject); procedure Button1Click(Sender: TObject); private FPersonList: TObjectList<TPerson>; procedure LoadData; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} uses System.Generics.Collections, Data.DB, Datasnap.DBClient; type TPerson = class FirstName: string; LastName: string; Age: Integer; end; procedure TForm1.FormCreate(Sender: TObject); begin FPersonList := TObjectList<TPerson>.Create; end; procedure TForm1.Button1Click(Sender: TObject); var ClientDataSet: TClientDataSet; begin LoadData; ClientDataSet := TClientDataSet.Create(Self); try // 将Access表中的数据加载到ClientDataSet中 // 这里假设Access表中包含字段FirstName、LastName和Age // 可根据实际情况进行修改 ClientDataSet.FieldDefs.Add('FirstName', ftString, 50); ClientDataSet.FieldDefs.Add('LastName', ftString, 50); ClientDataSet.FieldDefs.Add('Age', ftInteger); ClientDataSet.CreateDataSet; for Person in FPersonList do begin ClientDataSet.Append; ClientDataSet.FieldByName('FirstName').AsString := Person.FirstName; ClientDataSet.FieldByName('LastName').AsString := Person.LastName; ClientDataSet.FieldByName('Age').AsInteger := Person.Age; ClientDataSet.Post; end; ListView1.Items.Clear; ListView1.ItemAppearanceObjects.ItemObjects.Text.Text := 'FirstName'; ListView1.ItemAppearanceObjects.ItemObjects.Detail.Text := 'LastName'; ListView1.ItemAppearanceObjects.ItemObjects.Accessory.Text := 'Age'; // 将ClientDataSet绑定到ListView上 ListView1.Adapter := TListBindSourceAdapter.Create(Self, ClientDataSet); finally ClientDataSet.Free; end; end; procedure TForm1.LoadData; var Person: TPerson; begin Person := TPerson.Create; Person.FirstName := 'John'; Person.LastName := 'Doe'; Person.Age := 25; FPersonList.Add(Person); Person := TPerson.Create; Person.FirstName := 'Jane'; Person.LastName := 'Smith'; Person.Age := 30; FPersonList.Add(Person); end; end. ``` 在上述代码中，首先在FormCreate事件中创建了一个TObjectList<TPerson>对象，用于存储要显示的数据。在Button1Click事件中，通过LoadData方法加载数据，并将数据适配到一个TClientDataSet对象中。 然后，将TClientDataSet对象的字段定义为与Access表中的字段相匹配，并将数据逐条添加到TClientDataSet中。 接下来，通过TListBindSourceAdapter类将TClientDataSet对象绑定到ListView的Adapter属性上，实现数据的绑定和显示。 请注意，在使用TAdapterBindSource和TAdapterListViewAdapter时，需要在uses中添加Data.DB和Datasnap.DBClient单元，并在项目中引用DataSnap和DBClient相关包文件。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值