Classe TKernelRelatorio

DescriçãoHierarquiaCamposMétodosProperties

Unit

untKernelRelatorio

Declaração

type TKernelRelatorio = class(TComponent)

Descrição

Classe de controle de relatórios

Hierarquia

Visão Geral

Campos

Public frpRelatorio: TfrReport;
Public fdbRelatorio: TfrDBDataSet;
Public qryRelatorio: TZReadOnlyQuery;
Public frmAguardo: TForm;
Private intRelatorioID: Integer;
Private strRelatorioNome: string;
Private strSQLOriginal: string;

Métodos

Private function ObterSQL : String;
Private procedure DefinirSQL(const strSQL : String);
Private procedure ApenasDefinirSQL(const strSQL : string);
Private procedure DefinirConexao(const conexao : TZConnection);
Private procedure SetarParametro(const strParametro, strValor : string);
Private function ObterParametroExiste(const strParametro : string) : boolean;
Private procedure IniciarAguardo;
Private procedure FinalizarAguardo;
Private function ObterValorParametro(const strParametro : string) : string;
Public function ObterRelatorio(const intID : integer;const bolObterSQL : boolean) : boolean;
Public procedure RecarregarSQLOriginal;
Public constructor Create(AOwner : TComponent); override;
Public procedure SalvarEmCampo(const Campo : TField);
Public procedure Exportar(const intID : integer; const ExecFile : Boolean = False);
Public procedure Exibir(const intID : integer; const bolImprimirDireto : boolean = false); overload;
Public procedure Exibir(const bolSolicitarDialogoImpressao : boolean = false); overload;
Public procedure Editar(const intID : integer);
Public destructor Destroy; override;
Public procedure DefinirCriterio(const strCriterio: string = '');
Public procedure DefinirOrderBy(const strOrderBy : string = '');
Public procedure DefinirLimite(const intLimite : integer);
Public function RandomFilename : string;

Properties

Public property Relatorio : TfrReport read frpRelatorio write frpRelatorio;
Public property SQL : string read ObterSQL write DefinirSQL;
Public property RelatorioID : Integer read intRelatorioID;
Public property Parametro[const strParametro: string]: string read ObterValorParametro write SetarParametro;
Public property ParametroExiste[const strParametro: string]: boolean read ObterParametroExiste;
Public property Conexao : TZConnection write DefinirConexao;

Descrição

Campos

Public frpRelatorio: TfrReport;

Relatório FastReport

Public fdbRelatorio: TfrDBDataSet;

DataSet do relatório FastReport

Public qryRelatorio: TZReadOnlyQuery;

Query para a execução dos relatórios

Public frmAguardo: TForm;

Formulário de espera

Private intRelatorioID: Integer;

Armazena o ID do relatório atual

Private strRelatorioNome: string;

Armazena a Descrição do Relatório

Private strSQLOriginal: string;

Comando SQL Original do Relatorio obtido

Métodos

Private function ObterSQL : String;

Retorna a consulta SQL atual da Query do relatório

Private procedure DefinirSQL(const strSQL : String);

Define o SQL da Query do relatório

Private procedure ApenasDefinirSQL(const strSQL : string);

Define o SQL da Query do Relatório sem testar

Private procedure DefinirConexao(const conexao : TZConnection);

Procedimeno que define a conexão do relatório

Private procedure SetarParametro(const strParametro, strValor : string);

Define um parametro do relatório

Private function ObterParametroExiste(const strParametro : string) : boolean;

Obtém se um parâmetro existe

Private procedure IniciarAguardo;

Exibe mensagem para o usuário aguardar o processamento das informações

Private procedure FinalizarAguardo;

Libera tela de aguardo de processamento.

Private function ObterValorParametro(const strParametro : string) : string;

Obtem o valor atual do parametro

Public function ObterRelatorio(const intID : integer;const bolObterSQL : boolean) : boolean;

Função que obtém o relatório passado como parametro e retorna verdadeiro caso o relatório exista

Public procedure RecarregarSQLOriginal;

Recarrega o SQL para a Query do Relatorio com o SQL Original Obtido

Public constructor Create(AOwner : TComponent); override;

Construtor da classe

Public procedure SalvarEmCampo(const Campo : TField);

Salva o Relatório em um campo "BLOB" de banco de dados

Public procedure Exportar(const intID : integer; const ExecFile : Boolean = False);

Procedimento para exportação do relatório

Public procedure Exibir(const intID : integer; const bolImprimirDireto : boolean = false); overload;

Exibe o relatório passado como parametro

Public procedure Exibir(const bolSolicitarDialogoImpressao : boolean = false); overload;

Exibe o relatório atual

Public procedure Editar(const intID : integer);

Abre a tela de edição do relatório (Design)

Public destructor Destroy; override;

Destrutor da classe

Public procedure DefinirCriterio(const strCriterio: string = '');

Define os critérios de filtro do relatório.

Public procedure DefinirOrderBy(const strOrderBy : string = '');

Define a Clausula order by do filtro do relatorio

Public procedure DefinirLimite(const intLimite : integer);

Define um novo limite de registros

Public function RandomFilename : string;

Retorna uma string de caracteres aleatlórios para um nome de arquivo válido

Properties

Public property Relatorio : TfrReport read frpRelatorio write frpRelatorio;

Retorna o Relatório (FastReport)

Public property SQL : string read ObterSQL write DefinirSQL;

SQL do relatório

Public property RelatorioID : Integer read intRelatorioID;

Retorna o ID do relatorio atual

Public property Parametro[const strParametro: string]: string read ObterValorParametro write SetarParametro;

Parametro. utilizado para passar parametros ao relatório

Public property ParametroExiste[const strParametro: string]: boolean read ObterParametroExiste;

Parametro. utilizado para passar parametros ao relatório

Public property Conexao : TZConnection write DefinirConexao;

Conexão com banco de dados