注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

鑫淼梦园的博客

圆你的梦想 从这里开始

 
 
 

日志

 
 

【转载】Delphi三层架构的一种方法  

2014-05-02 15:48:01|  分类: delphi xe5 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
本文转载自智能双色球《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) 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
  评论这张
 
阅读(138)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017