REVELAR

Fórum AfterScroll Para Exibir dados #326809

03/08/2006

0

Olá pessoal, tudo bem? Espero que sim.

Uso alguns comandos no evento OnAfterScroll do ClientDataSet pra exibir alguns dados ´identados´.

Por exemplo: Mês e Ano de Publicação. São dois campos, um salva o mês numérico (01 = Janeiro e etc) e outro o ano, tb numérico. Aí uso um código pra exibir, por exemplo, ´Janeiro/2006´. Uso assim:


if DmDados.ClientEdicoesNacionaisMES_EDICAO_NACIONAL.AsString = ´01´ then
begin
FrmVerEdicoesNacionais.LbTxtLancamento.Caption := ´Janeiro´
+ ´/´ + ClientEdicoesNacionais.FieldByName(´ANO_EDICAO_NACIONAL´).AsString;



Ou uso por exemplo pra exibir uma Avaliação, que salvo também em código, usando assim:


      case DmDados.ClientEdicoesNacionaisAVALIACAO_EDICAO_NACIONAL.AsInteger of
        0: FrmVerEdicoesNacionais.LbTxtAvaliacao.Caption := ´´; //Tipo de Avaliacao em Branco
        1: FrmVerEdicoesNacionais.LbTxtAvaliacao.Caption := ´Excelente´;



Isso funciona, pq eu uso dados que eu mesmo digito. Tipo os textos ´Janeiro´. ´Fevereiro´, ou ´Excelente´, ´Muito Bom´, são textos pré-determinados, vai ser aquilo e não vai ter mais.

Aí vem minha dúvida:

Outro campo que quero fazer isso é o campo de Formatos. Só que eu tenho uma tabela de Formatos e salvo no banco só o código dele. Então não tenho como ´determinar´ um texto pra ser inserido.

Na tabela de Formatos eu tenho ´Nome´, ´Largura´ e ´Altura´. E na exibição eu gostaria de exibir assim:

Nome (Largura x Altura).

E cada vez que mudar, ele modificar de acordo com o que tá salvo na TbFormatos. Só que desse jeito que fiz no exemplo acima não funciona. Alguém teria alguma idéia?

Grato pela ajuda. :D


Aersoftware

Aersoftware

Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar