我的三层架构(第一集进货管理)?(50分)

最近，我正在做一个三层架构的MIST系统, 从现在开始我将把我所做的思路及代码公布，望
各位高手指教?该系统数所库为ORACLE8.05,前端工具Delphi5.0
单表(供应商的录入)：
一、相关说明
1、应用服务器：远程数据模块：有Database1,QuerySupper(指向供应商表)、
DataSetProviderSupper
2、前端：DCOMConnection1,ClientDataSetSupp(ProvidernameataSetProviderSupper
,PacketRecords=25,FetchOndemand=False;用于显示TDbgrid,增加，删除等操作)。
3、ClientDataSetsSupp_Sql(ProvidernameataSetProviderSupper,PacketRecords=-1,
FetchOndemand=True;用于显示所有供应商记录)。
4、DataSourceSupp：DataSet=ClientDataSetSupp(用于在DbGrid中显示供应商记录)
二、增加、删除、定位、查询、刷新操作。
1、增加:ClientDataSetSupp.append;
(用Oracle序列完成主关键,保存只用AppLyUpdates(0))
2、删除：ClientDataSetSupp.delete;(在AfterDelete中有ApplyupDates(0))
3、定位：本人完全参李维“开发三层架构”P3-35的例子。
由于本人的ClientDataSetSupp.FetchOndemand=False,所以ClientDataSetSupp并不能自动
显示下一个25条记录，故在ClientDataSetSupp.AfterScroll中定下如下语句：
　Var
CurrNo:Integer;
begin
CurrNo:=ClientDataSetSupp.RecNo;
If CurrNo mod 25=0 then
//重新下栽另25条记录
begin
ClientDataSetSupp.GetNextPacket;
end;

欢迎各位大侠评论.

o万事开头难！

也听听。

反应冷淡，不知下一集是否推出!

基本可行，评分60。

listen.

ok

zsp:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

多人接受答案了。