untbaseclass.~pas

来自「高校党员管理系统源代码有用的可以下载来用」· ~PAS 代码 · 共 39 行

unit UntBaseClass;

interface
type
  TBaseClass = class
  protected
  private
    SQLString : string ;
    procedure SetSQL(SQL : string );
    function GetSQL : String ;
  public
    constructor create();
    destructor destroy;override ;
    property SQL : string Read GetSQL Write SetSQL;
  end;

implementation
constructor TBaseClass.create;
begin

end;

destructor TBaseClass.destroy;
begin
  inherited;
end;

function TBaseClass.GetSQL: String;
begin
  result := self.SQLString;
end;

procedure TBaseClass.SetSQL(SQL: string);
begin
  self.SQLString := SQL;
end;

end.