sqlstore.pas

来自「p2pdbanywhere 可以通过之udp方式远程连接数据库的组件,这个组件非」· PAS 代码 · 共 42 行

unit SqlStore;

interface

uses
  SysUtils, Classes;

type
  TSqlStore = class(TComponent)
  private

    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published

    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DbAnyWhere', [TSqlStore]);
end;
constructor TSqlStore.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
end;
destructor TSqlStore.Destroy;
begin
  inherited Destroy;
end;  

end.