Delphi7 +Report Machine6.5 主从表关系，求高手解答。。。在线等。。。。。

linzhen6790 2009-10-20 08:25:34

数据库为ACCESS
主表数据为：kfzl(id,xm,xb,fk,sfz,dz) ==>>表示客户资料（编号，姓名，性别，户口，身份证，电址）
从表数据为：cszl(id,bskh,cpbh.cpmc,cpch) ==>>表示销售资料（编号，标识卡号，产品编号，产品名称，产品型号）

id属性为共用

使用的控件，两个ADOquery,一个RMReport，两个RMDBDataSet，一个DataSource

ADOquery1连接主表数据
ADOquery2连接从表数据

比如我的数据是这样

kfzl数据
编号 id fk xm xb sfz dz sj df
1 XPCS0910050001 123456 av 要 3 在 12 15
2 XPCS0910050002 a a a 1 工 1

cszl数据
编号 id csrq spbh bskh cpbh spmc spch sppb jg
8 XPCS0910050001 2009-9-24 1010013 HRDG136 1346A 电视机 21TA1-
9 XPCS0910050001 2009-9-24 1010001 A A 电视机 21TA1-7 123 "
10 XPCS0910050001 2009-9-24 1010001 B A 电视机 21TA1-71 123 "
11 XPCS0910050002 2009-9-24 1010001 1 1 电视机 21TA1-72 123 "
12 XPCS0910050003 2009-9-24 1010001 3 1 电视机 21TA1-73 123 "

ADOquery1的SQL属性：select * from kfzl
ADOquery2的SQL属性：select * from cszl where id=:id

现在出现了问题是：
我只想打印其中了表单第一个数据（XPCS0910050001），，我打印预览了时候，，连（XPCS0910050002）也一起出来，
代码：
procedure Tllct.N5Click(Sender: TObject);
begin
if ADOQuery1.IsEmpty then
Exit;
try
RMReport1 := TRMReport.Create(Self);
RMReport1.LoadFromFile('jdxxsqbb.rmf');
RMReport1.PrepareReport;
RMReport1.ShowReport;
finally
RMReport1.Free;
end;

end;

我如果把ID指向单号，打印预览了时候，主表跟从表，都全部没有显示，代码如下：
procedure Tllct.N5Click(Sender: TObject);
begin
if ADOQuery3.IsEmpty then
Exit;
try
RMReport1 := TRMReport.Create(Self);
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from kfzl where id=a order by id');
ADOQuery1.Parameters.ParamByName('a').Value:=label25.Caption;//＝＝＝》》（label25.caprion 是单号ID）

ADOQuery1.Open;
ADOQuery2.Open;

RMReport1.LoadFromFile('jdxxsqbb.rmf');
RMReport1.PrepareReport;
RMReport1.ShowReport;
finally
RMReport1.Free;
end;

end;

后来，我再查了一下资料，说有了要在ADOquery1那里要有
代码如下：
procedure Tllct.ADOQuery1AfterScroll(DataSet: TDataSet);
begin
ADOQuery2.Close;
ADOQuery2.SQL.Clear;
ADOQuery2.SQL.Add('select * from kfzl where id=:id ');
adoquery2.Parameters.ParamByName('id').Value := adoquery1.fieldbyname('id').value;
adoquery2.Open;
end;

也不行，主从表都全部不显示

现在想请大侠们，指点一下，我上面是错在哪边，我现在只想通过label25.caprion(id单号),从数据库里面打印这一条主从表数据，不是整个数据库的数据

至于分数，我也不知道怎么分，知道了。。请帮帮我。好吗，要源码请联系我：linzhen6790@163.com

...全文