Delphi三层架构的一种方法

 

Delphi三层架构的一种方法

Delphi三层架构的一种方法

理解：把服务端数据取回客户端，在客户端操作（如添加）完毕后，传到服务器端统一更新。

         需在客户端选取回表信息（结构，内容）。

前题：

      scktsrvr.exe（delphi安装的程序目录里有， 需启动）

      midas.dll（windows系统目录里有此文件，从新注册方法调用：regsvr32.exe）

过程：

      服务器端：新建立 New->other->Multitier->Remote Data Module

                     做数据链接。例如：用控件TADoConnection

                     建立函数 View->Type Library

                     在生成的 Interface 里建立 Method；

                     例如：

--------------------------------------------------------------------------------------------------------------------------

                            名称：ExecSQL

                            Parameter：Name         Type           Modifier

                                             SQL            BSTR          [in]                输入类型字符型

                                             result          VARIANT*   [out,retval]     输出类型，结果

--------------------------------------------------------------------------------------------------------------------------

                     方法举例：

Code

--------------------------------------------------------------------------------------

function TRDM.ExecSQL(const SQL: WideString): OleVariant;
var
  adoqrytem:TAdoQuery;
  prvtem:TDataSetProvider;
begin
  adoqrytem:=TAdoQuery.create(self);          //创建临时adoquery
  adoqrytem.connection:=conn;
    
  prvtem:=TDataSetProvider.create(self);       //创建临时datasetprovider
  prvtem.DataSet:=adoqrytem;

  adoqrytem.Close;             //执行sql
  adoqrytem.sql.clear;
  adoqrytem.sql.text:= SQL;
  adoqrytem.open;

  result:=prvtem.data;

  adoqrytem.free;
  prvtem.free;
end;

-----------------------------------------------------------------------------------------

    客户端：

               建立链接 用控件DataSnap->SocketConnection

               调用方法：

               例   SocketConnection1.AppServer.方法名称

                     ClienTDataSet1.Data := SocketConnection1.AppServer.ExecSQL('select …… ');

------------------------------------------------------------------------------------------

补充说明：

客户端ClientDataSet控件取回表的内容，在客户端本机操作（添加、修改、删除），在保存时，传递整个ClientDataSet表，例如：

cdsTemp:TClientDataSet;

……

if

  ClientDM.scktconn.AppServer.UpdatePub_Depart(username,cdsTemp.Delta,Msg) = 0 then

在使用DataModel窗体存放数据库控件的程序中,应注意：
1、如果在其他窗体中调用DataModel中的控件必须在先引用Datemodel的单元，在implementation下面加入以下语句

uses 

    DataModel的单元名称;

2、必须改变窗体的创建顺序，datamodel窗体必须先于引用该窗体控件的窗体创建
三层结构

应用层：
一、需要三个数据控件：
Adoconnect         
AdoQuery
DataSetProvider

二、联接顺序：
SQL数据库<--Adoconnect<--Adoquery<--DataSetProvider

三、属性设置：
Adoconnect：     1、ConnectionString
                 2、Connected
Adoquery:        1、connection
                 //2、Active
DataSetProvider: 1、DataSet
                 2、option.poAllowCommand:=true
四、其他
1、运行SocketServer并开端口
2、数据模块使用远程数据模块

客户端：
一、基本控件
SocketConnection
ClientDataSet
DataSoure
DBGrid

二、联接顺序：
应用层<--SocketConnection<--ClientDataSet<--DataSoure<--DBGrid

三、属性设置：
SocketConnection: 1、Adrress
                  2、ServerName
                  3、Port
                  4、connected
ClientDataSet：   1、RemoteServer
                  2、CommandText
                  3、ProviderName
                  4、Active
DataSoure：       1、DataSet
DBGrid：          1、DataSoure

四、其他


一、先关闭记录集后执数据库操作语句
   rs.close
   sqlstr="insert into abc(a,b,c) values("a","b","c")"
   rs.open sqlstr,conn
   rs.update
   rs.colose
二、在可能发生出错的数据库操作做错误捕捉，如：open,update,delete等
   rs.close
   sqlstr="insert into abc(a,b,c) values("a","b","c")"
   on error resume next  
   rs.open sqlstr,conn
   if err then
   msgbox(err.Description)
   msgbox(cstr(err.number))
   rs.update
   rs.colose