untbaseclass.pas

党员管理系统 运用delphi开发的简易党员管理系统

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.