• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

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

原作者: [db:作者] 来自: [db:来源] 收藏 邀请


    在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去掉。明细表用批处理。 

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

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
DelphiXE7XE8开发iphone运用发布时间:2022-07-18
下一篇:
Delphi中使用RegExpr单元进行匹配与替换操作发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap