關於內存表的使用(kbmMemTable)
關於內存表的使用說明
一、 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來創建。
代碼如下：
var
MemTable: TTable;
begin
with MemTable.Create(Self) do
begin
DatabaseName := 'c:\Temp';
TableName := 'Test';
TableType := ttParadox;
with FieldDefs do
begin
Add('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 do
begin
with kbmMemTable1.FieldDefs do
begin
Clear;
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 do
begin
Clear;
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 CALC
1 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-三月
在文檔的頭部份描述了表的字段結構，在下面則是數據區域.
以下代碼用ClientDataSet建立內存表，包含Field1和Field2兩個字段，在Field1上建索引：
with ClientDataSet1 do
begin
//添加Integer類型的字段Field1
with FieldDefs.AddFieldDef do
begin
DataType := ftInteger;
Name := 'Field1';
end;
//添加string類型的字段Field2
with FieldDefs.AddFieldDef do
begin
DataType := ftString;
Size := 10;
Name := 'Field2';
end;
//在Field1上建索引
with IndexDefs.AddIndexDef do
begin
Fields := 'Field1';
Name := 'IntIndex';
end;
//創建內存表
CreateDataSet;
end;
》》》》》》》》》》》》》》》》》
KbmMemTable是一款高效且強大的內存表控件，內存表顧名思義其最大的優勢就是速度，KbmMemTable不僅完美地實現了高效的特征，同時，最新版本還支持索引、SQL語句等高級用法。其用法超簡單，基本用法和ClientDataSet一致，以下是我簡單的應用示例，實現了增刪改查等基本功能：
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, DB, StdCtrls, kbmMemTable;
type
TForm1 = class(TForm)
Button1: TButton;
DataSource1: TDataSource;
DBGrid1: TDBGrid;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Button5: TButton;
Button6: TButton;
Button7: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button5Click(Sender: TObject);
procedure Button6Click(Sender: TObject);
procedure Button7Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
kbmMemTable1 : TkbmMemTable;
Id:Integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
//建表
kbmMemTable1.FieldDefs.Clear;
kbmMemTable1.FieldDefs.Add('Id', ftInteger, 0, False);
kbmMemTable1.FieldDefs.Add('Value', FtString, 20, False);
kbmMemTable1.FieldDefs.Add('Time', ftDateTime, 0, False);
kbmMemTable1.IndexDefs.Add('Index1','Id',[]);//定義索引
kbmMemTable1.CreateTable;
kbmMemTable1.Active := True;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
i:Integer;
begin
//插入
with kbmMemTable1 do
begin
DisableControls; //切斷數據感知控件
try
Open; //打開
//定義Field
fld_Id:=TIntegerField(FieldByName('Id'));
fld_Value:=TStringField(FieldByName('Value'));
fld_Time:=TDateTimeField(FieldByName('Time'));
for i := 0 to 9 do
begin
Inc(Id);
Append; //附加數據
//賦值
fld_Id.AsInteger := Id;
fld_Value.AsString := 'Hello PFeng!'+inttostr(Id);
fld_Time.AsDateTime := Now;
Post; //確定
end;
UpdateIndexes;//更新索引
finally
EnableControls; //連接數據感知控件
end;
end;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
begin
//更新
with kbmMemTable1 do
begin
Open;
fld_Id:=TIntegerField(FieldByName('Id'));
fld_Value:=TStringField(FieldByName('Value'));
fld_Time:=TDateTimeField(FieldByName('Time'));
if Locate('Id',5,[]) then
begin
Edit;
fld_Value.AsString := '內容被修改';
fld_Time.AsDateTime := Now;
Post;
end;
end;
end;
procedure TForm1.Button4Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
begin
//查詢
with kbmMemTable1 do
begin
Open;
fld_Id:=TIntegerField(FieldByName('Id'));
fld_Value:=TStringField(FieldByName('Value'));
fld_Time:=TDateTimeField(FieldByName('Time'));
if Locate('Id',5,[]) then
ShowMessage(fld_Value.AsString);
//還可以用FindKey實現，結合索引速度更快
// kbmMemTable1.IndexFieldNames:='Id';
// if kbmMemtable1.FindKey([5]) then ...
end;
end;
procedure TForm1.Button5Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
begin
//刪除
with kbmMemTable1 do
begin
Open;
fld_Id:=TIntegerField(FieldByName('Id'));
fld_Value:=TStringField(FieldByName('Value'));
fld_Time:=TDateTimeField(FieldByName('Time'));
if Locate('Id',5,[]) then
begin
Delete;
UpdateIndexes;
end;
end;
end;
procedure TForm1.Button6Click(Sender: TObject);
var
fld_Id:TIntegerField;
fld_Value:TStringField;
fld_Time:TDateTimeField;
id:Integer;
begin
//循環比較最小值
with kbmMemTable1 do
begin
Open;
fld_Id:=TIntegerField(FieldByName('Id'));
fld_Value:=TStringField(FieldByName('Value'));
fld_Time:=TDateTimeField(FieldByName('Time'));
DisableControls;
try
First;
id := fld_Id.AsInteger;
while not Eof do
begin
if id > fld_Id.AsInteger then
id := fld_Id.AsInteger;
Next;
end;
Locate('Id',id,[]);
finally
EnableControls;
end;
end;
end;
procedure TForm1.Button7Click(Sender: TObject);
begin
//清空
kbmMemTable1.EmptyTable;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
kbmMemTable1 := TkbmMemTable.Create(Self);
DataSource1.DataSet := kbmMemTable1;
end;
end.
http://www.pfeng.org/archives/372
》》》》》》》》》》》》》》》》》》》》》》》》》》
前端時間一直在研究三層通訊框架，計划封裝一套穩定性較好的遠程數據庫服務接口，前期的方案主要有以下幾種：
1,改造自己寫的indy+壓縮xml流三層應用項目
2,基於MMZ asio遠程數據庫項目進一步完善
3,尋找並測其他相對成熟的三層通訊框架，知道的有：QuickBurro、RemoteAdo、Middle ADO System、dbIOCP、DataSnap、ASTA、Remobject SDK、kbmMW，接下來我將就我對以上三層框架的淺薄認識一一說明。
首先說方案1，在早些時候為了實現遠程數據庫與本地數據庫的同步，我寫過一套基於indy+壓縮xml流的C/S應用，客戶端的請求封裝在xml中，發送到服務端，服務端在數據庫中執行后，把執行結果（例如結果集）拼裝成xml再壓縮成流，返回到客戶端，雖然當時基本上滿足了需求，但項目有着很大的局限：並發性差、效率低、通訊不穩定等，一旦網絡條件稍差，服務端就會報異常，想想那段維護服務端軟件的日子簡直就是噩夢，如果本次項目仍然采用這種思路，我需要去改進很多地方，比如數據庫連接池、多線程、數據校驗、底層通訊等，在有限的時間里很難去把多個方面都做穩定，權衡后，覺得自己應該站在巨人的肩膀上來實現自己的業務邏輯，於是放棄了這個方案。
方案2，ASIO（http://think-async.com/）是C++的一個強大的通訊庫，據說是工業級別的，我的一個Delphi技術群（群號：15637473）的群主把ASIO編譯成了一個DLL動態庫，然后又結合unidac、連接池等，封裝了一個簡單的三層通訊框架MMZ ASIO（http://mmz-asio4delphi.googlecode.com），我在早些時候用這個框架做了幾個小項目，感覺比較簡單，效率也很高，但是有幾個bug遲遲得不到解決（客戶端不能主動斷開、服務端容易報線程異常等），給群主寫郵件，群主說他現在很忙，沒時間解決這些問題，而以我個人的水平，又很難去從核心代碼上做改動。目前有幾個忠實的asio愛好者還在深入研究（群號：91684553），相信有朝一日會穩定起來，考慮到時間成本，同樣放棄了這個方案。
最后，最佳的選擇就是選擇一款成熟的三層框架，在此基礎上做二次開發，於是從網上搜了好幾天時間，了解各個框架的情況，首先基於成本和穩定性的考慮放棄了國產框架：
1,QuickBurro（http://www.quickburro.com/），樵夫的作品，到目前還一直在做升級，具體價格參見2,http://www.quickburro.com/orders.html，授權方式比較寬松，免費版的用戶數有限制（好像是16個？不確定）。
3,RemoteAdo（http://www.remoteado.cn/index.html），了解的不多，但是就從網站上來介紹來看，功能比較局限，當然，也是收費的。
4,Middle ADO System（http://www.middle-ado.com/），廈門一家公司的產品，同樣了解的不多，價格不詳，功能也比較局限。
5,dbIOCP（群號：35916846），楠楠的作品，據說效率很高（IOCP不多說，網上一搜便知道），價格好像是3000/套，帶源碼，升級不是很頻繁，網上的免費1.6版連楠楠自己都說已經很久了，我看群里很多討論2.4版本的，楠楠同樣自己說性能沒法和3.x版本的比，新版的架構都變了，效率說的很神，但是個人作品，在沒有很好地推廣的情況下，3000刀個人感覺有點兒貴。
再來說其他的幾個著名框架：
1,DataSnap，這個其實很多人都比較熟悉，它是Delphi的三層框架MIDAS的延續，李維在多次講座和個人書籍中都強烈推薦，而且國外社區很多人都提到它，估計能力不俗，但是網上褒貶不一，個人深入了解的不夠。
2,ASTA（http://www.astatech.com/products/asta3/），也是一個老牌的三層框架，據說在200x年的時候很火，但是開發者后續升級不給力，單從網站首頁上的新聞就讓人很驚訝：ASTA 3.1 is here and it’s HOT with support for Delphi 2006…當然，如果你還在用D2007以下版本做開發的話，可以試試，但是我個人覺得缺乏后續的SAU(Service and Update)，心理上總是不踏實。價格不詳，但是網上Full Source版本的一搜一大把。
3,Remobject SDK（http://www.remobjects.com/default.aspx），其實我對這個框架的印象很好，因為之前計數群里已經基於它做了很多成熟的項目，而且在討論過程中口碑也相當不錯，而且現在for XE2的版本網上也很好找到，建議有興趣的人可以深入研究以下。
4,KbmMW（http://www.components4programmers.com/products/kbmmw/index.htm），說到本文的重點了，KbmMW在國內圈子里能夠得到認可，很大程度上得益於窯主xalion詳細的博文教程（http://www.cnblogs.com/xalion/），作者Kim Madsen對中國國情的充分考慮（對中國程序員價格上優惠25%），KbmMW在國外社區很火，國內可能很多人對kbmMemTable都不陌生，而KbmMW也是基於kbmMemTable做的封裝。我對KbmMW最大的認可就是其開放的架構思路：通訊控件支持Indy（9和10）、Synapse、DxSock，數據庫控件支持ADO和Unidac等、當然還有其他的加密、壓縮等均支持開源的第三方控件，給開發人員了很大自由度。作者的熱心也讓我很感動，每次遇到問題，白天我在StackOverFlow上提問，夜里Kim就在上面認真回答。
當然還有很多其他的優秀框架（據說Dephi的三次框架解決方案是所有開發語言中最多的），比如德國的RTC（http://www.realthinclient.com/）據說也是很不錯的，有興趣的可以自己去了解下，當我了解了KbmMW之后，我覺得，KbmMW是我最好的選擇。
http://blog.csdn.net/zisongjia/article/details/72869734