数据库编程 - 随笔分类(第2页) - 万一

TClientDataSet[21]: 使用 ADT(Abstract Data Type) 字段

摘要：运行时://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:procedure TForm1.FormCreate(Sender: TObject);begin //ClientDataSet1.ObjectView := True; { 这是默认的 } { 先定义两个基本字段 } with ClientDataSet1.FieldDe... 阅读全文

posted @ 2010-02-05 10:14 万一阅读(3478) 评论(0) 推荐(1) 编辑

TClientDataSet[20]: 使用 Blob 字段

摘要：Blob(Binary Large Object) 字段包括:ftBlob, ftMemo, ftGraphic, ftFmtMemo, ftParadoxOle, ftDBaseOle, ftTypedBinary, ftCursor, ftFixedChar, ftWideString,ftLargeint, ftADT, ftArray, ftReference, ftDataSet, ft... 阅读全文

posted @ 2010-02-04 17:59 万一阅读(6638) 评论(0) 推荐(0) 编辑

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

摘要：动态建立(其中的 School 字段是 Lookup 字段)://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1、ClientDataSet2; 其他全用代码实现:procedure TForm1.FormCreate(Sender: TObject);begin { 关联控件 } DBGrid1.DataSource := DataSource1; ... 阅读全文

posted @ 2010-02-04 15:35 万一阅读(5703) 评论(10) 推荐(0) 编辑

TClientDataSet[18]: OptionalParam

摘要：uses XMLDoc;procedure TForm1.FormCreate(Sender: TObject);begin with ClientDataSet1 do begin FieldDefs.Add('Text', ftString, 12); FieldDefs.Add('Num', ftInteger); CreateDataSet; AppendRecord(['ABC', 1... 阅读全文

posted @ 2010-02-04 10:57 万一阅读(2890) 评论(0) 推荐(2) 编辑

TClientDataSet[17]: StatusFilter

摘要：测试图:测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, CheckLst, Grids, DBGrids, DB, DBClient;type TForm1 = class(TForm) Cli... 阅读全文

posted @ 2010-02-03 23:00 万一阅读(2971) 评论(0) 推荐(0) 编辑

TClientDataSet[16]: 用计算字段显示 UpdateStatus

摘要：TClientDataSet.UpdateStatus: TUpdateStatus;TUpdateStatus = (usUnmodified, usModified, usInserted, usDeleted);测试图:相关代码:uses TypInfo;procedure TForm1.ClientDataSet1CalcFields(DataSet: TDataSet);begin C... 阅读全文

posted @ 2010-02-03 17:08 万一阅读(4058) 评论(0) 推荐(0) 编辑

TClientDataSet[15]: 测试添加与恢复

摘要：相关成员不少, 不亲自测试很难彻底了解其细节; 下面是我的测试:测试代码:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBClient, Grids, DBGrids;type TForm1 ... 阅读全文

posted @ 2010-02-03 16:19 万一阅读(4279) 评论(0) 推荐(0) 编辑

TClientDataSet[14]: 测试 FindFirst、FindNext、FindLast、FindPrior、Found

摘要：//先在窗体添加 ClientDataSet1 和两个 Button{ 初始化测试数据 }procedure TForm1.FormCreate(Sender: TObject);begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftInteger); FieldDefs.Add('Name', ftString, 6); FieldD... 阅读全文

posted @ 2010-02-03 15:35 万一阅读(4394) 评论(0) 推荐(0) 编辑

TClientDataSet[13]: 过滤

摘要：方法有:1、Filter、Filtered2、OnFilterRecord3、SetRange、ApplyRange 或 SetRangeStart、SetRangeEnd、ApplyRange(Range 相关还有: CancelRange、EditRangeStart、EditRangeEnd、KeyExclusive、Ranged)下面三个例子测试前都要: 先在窗体上放置 ClientDataSet1、DataSource1、DBGrid1 并关联.Filter 测试:{ 准备测试数据 }procedure TForm1.FormCreate(Sender: TObject);begin 阅读全文

posted @ 2010-02-01 21:07 万一阅读(8252) 评论(0) 推荐(1) 编辑

TClientDataSet[12]: 查找

摘要：方法有:1、Locate: 根据字段列表和对应的字段值查找并定位, 找到返回 True.2、Lookup: 根据字段列表和对应的字段值查找, 返回需要的字段值.3、SetKey、GotoKey 或 SetKey、GotoNearest: 根据索引字段的值查找, 先切换状态再根据条件定位.4、FindKey 或 FindNearest: 根据索引字段的值查找.其中的 GotoNearest、Find... 阅读全文

posted @ 2010-02-01 20:59 万一阅读(8415) 评论(2) 推荐(0) 编辑

TClientDataSet[11]: 分组统计

摘要：设计时实现的分组统计:运行时实现的分组统计://前期只需要添加 ClientDataSet1、DataSource1、DBGrid1; 事件只需要关联窗体的 OnCreateunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Gr... 阅读全文

posted @ 2010-01-31 21:27 万一阅读(6463) 评论(1) 推荐(0) 编辑

TClientDataSet[10]: 简单统计

摘要：//先在窗体上放置 ClientDataSet1、Button1 然后:{ 建表 }procedure TForm1.FormCreate(Sender: TObject);begin with ClientDataSet1 do begin { 定义表 } FieldDefs.Add('班级', ftWideString, 4); FieldDefs.Add('姓名', ftWideStrin... 阅读全文

posted @ 2010-01-30 23:02 万一阅读(4792) 评论(3) 推荐(0) 编辑

TClientDataSet[9]: 计算字段和 State

摘要：TClientDataSet 中计算字段有两种: Calculated(计算字段)、InternalCalc(内部计算字段).两者区别是: Calculated 在每次需要时都要重新计算; InternalCalc 只需要计算一次.Calculated 需要计算的时间, InternalCalc 需要存取的时间; 当然后者快.计算字段不会被保存到文件.下面的例子先定义了两个整数字段: sum1、s... 阅读全文

posted @ 2010-01-28 20:28 万一阅读(9014) 评论(0) 推荐(0) 编辑

TClientDataSet[8]: 关于索引与排序

摘要：索引的目的有三: 快速定位、排序、建立主从表. 下面是相关属性与方法:IndexDefs; { }IndexFieldCount; { }IndexFieldNames; { }IndexFields[]; { }IndexName; { }AddIndex(); { }DeleteIndex(); { }GetIndexInfo(); { }GetIndexNames(); {... 阅读全文

posted @ 2010-01-28 10:22 万一阅读(12502) 评论(1) 推荐(3) 编辑

TClientDataSet[7]: 辨析 Field、FieldDef、Fields、FieldDefs、FieldList、FieldDefList

摘要：TFieldTFieldDefTFieldsTFieldDefsTFieldList、TFieldDefListAssignAssignValueClearFocusControlGetDataGetParentComponentHasParentIsBlobIsValidCharRefreshLookupListSetDataSetFieldTypeSetParentComponentValid... 阅读全文

posted @ 2010-01-27 11:34 万一阅读(12678) 评论(6) 推荐(0) 编辑

TClientDataSet[5]: 读取数据

摘要：本例用到:TClientDataSet.Fields[]; { 字段集合; 它比 FieldList 有更多功能, 如可获取嵌套字段 }TClientDataSet.FieldList[]; { 字段列表; 它比 Fields 轻便, 如果只是取值用它快一些 }TClientDataSet.FieldByName(); { 根据字段名称获取字段对象; 获取一个字段对象时它比上两个快 }TClien... 阅读全文

posted @ 2010-01-22 21:40 万一阅读(11761) 评论(7) 推荐(2) 编辑

TClientDataSet[4]: 数据浏览(设计时)

摘要：阅读全文

posted @ 2010-01-21 13:31 万一阅读(5321) 评论(13) 推荐(0) 编辑

TClientDataSet[3]: 手动建立数据集

摘要：//放置控件: ClientDataSet1、DataSource1、DBGrid1、Button1, 然后procedure TForm1.Button1Click(Sender: TObject);begin { 添加字段 } with ClientDataSet1.FieldDefs.AddFieldDef do begin Name := 'ID'; DataType := ftIn... 阅读全文

posted @ 2010-01-21 10:29 万一阅读(9278) 评论(5) 推荐(2) 编辑

TClientDataSet[2]: Data、XMLData

摘要：TClientDataSet.Data { 数据的二进制格式的描述 }TClientDataSet.XMLData { 数据的 XML 格式的描述 }//先在窗体上放置 ClientDataSet1、Memo1 和三个按钮uses XMLDoc, IOUtils; { 分别提供 FormatXMLData 和 TFile.ReadAllText 函数 }{ 设定当前目录 }procedure TF... 阅读全文

posted @ 2010-01-20 13:24 万一阅读(8252) 评论(0) 推荐(1) 编辑

TClientDataSet[1]: 浏览测试数据

摘要：想学 TClientDataSet 是在 2009 年 5 月, 但当时学不动; 现在好了, 有源码了(DBClient.pas).希望这次学习能对其内存协调方式有所了解, 顺便学点数据库的知识.TClientDataSet 是一个内存数据集(说"数据表"对不住它), 其内存数据可存取到本地(*.cds 或 *.xml 格式).用 TDBGrid 可方便查看其内存数据, 但需要用数据源组件(如: ... 阅读全文

posted @ 2010-01-20 10:06 万一阅读(7368) 评论(2) 推荐(1) 编辑

随笔分类 - 数据库编程