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.
相关文档：
dpr 为工程文件
dfm 为窗体文件
pas 为单元文件
cfg 配置文件
dof 为项目选项文件(一般没用)
dcu compiled units文件 ,编译后的单元文件
res 资源文件
ddp 文件就是Delphi Diagram Portfolio简写,是用来保存Code Editor中的Diagram信息的.
一般一个项目要考个别� ......
一般我们在Delphi中进行图像处理时采用Pixels像素点赋值的方法，Delphi代码如下：
var
x,y:Integer;
cColor:TColor;
begin
for y:=0 to Image1.Height-1 do
for x:=0 to Image1.Width-1 do
cColor:=Image1.Canvas.Pixels[i,j];
end;
但是这种方法有个缺 ......
DELPHI类毕业设计
下一页：最新DELPHI毕业论文
若有合适您的设计，请告诉我详细说明的网址！谢谢合作！
编号 题目 开发工具 内容 资料费 详细说明
001DPAC 网络教学管理系统 DELPH I+ ACCESS delphi源代码+毕业论文+开题报告+答辩稿 ￥150 详细说明
002DPAC 教学计划管理系统 DELPH I+ ACCESS delphi源代码+毕业论� ......
函数一：
view plaincopy to clipboardprint?
uses
Windows,
SysUtils,
Classes,
ShellAPI;
function RunAndWait(FileName: string; Visibility: Integer): THandle;&nbs ......
利用Windows API函数WritePrivateProfileString 和GetPrivateProfileString可对.INI文件进行读写操作。其实，对.INI文件的读写完全可以利用Delphi的内置函数来实现。下面就介绍一些对.INI文件读写时相关的类及其属性方法。
1、TIniFile对象
以Delphi中，定义了一个TIniFile对象，将.INI文件封装在其中，并提供一些方法� ......
