Delphi三层架构数据库操作攻略

原创 2006年06月24日 12:02:00
在你的硬碟上建立一代码要放置的目录,如:
d:/MulitSys
d:/MulitSys/Server
d:/MulitSys/Client
1。建立Server
(1)打开Delphi7File -->New --> Application -->变更Form1的名称为:Name:='Serverfrm';
保存Serverfrmd:/Mulitsys/Server/下,
.pass文件命名为:pu_server.pas
Project命名为:pf_server.dpr
变更ServerfrmWindowState的值为: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标签中),将ADOConnection1KeepConnection的属性置为True,LoginPromt属性置为 False;
保存以上操作,将Remove Data Moduleclass命名为:pu_Mulit_ServerData.pas
(4)通过ini文件读取数据库链接
首先在pu_Mulit_ServerData.pasUses中导入文件操作类,如:
Uses Inifiles;
再声明私有变量myInifileTInifile类型。如下:
  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 ID=sa;Initial 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;
Position:= 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.
 
通过以上步聚,基本上建立起一个完整的三层架构体系了。至于程序的发布,那是另外要再讲的了。以上步聚你都成功了吗?
 

Delphi 三层框架开发 服务端开发

采用Delphi7+SQL2008 首先创建数据库和表
  • gykthh
  • gykthh
  • 2014-10-24 14:40:15
  • 14203

Delphi XE之路(13)开发数据库三层应用的DataSnap

我觉得Delphi最强大的的功能之一就是开发数据库三层应用的DataSnap,在Android上的实现,首先是完成服务器的设计: (1)利用向导完成DataSnap服务器的框架,如下图: ...
  • 5201314
  • 5201314
  • 2014-12-22 16:22:14
  • 2551

基于Delphi的三层数据库系统的实现方法

 基于Delphi的三层数据库系统的实现方法 摘要随着中间件与Web技术的发展,三层或多层分布式应用体系越来越流行。而中间件作为分布体系应用的关键技术,以其独特的优势为各种摘要随着中间件与Web技术的...
  • chinahuyong
  • chinahuyong
  • 2009-03-25 17:11:00
  • 3406

delphi三层架构

我们的delphi程序很多是以前开发的,采用典型的CS架构,由程序直接连接数据库。现在需要改成在外网可以直接操作软件。 先把数据库搬到了阿里云上,测试发现直接连数据库和VPN连接测试速度很慢,直连还容...
  • pcwe2002
  • pcwe2002
  • 2016-09-13 17:21:57
  • 3607

delphi不错的三层架构框架

  • 2016年06月28日 15:02
  • 10.12MB
  • 下载

Delphi 三层框架开发客户端开发

新建一个application 如图 添加以下控件 代码如下
  • gykthh
  • gykthh
  • 2014-10-24 15:04:14
  • 3830

delphi简单三层架构源码(DCOM)

  • 2014年04月30日 16:46
  • 661KB
  • 下载

Delphi数据库的三层架构的问题和解决方法

//----------------Delphi数据库的三层架构几个问题的说明----------------. 第一、1,在写服务器端时,delphi7环境下,运行程序会自动注册服务(有人说Del...
  • lenovo455
  • lenovo455
  • 2014-03-26 16:26:03
  • 928

一个轻量级DELPHI三层架构

  • 2010年09月20日 10:19
  • 1.62MB
  • 下载

delphi 三层架构简单例子(经测试成功)

所谓三层: (1) 客户端 (2) 服务器端 (3) 数据库     在数据访问时,使得客户端必须通过服务器来访问数据库。提高了系统的安全性。     在Delphi中可...
  • xiexuan2007
  • xiexuan2007
  • 2013-12-19 09:48:57
  • 1541
收藏助手
不良信息举报
您举报文章:Delphi三层架构数据库操作攻略
举报原因:
原因补充:

(最多只允许输入30个字)