untbaseclass.pas

来自「里面有EXE文件,直接运行就可以,密码也在说明文件里,如有需要可做相应的改变」· 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.