Salvar em uma tabela o código de outra

Delphi

24/06/2008

Tenho duas tabelas, uma com cadastro de pacientes e outra com cadastro de consulta:
Tabela paciente
pacCodigo Integer
descricao varchar(60)
Tabela consulta
paccodigo integer;

como faço para pegar, da tabela paciente a descrição de todos os pacientes e coloco em um campo do qual eu possa escolher dentre todos um, salvo na tabela consulta o seu código?


Emir Neto

Emir Neto

Curtidas 0

Respostas

Brunodsr

Brunodsr

24/06/2008

Nao entendi...

Pode explicar novamente? :)

Um abraco


GOSTEI 0
Emir Neto

Emir Neto

24/06/2008

Tenho as tabelas com seus respectivo campos

cadastro
cadcodigo integer nutnull (pk)
descricao varchar(60)


atendimento
atecodigo integer notnull (pk)
cadcodigo integer notnull (fk)
...


Preciso que na tela de atendimento, seja apresentada a descrição da tabela cadastro, mas seja salvo o cadcodigo na tabela de atendimento. Minha dúvida é qual componente posso utilizar para apresentar a descrição e salvar o código. Estou utilizando a palheta IBX para acessar o Firebird 2.1.


GOSTEI 0
Brunodsr

Brunodsr

24/06/2008

Acho que vc precisa apenas de um lookup. Ele faz justamente isso, exibe um campo qualquer de um dataset, mas grava o campo que vc escolher para ligar o dataset principal com o dataset lookup.

No seu caso, o componente seria o dblookupcombobox.

Caso sinta duvidas, me da um toque que eu coloco um passo a passo.

Um abraco


GOSTEI 0
Emir Neto

Emir Neto

24/06/2008

Minha dúvida agora é...
Como fazer a ligação e como apresentar um nímero x de registros por vês, ex. quero mostrar 15 registros de informação no dblookup logo quando abrir, para que não apareça apenas 1 como o padrão


GOSTEI 0
Brunodsr

Brunodsr

24/06/2008

Passo a passo p/ usar um campo lookup.

1. Adicionar dois datasets na tela;
2. Ligar o primeiro dataset a tabela que vc deseja (atendimento) e o segundo a tabela que sevirá de lookup;
3. Abrir o fields editor (duplo click no dataset);
4. Adicionar todos os campos;
5. Ainda no fields editor, clique com o botao direito e selecione a opcao novo;
6. O novo campo devera ser do tipo lookup;
7. Informe qual o campo de ligacao entre os datasets;
8. Informe o campo a ser exibido pelo dataset lookup;
9. Confirme a operacao;
10. Selecione o novo campo criado no fields editor e arraste para a tela.

Pronto.. o seu campo esta criado.

Quanto a limitar o numero de registros a serem exibidos, isso ai ele ja faz. Mas caso queira mudar um ou outro comportamento, da uma fucada nas propriedades do componente.

Caso precise de um exemplo, me da um toque, dai eu vejo como a gente faz..

um abraco


GOSTEI 0
Emir Neto

Emir Neto

24/06/2008

Se possível poderias me mandar um exemplo? São 2 IBQuery


GOSTEI 0
POSTAR