Delphi多层应用程序的实现

　　随着Internet/intranet的进展，多层 利用和 分布式瘦客户数据库 利用程序逐步得到 宽泛 利用 。在多层 利用的开发 模式中，Delphi提供了Midas构件，第三方提供了Asta 、Midware等 。 通过 使用，相 比较而言，Asta所提供的构件易学易用容易机灵，客户端程序 毋庸任何数据库引擎或动态连结库即可容易的实现多层 利用，且客户、服务器可实 事实时信息传输 。 可以说，Asta为一般程序员提供了 毋庸专门培训即可成为复杂多层 利用程序开发高手的 容易 路径 。

　　1． 意识Asta

　　象一般的Delphi构件一样，在Delphi环境下安装Asta即可看到该页标上有AstaClientSocket 、AstaClienDataset 、AstaServerSocket 、AstaDataSet 等构件，其中 要害是AstaClientSocket 、AstaClienDataset 、AstaServerSocket 。其中，AstaClient由一个AstaClientSocket 和至少一个AstaClienDataset 构成 。AstaServer的核心是AstaServerSocket 。Database 可以是现在 风行的任何数据库产品，如Sybase 、Informix 、MS-SQLserver等 。

　　2． 如何实现多层 利用

　　Asta 本身带有两个例子服务器程序，一个是BDEserver，另一个是ODBCserver 。这两个服务器程序设计的很完善，稍加革新(汉化)即可直接 使用 。我们 使用BDE服务器 。 本例以Paradox当地数据库为例， 注明如何开发客户端软件 。

　　2．1 运行BDE服务器程序，浮现数据连结窗口，弹开组合框 取舍别名BDEDEMOS，确定 。

　　2．2 进入Delphi环境， 构建新 利用netapp.dpr，窗体上分别 搁置AstaClientSocket1、AstaClienDataset1 。AstaClientSocket1的Adress属性填入服务器程序所在机器的IP地址 。若服务器程序在同一台机器上，则IP地址默许为127.0.0.1 。Port属性与服务器程序端口 统一(若服务器程序未作 改变此值为9000，固然也可选用 其余数值) 。AstaClienDataset1的属性与一般数据表Ttable 雷同，首先 取舍DataBasename属性， 而后选取tablename 。最终把Active 设为true(相当于执行了SQL语句：Select * from [tablename]) 。本例中tablename选取employee.db 。

　　3． 把 后果 体现出来

　　同一般数据库 利用程序一样，在窗体上放入Datasource1，其Dataset属性设为AstaClientSocket1，放入DBGrid，其Datasource设为 Datasource1，则 容易客户程序就 实现了 。

　　运行此程序即可看到数据表格 。此客户端程序 毋庸任何动态库即可在客户端运行，是 彻底的瘦客户 。需求 留神的是，AstaClientSocket的ConnectAction属性有多种 取舍，分别规定了客户端到服务器端的连结情况，大家可分别试试看有何 后果 。至于安全性设置、实时信息传递，可参阅随机协助文件 。