//摘自:http://blog.csdn.net/Tercel99/archive/2008/09/08/2899881.aspx
在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
|
请发表评论