盒子论坛 v2.1

procedure TForm2.btn4Click(Sender: TObject);
Var   sField,sValue:string;
  i,j:Integer;
  JO:TJSONOBject;
begin
  JO:=TJSONOBject.Create;
  sField:='';
  sValue:='';
  with mtbl_1.Delta.DataView do begin
    for I := 0 to Rows.Count-1 do  begin
      if Rows.ItemsI[i].RowState=TFDDatSRowState.rsInserted then begin

        for j := 0 to mtbl_1.Fields.Count-1 do begin
          sField:=sField+mtbl_1.Fields[J].FieldName+',';
          sValue:=sValue+VarToStr(Rows.ItemsI[i].GetValues(mtbl_1.Fields[J].FieldName)).QuotedString+',';
        end;
        JO.AddPair('SQL','Insert Into Person('+Copy(sField,1,Length(sField)-1)+')'+#13#10
          +' Values('+Copy(sValue,1,Length(sValue)-1)+')'+#13#10) ;
      end
      else if Rows.ItemsI[i].RowState in [TFDDatSRowState.rsModified,
        TFDDatSRowState.rsEditing] then
        JO.AddPair('SQL','Edit'+#13#10)
      else if Rows.ItemsI[i].RowState in [TFDDatSRowState.rsDeleted] then
        JO.AddPair('SQL','Delete'+#13#10);
    end;

  end;
  mmo1.Clear;
  mmo1.Lines.Add(JO.ToString);

end;

欢迎加入：Delphi XE10 分享 383675978群，讨论

。。。。。。。。。。
----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533

作者：

tp26021340 (锦)	★☆☆☆☆	-
	普通会员

2016/1/29 11:31:34

1楼：

TFDMemTable 数据转成SQL脚本更新完成转换，可以通用了

下载附件

欢迎加入：Delphi XE10 分享 383675978群，讨论

此帖子包含附件:tp26021340_2016129113134.txt 大小:6.5K

----------------------------------------------
XE7 安卓手机框架、IOS手机框架开发,联系QQ:2403182533

作者：

bbnn38 (伟大的咸鱼)	★☆☆☆☆	-
	普通会员

2018/7/1 12:49:48

2楼：

感谢!
----------------------------------------------
-

作者：

sxqwhxq (步惊云)	★☆☆☆☆	-
	普通会员

2018/7/2 15:41:30

3楼：

看看
----------------------------------------------
-

作者：

ken_hsiao (ken)	★☆☆☆☆	-
	普通会员

2018/7/6 14:18:48

4楼：

如果有二进位栏位、图档之类的，是不是就不能使用了？
----------------------------------------------
-

信息

登陆以后才能回复