mareg.pas

来自「三层cs结构实例 水平相当高的高人开发的软件 有要就留着用吧」· PAS 代码 · 共 20 行

unit MAReg;

interface

uses
  Classes, MADB;

procedure Register;

implementation

{$R midado.dcr}

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

end.