用Delphi如何实现VFP中的Cache特性_Delphi

  • 内容
  • 评论
  • 相关

---- 在VFP50中编程,因为其本身以数据库为核心的操作方式,Cache(数据缓冲)工作方式是其本身固有的,当把一个VFP程序向Delphi中转移时,为提高数据处理速度,应使用其在Delphi2.0以后版本增加的数据库缓冲机制。Delphi的缓冲机制本身不仅提高了数据处理的性能,同时还带来了新的特性,增强了数据处理的灵活性。

---- 与缓冲机制有关的属性和方法如下,只有在缓冲机制下,即CachedUpdates:=True时,以下属性和方法才有效:

---- CachedUpdates(属性):为True时,打开缓冲机制。
---- UpdatesObject(属性):可以放置一个TUpdateSql组件的SQL语句,并可自动执行,也可以由OnUpdateRecord事件处理程序调用。
---- UpdatesPending(属性):缓存中数据是否改变,True:改变。
---- ApplyUpdates(方法):将缓冲数据存盘。
---- CommitUpdates(方法):与ApplyUpdates合作,紧跟之后,将缓冲数据存盘。
---- CancelUpdates(方法):取消缓存中的所有更新。

http://www.gaodaima.com/65633.html用Delphi如何实现VFP中的Cache特性_Delphi

---- RevertRecord(方法):恢复当前记录的原有数据,取消数据更改。
---- UpdateRecord(方法):将缓冲数据存盘。
---- UpdateStatus(函数):返回记录的更新状态,共有四种状态,usUnmodified,usModified,usInserted,usDeleted,可供查询。

---- 了解缓冲机制的属性和方法后,用一个电话管理程序来说明。如图1(略)

---- 东西不多,一个TDBGrid,三个Button,四个CheckBox,一个Table和一个DataSource,一个Navigator。将Table.ChacedUpdates属性设置为True,加入三个字段,其中一个State字段是一个计算字段,字段值在DhbTable的OnCalcFields事件中定义,如下:

procedure TForm1.DhbTableCalcFields(DataSet: TDataSet); begin
If DhbTable.UpdateStatus =usUnmodified Then DhbTableState.Value:='原有记录';
//这两种访问字段的方式是等价的 If DhbTable.UpdateStatus =usModified Then DhbTable.FieldByName('State').asString:='已修改记录';
If DhbTable.UpdateStatus =usInserted Then DhbTable.FieldByName('State').asString:='新增记录';
If DhbTable.UpdateStatus =usDeleted Then DhbTable.FieldbyName('State').asstring:='已删除记录';
end;
---- 这个在DhbTable中定义的计算字段表达了每个记录现有的状态,而如何在DBGrid中显示这些字段由四个CheckBox控制,它们共享了一个事件句柄,如下:
procedure TForm1.CheckBox1Click(Sender: TObject); var UpdataTypes:TUpdateRecordTypes;
begin UpdataTypes:=[]; If CheckBox1.Checked then Include(UpdataTypes,rtUnModified);
If CheckBox2.Checked then Include(UpdataTypes,rtModified); If
CheckBox3.Checked then Include(UpdataTypes,rtInserted); If CheckBox4.Checked
then Include(UpdataTypes,rtDeleted); DhbTable.UpdateRecordTypes
:=UpdataTypes; end;

---- rtModified, rtInserted, rtDeleted, rtUnmodified这四个常量分别定义了缓冲状态下的四种显示状态。若四种都没有选择,默认状态是除了rtDeleted以外的三种状态集合。DhbTable根据其属性UpdateRecordType集合中的值自动显示相应的记录。

---- 三个按钮首先判断缓冲中是否有变化,若有,分别执行缓冲操作指令。OKButton是存盘,CancelAllButton是取消所有更新,RevertThisButton是恢复当前记录的改变(如果有变化)。代码如下:

procedure TForm1.OKButtonClick(Sender: TObject); begin If
DhbTable.UpdatesPending then DhbTable.ApplyUpdates; DhbTable.CommitUpdates;
end; procedure TForm1.CancelAllButtonClick (Sender: TObject);
begin If DhbTable.UpdatesPending then DhbTable.CancelUpdates;
end; procedure TForm1.RevertThisButtonClick (Sender: TObject);
begin If DhbTable.UpdatesPending then DhbTable.RevertRecord; end;
---- 然后,运行这个小程序,感觉一下缓冲的效果,先增加一批记录,修改一批记录,再删除几个记录,单击四个CheckBox,看一看不同选择下的显示方式,试着恢复删除或修改的记录,绝对错不了。

---- 要注意的是,在缓冲机制下,如果用POST,或Refresh或用:

Table.Close Table.Open

---- 后,修改的数据并没有存入到数据库中,如果要存盘,必须使用:

    Table.ApplyUpdates;
    Table.CommitUpdates;
---- 这才是缓冲机制下存盘的正确方法。

欢迎大家阅读《用Delphi如何实现VFP中的Cache特性_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 用Delphi如何实现VFP中的Cache特性_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注