我在前端编写客户端的程序,要访问数据库时,就通过自己编写的一个组件AUsers,从AUsers那获得数据,具体的数据业务逻辑由组件去跟数据库打交道,当该组件在服务器端创建时,我客户端就不要安装数据库(如:MS SQLServer)客户端。即我在客户端是不直接与数据库打交道的。举例如下:
AUsers1: TAUsers;
  . 
  .
  .
var i:integer;
    au:_AUser;
begin
  AUsers1.Read ;          //AUsers读取所有AUser类型的数据
  i:=AUsers1.Count ;      //计算AUser在数据库中的数量
  au:=AUsers1.Item[7];    //取第7个AUser  showmessage(inttostr(i));
  showmessage(au.UserName);
end;问题:这样的组件怎么写,哪位大侠做过,贴个源代码看看好吗???
鞠躬,谢谢了先!!!

解决方案 »

  1.   

    请问 组件AUsers 是不是属于中间件啊???
      

  2.   

    没明白你的意思 看看三层的书吧 你要的控件已经很完善DataSetProvider
      

  3.   

    意思是:
    1、在数据库中有user,custer,man,girl等几个数据表,那么我就写几个专门操作相应数据表的控件Auser,Acuster,Aman,Agirl等;
    2、要操作某个表时,就在FORM上放上相应的控件。如要获得user表中记录的个数:i:=AUsers1.Count ;     这个方法是我一个朋友他们公司采用的,请问这样的控件怎么写,他们这个方法叫什么方法,是什么样的系统架构,谁有源代码???
      

  4.   

    我明白你的意思了,你定义一个类,来封装表的属性和方法,你可以参看delphi6的关于类的定义以及控件的编写部分.
      

  5.   

    TO ychuiming(飞天) :找到知音了;),能提供相关的源代码吗,我以前接触这些方面比较少
      

  6.   

    用户层(界面层Forms)——应用层(COM执行层)——数据层(存储层Storage)
    找本写DCOM或CORBA的书或“分布数据库"看看,你就明白了