本文主要是介绍信息系統通用緩存設計，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！
！請勿轉載！
一、概述
设计一个这样的通用缓存，是基于目前 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) 注释
......
--------------------------------------------------------------
六、其他
考虑对缓冲池中缓存对象的多线程访问。
！請勿轉載！
这篇关于信息系統通用緩存設計的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！
![业务中14个需要进行A/B测试的时刻[信息图]](https://img-blog.csdnimg.cn/img_convert/aeacc959fb75322bef30fd1a9e2e80b0.jpeg)