query1的字段:card_id,card_num等(主表)
query1.sql.text:='select * from table1'
query2的字段:card_id,card_name等(关联表)
query2.sql.text:='select * from table2 where card_id:=card_id'
在query1的Query1AfterScroll事件中:
begin
query2.parambyname('card_id').value:=query1.fieldbyname('card_id).value;
query2.open;
end;
我个人觉得,既然delphi(4.0以上版本)提供了主从表,就完全没有必要自己写这些代码了。
只要两个关联字段名字相同,直接通过DataSource将将query2关联到query1上就可以了。