信息系統通用緩存設計

2024-04-23 06:08

本文主要是介绍信息系統通用緩存設計,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

!請勿轉載!
 
一、概述
设计一个这样的通用缓存,是基于目前 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)                     注释
......
--------------------------------------------------------------
六、其他
考虑对缓冲池中缓存对象的多线程访问。
 
 
!請勿轉載!
 

这篇关于信息系統通用緩存設計的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/927972

相关文章

使用Java实现通用树形结构构建工具类

《使用Java实现通用树形结构构建工具类》这篇文章主要为大家详细介绍了如何使用Java实现通用树形结构构建工具类,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 目录完整代码一、设计思想与核心功能二、核心实现原理1. 数据结构准备阶段2. 循环依赖检测算法3. 树形结构构建4. 搜索子

一文详解SQL Server如何跟踪自动统计信息更新

《一文详解SQLServer如何跟踪自动统计信息更新》SQLServer数据库中,我们都清楚统计信息对于优化器来说非常重要,所以本文就来和大家简单聊一聊SQLServer如何跟踪自动统计信息更新吧... SQL Server数据库中,我们都清楚统计信息对于优化器来说非常重要。一般情况下,我们会开启"自动更新

Python如何获取域名的SSL证书信息和到期时间

《Python如何获取域名的SSL证书信息和到期时间》在当今互联网时代,SSL证书的重要性不言而喻,它不仅为用户提供了安全的连接,还能提高网站的搜索引擎排名,那我们怎么才能通过Python获取域名的S... 目录了解SSL证书的基本概念使用python库来抓取SSL证书信息安装必要的库编写获取SSL证书信息

Win32下C++实现快速获取硬盘分区信息

《Win32下C++实现快速获取硬盘分区信息》这篇文章主要为大家详细介绍了Win32下C++如何实现快速获取硬盘分区信息,文中的示例代码讲解详细,感兴趣的小伙伴可以跟随小编一起学习一下... 实现代码CDiskDriveUtils.h#pragma once #include <wtypesbase

Python如何实现PDF隐私信息检测

《Python如何实现PDF隐私信息检测》随着越来越多的个人信息以电子形式存储和传输,确保这些信息的安全至关重要,本文将介绍如何使用Python检测PDF文件中的隐私信息,需要的可以参考下... 目录项目背景技术栈代码解析功能说明运行结php果在当今,数据隐私保护变得尤为重要。随着越来越多的个人信息以电子形

C#实现系统信息监控与获取功能

《C#实现系统信息监控与获取功能》在C#开发的众多应用场景中,获取系统信息以及监控用户操作有着广泛的用途,比如在系统性能优化工具中,需要实时读取CPU、GPU资源信息,本文将详细介绍如何使用C#来实现... 目录前言一、C# 监控键盘1. 原理与实现思路2. 代码实现二、读取 CPU、GPU 资源信息1.

在C#中获取端口号与系统信息的高效实践

《在C#中获取端口号与系统信息的高效实践》在现代软件开发中,尤其是系统管理、运维、监控和性能优化等场景中,了解计算机硬件和网络的状态至关重要,C#作为一种广泛应用的编程语言,提供了丰富的API来帮助开... 目录引言1. 获取端口号信息1.1 获取活动的 TCP 和 UDP 连接说明:应用场景:2. 获取硬

SpringBoot使用Apache Tika检测敏感信息

《SpringBoot使用ApacheTika检测敏感信息》ApacheTika是一个功能强大的内容分析工具,它能够从多种文件格式中提取文本、元数据以及其他结构化信息,下面我们来看看如何使用Ap... 目录Tika 主要特性1. 多格式支持2. 自动文件类型检测3. 文本和元数据提取4. 支持 OCR(光学

C#实现获取电脑中的端口号和硬件信息

《C#实现获取电脑中的端口号和硬件信息》这篇文章主要为大家详细介绍了C#实现获取电脑中的端口号和硬件信息的相关方法,文中的示例代码讲解详细,有需要的小伙伴可以参考一下... 我们经常在使用一个串口软件的时候,发现软件中的端口号并不是普通的COM1,而是带有硬件信息的。那么如果我们使用C#编写软件时候,如

通过C#获取PDF中指定文本或所有文本的字体信息

《通过C#获取PDF中指定文本或所有文本的字体信息》在设计和出版行业中,字体的选择和使用对最终作品的质量有着重要影响,然而,有时我们可能会遇到包含未知字体的PDF文件,这使得我们无法准确地复制或修改文... 目录引言C# 获取PDF中指定文本的字体信息C# 获取PDF文档中用到的所有字体信息引言在设计和出