文档章节

TClientDataSet[19]: 查找字段(fkLookup)

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 298
阅读 6
收藏 0

动态建立(其中的 School 字段是 Lookup 字段):



//先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现:

procedure TForm1.FormCreate(Sender: TObject);
begin
  { 关联控件 }
  DBGrid1.DataSource := DataSource1;
  DataSource1.DataSet := ClientDataSet1;

  { 把 ClientDataSet2 定义为一个 School 列表, 同时添加测试数据 }
  with ClientDataSet2 do begin
    FieldDefs.Add('ID', ftInteger);
    FieldDefs.Add('Name', ftString, 20);
    CreateDataSet;
    AppendRecord([1, '哈佛大学']);
    AppendRecord([2, '斯坦福大学']);
    AppendRecord([3, '耶鲁大学']);
    AppendRecord([4, '加州理工学院']);
    AppendRecord([5, '加州大学']);
    AppendRecord([6, '剑桥大学']);
    AppendRecord([7, '麻省理工学院']);
    AppendRecord([8, '牛津大学']);
    AppendRecord([9, '哥伦比亚大学']);
    MergeChangeLog;
    SaveToFile('C:\Temp\School.xml', dfXMLUTF8); { 保存下, 也给后面的例子用 }
  end;

  { 下面是定义 ClientDataSet1; 先添加两个普通字段 }
  with TStringField.Create(Self) do
  begin
    FieldName := 'Student';   { 用于显示学生名称 }
    Size := 12;
    DataSet := ClientDataSet1;
  end;
  with TIntegerField.Create(Self) do
  begin
    FieldName := 'School_ID'; { 用于和 ClientDataSet2 的 ID 字段关联 }
    DataSet := ClientDataSet1;
  end;

  { 添加 Lookup 字段 }
  { 通过 School_ID 和 ClientDataSet2.ID 的关联, 从 ClientDataSet2 中查找 Name 字段的值 }
  with TStringField.Create(Self) do
  begin
    FieldName := 'School';
    FieldKind := fkLookup;   { 上两个字段会默认 FieldKind := fkData }
    DataSet := ClientDataSet1;
    KeyFields := 'School_ID';
    LookupDataSet := ClientDataSet2;
    LookupKeyFields := 'ID';
    LookupResultField := 'Name';
  end;
  ClientDataSet1.CreateDataSet;
end;

 
 
 
 
 

 

 

  

设计时添加 Lookup 字段(其中 ClientDataSet2 使用了上面刚保存的 School.xml):



本文转载自:http://www.cnblogs.com/del/archive/2010/02/04/1663694.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
TClientDataSet使用(二)

转自:http://hi.baidu.com/zwl232/blog/item/76f011dfc9543812622798f2.html TClientDataSet    与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,它通常用于多层体系结构的......

天地弦
2007/06/01
0
0
ClientDataSet探讨(1)-介绍

KeyLife富翁笔记 作者: hongxingdl 标题: ClientDataSet探讨(1)-介绍 关键字: midas 分类: 开发经验 密级: 公开 与TTable、TQuery一样,TClientDataSet也是从TDataSet继承下来的,...

天地弦
2004/08/06
0
0
一个ClientDataset的Delta与XML相互转换

一个ClientDataset的Delta与XML相互转换的文章: 大家都知道TClientDataSet的Delta属性保存数据集的变化,但是Delta是OleVariant类型的属性,这样如果用Delphi写Webservice,就有需要把它转成...

vga
2014/02/27
0
18
Android开发数据库三层应用-DataSnap

Android开发数据库三层应用-DataSnap 时间:2013-10-24 13:41:54 点击:4988   核心提示:我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完...

vga
2014/06/01
0
0
带有TClientDataSet的delphi应用程序在发布时应注意的问题

这两天,我把我做的拍卖的操作端发布给公司的同事试用,这些机器都没有安装过delphi环境,我的程序所有用到的组件及单元文件都是build在一块儿的,按理说就不需要其他什么文件来支持了。  本...

技术小胖子
2017/11/02
0
0

没有更多内容

加载失败,请刷新页面

加载更多

科学利用谷歌云平台

当今既是大数据时代,也是云计算时代。云平台构建已经成了诸多大数据平台建设第一步。于是各家互联网巨头们纷纷都开启了云平台服务。国内的以阿里云、腾讯云、百度云、华为云为首,国外的有A...

胖胖雕
8分钟前
0
0
公众号关联小程序发送关联通知

公众号关联小程序发送关联通知,对于推广小程序有着很大的帮助。所以问题来了,怎么做到在公众号关联小程序发送关联通知呢? 一:开发中遇到的问题 之前在开发过程中发现,公众号已经关联小程...

Code辉
11分钟前
0
0
并发编程基础之JMM学习摘要

一、JMM定义 Java内存模型即Java Memory Model(JMM),JMM决定一个线程对共享变量的写入何时对另一个线程可见(内存可见性),从抽象的角度来看,JMM定义了线程和主内存之间的抽象关系:线程...

狠一点
16分钟前
0
0
mysql 开启日志记录并且解决日志时间错误问题

查看日志开启状态 SHOW VARIABLES LIKE 'general%'; 开启日志 SET GLOBAL general_log = 'ON'; 本人mysql版本5.7 在查询日志的时候发现时间和系统时间不对 查看系统默认时间参数 SELECT @@l...

Marhal
18分钟前
0
0
Kubernetes上的负载均衡详解

如果您的应用程序是面向大量用户、会吸引大量流量,那么一个不变的目标一定是在高效满足用户需求的同时、不让用户感知到任何类似于“服务器繁忙!”的情况。这一诉求的典型解决方案是横向扩展...

RancherLabs
19分钟前
0
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部