由于用户一次输入的数据量一般情况下较小（不会超过几百条记录），所以临时表可以建立在内存中，这样处理速度较快。 方法1：使用查询控件(TQuery) 第1步：在窗体上放上查询控件(TQuery)，设置好所连接的数据表。 第2步：使TQuery.
CachedUpdates=True; TQuery.
RequestLive=True 第3步：在原有的SQL语句后加入一条Where子语句，要求加入这条Where子语句后SQL查询结果为空。 例如： SELECT
Biolife.″Species No″, Category, Common_Name, Biolife.″Species Name″,
Biolife.″Length (cm)″, Length_In, Notes, Graphic FROM ″biolife.db″
Biolife where Biolife.Category=′A′ and
Biolife.Category=′B′ 这样临时表就建立完成了。
方法2：使用代码创建临时表 代码如下： function
CreateTableInMemory(const AFieldDefs:TFieldDefs):TDataSet; var
TempTable:TClientDataSet; begin TempTable:=nil;
Result:=nil; if AFieldDefs$#@60;$#@62;nil then begin try
TempTable:=TClientDataSet.Create(Application);
TempTable.FieldDefs.Assign(AFieldDefs); TempTable.CreateDataSet;
Result:=(TempTable as TDataSet); Except if TempTable$#@60;$#@62;nil
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(′ ue′,ftInteger,0,False);
end;
with DataSource1 do begin
DataSet:=CreateTableInMemory(ADataSet.FieldDefs); DataSet.Open;
end;
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
