Delphi三层架构数据库

简介:

转载|字号订阅

在你的硬碟上建立一代码要放置的目录,如:
d:\MulitSys
d:\MulitSys\Server
d:\MulitSys\Client
1 。建立 Server
(1) 打开 Delphi7 File -->New --> Application --> 变更 Form1 的名称为: Name:='Serverfrm';
保存 Serverfrm d:\Mulitsys\Server\ 下,
.pass 文件命名为: pu_server.pas
Project 命名为: pf_server.dpr
变更 Serverfrm WindowState 的值为: wsMinimized
(2)View -->Project Manager --> 选取项目 pf_server.exe ,然后在工具栏上选择 New Items 按钮,弹出 New Items 窗口,选择 Mulitier 标签,再选择 Remove Data Module ,建立服务器端运程数据模块 --> "OK" ,进入到 "Remove Data Module Wizard" 向导。
输入: Class Name : Mulit_ServerData--> 确定
(3) 建立数据库链接
Mulit_ServerData 中放一个 ADOConnection 组件 ( ADO 标签中 ) ,将 ADOConnection1 KeepConnection 的属性置为 True,LoginPromt 属性置为 False;
保存以上操作,将 Remove Data Module class 命名为: pu_Mulit_ServerData.pas
(4) 通过 ini 文件读取数据库链接
首先在 pu_Mulit_ServerData.pas Uses 中导入文件操作类,如:
Uses Inifiles;
再声明私有变量 myInifile TInifile 类型。如下:
 private
   { Private declarations }
   myInifile:TInifile;
编写 TMulit_ServerData.RemoteDataModuleCreate 的事件如下:
procedure TKMServerData.RemoteDataModuleCreate(Sender: TObject);
var
   filename,
   ConnectionStr:string;
begin
 filename:=ExtractFilePath(paramstr(0))+'Serverini.ini';
 myInifile:=TInifile.Create(filename);
 ConnectionStr:=myInifile.ReadString('ServerConfig','ConnectionString','');
 ADOConnection1.ConnectionString:=ConnectionStr;
 ADOConnection1.Connected:=true;
 ADOConnection1.KeepConnection:=true;
 ADOConnection1.LoginPrompt:=False;
end;
(5)Server 端的 Ini 文件命名为: d:\MulitSys\Server\server.ini 内容如下:
[ServerConfig]
ConnectionString=Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User Catalog=KM_ERP;Data Source=(local)
通过以上架构,基本上就选建立起 Server 层了。
然后按保存,来保存整个项目文件 D:\MulitSys\MulitSys.bpg ,下次进入本项目只需要直接点击 MulitSys.bpg 就可以打开了。
2. 搭建 Client 端框架
(1)View à Project Manager à New (Add New Project) à 选择 New 中的 Application, 并且为 form1 命名
FormStyle:=fsMDIForm;
WindowState:= wsMaximized;
poScreenCenter;
(2)保存项目
按保存按钮,将class文件保存为pu_Main.pas,项目文件,也就是要生成的exe文件保存为MulitSys.dpr。
(3)建立Client端数据模块
将MulitSys项目置为活动项目,然后File àNew àDataModule à为DataModule命名为MulitSys_ClientData
(4)建立和服务器端的链接
在DataModule上放置DCOMConnection,并设置它的属性,如下:
ServerName:=pf_server.Mulit_ServerData;
Connectioned = true;
LoginPromt =false;
通过以上方法,Server端和Client端(中间层)都建立起来了,并且可以运行了。
链接示例:
例1:对部门的数据进行操作,数据库略。
在SererDataModule中建立TADODataSet组件,属性如下:
Name :=DeptADS;
Connection:=ADOConnection1
CommandText: = “select * from tblDept”;
再放置TdataSetProvider组件,并设置其属性如下:
Name:=DeptDSP;
DataSet:=DeptADS;
在ClientDataModule中放置TclientDataSet组件,并设置其属性如下:
Name:= DeptCDS;
RemoveServer:=DCOMConnection1;
ProViderName:= DeptDSP;
这样,整个中间层已建立起来了
3.建立表示层业务
选择MulitSys为活动项目,在刚才建立起的Mainfrm上放置菜单,根据需要设置菜单项,略。
建立Dept 的表示层,并进行简单数据操作。
File àNew àForm
对Form命名,放置DBGrid组件到Form上,并放置SpeedButton按钮到Form上,分别命名为AddBtn,UpdateBtn,DelBtn,SearchBtn,SaveBtn,CancelBtn,PrintBtn,ExitBtn,等。
再从File àUse Unit 中,选择ClientDataModule,将它use到deptfrm中。
再放置一TdataSource组件到Form上,设置DataSet的属性如下:
在选择DataSource的DataSet属性前需要选打开ClientData,否则DataSource的DataSet下拉框中无值。
选择,DeptCDS为DataSet属性值。
再将DBGrid1的DataSource值为DataSource1。前面那些数据库的操作按钮见下面代码。
unit pu_Dept;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, DB, Grids, DBGrids, ExtCtrls, Buttons, StdCtrls, Mask, DBCtrls,
ComCtrls;
type
TDeptfrm = class(TForm)
   Panel1: TPanel;
   Panel2: TPanel;
   DBGrid1: TDBGrid;
   Panel3: TPanel;
   DataSource1: TDataSource;
   BackBtn: TSpeedButton;
   NextBtn: TSpeedButton;
   FindBtn: TSpeedButton;
   PrintBtn: TSpeedButton;
   AddBtn: TSpeedButton;
   EditBtn: TSpeedButton;
   DeleteBtn: TSpeedButton;
   SaveBtn: TSpeedButton;
   CancelBtn: TSpeedButton;
   ExitBtn: TSpeedButton;
   PageControl1: TPageControl;
   TabSheet1: TTabSheet;
   Label1: TLabel;
   Label2: TLabel;
   DBEdit1: TDBEdit;
   DBEdit2: TDBEdit;
   procedure FormClose(Sender: TObject; var Action: TCloseAction);
   procedure FormCreate(Sender: TObject);
   procedure Btn;
   procedure UnBtn;
   procedure BackBtnClick(Sender: TObject);
   procedure NextBtnClick(Sender: TObject);
   procedure AddBtnClick(Sender: TObject);
   procedure EditBtnClick(Sender: TObject);
   procedure DeleteBtnClick(Sender: TObject);
   procedure SaveBtnClick(Sender: TObject);
   procedure CancelBtnClick(Sender: TObject);
   procedure ExitBtnClick(Sender: TObject);
private
   { Private declarations }
       procedure OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
public
   { Public declarations }
end;
var
Deptfrm: TDeptfrm;
implementation
uses pu_ClientData, pf_pubfunction;
{$R *.dfm}
//正常
procedure TDeptfrm.Btn;
begin
SaveBtn.Enabled:=false;
CancelBtn.Enabled:=false;
panel3.Visible:=false;
BackBtn.Enabled:=true;
NextBtn.Enabled:=true;
FindBtn.Enabled:=true;
PrintBtn.Enabled:=true;
  {AddBtn.Enabled:=pf_pubfunction.p_checkgrouppower(tform(panel1.Owner).Name,'AddBit');
EditBtn.Enabled:=pf_pubfunction.p_checkgrouppower(tform(panel1.Owner).Name,'EditBit');
DeleteBtn.Enabled:=pf_pubfunction.p_checkgrouppower(tform(panel1.Owner).Name,'DelBit');
    }
AddBtn.Enabled:=true;
EditBtn.Enabled:=true;
DeleteBtn.Enabled:=true;
ExitBtn.Enabled:=true;
end;
//解锁
procedure TDeptfrm.UnBtn;
begin
SaveBtn.Enabled:=true;
CancelBtn.Enabled:=true;
Panel3.Visible:=true;
BackBtn.Enabled:=false;
NextBtn.Enabled:=false;
FindBtn.Enabled:=false;
PrintBtn.Enabled:=false;
AddBtn.Enabled:=false;
EditBtn.Enabled:=false;
DeleteBtn.Enabled:=false;
ExitBtn.Enabled:=false;
end;
Procedure TDeptfrm.OnMouseWheel(Var Msg :TMsg;var Handled:Boolean);
begin
if Msg.message = WM_MouseWheel then
begin
   if Msg.wParam > 0 then
    begin
      if DBGrid1.Focused then
        SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0);
    end
   else
    begin
      if DBGrid1.Focused then
        SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0);
    end;
   Handled:= True;
end;
end;
procedure TDeptfrm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree;
end;
procedure TDeptfrm.FormCreate(Sender: TObject);
begin
ClientData.DeptCDS.Active:=true;
Btn;
Application.OnMessage:=OnMouseWheel;
end;
procedure TDeptfrm.BackBtnClick(Sender: TObject);
begin
ClientData.DeptCDS.Prior;
end;
procedure TDeptfrm.NextBtnClick(Sender: TObject);
begin
ClientData.DeptCDS.Next;
end;
procedure TDeptfrm.AddBtnClick(Sender: TObject);
begin
UnBtn;
ClientData.DeptCDS.Insert;
ClientData.DeptCDS.FieldValues['DeptNO']:=pf_pubfunction.p_getmaxno('tblDept','DeptNO',3);
DBEdit2.SetFocus;
end;
procedure TDeptfrm.EditBtnClick(Sender: TObject);
begin
UnBtn;
ClientData.DeptCDS.Edit;
end;
procedure TDeptfrm.DeleteBtnClick(Sender: TObject);
begin
//if MessageDlg('确实要删除吗?',mtConfirmation,[mbYes, mbNo],0)=mrYes then
if MessageDlg('Are you confirm Delete?',mtConfirmation,[mbYes,mbNo],0)=mrYes then
   begin
       ClientData.DeptCDS.Delete;
       ClientData.DeptCDS.ApplyUpdates(-1);
   end;
end;
procedure TDeptfrm.SaveBtnClick(Sender: TObject);
begin
Btn;
ClientData.DeptCDS.ApplyUpdates(0);
end;
procedure TDeptfrm.CancelBtnClick(Sender: TObject);
begin
Btn;
ClientData.DeptCDS.Cancel;
end;
procedure TDeptfrm.ExitBtnClick(Sender: TObject);
begin
close;
end;
end.
通过以上步聚,基本上建立起一个完整的三层架构体系了。至于程序的发布,那是另外要再讲的了。以上步聚你都成功了吗?













本文转自鹅倌51CTO博客,原文链接:http://blog.51cto.com/kaixinbuliao/1332809  ,如需转载请自行联系原作者


相关文章
|
3月前
|
NoSQL 关系型数据库 MySQL
微服务架构下的数据库选择:MySQL、PostgreSQL 还是 NoSQL?
在微服务架构中,数据库的选择至关重要。不同类型的数据库适用于不同的需求和场景。在本文章中,我们将深入探讨传统的关系型数据库(如 MySQL 和 PostgreSQL)与现代 NoSQL 数据库的优劣势,并分析在微服务架构下的最佳实践。
|
3月前
|
设计模式 缓存 关系型数据库
探索微服务架构中的数据库设计挑战
微服务架构因其模块化和高扩展性被广泛应用于现代软件开发。然而,这种架构模式也带来了数据库设计上的独特挑战。本文探讨了在微服务架构中实现数据库设计时面临的问题,如数据一致性、服务间的数据共享和分布式事务处理。通过分析实际案例和提出解决方案,旨在为开发人员提供有效的数据库设计策略,以应对微服务架构下的复杂性。
|
3月前
|
消息中间件 缓存 监控
优化微服务架构中的数据库访问:策略与最佳实践
在微服务架构中,数据库访问的效率直接影响到系统的性能和可扩展性。本文探讨了优化微服务架构中数据库访问的策略与最佳实践,包括数据分片、缓存策略、异步处理和服务间通信优化。通过具体的技术方案和实例分析,提供了一系列实用的建议,以帮助开发团队提升微服务系统的响应速度和稳定性。
|
1月前
|
存储 SQL Apache
Apache Doris 开源最顶级基于MPP架构的高性能实时分析数据库
Apache Doris 是一个基于 MPP 架构的高性能实时分析数据库,以其极高的速度和易用性著称。它支持高并发点查询和复杂分析场景,适用于报表分析、即席查询、数据仓库和数据湖查询加速等。最新发布的 2.0.2 版本在性能、稳定性和多租户支持方面有显著提升。社区活跃,已广泛应用于电商、广告、用户行为分析等领域。
Apache Doris 开源最顶级基于MPP架构的高性能实时分析数据库
|
1月前
|
缓存 关系型数据库 MySQL
高并发架构系列:数据库主从同步的 3 种方案
本文详解高并发场景下数据库主从同步的三种解决方案:数据主从同步、数据库半同步复制、数据库中间件同步和缓存记录写key同步,旨在帮助解决数据一致性问题。关注【mikechen的互联网架构】,10年+BAT架构经验倾囊相授。
高并发架构系列:数据库主从同步的 3 种方案
|
26天前
|
存储 NoSQL 分布式数据库
微服务架构下的数据库设计与优化策略####
本文深入探讨了在微服务架构下,如何进行高效的数据库设计与优化,以确保系统的可扩展性、低延迟与高并发处理能力。不同于传统单一数据库模式,微服务架构要求更细粒度的服务划分,这对数据库设计提出了新的挑战。本文将从数据库分片、复制、事务管理及性能调优等方面阐述最佳实践,旨在为开发者提供一套系统性的解决方案框架。 ####
|
28天前
|
消息中间件 数据库 云计算
微服务架构下的数据库事务管理策略####
在微服务架构中,传统的单体应用被拆分为多个独立的服务单元,每个服务维护自己的数据库实例。这种设计提高了系统的可扩展性和灵活性,但同时也带来了分布式环境下事务管理的复杂性。本文探讨了微服务架构下数据库事务的挑战,并深入分析了几种主流的事务管理策略,包括Saga模式、两阶段提交(2PC)以及基于消息的最终一致性方案,旨在为开发者提供一套适应不同业务场景的事务处理框架。 ####
|
29天前
|
设计模式 存储 缓存
微服务架构下的数据库设计策略
本文探讨了在微服务架构中进行数据库设计时,如何平衡数据的一致性、独立性与系统整体性能之间的关系。文章首先介绍了微服务架构的基本概念及其对数据库设计的影响,随后深入分析了三种主流的数据库设计模式——集中式、去中心化和混合模式,并结合实际案例讨论了它们的适用场景与优缺点。此外,还提出了一系列最佳实践建议,旨在帮助开发者更好地应对微服务环境下的数据管理挑战。
|
3月前
|
消息中间件 缓存 监控
优化微服务架构中的数据库访问:策略与实践
随着微服务架构的普及,如何高效管理和优化数据库访问成为了关键挑战。本文探讨了在微服务环境中优化数据库访问的策略,包括数据库分片、缓存机制、异步处理等技术手段。通过深入分析实际案例和最佳实践,本文旨在为开发者提供实际可行的解决方案,以提升系统性能和可扩展性。
|
3月前
|
存储 负载均衡 数据库
探索后端技术:从服务器架构到数据库优化的实践之旅
在当今数字化时代,后端技术作为支撑网站和应用运行的核心,扮演着至关重要的角色。本文将带领读者深入后端技术的两大关键领域——服务器架构和数据库优化,通过实践案例揭示其背后的原理与技巧。无论是对于初学者还是经验丰富的开发者,这篇文章都将提供宝贵的见解和实用的知识,帮助读者在后端开发的道路上更进一步。