2010 年 2月随笔档案 - 万一

摘要：使用 Kingsoft Phonetic Plain 字体(ksphonetic.ttf)写音标时老记不住, 就做了这个对照表: 阅读全文

posted @ 2010-02-24 19:12 万一阅读(3520) 评论(8) 推荐(0) 编辑

摘要：01010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101010101... 阅读全文

posted @ 2010-02-14 12:51 万一阅读(2378) 评论(14) 推荐(0) 编辑

学绘秀曲线图

摘要：偶然从 http://blog.csdn.net/hero82748274/archive/2010/02/10/5304386.aspx 看到了秀曲线图, 就用 GDI 模仿了一下; 如果用 GDI+ 绘制, 图形会细腻很多.procedure TForm1.FormPaint(Sender: TObject);var i,j,num,X,Y: Integer;begin num := 60... 阅读全文

posted @ 2010-02-10 23:24 万一阅读(6318) 评论(7) 推荐(0) 编辑

TClientDataSet[28]: 读写其他格式的 XML 文件

摘要：TClientDataSet 可以直接存取的 XML 有自己的格式规范, 存取其他格式 XML 需要相应的映射文件(*.xtr).这种 *.xtr 文件是用 XML Mapper(Delphi 自带, 可从开始菜单或 IDE - Tools 启动)制作的.一般会需要两个 *.xtr 文件, 一个用于读取(例子中是: ToDp.xtr), 一个用于写入(例子中是: ToXml.xtr).可以通过 ... 阅读全文

posted @ 2010-02-10 13:11 万一阅读(9821) 评论(5) 推荐(0) 编辑

TClientDataSet[27]: 字段值的约束(或叫输入限制)

摘要：Required、Precision、MaxValue、MinValue:begin { Required: 必填字段 } with TIntegerField.Create(Self) do begin FieldName := 'ID'; Required := True; DataSet := ClientDataSet1; end; { Precision: 浮点数精度} wit... 阅读全文

posted @ 2010-02-09 20:03 万一阅读(4771) 评论(0) 推荐(0) 编辑

TClientDataSet[26]: 字段值的呈现格式

摘要：procedure TForm1.FormCreate(Sender: TObject);begin { DisplayFormat } with TIntegerField.Create(Self) do begin FieldName := 'Integer'; DisplayFormat := '#, 元'; DataSet := ClientDataSet1; end; with ... 阅读全文

posted @ 2010-02-09 18:13 万一阅读(3686) 评论(1) 推荐(1) 编辑

TClientDataSet[25]: 自动增长字段(ftAutoInc) 与字段默认值

摘要：自动增长字段://建立方法一:begin with ClientDataSet1 do begin FieldDefs.Add('ID', ftAutoInc); FieldDefs.Add('Name', ftString, 11); CreateDataSet; end;end;//建立方法二:begin with TAutoIncField.Create(Self) do begin ... 阅读全文

posted @ 2010-02-09 16:00 万一阅读(5217) 评论(5) 推荐(0) 编辑

TClientDataSet[24]: 主从表(Master/Detail)

摘要：测试使用了官方的范例文件(主表: orders.xml; 从表: items.xml).//先在窗体上添加: //ClientDataSet1、DataSource1、DBGrid1、ClientDataSet2、DataSource2、DBGrid2; 然后:procedure TForm1.FormCreate(Sender: TObject);begin { 关联数据集 } DBGrid... 阅读全文

posted @ 2010-02-06 22:48 万一阅读(8804) 评论(0) 推荐(1) 编辑

TClientDataSet[23]: 使用数据集字段(TDataSetField)

摘要：运行时的设计方法:设计时的准备工作:ClientDataSet1、DataSource1、DBGrid1 并关联, 这用于主表;ClientDataSet2、DataSource2、DBGrid2 并关联, 这将成为主表的一个字段(或叫嵌套表);还可以放个 Splitter1 来协调 DBGrid 的大小.procedure TForm1.FormCreate(Sender: TObject);b... 阅读全文

posted @ 2010-02-06 12:51 万一阅读(7194) 评论(0) 推荐(0) 编辑

TClientDataSet[22]: 数组字段与 ObjectView

摘要：数组字段(ftArray) 与 ADT 字段类似(设计过程一样), 定义数组字段时只需定义一个元素来说明元素类型.本例同时测试 ObjectView 为 True 和 False 时的不同效果.下面是在运行时实现的数组字段://先在窗体上放置: DBGrid1、DataSource1、ClientDataSet1 并关联, 然后:procedure TForm1.FormCreate(Sender... 阅读全文

posted @ 2010-02-05 13:19 万一阅读(3484) 评论(0) 推荐(0) 编辑

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 万一阅读(3497) 评论(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 万一阅读(6676) 评论(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 万一阅读(5729) 评论(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 万一阅读(2905) 评论(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 万一阅读(2995) 评论(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 万一阅读(4266) 评论(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 万一阅读(4304) 评论(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 万一阅读(4418) 评论(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 万一阅读(8364) 评论(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 万一阅读(8484) 评论(2) 推荐(0) 编辑

积分与排名

随笔分类 (2445)

随笔档案 (2145)

最新评论