JSON序列——主从表查询

JSON序列——主从表查询

客户端代码:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
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:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
{
    "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": "双"
                }
            ]
        }
    ]
}

  

posted @   delphi中间件  阅读(1027)  评论(0编辑  收藏  举报
编辑推荐:
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
阅读排行:
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 三行代码完成国际化适配,妙~啊~
· .NET Core 中如何实现缓存的预热?
点击右上角即可分享
微信分享提示