现在,DATASNAP倾向于使用JSON作为统一的数据序列格式,以期达到跨平台的效果.于是使用JSON便成为热点. unit uJSONDB; interface uses SysUtils, Classes, Variants, DB, DBClient, SuperObject, Dialogs; type TJSONDB = class private class function getJsonFieldNames(res: ISuperObject):TStringList ;…
场景,程序想检查是否存在某个字段的值是空的,如果存在,则不允许增加记录,否则允许增加记录. 解决这个问题,我一开始用了两种错误的方法 if not clientdataset.locate('AFieldName','',[]) then //如果存在字段AFieldName的值为空的记录,则不允许增加一行记录append clientdataset.append else exit; 第二种错误方法 ClientDataset.Filtered := false; ClientDataset.…
clientdataset.open 报错 Name not unique in this context clientdataset有一些自定义字段,clientdataset绑定了adoquery,但是看字段没有重复,clientDataSet的字段和ADOQuery的字段也没有重复. adoquery.open(); cds1.open();//error 与ADOQuery无关,单独打开 ds3->Open();也报错 绕了一大圈,才是某个字段不存在引起的. 2018.10.15 是的…