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.
相关文档：
from : http://zhyhero.googlepages.com/heartset
file:0 前言
本文的目的在于采用流水账方式来记录学习delphi访问嵌入式数据库sqlite中的一些点滴。欢迎各位同好共同学习和批评指正。
file:1 准备工作part1
delphi版本:delphi2007 for win ......
众所周知，系统需要进行多人并行开发时，应该把系统分拆成独立的模块，这样才能避免开发冲突。但如何进行分拆呢？在Delphi系统中，有很多种方法，下面来进行一一介绍与分享。
1.把模块拆分成包(dpk)，直接在主程序中通过LoadPackage函数把包装载进来即可。不过这种方法也有些不便，所有的类必须继承自TPersistentClass，并 ......
DELPHI面向对象参考
陈奇 2005-07-21
一、类和对象
类是对象的类型，是创建对象的模板。一个类可以创建多个对象，而一个对象总是属于某个类。类具有内部的属性（状态）和行为（操作）。
对象是类的实例，具有区别于同类其他对象的属性集合。
对象的声明存放于堆栈，对象的引用存放于堆。
� ......
函数一：
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
此文适合Delphi新手阅读，特别是连接数据库方面还一懂半懂甚至根本不懂的新手；
--------------------------但总体显得有点乱-------------------------
本文章以Delphi 7和SQL Server 2000为例，控件名均为系统默认，如Unit1,DataModule1,Edit1,ADOCommand1,ADODataS ......
