ado_qexport4dsgn.pas

来自「Advanced.Export.Component.v4.01.rar,delp」· PAS 代码 · 共 30 行

unit ADO_QExport4Dsgn;

{$I VerCtrl.inc}

interface

uses QExport4Dsgn;

type

 TQDatabaseNameProperty = class(TQFileNameProperty)
   protected
     function GetFilter: string; override;
     function GetDefaultExt: string; override;
 end;

implementation

function TQDatabaseNameProperty.GetFilter: string;
begin
  Result := 'MS Access files (*.mdb)|*.mdb';
end;

function TQDatabaseNameProperty.GetDefaultExt: string;
begin
  Result := 'mdb';
end;

end.