Delphi中带缓存的数据更新技术

原创 2004年07月04日 11:09:00

Delphi中带缓存的数据更新技术

TYPE:数据库类 TIME:2003-4-10
AUTHOR:无 URLhttp://www.91delphi.com
HIT:412  DAYHIT:2  WEEKHIT:57  
main_longline.gif
Delphi中带缓存的数据更新技术
一. 概念

  在网络环境下,数据库应用程序是c/s或者是多层结构的模式。在这种环境下,数据库应用程序的开发应当尽可能考虑减少网络数据传输量,并且尽量提高并发度。基于这个目的,带缓存的数据更新技术应运而生,其大致过程就是:应用程序将数据库中数据提取到客户端的缓冲区,在缓冲区中完成数据的修改、更新、以及新数据的插入等操作;等操作完成之后,在一个合适的时间,一次性的将数据提交给数据库,从而大大减少了网络流量,减小了数据库服务器的负载,提高了并发性能。

  应当说,这并不是太新的技术,在delphi等数据库前端开发工具较早期版本中,就已经对这种技术做出了的支持。但是笔者发现一些程序员并不注意这种技术的合理运用,依然停留在单机应用程序的思路下,导致所编出来的程序效率低下或者出现潜在的错误。因此有必要对该技术的优点、运用原则以及运用方法(以delphi为例)做一个总结。

  二. 优缺点

  带缓存的数据更新技术主要有如下几个优点:

  (1) 最大限度的减少了网络流量,减少了数据存取的时间。提高了客户端数据库操作人员的效率。

  (2) 减轻了数据库服务器的负担,因为许多反复的更新、修改、删除操作可以在客户端的缓冲区内完成,最后只把结果提交给服务器。

  (3) 有效缩减事务(transaction)处理的时间,减少了并发事务的吞吐量。从而更能够保证数据库的一致性。

  我们可以举个例子来说明其优越性:数据库操作员往数据库中插入一条数据记录,但马上发现该记录不合要求,于是将该数据删除。这一过程,如果采用不带缓冲的数据更新技术,则服务器端将执行一次插入操作,一次删除操作,在客户端和服务器端进行往返两次的数据传输,而且如果此数据与其他的数据库表有级联关系,还必须考虑到数据的级联更新、删除、恢复等操作。如果采用带缓存的数据更新方法,则可以在客户端的数据缓冲区完成这两步互逆的操作,而不会给服务器端带来任何动作,不会产生任何网络数据传输以及数据的级联更新操作。由此可见带缓冲的数据更新技术的巨大优势。

  带缓存的数据更新有一个缺点就是因为数据是在客户端存放的,所以该数据如果被其它用户更改的话,会产生丢失修改等不一致状况,需要考虑其并发控制的细节,充分考虑那些多变的数据可能出现的不一致的情况。这种技术的运用需要一定的技巧与一定的思维转变。
三. 运用原则

  任何技术的优越性都是在一定的环境中体现出来,带缓冲的数据库更新技术主要在以下几种情况下运用更有优势:

  (1) c/s或者多层的数据库应用的场合。这种情况下,可以有效降低网络流量。在单机情况下,该技术没有意义。

  (2) 在多表的数据更新场合。例如主表/明细表(master/detail)结构的更新中,往往两个表的增删是相互影响的,那么在客户端完成两个表的所有更新之后,最后可以定义一个事务来提交所做的更新操作。这样便有效的缩短事务的时间,更好的保证了数据的一致性。

  (3) 服务器负载能力有限的场合。如今,随着pc机的速度提高以及价格的降低,客户机和服务器的能力差别越来越小,服务器的服务能力相对地下降了。客观上要求从软件的角度来降低服务器的负担,而带缓冲的数据更新则通过客户端分担一部分更新任务的方式,降低了服务器的负担。

  (4) 数据被同时更新的概率比较低的场合。如果数据库中同一条数据很可能在同一时段被多个用户更新,那么这种情况就不适合带缓存的更新,因为在这种情况下,容易产生数据的错误覆盖,从而导致数据的不一致。

  四. Delphi中的控制方法概述

  Delphi作为一个流行的数据库开发工具,具有丰富的数据库操纵功能。在带缓冲的数据存取技术上,delphi做出了很全面的支持。通常,delphi为用户提供了TTable和TQuery等几种存取数据库表的数据集控件;提供了TDBNevigator控件,可以对数据集进行增、删、改、查询等操作。在数据集的属性控件中有一个cachedUpdate选项,将这一项设为true,delphi即允许以缓冲的形式来存取该数据集,也就是说对数据集所做的更新操作不会立刻自动反映到数据库服务器,而只有调用实际提交的方法(如applyUpdates()等),delphi才将实际提交的数据反映到数据库,同时通过数据集的on UpdateRecord()方法,来定义在实际更新数据库表时需要同时进行的操作(如级联删除等)。这样就为我们自己来控制数据提交的步骤提供了方便,虽然这使编程的难度有所增大,但是在某些场合我们需要这样的灵活性。而且通过这种模式,确实大大减少了事务的长度、降低了网络流量、增加了应用程序的可靠性。下面我们举一个具体的应用模块来说明如何运用这种编程模式。
五. Delphi程序举例

  (1) 应用背景说明

  假设我们做一个商品定单处理的模块。在这个模块中涉及三个数据库表:订单表Order (有订单号OrderID、金额SumMoney、日期date、客户姓名costomer等字段),订单明细表OrderDetail(有订单明细号detailID、订单号OrderID、商品编号CommondityID、数量amount、单价price等字段),库存表storage(有商品编号CommondityID、现有库存量stocks等字段)。其中,订单与订单明细表是一对多的关系,以订单号OrderID作为连接字段。每当新增一份订单的时候,都必须修改库存表,将卖出的相应商品的数量从库存中减去。

  (2)程序框架说明

  下面是一段delphi程序的框架,大致说明了如何运用缓存更新的编程模式。读者可以自己将本程序的功能进一步的完善。

unit Order;
{单元名称}
interface
uses
{引用的模块}
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, ToolWin, ActnMan, ActnCtrls,
ActnMenus, DB, DBTables;

Type
{声明的变量、添加的控件以及定义的方法和过程}
 TOrderForm = class(TForm)
 TBOrder: TTable;
 TBDetail: TTable;
 OrderDB: TDatabase;
 ActionMainMenuBar1: TActionMainMenuBar;
 DBNavigator1: TDBNavigator;
 DBGrid1: TDBGrid;
 procedure TBOrderAfterPost(DataSet: TDataSet);
 procedure TBDetailNewRecord(DataSet: TDataSet);
 procedure TBDetailUpdateRecord(DataSet: TDataSet;
 UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
 procedure TBDetailAfterPost(DataSet: TDataSet);
 procedure FormCreate(Sender: TObject);
 private
 { Private declarations }
  public
  { Public declarations }
  end;
 
 var
  OrderForm: TOrderForm;

  implementation

  {$R *.dfm}
  {下面的内容为主要的程序框架}

 procedure TOrderForm.FormCreate(Sender: TObject);
 {将主表与明细表的缓存更新选项设为true}
 begin
  TBOrder.CachedUpdates:=true;
  TBDetail.CachedUpdates:=true;
 end;

 procedure TOrderForm.TBOrderAfterPost(DataSet: TDataSet);
  {在提交Order表的更新后,执行本过程内容,本过程实现对主表和明细表的实际提交的事务。
   注意:如果一个数据集的cachedUpdates属性为true,
    那么post这个动作仅仅是在客户端缓冲区中进行一个提交动作,
    而不是真正的提交给实际的数据库。要实现真正的提交,
    需要用到applyUpdates语句。}
 begin
  OrderDB.StartTransaction;//更新事务开始执行
  try
   TBOrder.ApplyUpdates;//对主表进行实际的更新
   TBDetail.ApplyUpdates;//对明细表进行实际的更新
  except
   Orderdb.Rollback;//如果发生意外,那么回滚这个事务,退出该过程
   exit;
  end;
  OrderDB.Commit;//如果没有发生意外,那么完成事务提交
  TBOrder.commitUpdates;//清空TBOrder表的客户缓冲区
  TBDetail.commitUpdates;// 清空TBDetail表的客户缓冲区

 end;

 procedure TOrderForm.TBDetailNewRecord(DataSet: TDataSet);
 {当新增一个明细表记录时所完成的动作。}
 begin
 TBDetail.FieldByName(’OrderID’).AsInteger:=TBOrder.FieldByName(’OrderID’).AsInteger;
 file://将主表的orderID字段赋给明细表的orderID字段,这个字段是两个表的关联字段

 end;

procedure TOrderForm.TBDetailUpdateRecord(DataSet: TDataSet;
 UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
 {当实际更新数据库表时,需要同时进行的操作在onUpdateRecord事件中定义,
  在本例当中是进行明细表和库存表的级联更新操作。
  注意:在本过程当中所进行的操作是在实际更新数据库时所进行的动作,
   而不是更新客户端的缓存数据时所进行的动作}
 Var temp_query:TQuery;
 begin
  if UpdateKind=ukInsert then file://如果更新类型是插入一个新的记录,那么更新相应的库存量
   with temp_query do
   begin
    close;
   SQL.clear;
   SQL.add(’update storage set stocks=stocks-:amount’);
   SQL.add(’ where commondityID=:commondityID’);
   paramByName(’amount’):=TBOrder.FieldByName(’amount’).AsFloat;
   ParamByName(’commondityID’):=TBDetai.FieldByName(’commondityID’).AsInteger;
   execSQL; file://执行更新库存的sql语句,将相应的库存量减去。
  end;

 end;

 procedure TOrderForm.TBDetailAfterPost(DataSet: TDataSet);
 {当对明细表的记录进行修改,并提交(post)之后,执行本过程中的语句。
  注意:这种提交是针对客户端数据的,并没有真正反映到数据库中去。
  在本例当中,实现的功能是计算主表的总金额字段}
 begin
  TBOrder.FieldByName(’money’):=0;
  with TBDetail do
  begin
   first;
   while not eof do
   begin
    TBOrder.FieldByName(’money’):=TBOrder.FieldByName(’money’)+
    FieldByName(’price’).AsFloat*FieldByName(’amount’);
    file://将明细表的金额累加到主表的金额字段
   next;
  end;
 end;

end;

end.

JAVA 带缓存的输入/输出流

缓存输入流:BufferedInputStream类与BufferedWriter类 缓存输出流:BufferedOutputStream类BufferedReader类...
  • u014108448
  • u014108448
  • 2016年06月16日 16:51
  • 321

Delphi 属性多参数使用

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, F...
  • u010219209
  • u010219209
  • 2016年07月27日 10:00
  • 368

简谈常用缓存技术

对于一个访问量庞大的网站来说,缓存机制是很重要的提速和优化手段。 那么我们在开发一个网站的过程中,能用到的,需要注意的缓存机制都有哪些呢?本文将浅显层面做一些简单笔记。如果大家有不同意见,欢迎拍砖。...
  • zhengwish
  • zhengwish
  • 2016年05月25日 15:18
  • 6438

java缓存技术的介绍

一、什么是缓存 1、Cache是高速缓冲存储器 一种特殊的存储器子系统,其中复制了频繁使用的数据以利于快速访问 2、凡是位于速度相差较大的两种硬件/软件之间的,用于协调两者数据传输速度差异的结构,...
  • baidu_33497625
  • baidu_33497625
  • 2016年03月04日 11:57
  • 36081

介绍缓存的基本概念和常用的缓存技术

摘要: 介绍缓存的基本概念和常用的缓存技术,给出了各种技术的实现机制的简单介绍和适用范围说明,以及设计缓存方案应该考虑的问题(共17页)1         概念1.1   缓存能解决的问题· 性能——...
  • li_yu_hai
  • li_yu_hai
  • 2008年10月04日 09:24
  • 31033

Delphi 清除IE缓存 internet临时文件 cookie 历史记录 表单记录 上网密码[转]

转自 http://www.delphitop.com/html/xitong/1576.html  TForm1.Button1Click(Sender: TObject); begin ...
  • aTian2009
  • aTian2009
  • 2012年03月12日 11:09
  • 5282

web缓存技术总结

1 web缓存的简介 1.1 采取Web加速技术措施  采取Web加速技术,减少用户访问的延迟。如采用Web缓存[8](Web Caching )技术、Web预取(Web Prefetchin...
  • gyley2
  • gyley2
  • 2014年04月10日 14:55
  • 7717

【缓存技术原理】浏览器端缓存机制详解

浏览器缓存是浏览器端保存数据用于快速读取或避免重复资源请求的优化机制,有效的缓存使用可以避免重复的网络请求和浏览器快速地读取本地数据,整体上加速网页展示给用户。浏览器端缓存的机制种类较多,总体归纳为九...
  • moshenglv
  • moshenglv
  • 2016年07月25日 09:07
  • 9401

缓存技术,封装好的缓存类

using System; using System.Collections.Generic; using System.Linq; using System.Web; using EnYuan.BS...
  • lybwwp
  • lybwwp
  • 2014年01月14日 08:59
  • 3114

Web前后端缓存技术

Web缓存技术一、缓存概述缓存原本是一个硬件的概念:缓存就是数据交换的缓冲区(称作Cache),当某一硬件要读取数据时,会首先从缓存中查找需要的数据,如果找到了则直接执行,找不到的话则从内存中找。由于...
  • LeeSirbupt
  • LeeSirbupt
  • 2017年01月13日 16:33
  • 5506
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi中带缓存的数据更新技术
举报原因:
原因补充:

(最多只允许输入30个字)