Delphi是一種廣泛使用的編程語言，可以輕松地創建數據驅動的應用程序。在許多實際應用中，我們需要查詢并顯示主從表數據，其中子表數據存儲為JSON格式。如何使用Delphi實現這個功能呢？

以下是Delphi主從表查詢JSON的代碼實現：

//創建ADO連接對象
ADOConnection1:=TADOConnection.Create(nil);
ADOConnection1.ConnectionString:='Provider=MSDASQL.1;Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=test;UID=root;PWD=root;Option=3;';
ADOConnection1.Connected:=True;
//查詢主表數據
ADOQuery1:=TADOQuery.Create(nil);
ADOQuery1.Connection:=ADOConnection1;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from customer');
ADOQuery1.Open;
//循環遍歷主表數據
while not ADOQuery1.Eof do
begin
//根據主表數據查詢子表數據
ADOQuery2:=TADOQuery.Create(nil);
ADOQuery2.Connection:=ADOConnection1;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from order_json where customer_id='+ADOQuery1.FieldByName('id').AsString);
ADOQuery2.Open;
//將子表數據存儲為JSON格式
JsonArray:=TJsonArray.Create;
while not ADOQuery2.Eof do
begin
JsonObject:=TJsonObject.Create;
JsonObject.AddPair('order_id',ADOQuery2.FieldByName('order_id').AsString);
JsonObject.AddPair('order_name',ADOQuery2.FieldByName('order_name').AsString);
JsonArray.AddElement(JsonObject);
ADOQuery2.Next;
end;
//將JSON格式數據添加到主表數據中
ADOQuery1.Edit;
ADOQuery1.FieldByName('order_json').AsString:=JsonArray.ToString;
ADOQuery1.Post;
ADOQuery2.Free;
ADOQuery1.Next;
end;
ADOQuery1.Free;
ADOConnection1.Connected:=False;
ADOConnection1.Free;

通過上述代碼，我們可以查詢主表數據并根據主表數據查詢對應的子表數據，將子表數據轉換成JSON格式，并添加到主表數據中。實現這個功能所需的步驟并不復雜，只要理解SQL語句的使用方法以及JSON格式的表示方法就可以輕松完成。