Como organizar un cliente con varios contactos

[Casimiro Noteví]

Depende de lo que vayas a hacer exactamente, pero si un cliente puede tener varios contactos y un contacto puede pertenecer a varios clientes, entonces creo que tendrás que usar una tabla intermedia que haga de unión entre ambos, como especifiqué antes.

Código SQL [-]
tbClientes
  id
  nombre
  telefono
  primary key (id)

tbContactos
  id
  nombre
  telefono
  primary key (id)

tbEnlaces
  idCliente
  idContacto
  primary key (idCliente,idContacto)

[Delphitest]

Solo necesitaría que un cliente pueda tener varios contactos pero los contactos serían únicos para el clientes, es decir bastaría saber de la ficha del contacto con qué cliente está relacionado, pero no tendría más de uno.

[Casimiro Noteví]

Si un contacto solamente va a tener un enlace con un cliente entonces puedes añadir únicamente un campo en el contacto donde almacenas el código del cliente al que está enlazado.
Ejemplo:

tbClientes
  id
  nombre
  telefono
  primary key (id)

tbContactos
  id
  idCliente    /* (id en tbClientes) */
  nombre
  telefono
  primary key (id,idCliente)

Aunque de esa forma, si alguna vez te dicen: "oye, que el contacto 111 es padre del cliente 33 y cónyuge del cliente 42, ¿ahora qué haces?

Mejor la primera forma, tabla intermedia.

[Delphitest]

Perfecto, ya me he puesto manos a la obra.

En mi caso un contacto nunca podrá ser de varios clientes asi que esto simplifica la tarea...

Ya hice la tabla de Contactos con el campo IdCliente

Lo que hago al añadir un Contacto desde la Ficha del Cliente es que automaticamente el IdCliente del contacto sea el valor de IdCliente de la tabla Cliente, lo hago incluyendo esta línea en el evento onclick del botón añadir:

Código Delphi [-]
  TContactos.FieldByName('IdCliente').Value := DMmain.TClientes.FieldByName('IdCliente').value;

La tabla contactos está en el Form actual pero la de clientes está en un Data Module.

Hasta ahí creo que lo hago bien porque he probado y todo es correcto.

En la finca de cliente he puesto un DBGrid donde pretendo que aparezcan todos los contactos relacionados con este cliente.

Lo hago a través de una Query pero no sé qué debo poner el la sentencia SQL, ando un poco perdido con estas cosas.

Si le pongo esto:

Código SQL [-]
Select * From Contactos

Vería todos los contacto, pero para ver únicamente los contactos cuyo IdCliente sea el mismo que el IdCLiente de la tabla Clientes no se que tengo que poner.

Se hace con un where creo que al tener dos tablas no se como indicar que un campo sea igual al de otra tabla

He probado con

Código SQL [-]
Select * From Contactos where IdCliente = DMMain.TClientes.IdCliente

Pero no funciona, debo de andar cerca....

También he visto una opción para poner un filtro en la query aunque no se si es ahí donde hay que ponerlo o en la SQL

[ecfisa]

Hola Delphitest.

La consulta sería similar a esta:

Código SQL [-]
SELECT CO.NOMBRE,  CO.TELEFONO, ...
FROM CONTACTOS CO
INNER JOIN CLIENTES CL ON CO.ID_CLIENTE = CL.ID 
  AND CL.ID = :P_ID
ORDER BY CO.NOMBRE

Pero desconozco los campos que deseas obtener y los componentes que estas usando como para darte una respuesta mas concreta.

Saludos

[ecfisa]

Hola de nuevo.

Otra forma mas simple, pero una pizca menos eficiente es:

Código SQL [-]
SELECT NOMBRE, TELEFONO, ...
FROM CONTACTOS
WHERE ID_CLIENTE = :P_ID
ORDER BY NOMBRE

Saludos

[Delphitest]

En cuanto a los campos de la tabla contactos solo necesito Nombre, DNI y Telefono

El componente que uso es ADO

La duda que tengo es cómo indicar la tabla clientes en la SQL ya que no está en el Form donde tengo la consulta de Contactos, está en Data Module que llamo DMMain