关于Delphi内存表的使用说明

您所在的位置:网站首页 delphi导入数据 关于Delphi内存表的使用说明

关于Delphi内存表的使用说明

2023-07-29 10:52| 来源: 网络整理| 查看: 265

关于Delphi内存表的使用说明:

1.建立临时表   数据输入是开发数据库程序的必然环节。在Client/Server结构中,客户端可能要输入一批数据后,再向服务器的后台数据库提交,这就需要在本地(客户端)建立临时数据表来存储用户输入的数据,待提交后,清除本地表数据。

2 建立临时表如下:

function CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet; var TempTable:TClientDataSet; begin   TempTable:=nil;   Result:=nil;   if AFieldDefsnil then   begin    try   TempTable:=TClientDataSet.Create(Application);    TempTable.FieldDefs.Assign(AFieldDefs);    TempTable.CreateDataSet;    Result:=(TempTable as TDataSet);   Except    if TempTablenil then TempTable.Free;   Result:=nil;    raise;   end; end; end;

//在程序中按如下方法使用: procedure TForm1.Button1Click(Sender: TObject); var ADataSet:TDataSet;  begin    ADataSet:=TDataSet.Create(Self);    with ADataSet.FieldDefs do    begin     Add('Name',ftString,30,False);    Add('Value',ftInteger,0,False);    end;

  with DataSource1 do   begin    DataSet:=CreateTableInMemory(ADataSet.FieldDefs);    DataSet.Open; end;

   ADataSet.Free; end; 

一、 Delphi使用内存表1.1 Delphi创建内存表步骤:1. 创建一个Ttable实例。2. 设置一个DataBaseName为一个目录或是已有的数据库别名。3. 指定TableName的值。4. 设置TableType属性指明要创建的数据库表类型。(如果此属性为ttDefault表示数据库类型与TableName指定值的扩展名对应)。5. 调用TTable.FidldDefs对象的Add方法向数据库表中添加字段。Add有4个参数: 字段名:string。 字段类型:TfieldType。 字段大小:Word。一般只对String和Memo类型使用。 字段是否NotNull: Boolean。6. 使用TTable.IndexDefs.Add()方法定义索引。Add有三个参数: 索引名:string; 索引字段名:string; 索引类型:TIndexOptions;7. 调用TTable的CreateTable。这种方法适用于本地表。SQL表要用TQuery来创建。

代码如下:varMemTable: TTable;beginwith MemTable.Create(Self) dobeginDatabaseName := 'c:\Temp';TableName := 'Test';TableType := ttParadox;with FieldDefs dobeginAdd('Age', ftInteger, 0, True);Add('Name', ftString, 25, False);Add('Weight', ftFloat, 0, False);end;IndexDefs.Add('', 'Age', [ixPrimary, ixUnique]);CreateTable;end;end;二、 kbmMemTable使用简述2.1 kbmMemTable创建步骤:1. 创建一个kbmMemTable对象实例。2. 调用kbmMemTable.FidldDefs对象的Add方法向数据库表中添加字段。Add的方法和Delphi相同。3. 使用kbmMemTable.IndexDefs.Add()方法定义索引。Add的方法和Delphi相同。4. 调用kbmMemTable的CreateTable。重要的区别:因为kbmMemTable不需要BDE的支持。所以不要指明DatabaseName, TableName和TableType三个属性。  代码如下:with kbmMemTable1 dobeginwith kbmMemTable1.FieldDefs dobeginClear;Add('Period', ftInteger, 0, false);Add('VALUE', ftLargeInt, 0, false);Add('BytesField', ftBytes, 20, false);Add('Color', ftInteger, 0, false);Add('Date', ftDate, 0, false);Add('Memo', ftMemo, 0, false);Add('AutoInc', ftAutoInc, 0, false);end;with kbmMemTable1.IndexDefs dobeginClear;Add('Index1', 'VALUE', []);end;CreateTable;end;

三、与Delphi创建内存表的对比3.1主从表功能kbmMemTable可以象其它TDataSet一样,通过设置MasterSource和MasterField来简单的完成主从表的操作。3.2 SQL功能  没有发现kbmMemTable可以支持SQL语句的操作。它提供按字段排序和对排序字段的查找功能。三、 kbmMemTable特点从其它TDataSet得到数据。代码如下:LoadFromDataSet(Table1, [mtcpoStructure, mtcpoProperties]);这样kbmMemTable就完全得到来自一个DataSet对象中的全部数据.保存和载入内存表中数据的功能Delphi的TTable不提供SaveToFile功能。kbmMemTable提供保存到文件的功能,保存的文件有两种格式:Options: TkbmMemTable.SaveFlags; 1. 二进制格式。kbmMemTable.SaveToBinaryFile('c:\test.bin', Options).kbmMemTable1.LoadFromBinaryFile('c:\test.bin')2. .csv格式。kbmMemTable.SaveToFile('c:\test.csv', Options);kbmMemTable1.LoadFromFile('c:\test.csv')(一种Excel支持的文档格式)打开后的内容如下:@@FILE VERSION@@ 200 @@TABLEDEF START@@ Period=Integer,0,"Period","",10 VALUE=LargeInt,0,"VALUE","",15 BytesField=Bytes,20,"BytesField","",10 Color=Integer,0,"Color","",10 Date=Date,0,"Date","",10 Memo=Memo,0,"Memo","",10 AutoInc=AutoInc,0,"AutoInc","",10 CALC=String,20,"CALC","",20 @@TABLEDEF END@@ Period VALUE BytesField Color Date Memo AutoInc CALC1 198 0 02/11/2001 This is a memo%n2001-11-2 10:19:52 1 0 1-二月2 196 3 03/11/2001 This is a memo%n2001-11-2 10:19:52 2 1 2-三月在文档的头部份描述了表的字段结构,在下面则是数据区域。



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3