upkdm.pas

来自「如何从package中动态载入自定义类、窗体、ADO数据连接等」· PAS 代码 · 共 35 行

unit upkDM;

interface

uses
  SysUtils, Classes, DB, ADODB, upkDMIntr;

type
  Tpkdm = class(TDataModule, IpkDM)
    adcMain: TADOConnection;
  private
    { Private declarations }
  protected
    function GetConnection: TADOConnection;
  public
    { Public declarations }
  end;

implementation

{$R *.dfm}

{ Tpkdm }

function Tpkdm.GetConnection: TADOConnection;
begin
  Result := adcMain;
end;

initialization
  RegisterClass(Tpkdm);
finalization
  UnRegisterClass(Tpkdm);
end.