mareg.pas

三层cs结构实例 水平相当高的高人开发的软件 有要就留着用吧

unit MAReg;

interface

uses
  Classes, MADB;

procedure Register;

implementation

{$R midado.dcr}

procedure Register;
begin
  RegisterComponents('ADO', [TMADOConnection, TMADODataset, TMADOQuery]);
end;

end.