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

五． 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.

查看本文来源