Formatação
22/03/2006
0
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
Posts
22/03/2006
Joaoshi
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.
22/03/2006
Thiago Vidal
procedure TForm1.Query1AfterOpen(DataSet: TDataSet); begin with DataSet do begin (FieldByName(´Codigo´) as TNumericField).DisplayFormat := ´00000´; FieldByName(´...´).xxxx..... end; end;
22/03/2006
Luciano.sul
23/03/2006
Luciano.sul
Muito obrigado pelas dicas... :D
Clique aqui para fazer login e interagir na Comunidade :)