信息系統通用緩存設計

！請勿轉載！

 

一、概述

设计一个这样的通用缓存，是基于目前 Erp 系统中对缓存的使用没有一个统一的机制的局面，为了最大化的提高程序效能，优化对资料库的访问，简化对缓存数据的访问代码编写。以及还有一些我暂时还没有想到的好处。

 

分为 5 個部分：

1. 緩存的對象類型

  a.n 個 TCachedArray ，數組類集合

  b.n 個 TCachedDictionary ，字典類集合

  c.n 個 TCachedDataSet ，數據集

2. 一個全局的 TCachePool ，可以換成三種對象： TCachedArray,TCachedDictionary,TCachedDataSet

3.TCacheAgent 元件 , 用于 CachePool 中的對象執行訪問和查詢

4. 一個資料表 :WTCATB, 用于記錄需要緩存的常用表和以 SQL 定义的数据

 

以下分别说明。

 

二、 緩存的對象類型

缓存的对象被分为两种类型：集合和 DataSet, 其中集合又分为以序号访问的 TCachedArray 和以键访问的 TCachedDictionary 。

每种对象都包含 GUID 和 TimeOut 属性，用于查询访问和超时管理。

1.TCachedArray

TCachedArray inherited from TComponent

FItems: array of variant;

function GUID: TGUID;

function Get(AIndex: integer): variant;

function Add(AValue: variant): integer;

procedure Remove(AIndex: integer);

function Count: integer;

property TimeOut: integer;

......

end;

 

2.TCachedDictionary

TCachedDictionary inherited from TComponent

FItems: array of variant;

function GUID: TGUID;

function Get(AKey: string): variant;

procedure Add(AKey: string; AValue: variant);

procedure Remove(AKey: string);

function Count: integer;

property TimeOut: integer;

......

end;

 

3.TCachedDataSet

TCachedDataSet inherited from TComponent

function DataSet: TDataSet;

function GUID: TGUID;

function TableName: string;

function SQL: string;

property TimeOut: integer;

property TimeOutBehavior: tbRefresh..tbFree;

......

end;

 

三、全局緩存池 TCachePool

TCachePool 包括三个部分：

1.TCachedArray 列表、 TCachedDictionary 列表、 TCachedDataSet 列表

2. 一些对这些缓存对象的管理方法，包括：创建、释放、查询访问等等

3. 一张表格 TCacheGrid ：记录缓存中各个缓存对象的访问计数及统计信息、缓存的内存使用量等等。

TCachePool 通过外部参数文件 Parameter.xml 进行配置，这些参数可以是：缓存对象数量限制、缓存对象的寿命、内存使用限制、对象淘汰算法（如：以最近最少使用算法淘汰池中的对象）。

TCachePool( 全局的 ) inherited from TObject

FArrayList: TList;

FDictionaryList: TList;

FDataSetList: TList;

......

end;

 

四、緩存訪問元件 TCacheAgent

TCacheAgent 实现为一个元件，各个 erp 作业、以及我们现有 LookupManager 元件都可以通过 TCacheAgent 来创建、释放、访问、查询缓存池中的对象。

TCacheAgent inherited from TComponent

FCachePool: TCachePool;

 

function ArrayCount: integer;

function DictionaryCount: integer;

function DataSetCount: integer;

 

function NewArray: TCachedArray;

function NewDictionary: TCachedDictionary;

function NewDataSet: TDataSet;

 

procedure FreeArray(AGUID: TGUID);

procedure FreeArray(AArray: TCachedArray);

procedure FreeDictionary(AGUID: TGUID);

procedure FreeDictionary(ADictionary: TCachedDictionary);

procedure FreeDataSet(AGUID: TGUID);

procedure FreeDataSet(ADataSet: TCachedDataSet);

procedure FreeDataSet(ADataSet: TDataSet);

 

function GetArray(AGUID: TGUID): TCachedArray;

function GetDictionary(AGUID: TGUID): TCachedDictionary;

function GetDataSetByGUID(AGUID: TGUID): TCachedDataSet;

function GetDataSetByName(ADataSetName: string): TCachedDataSet;

function GetDataSetByTableName(ATableName: string): TCachedDataSet;

function GetDataSetBySQL(ASQL: string): TCachedDataSet;

 

function GetArrayItem(AGUID: TGUID; AIndex: integer): variant;

function GetDictionaryItem(AGUID: TGUID; AKey: string): variant;

function LookupByGUID(ATableName: string; AKeys: string; AValues: variant; AResults: variant; AOption: TLocateOption): variant;

function LookupByName(ATableName: string; AKeys: string; AValues: variant; AResults: variant; AOption: TLocateOption): variant;

function LookupByTablename(ATableName: string; AKeys: string; AValues: variant; AResults: variant; AOption: TLocateOption): variant;

function LookupBySQL(ASQL: string; AKeys: string; AValues: variant; AResults: variant; AOption: TLocateOption): variant;

......

end;

 

五、資料表： WTCATB

WTCATB 表用来定义需要缓存的数据，可以是某一张表、或是一个 SQL 语句。设计这个表的出发点是：目前 erp 系统中有上千个表，有很多表是一些公用的数据，并不会经常变化，又会被经常访问。把这些表或数据缓存起来是完全合理的，但是目前我们并没有这样做法。

FieldName      DataType          Not Null       Description

-------------------------------------------------------------

ID             GUID              Y              ID

NAME           VARCHAR(20)       Y              Name

DATATYPE       int               Y              数据类型 (0: table; 1: SQL)

DATATABLE      VARCHAR(20)                      表名

DATASQL        VARCHAR(4000)                    SQL

OPENTYPE       int               Y              打开类型 (0: 系统启动时自动打开； 1 ：全局，由程序在需要时打开 ......)

TIMEOUT        int               Y              超时秒数

CLOSETYPE      int               Y              关闭类型 (0: 超时自动释放； 1: 超时自动刷新）

MARK           VARCHAR(100)                     Mark

DESCRIPTION    VARCHAR(200)                     注释

......

--------------------------------------------------------------

 

六、其他

考虑对缓冲池中缓存对象的多线程访问。

 

 

！請勿轉載！