自己写的主从查询代码

1.先建立个数据池DMpool

放入adoconnection1 ,adoquery1,datasource1,adoquery2,datasource2

2.adoconnection1连接本地sql2005数据库

3.adoquery1 改名qrytop_trade 做主表，connection里面选择adoconnection1 active 选true ,然后sql里写入 ,

主表的sql

select * from top_trade 

datasource1改名dstop_trade dataset里选择qrytop_trade;

4，adoquery2改名qrytop_order 做从表 connection里面也选择adoconnection1 , active 选true,然后sql里写入

从表的sql

select * from top_order where top_tid=:top_tid

且datasource里面选择 dstop_trade

datasource2改名dstop_order dataset里选择qrytop_order;

5，在qrytop_trade的afterscroll 事件里为参数赋值

procedure TDataModule3.qrytop_tradeAfterScroll(DataSet: TDataSet);
begin
with qrytop_order do
begin
Close;
Parameters.ParamByName('top_tid').Value := qrytop_trade.fieldbyname('top_tid').value;
Open;
end;
end;

end.

这样就配置好了；1.注意操作的时候要把两个数据集的字段都设为永久字段 2.是对从表的参数设置 所以要以从表数据集为操作对象with 主表是事件的触发器

 

转载于:https://www.cnblogs.com/chuangyiyuan/p/6044030.html