delphi源码 中间件 框架【配置数据库】

随便说说最近项目中的三层架构吧。讲点实际的东西。我最讨厌空讲道理。网上讲道理的太多了，不喜欢举例子。 大多数文章中都或多或少的讲到了三层架构。表示层，业务层，数据层。又把业务层再细分，分为外观服务层，主业务服务，及数据库库服务层。 今天主要讨论一下业务层吧。举个最简单的例子。客户端获取数据。 业务层要与表示层尽量解藕， 我的方法是：首先我们在中间层TLB_中定义一个接口 IBusinessService, 定义一个方法。getvoList，我要得到一个VO的列表， VO即ValueObject, 例如：TValueObject= class(TPersistent) private b_insertFlag :Boolean; b_updateFlag :Boolean; b_deleteFlag :Boolean; d_rowVersion :double; procedure setInsertFlag(pInsertFlag :Boolean); function getInsertFlag: Boolean; procedure setUpdateFlag(pUpdateFlag :Boolean); function getUpdateFlag: Boolean; procedure setDeleteFlag(pDeleteFlag :Boolean); function getDeleteFlag: Boolean; procedure setRowVersion(pRowVersion :double); function getRowVersion:double; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published property bInsertFlag: Boolean read getInsertFlag write setInsertFlag; property bUpdateFlag: Boolean read getUpdateFlag write setUpdateFlag; property bDeleteFlag: Boolean read getDeleteFlag write setDeleteFlag; property dRowVersion: double read getRowVersion write setRowVersion; property POLEData:OleVariant read GetOLEData write SetOLEData; end;TUserVO = class(TValueObject) private id: string; name: string; password: string; 。。。。。。。。。。 VO的列表：TValueObjectList = Class(TObjectList) private ValueObject: TValueObject; ClassName: TClass; procedure setClassName(pTmpClsName :TClass); function getClassName: TClass; procedure setValueObject(pTmpVO :TValueObject); function getValueObject: TValueObject; protected function GetOLEData: OleVariant; virtual; procedure SetOLEData(const Value: OleVariant); virtual; published function AddItem(index: integer; AObject: TObject ):Integer; virtual; function GetItem(index, itemid: integer ): TObject; virtual; function CountItem:Integer; virtual; public constructor Create; virtual; destructor Destroy; override; procedure AfterConstruction; override; property PClassName: TClass read getClassName write setClassName; property POLEData: Ole

Delphi 企业管理系统(ERP)+Sql数据库，比较大型、综合的Delphi数据库系统，用到了几个三方控件，已经打包。这套ERP系统主要模块有资料管理 、采购管理、库存、财务及工资管理、生产、资产及项目管理 、维护、办公及通信管理等，含部分设计文档资料，是学习Delphi数据库编程的好范例。

使用Delphi开发工具完成对Windows操作系统下的硬件：CPU，硬盘温度的获取。

合同管理系统Delphi源码

Delphi通用ERP应用程序框架,这是一个应用程序框架，现已完成了框架代码与用户管理、权限管理与日志管理模块。

delphi xe10的datasnap 三层结构完整服务端+源码 （测试可用） 适合新手学习使用，我个人在网上找了很多资料，搭建起来的平台