Formatação
Bom dia a todos, eu estou com uma duvida. Tem como formatar um campo de uma query sem ter que adicionar o seu field.
Exemplo vou fazer uma consulta de clientes e gostaria que o campo codigo do cliente estivesse formatado (0000), mas não gostaria de adicionar este field na tabela.
Desde já muito obrigado
Luciano Ramos
Exemplo vou fazer uma consulta de clientes e gostaria que o campo codigo do cliente estivesse formatado (0000), mas não gostaria de adicionar este field na tabela.
Desde já muito obrigado
Luciano Ramos
Luciano.sul
Curtidas 0
Respostas
Joaoshi
22/03/2006
Após abrir sua query, vc percorre todos os campos e uma das coisas que poderão ser feitas e informar o DisplayFormat
Exemplo:
for nContador := 0 to query.FieldCount - 1 do
begin
if query.Fields[nContador].DataType = ftFloat then
(query.Fields[nContador]as tFloatfield).displayformat := ´#,.00´;
if query.Fields[nContador].FieldName = ´Descri´ then
query.Fields[nContador].DisplayLabel := ´Descrição´;
if query.Fields[nContador].FieldName = ´NaoMostrar´ then
query.Fields[nContador].Visible := false;
end;
Espero ter ajudado.
Exemplo:
for nContador := 0 to query.FieldCount - 1 do
begin
if query.Fields[nContador].DataType = ftFloat then
(query.Fields[nContador]as tFloatfield).displayformat := ´#,.00´;
if query.Fields[nContador].FieldName = ´Descri´ then
query.Fields[nContador].DisplayLabel := ´Descrição´;
if query.Fields[nContador].FieldName = ´NaoMostrar´ then
query.Fields[nContador].Visible := false;
end;
Espero ter ajudado.
GOSTEI 0
Thiago Vidal
22/03/2006
você também poderia tentar, no evento AfterOpen:
procedure TForm1.Query1AfterOpen(DataSet: TDataSet); begin with DataSet do begin (FieldByName(´Codigo´) as TNumericField).DisplayFormat := ´00000´; FieldByName(´...´).xxxx..... end; end;
GOSTEI 0
Luciano.sul
22/03/2006
Pessoal muito obrigado pelas dicas eu vou testar e digo pra vcs mais tarde. Valeu mesmo... :D
GOSTEI 0
Luciano.sul
22/03/2006
Certinho pessoal, funcionou.
Muito obrigado pelas dicas... :D
Muito obrigado pelas dicas... :D
GOSTEI 0