Como vocês fazem suas telas de localizar?
Olá, gostaria de saber como vocês criam suas telas de localizar, eu faço de uma maneira, porém estou tendo uns probleminhas, eis minha ´solução´.
Insiro um Query, e uma tela padrao de localizar, com um DBGrid e um Edit, onde o usuário digite a condição. Pois bem, eu passo o nome da tabela em RunTime, e monto o SQL da Query também em RunTime.
Funciona perfeitamente, porém a tela aparece no Caption os nomes dos campos no Banco de Dados, aí eu consegui criar uma função que mude o Titulo pelos Descriptions, até aí blz... mas eu [b:12f32f538f]não consigo de jeito nenhum, é formatar os valores que vem da tabela[/b:12f32f538f], ou seja, não consigo trazer os dados formatados de valores, data e horas e etc..
Alguém, teria uma condição de localizar melhor e mais fácil, que seja genérico para ser usado em qualquer tela?
Desde já agradeço.
[]s
Insiro um Query, e uma tela padrao de localizar, com um DBGrid e um Edit, onde o usuário digite a condição. Pois bem, eu passo o nome da tabela em RunTime, e monto o SQL da Query também em RunTime.
Funciona perfeitamente, porém a tela aparece no Caption os nomes dos campos no Banco de Dados, aí eu consegui criar uma função que mude o Titulo pelos Descriptions, até aí blz... mas eu [b:12f32f538f]não consigo de jeito nenhum, é formatar os valores que vem da tabela[/b:12f32f538f], ou seja, não consigo trazer os dados formatados de valores, data e horas e etc..
Alguém, teria uma condição de localizar melhor e mais fácil, que seja genérico para ser usado em qualquer tela?
Desde já agradeço.
[]s
Titanius
Curtidas 0
Respostas
Ivonei
07/07/2005
Num sistema que estou fazendo, estou usando a rotina abaixo para formatar campos numericos de um query que foram criados em runtime.
Não é a solução do seu problema, mas espero que de uma idéia de como fazer.
[ ]´s
Não é a solução do seu problema, mas espero que de uma idéia de como fazer.
if TRLDBText(FindComponent(´RLDBText1) ).DataField <> ´´ then TNumericField(Form1.IBQuery1.FieldByName(Campo)).DisplayFormat := ´#,´;
[ ]´s
GOSTEI 0
Edineidaniel
07/07/2005
Titanius,
Bom não sei quais os componente que vc utiliza...
Mas eu trabalho com DBExpress...
Faço uma tela de consulta unica no sistema, com vc!!! Mas só com um componente DataSource...A propriedade DataSet eu preencho em RunTime.
No OnChange do Edit eu uso um Locate...Exemplo:
DtSDados.DataSet.Locate(Lblcampo.Caption, EdtProcura.Text,[loPartialKey,loCaseInsensitive]);
E a formatação dos campos fica por conta dos DisplayLabels dos Fields dos componentes ClienteDataSet...
Mais isso é só para consulta rápidas...
Att,
Edinei
Bom não sei quais os componente que vc utiliza...
Mas eu trabalho com DBExpress...
Faço uma tela de consulta unica no sistema, com vc!!! Mas só com um componente DataSource...A propriedade DataSet eu preencho em RunTime.
No OnChange do Edit eu uso um Locate...Exemplo:
DtSDados.DataSet.Locate(Lblcampo.Caption, EdtProcura.Text,[loPartialKey,loCaseInsensitive]);
E a formatação dos campos fica por conta dos DisplayLabels dos Fields dos componentes ClienteDataSet...
Mais isso é só para consulta rápidas...
Att,
Edinei
GOSTEI 0
Titanius
07/07/2005
obrigado amigos, tentarei usar a dica do amigo Ivonei.... qualquer coisa retono aqui...
[]s
[]s
GOSTEI 0