//摘自：

在sql server 的northwide 中建立主表

create table sell_h( sell_id char(10),cust_name char(10) Primary key(sell_id) )

go

create table sell_h( sell_id char(10),inv char(10) ,amt float,qty float Primary key(sell_id,inv) )

首先,要注意以下设置

1.要注意报从表qrydetail设置,批保存开式. 即.locktype= batchoptimistic ,cursortype=keyset,cursorlocation

=cluseclient

2.

procedure TForm1.FormCreate(Sender: TObject);

begin

qrymain.Close;

qrydetail.Close;

qrymain.SQL.Add(' select *   from   sell_h')   ;

qrydetail.SQL.add('select * from sell_b where sell_id = :sell_id')  ;

qrymain.Open;

qrydetail.Open; 

end;

3.

procedure TForm1.qrymainAfterScroll(DataSet: TDataSet);

begin

qrydetail.Close;

qrydetail.Parameters.ParamByName('sell_ID').Value := qrymain.fieldbyname('sell_id').value;

qrydetail.Open;

end;

以上就是主要的设置,还有注意主从表的保存问题:

主表不要用批处理，直接保存,把ltBatchOptimistic去掉

明细表用批处理。  

保存时先保存明细表，再保存主表即可。

ADO中ADOTable、ADOQuery和ADODataSet主从表设置

1、ADOTable的主从表设置

主表名为jxc_out，从表名为jxc_out_detl   主表与从表关联字段为draw_no

tbM: TADOTable;

tbD: TADOTable;

dtsM: TDataSource;

dtsD: TDataSource;

tbM.TableName=jxc_out

tbD.TableName=jxc_out_detl

dtsM.DataSet=tbM

dtsD.DataSet=tbD

tbD.MasterSource=tbM

在从表的[tbD]中选择MasterFields属性，选择主表和从表关联的字段，然后执行tbM.open和tbD.Open即可

2、ADOQuery的主从表设置

主表名为jxc_out，从表名为jxc_out_detl  主表与从表关联字段为draw_no

adqM: TADOQuery;

adqD: TADOQuery;

dtsM: TDataSource;

dtsD: TDataSource;

tbM.sql.text=select * from jxc_out

tbM.sql.text=select * from jxc_out_detl where draw_no=:draw_no

dtsM.DataSet=adqM

dtsD.DataSet=adqD

dtsD.DataSource=dtsM

执行adqM.open和adqD.Open即可

3、ADODataSet主从表设置

跟ADOQuery设置差不多，不过ADODataSet设置的是commandtext