Relacionamento

24/07/2008

1

Bom Dia

Pessoal,

Estou usando delphi 7, banco de dados FireBird 2.0,

Criei 2 tabelas ´CLIENTE / ATENDIMENTO´

TB_CLIENTE
COD_CLIENTE
RAZAO-SOCIAL
ENDERECO
FONE
etc . . .


TB_ATENDIMENTO
COD_ATENDIMENTO
COD_CLIENTE
DATA
HORA
etc . . .

Como eu faço, para quando eu digitar o código do cliente na tabela de atendimento, preencher alguns campos automaticamente, tipo . . .

FONE - ENDEREÇO - RAZAO SOCIAL

alguém pode me ajudar ?


Desde já agradeço pela atenção de todos


Responder

Posts

24/07/2008

Aroldo Zanela

Colega,

Você pode utilizar um controle do tipo dbLookupCombo para buscar os dados e no OnChange você pode exibir as informações:

SET SQL DIALECT 3;

SET NAMES ISO8859_1;


CREATE TABLE TB_CLIENTE (
    CLIE_ID        INTEGER NOT NULL,
    CLIE_RAZAO     VARCHAR(50) NOT NULL,
    CLIE_ENDERECO  VARCHAR(50) NOT NULL,
    CLIE_FONE      VARCHAR(10)
);

CREATE TABLE TB_ATENDIMENTO (
    ATEN_ID    INTEGER NOT NULL,
    CLIE_ID    INTEGER,
    ATEN_DATA  DATE NOT NULL,
    ATEN_HORA  TIME NOT NULL
);

ALTER TABLE 
      TB_ATENDIMENTO 
ADD CONSTRAINT 
      PK_TB_ATENDIMENTO 
PRIMARY KEY 
      (ATEN_ID);
      
ALTER TABLE
      TB_CLIENTE 
ADD CONSTRAINT 
      PK_TB_CLIENTE 
PRIMARY KEY 
      (CLIE_ID);      

ALTER TABLE
      TB_ATENDIMENTO
ADD CONSTRAINT
      FK_TB_ATEND_ATENDIMEN_TB_CLIEN
FOREIGN KEY 
      (CLIE_ID) 
REFERENCES 
      TB_CLIENTE (CLIE_ID);

CREATE GENERATOR 
      GEN_TB_CLIENTE_ID;
SET GENERATOR 
      GEN_TB_CLIENTE_ID TO 0;
      
CREATE GENERATOR 
      GEN_TB_ATENDIMENTO_ID;
SET GENERATOR 
      GEN_TB_ATENDIMENTO_ID TO 0;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira