After Open: adicionar par�metro ao evento

Question

Bom dia, senhores!Desejo configurar os TFields de um SQLQuery no AfterOpen, especificamente os ProviderFlags. At� a�, nenhum problema (j� testei e funcionou perfeitamente). Ocorre que as configura��es...

Massuda · Answer

N�o entendi direito... voc� quer que a VCL te passe um par�metro extra? Nesse caso voc� teria que reescrever boa parte da VCL. Explique melhor o que pretende fazer....

Jos� Cordeiro · Answer

Ol�, Massuda!Pensei em:a) Criar um novo evento (talvez derivado de TDatasetNotifyEvent);b) Atribuir AfterOpen:=<meu evento>, em vez de apontar para o evento nativo da VCL.N�o tenho a menor id�ia da possibilidade nem da complexidade da tarefa.Consegui o resultado desejado criando uma vari�vel privada do tipo TIniFile e atribuindo a ela o arquivo desejado, imediatamente antes de abrir o dataset. Funciona, mas n�o � o ideal, n�o �?Grato pela aten��o...

Massuda · Answer

[quote:7def5df05a=�Jos� Henrique Cordeiro�]N�o tenho a menor id�ia da possibilidade nem da complexidade da tarefa.[/quote:7def5df05a]Teria que modificar os fontes da VCL e isso gera uma lista intermin�vel de problemas sutis ou voc� teria que criar uma classe sua derivada de TSQLQuery (menos trabalhoso).

[quote:7def5df05a=�Jos� Henrique Cordeiro�]Consegui o resultado desejado criando uma vari�vel privada do tipo TIniFile e atribuindo a ela o arquivo desejado, imediatamente antes de abrir o dataset. Funciona, mas n�o � o ideal, n�o �?[/quote:7def5df05a]Normalmente usa-se um membro privado (uma vari�vel declarada na parte private) do form ou data module para isso. � mais f�cil de fazer e de entender.

Jos� Cordeiro · Answer

Posso usar a propriedade Tag do SQLQuery para armazenar o ponteiro para o IniFile a ser usado, n�o posso? N�o costumo usar ponteiros diretamente, mas j� li algo a respeito. Assim, a informa��o fica encapsulada no dataset.

A cria��o de uma classe derivada de TSQLQuery � boa. Mas acho que o uso da Tag � menos trabalhoso e atende perfeitamente, n�o acha?

[]s

Henrique

Massuda · Answer

Voc� pode usar Tag para armazenar qualquer coisa que possa ser convertida para um Integer.

Eu evito usar Tag porque as vezes eu encontro alguns usos inesperados para essa propriedade. Nem sempre fica claro, especialmente quando n�o foi voc� que escreveu o c�digo, qual a finalidade de usar essa propriedade.

Jos� Cordeiro · Answer

Concordo 100� com voc�, Massuda! Sempre tive (e continuo tendo) exatamente a mesma preocupa��o. Esta � a primeira necessidade clara de uso _ associa��o a um arquivo de configura��es _ cujas alternativas s�o muito mais caras (por exemplo, criar uma classe descendente de TSQLQuery). � poss�vel, mesmo, que eu a defina como padr�o de projeto (neste caso, v�lida para quaisquer componentes).

Grato pela aten��o!

Henrique

F�rum After Open: adicionar par�metro ao evento #330767