remoteupdatesql.pas

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

unit RemoteUpdateSql;

interface

uses
  SysUtils, Classes;

type
  TRemoteUpdateSql = class(TComponent)
  private
    FPreSQL:Tstrings;
    FFinallySQL:TStrings;
    FDeleteSQL:Tstrings;
    FInsertSQL:Tstrings;
    FModifySQL:Tstrings;
    procedure setdsql(value:Tstrings);
    procedure setisql(value:Tstrings);
    procedure setmsql(value:Tstrings);
    procedure setpsql(value:Tstrings);
    procedure setfsql(value:Tstrings);
    { Private declarations }
  protected
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    { Public declarations }
  published
    property DeleteSQL:Tstrings read FDeleteSQL write setdsql;
    property InsertSQL:Tstrings read FInsertSQL write setisql;
    property ModifySQL:Tstrings read FModifySQL write setmsql;
    property PreSQL:Tstrings read FPreSQL write setpsql;
    property FinallySQL:Tstrings read FFinallySQL write setfsql;
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('DbAnyWhere', [TRemoteUpdateSql]);
end;
constructor TRemoteUpdateSql.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  FDeleteSQL:=Tstringlist.Create;
  FInsertSQL:=Tstringlist.Create;
  FModifySQL:=Tstringlist.Create;
  FPreSQL:=Tstringlist.Create;
  FFinallySQL:=Tstringlist.Create;
end;
destructor TRemoteUpdateSql.Destroy;
begin
  inherited Destroy;
  freeandnil(FDeleteSQL);
  freeandnil(FInsertSQL);
  freeandnil(FModifySQL);
  freeandnil(FPreSQL);
  freeandnil(FFinallySQL);
end;
procedure TRemoteUpdateSql.setdsql(value:Tstrings);
begin
  FDeleteSQL.Assign(value);
end;
procedure TRemoteUpdateSql.setisql(value:Tstrings);
begin
  FInsertSQL.Assign(value);
end;
procedure TRemoteUpdateSql.setmsql(value:Tstrings);
begin
  FModifySQL.Assign(value);
end;
procedure TRemoteUpdateSql.setpsql(value:Tstrings);
begin
  FPreSQL.Assign(value);
end;
procedure TRemoteUpdateSql.setfsql(value:Tstrings);
begin
  FFinallySQL.Assign(value);
end;
end.