Informa o código mostra nome

[MadiS 0]

Olá pessoal...Gostaria de saber como se faz aquele esquema de digitar o código e no lado aparece o nome.Tipo, informa o código do cliente e na hora que muda de campo aparece o nome dele do lado.valeu!

[walace 1]

Bom, você vai digitar o codigo num edit e mostrar o nome num label ?

 

Se for isso, no evento onExit do edit você faz um Locate na tabela ou um select na query, e em seguinta seta o caption do label para o nome que foi achado ou dá uma mensagem de erro quando não encontra.

 

Mais ou menos assim:

//No OnExit do edCodigoTabela.Locate('codigo', strtoint(edCodigo.text), [loCaseInsensitive]);lbNome.Caption:=Tabela.Fieldbyname('nome').asstring;

Mas o segredo está no locate, dá uma pesquisa nisso tb, ou se estiver utilizando query é só dar um select na chave e mostrar.

[MadiS 0]

Bom, você vai digitar o codigo num edit e mostrar o nome num label ?Se for isso, no evento onExit do edit você faz um Locate na tabela ou um select na query, e em seguinta seta o caption do label para o nome que foi achado ou dá uma mensagem de erro quando não encontra.Mais ou menos assim:

//No OnExit do edCodigoTabela.Locate('codigo', strtoint(edCodigo.text), [loCaseInsensitive]);lbNome.Caption:=Tabela.Fieldbyname('nome').asstring;

Mas o segredo está no locate, dá uma pesquisa nisso tb, ou se estiver utilizando query é só dar um select na chave e mostrar.

é isso aí... mas e se quiser que isso seja uma função, pra ser usada em várias situações... ex. cliente, mostra nome - serviço, mostra descrição - UF, mostra por extenso...Tem como fazer uma função?

[Angelo Gomes 0]

Ai tu tem que passa os parametros para a função, fica mais ou meonos assim

 

function PegaDados (tabela: Ttable, campo: string, codigo: integer, camporesultado: string) : stringbegintabela.Locate(campo,codigo, [loCaseInsensitive]);result:=Tabela.Fieldbyname(camporesultado).asstring;end;

num testei,l mas deve ser algo parecido com isso...

[MadiS 0]

Vixi Maria... eu era feliz na época do Clipper e não sabia!!! :D