从A页面编写一个 json 他的值由一个表各列所要对应的各个列的值组成的。然后在B页面调用这个 Json 在B页面对其进行解析，一一得到值，然后用SQl语句一一赋值做增更。我想我说的很清楚了吧，不难，就是初学，望会的帮帮我。谢谢、


function THHJXCService.GenerateLLZB(const jsonZBData: AnsiString; const jsonZMXata: AnsiString; const Status: AnsiString): AnsiString;
begin
  { IHHJXCService methods 生成出库单
  1. PDA开小票时，在进销存中自动生成出库单，开票时生成出库单（草稿状态），提货时把相应出库单变成审核状态。
  jsonZBData: 单据主表数据，json方式存储
  jsonMXData: 单据明细表数据，json方式存储
  }
  //-1 作废 0草稿 1等待导购确认是否有货 2导购确认有货 3已打印，未付款 4已付款，未提货 5已经付款,已经提货 6导购确认无货



  begin
  if ((jsonZBData='') or (jsonZMXata='') or (Status='')) then
  begin
  Result := '参数不能为空' ;
  Exit;
  end
  else
  if Status='0' then
  begin
  //insert mainTable DetailTable
  SaveDetailTabel();
  SaveMainTabel(0,'');
  end;

  if Status='5' then
  begin
  //update Maintable
  end;
  end;
  // vStrsql:=' update ';
  // Result:=ZKPCRODM.ExecTransactionBySQLs(vSQLs);
end;

我所说的json 就是。。
 jsonZBData: //单据主表数据，json方式存储
  jsonMXData: //单据明细表数据，json方式存储