rdmbriefcase.pas

来自「是一个delphi的流程制作软件」· PAS 代码 · 共 55 行

unit rdmBriefCase;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ComServ, ComObj, VCLCom, StdVcl, BdeProv, ActiveX, DataBkr,
  BriefCaseSrvr_TLB, registry, Provider, Db, DBTables, DBClient;

type
  TrdmBriefCaseSrvr = class(TDataModule, IrdmBriefCaseSrvr)
    Database1: TDatabase;
    Table1: TTable;
    Provider1: TProvider;
    DataSource1: TDataSource;
    procedure rdmBriefCaseSrvrCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  protected
    function Get_Provider1: IProvider; safecall;
  end;

var
  rdmBriefCaseSrvr: TrdmBriefCaseSrvr;

implementation

{$R *.DFM}

procedure TrdmBriefCaseSrvr.rdmBriefCaseSrvrCreate(Sender: TObject);
begin
     with TRegistry.create, DataBase1, Database1.Params
     do
       begin
       Rootkey := HKEY_LOCAL_MACHINE;
       OpenKey('\SOFTWARE\LionWare\BriefCase', False);
       Close;
       Clear;
       Add('path='+ReadString('dbPath'));
       Table1.Open;
       end;
end;

function TrdmBriefCaseSrvr.Get_Provider1: IProvider;
begin
  Result := Provider1.Provider;
end;

initialization
  TComponentFactory.Create(ComServer, TrdmBriefCaseSrvr,
    Class_rdmBriefCaseSrvr, ciMultiInstance);
end.