您现在的位置: > 首页 > 程序开发 > Delphi教程
>> 最新教程
>> 热门教程
>> 最新游戏资讯
>> 热门游戏资讯
用Delphi 开发数据库程序经验三则
作者:本站                来自:安迪教程网                 加入时间:08-06-17                进入论坛讨论

  1.建立临时表

  数据输入是开发数据库程序的必然环节。在Client/Server结构中,客户端可能要输入一批数据后,再向服务器的后台数据库提交,这就需要在本地(客户端)建立临时数据表来存储用户输入的数据,待提交后,清除本地表数据。这种方法的好处是:提高输入效率,减小网络负担。

  由于用户一次输入的数据量一般情况下较小(不会超过几百条记录),所以临时表可以建立在内存中,这样处理速度较快。

  方法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;

<<< << < 1 2 > >> >>>
联系方式:QQ:6084884 email:agwcn@126.com 粤ICP备05055782号
本网站中发布的文章只代表发表人的个人观点,不代表安迪教程网网站的立场
copyright© 2000-2004 安迪教程网 All rights reserved agwcn.com