1. unit Form_Main;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, DB, Grids, DBGrids, DBClient;
  8.  
  9. type
  10. TForm1 = class(TForm)
  11. DBGrid1: TDBGrid;
  12. DataSource1: TDataSource;
  13. ClientDataSet1: TClientDataSet;
  14. procedure FormCreate(Sender: TObject);
  15. private
  16.  
  17. public
  18. { Public declarations }
  19. end;
  20.  
  21. var
  22. Form1: TForm1;
  23.  
  24. implementation
  25.  
  26. {$R *.dfm}
  27.  
  28. procedure TForm1.FormCreate(Sender: TObject);
  29. var
  30. i: Integer;
  31. begin
  32. with ClientDataSet1 do
  33. begin
  34. FieldDefs.Add('ID', ftInteger, , False);
  35. FieldDefs.Add('Name', ftString, , False);
  36. FieldDefs.Add('Gender', ftInteger, , False);
  37. FieldDefs.Add('Age', ftInteger, , False);
  38. IndexDefs.Add('PK', 'ID', [ixPrimary, ixUnique]);
  39. CreateDataSet;
  40. DisableControls;
  41. for i := to do
  42. begin
  43. Append;
  44. FieldByName('ID').AsInteger := i;
  45. FieldByName('Name').AsString := 'User' + IntToStr(i);
  46. FieldByName('Gender').AsInteger := Random();
  47. FieldByName('Age').AsInteger := Random();
  48. Post;
  49. end;
  50. EnableControls;
  51. end;
  52. end;
  53.  
  54. end.
  1. procedure TFormMain.FormCreate(Sender: TObject);
  2. begin
  3.   self.ClientDataSet1.FieldDefs.Add('Name',ftString,50);
  4.   self.ClientDataSet1.FieldDefs.Add('Age',ftString,50);
  5.   self.ClientDataSet1.CreateDataSet;
  6.  
  7.   self.ClientDataSet1.AppendRecord(['100','100']);
  8.   self.ClientDataSet1.AppendRecord(['100','100']);
  9.   self.ClientDataSet1.AppendRecord(['100','100']);
  10.   self.ClientDataSet1.AppendRecord(['100','100']);
  11.   self.ClientDataSet1.AppendRecord(['100','100']);
  12.   self.ClientDataSet1.AppendRecord(['100','100']);
  13.   self.DataSource1.DataSet:=self.ClientDataSet1;
  14. end;
  15.  
  16.  
  17. procedure TFormMain.BitBtn1Click(Sender: TObject);
  18. begin
  19. self.ClientDataSet1.AppendRecord(['1001','100']);//添加新纪录
  20. self.ClientDataSet2.Data:=self.ClientDataSet1.Delta;
  21. self.DataSource1.DataSet:=self.ClientDataSet2;
  22. end;

内存表 ClientDataSet CreateDataSet的更多相关文章

  1. delphi 新版内存表 FDMemTable

    c++builder XE 官方demo最全60多个 http://community.embarcadero.com/blogs?view=entry&id=8761 FireDAC.Com ...

  2. kbmMemTable关于内存表的使用,以及各种三层框架的评价

    关于内存表的使用(kbmMemTable) 关于内存表的使用说明一. Delphi使用内存表1.1 Delphi创建内存表步骤:1. 创建一个Ttable实例.2. 设置一个DataBaseName为 ...

  3. 关于Delphi内存表的使用说明

    关于Delphi内存表的使用说明: 1.建立临时表  数据输入是开发数据库程序的必然环节.在Client/Server结构中,客户端可能要输入一批数据后,再向服务器的后台数据库提交,这就需要在本地(客 ...

  4. 基于海明距离的加权平均值人职匹配模型(Sqlserver2014/16内存表实现)

    最近给某大学网站制作一个功能,需要给全校所有的学生提供就业单位发布职位的自动匹配,学生登陆就业网,就可以查看适合自己的职位,进而可以在线投递. 全校有几万名学生,注册企业发布的职位也有上万,如何在很短 ...

  5. mysql的内存表和临时表

    内存表: session $ mysql -uroot root@(none) ::>use test Database changed root::>CREATE TABLE tmp_m ...

  6. MySQL内存表-临时表

    HEAP表是访问数据速度最快的MySQL表,他使用保存在内存中的散列索引.但如果MySQL或者服务器重新启动,表中数据将会丢失.用法:如论坛的在线人数统计,这种表的数据应该是无关紧要的,就几个简单的字 ...

  7. sql server 2014内存表

    内存数据库,指的是将数据库的数据放在内存中直接操作.相对于存放在磁盘上,内存的数据读写速度要高出很多,故可以提高应用的性能.微软的SQL Server 2014已于2014年4月1日正式发布,SQL ...

  8. MySQL内存表的特性与使用介绍

    国内私募机构九鼎控股打造APP,来就送 20元现金领取地址:http://jdb.jiudingcapital.com/phone.html内部邀请码:C8E245J (不写邀请码,没有现金送)国内私 ...

  9. sql server 是否存在内存表?

    最近开发有个需求,需要使用到函数,但是函数中需要使用case when 判断分支,其实可以放到一张表中读取分支:但是物理表需要I/O开销,几十W的数据,线上开销也是很大的,所以就想sql server ...

随机推荐

  1. map端join

    package my.hadoop.hdfs.mapreduceJoin; import java.io.BufferedReader; import java.io.FileInputStream; ...

  2. excel表格系列

    MicroSoft Excel表格系列问题 1.excel表格修改默认行高 2.[Excel技巧]Excel实现部分保护技巧

  3. 8168开发之---1g内存换成512M的内存映射配置

    最近在帮新来同事调式内存分配,起初是将config.bld 中的内存在标配的基础上减少sr1,和tiler 将dsp从9m增加到16m,然后编译通过, 可是在加载的时候卡住了,init.sh 过,lo ...

  4. iOS拓展:react-native创建工程的坑和解决方法

    正文 首先,在创建工程之前,你需要有环境.这个网上很多,不赘述. 我们直接从创建工程开始,一步步记叙这过程. 坑一 一.打开终端,cd到你放文件的位置(我放在桌面了): yuqideMacBook-A ...

  5. HTML5 - 新增的元素,删除的元素

    1,HTML5新增的元素(1)用于构建页面的语义元素:<article>,<aside>,<figcaption>,<figure>,<foote ...

  6. 九度OJ 1193:矩阵转置 (矩阵计算)

    时间限制:1 秒 内存限制:32 兆 特殊判题:否 提交:1673 解决:1132 题目描述: 输入一个N*N的矩阵,将其转置后输出.要求:不得使用任何数组(就地逆置). 输入: 输入的第一行包括一个 ...

  7. java.util包下面的类---------01---示意图

    一直在使用util包下面的这些类,甚至有些没用过的,想要都去认识认识他们!也许在未来的一天可以用到! 图太大不好截图!部分没有截全!

  8. 2.二级接口ListableBeanFactory

    这个随笔主要讲的是ListableBeanFactory package org.springframework.beans.factory; import java.lang.annotation. ...

  9. php7下 xhprof安装与使用

    需要测试下 代码的性能,使用了 xhprof + xhgui 1. 下载xhprof, 这里下载吧 :https://github.com/longxinH/xhprof.git 2, 安装 cd x ...

  10. SMARTFORMS自定义打印格式

    [转自 http://lz357502668.blog.163.com/blog/static/16496743201272155135570/] 在sap的打印开发中经常需要自定义纸张,具体步骤如下 ...