Delphi一对多数据库开发实例，包括了一对多表的服务端程序和一对多客户端程序，是多层数据库系统中的一个模式之一。Ptest63_TLB.pas为类文件。调用该类：　　classprocedureTtest63.UpdateRegistry(Register:Boolean;constClassID,ProgID:string);　　begin　　ifRegisterthen　　begin　　inheritedUpdateRegistry(Register,ClassID,ProgID);　　EnableSocketTransport(ClassID);　　EnableWebTranspo