Delphi三层架构的一种方法企业库|免费b2b网站

Delphi三层架构的一种方法

Parameter：Name Type Modifier

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

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

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;

在使用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

郑重声明：资讯【Delphi三层架构的一种方法】由发布，版权归原作者及其所在单位，其原创性以及文中陈述文字和内容未经(企业库qiyeku.com)证实，请读者仅作参考，并请自行核实相关内容。若本文有侵犯到您的版权，请你提供相关证明及申请并与我们联系（qiyeku # qq.com）或【在线投诉】，我们审核后将会尽快处理。

—— 相关资讯 ——