Delphi中用ADOQuery实现主从表的例子(转)

    在sql server 的northwide 中建立主表：

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

       go

    建立从表：

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

       go

    首先，要注意以下设置

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

        2.代码：

           procedure TForm1.FormCreate(Sender: TObject);
           begin
              qrymain.Close;
              qrydetail.Close;
              qrymain.SQL.Add(' select *   from   sell_main)   ;
              qrydetail.SQL.add('select * from sell_item 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去掉。明细表用批处理。 

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

 

转载于:https://www.cnblogs.com/bingege/archive/2010/03/27/1698197.html