firstrm.pas

来自「Delphi高级开发指南是开发程序的好帮手」· PAS 代码 · 共 43 行

unit FirstRM;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, BdeProv, DataBkr, AppServ1_TLB, Db,
  DBTables;

type
  TTDdhFirstRM = class(TDataModule, ITDdhFirstRM)
    Table1: TTable;
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    function Get_Table1: IProvider; safecall;
    function Get_Table2: IProvider; safecall;
  end;

var
  TDdhFirstRM: TTDdhFirstRM;

implementation

{$R *.DFM}

function TTDdhFirstRM.Get_Table1: IProvider;
begin
  Result := Table1.Provider;
end;

function TTDdhFirstRM.Get_Table2: IProvider;
begin

end;

initialization
  TComponentFactory.Create(ComServer, TTDdhFirstRM,
    Class_TDdhFirstRM, ciMultiInstance);
end.