JSON序列——主从表查询
客户端代码：
procedure TForm1.Button4Click(Sender: TObject);
// 主从表 查询
begin
var url: TynUrl := TynUrl.Create;
var serial: TynJsonCross := TynJsonCross.Create;
var send: TMemoryStream := TMemoryStream.Create;
try
url.url := Edit1.Text;
url.command := 'query92'; // 命令
url.params.Add('count=2'); // 查询几个表的数据
url.params.Add('accountno=1'); // 帐套号
url.params.Add('sql=select * from tgoods'); // 查询SQL
url.params.Add('sql2=select * from tunit'); // 查询SQL2
serial.Text := IdHTTP1.Post(url.text, send);
Memo1.Text := serial.Text;
// serial.ReadFDMemTable(0, FDMemTable1);
// serial.ReadFDMemTable(1, FDMemTable2);
finally
serial.DisposeOf;
send.DisposeOf;
url.DisposeOf;
end;
end;
服务端返回JSON：
{
"tables": [
{
"cols": [
{
"name": "goodsid",
"size": 8,
"type": "string"
},
{
"name": "barcode",
"size": 18,
"type": "string"
},
{
"name": "goodsname",
"size": 50,
"type": "string"
},
{
"name": "pyjm",
"size": 50,
"type": "string"
},
{
"name": "gg",
"size": 30,
"type": "string"
},
{
"name": "kindid",
"size": 8,
"type": "string"
},
{
"name": "jj",
"size": 4,
"type": "float"
},
{
"name": "lsj",
"size": 4,
"type": "float"
},
{
"name": "kcxx",
"size": 4,
"type": "float"
},
{
"name": "kcsx",
"size": 4,
"type": "float"
},
{
"name": "unitid",
"size": 8,
"type": "string"
},
{
"name": "unitname",
"size": 10,
"type": "string"
},
{
"name": "kindname",
"size": 30,
"type": "string"
}
],
"rows": [
{
"goodsid": "100036",
"barcode": "100036",
"goodsname": "秋冬四件套哦",
"pyjm": "",
"gg": "",
"kindid": "12002",
"jj": 100,
"lsj": 430,
"kcxx": 50,
"kcsx": 5,
"unitid": "15",
"unitname": "箱套",
"kindname": "床上用品"
},
{
"goodsid": "100050",
"barcode": "100050",
"goodsname": "天堂伞",
"pyjm": "wrth",
"gg": "",
"kindid": "1",
"jj": 10,
"lsj": 0,
"kcxx": 0,
"kcsx": 0,
"unitid": "15",
"unitname": "箱套",
"kindname": "1111"
},
{
"goodsid": "100054",
"barcode": "100054",
"goodsname": "我们的 哎",
"pyjm": "WMD D7",
"gg": "",
"kindid": "11002",
"jj": 0,
"lsj": 0,
"kcxx": 0,
"kcsx": 0,
"unitid": "18",
"unitname": "公斤",
"kindname": "饮料"
},
{
"goodsid": "100055",
"barcode": "100055",
"goodsname": "娃哈哈纯净水500ML",
"pyjm": "WHHCJS500ML",
"gg": "",
"kindid": "11001",
"jj": 0,
"lsj": 0,
"kcxx": 0,
"kcsx": 0,
"unitid": "18",
"unitname": "公斤",
"kindname": "奶粉"
}
]
},
{
"cols": [
{
"name": "unitid",
"size": 4,
"type": "string"
},
{
"name": "unitname",
"size": 6,
"type": "string"
}
],
"rows": [
{
"unitid": "11",
"unitname": "个"
},
{
"unitid": "12",
"unitname": "双"
}
]
}
]
}