delphi DataSnap巢状主从表实现
服务端：添加ADOConnection，ADOQuery1，ADOQuery2。设置ADOQuery1为主表，ADOQuery2为从表。(通过 ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端：添加ClientDataSet1，ClientDataSet2。ClientDataSet1连接到DataSetProvider1。双击ClientDataSet1，右键Add All Field。可以看到一个TDataSetField字段。设置ClientDataSet2的DataSetField属性为ClientDataSet1中的TDataSetField列。添加DataCourse1、DataSource2分别连接到ClientDataSet1和ClientDataSet2控件。添加DBGrid1和DBGrid2分别连接到DataCourse1、DataSource2。设置ClientDataSet1.Active:= True;这时发现ClientDataSet2也自动打开。
自增列处理:假如主从表的主外键都是自增列，这时可以在服务端处理主从表关联。在DataSetProvider1中的BeforeUpdateRecord事件中添加如下代码：
procedure TForm1.DataSetProvider1BeforeUpdateRecord(Sender: TObject;
SourceDS: TDataSet; DeltaDS: TCustomClientDataSet;
UpdateKind: TUpdateKind; var Applied: Boolean);
begin
if ((UpdateKind = ukInsert) and
(SourceDS = ADOQuery2)
{and (DeltaDS.FieldByName('PKID').Value = Unassigned)}) then
begin
if DeltaDS.BOF then
begin
qryIdentity.Close; //qryIdentity.Sql.Text:= 'select @@identity';获取主表自增列的最新值
qryIdentity.Open;
end;
DeltaDS.FieldByName('PKID').NewValue := qryIdentity.Fields[0].Value;//赋给子表的当前行
end;
end;
this over.
相关文档：
本文使用一个简单实例讲述如何使用多态在Delphi中实现动态编程。
多态（Polymorphism）按字面的意思就是“多种形状”。引用Charlie Calverts对多态的描述——多态性是允许你将父对象设置成为和一个或更多的他的子对象相等的技术，赋值之后，父对象就可以根据当前赋值给它的子对象的特性以不同的方式运 ......
为何有人嫌弃delphi?
个人最近学习愚见
2009年9月23日9:26:08（今天秋分，太阳会逐渐离开赤道向南回归线移动，太阳会一天天的远离我们北半球，注意保暖。）
本人最近被新的事物冲昏了头。Windows7、Delphi2010、VS2008+SP1、VS2010、Office2010等等一些软件的出现；3G来了（没有钱没有体会）；Iphone（MAC），Android� ......
希望大家在转贴的时候注明出处，谢谢)
用DELPHI开发网络代码已经有一段时间了！
我发现在网上用VC来实现完成端口（IOCP）的代码很多，但是使用DELPHI来实现的就比较少了。对IOCP讲的清楚的就更少了。在这里我把自己编写DELPHI下的IOCP写出来，希望对刚学完成端口的朋友有个帮助。
首先我们来了解一些在使用IOCP的时候需� ......
最近在使用Delphi开发一种应用系统的集成开发环境。其中需要实现一个字符串拆分功能，方法基本原型应该是：
procedure
SplitString(src: string
; ch: Char; var
stringList: TStringList);
目的是使用字符ch拆分src字符串，把拆分的结果放入stringList中。例如：src:='abc|def|ghi'; ch='|'的时候，返回的stringLis ......
DELPHI类毕业设计
下一页：最新DELPHI毕业论文
若有合适您的设计，请告诉我详细说明的网址！谢谢合作！
编号 题目 开发工具 内容 资料费 详细说明
001DPAC 网络教学管理系统 DELPH I+ ACCESS delphi源代码+毕业论文+开题报告+答辩稿 ￥150 详细说明
002DPAC 教学计划管理系统 DELPH I+ ACCESS delphi源代码+毕业论� ......
