Delphi7.0 一对多表多数据库开发实例.rar

Delphi 一对多数据库开发实例，包括了一对多表的服务端程序和一对多客户端程序，是多层数据库系统中的一个模式之一。Ptest63_TLB.pas为类文件。调用该类： 　　class procedure Ttest63.UpdateRegistry(Register: Boolean; const ClassID, ProgID: string); 　　begin 　　 if Register then 　　 begin 　　 inherited UpdateRegistry(Register, ClassID, ProgID); 　　 EnableSocketTransport(ClassID); 　　 EnableWebTransport(ClassID); 　　 end else 　　 begin 　　 DisableSocketTransport(ClassID); 　　 DisableWebTransport(ClassID); 　　 inherited UpdateRegistry(Register, ClassID, ProgID); 　　 end; 　　end;