ado_qexport4database.pas

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

unit ADO_QExport4Database;

interface

uses QExport4;

type

  TQExport4Database = class(TQExport4)
  private
    FDatabaseName: string;
    FTableName: string;
    FAutoCreateDatabase: boolean;
    FAutoCreateTable: boolean;
    FShowFile: boolean;
    FPrintFile: boolean;
  protected
    property TableName:string read FTableName write FTableName;
    property AutoCreateDatabase:boolean read FAutoCreateDatabase write FAutoCreateDatabase;
    property AutoCreateTable:boolean read FAutoCreateTable write FAutoCreateTable;
    procedure ShowResult; virtual;
  public
    procedure Execute; override;
    property ShowFile: boolean read FShowFile write FShowFile;
    property PrintFile: boolean read FPrintFile write FPrintFile;
  published
    property DatabaseName: string read FDatabaseName write FDatabaseName;
    property Captions;
    property AllowCaptions;
    property ColumnsLength;
    property Formats;
    property UserFormats;
  end;

implementation

uses ShellApi;

procedure TQExport4Database.Execute;
begin
  FWriter := GetWriterClass.Create(Self, nil);
  try
    DoExport;
  finally
    FWriter.Free;
  end;
  ShowResult;
end;

procedure TQExport4Database.ShowResult;
begin
end;

end.