Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 13-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Como organizar un cliente con varios contactos

Buenas tardes,

estoy haciendo un programa de gestión de prestamos y me surge una duda a la hora de organizar las tablas.

El caso es que tengo una tabla de clientes donde quiero reflejar los datos básicos pero necesito poder indicar una serie de "contactos" que están relacionados con el.

Por ejemplo al dar de alta un cliente a veces es necesario indicar el nombre de su cónyuge, de sus hermanos, hijos... Para estos contactos no querría tener que crear otra tabla sino más bien usar la misma de clientes pero que de alguna forma se sepa que están relacionados entre ellos. No sería válido poner campos auxiliares ya que es un número no determinado de personas, en algunos casos hay uno y otros puede haber 4 o 5.

Así al entrar en un cliente vería quienes más están vinculados a él y podría acceder a sus datos.

No se si me he explicado bien.

¿Alguien podría decirme cómo puedo plantear esto para tener una idea de cómo se suele hacer?

Ando un poco perdido y dándole vueltas pero quizás sea algo habitual.

Muchas Gracias
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #2  
Antiguo 13-11-2014
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Poder: 17
radenf Va por buen camino
Estimado Delphitest:

En mi experiencia lo mejor es crear otra tabla (Contactos) y unirlas a través de un campo común en una relación maestro-detalle.
Saludos
Responder Con Cita
  #3  
Antiguo 13-11-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Puedes tener un dato "tipo de usuario"
0. cliente
1. proveedor
2. cónyuge
3. hijo
4. amigo
5. vecino
...

Y para más funcionalidad, una tabla para definirlos y así poder ampliarlos, editarlos, etc.
Responder Con Cita
  #4  
Antiguo 13-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Muchas gracias por vuestras opiniones,

en este ultimo caso Casimiro, es algo que había pensado

Por ejemplo pongo "Tipo de Cliente" ;

Cliente Principal
Hermano
Padre
Hijo
....

¿Pero como lo vinculo al cliente principal? ¿Creo otro campo tipo "Relacionado con.."? ¿O como podría hacerlo?

Es decir, hay un cliente principal y luego puede estar el padre, el hermano... pero sería necesario saber que están relacionados.

Lo de crear otra tabla de contactos sería otra opción, por eso ando preguntando, no lo tengo muy claro cual sería la mejor forma.
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #5  
Antiguo 13-11-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Necesitas otra tabla.
Código:
cliente.....otra cosa
1------------34
1------------14
1------------3
2------------48
2------------1
3------------15
3------------5
3------------4
Aunque yo haría lo que ha comentado radenf, otra tabla de "contactos", que podrían ser enlazadas con la principal de clientes, de 1 a muchos.
Responder Con Cita
  #6  
Antiguo 14-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Voy a probar con lo que comentáis de crear otra tabla de contactos.

No se exactamente como funcionan las relaciones pero por lógica entiendo que debo de tener un campo común en las dos tablas que me permita relacionarlas.

Tengo la tabla "clientes" con estos campos:

IDCliente
Nombre
Apellidos
....

Y debo crear la tabla "contactos" con estos:

IDContacto
Nombre
Apellidos
...

Supongo que esta última tengo que poner un campo IDCliente para que en caso de que haya varios contactos de un mismo cliente se sepa con quien están relacionados.

Para relacionarlas ¿Basta con tener un campo común y crear una query a la hora de mostrarlos? Por ejemplo diciéndole que solo se vean los contactos que tengan el IDCLiente (de contactos) igual al IDCLiente (de Clientes)

¿O es necesario crear esa relación de forma especifica con alguna sentencia SQL?
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #7  
Antiguo 14-11-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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)
Responder Con Cita
  #8  
Antiguo 15-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
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.
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #9  
Antiguo 15-11-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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:
Código:
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.
Responder Con Cita
  #10  
Antiguo 16-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
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
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #11  
Antiguo 16-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #12  
Antiguo 16-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #13  
Antiguo 16-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
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
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #14  
Antiguo 16-11-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Delphitest.

Código Delphi [-]
  with DMMain.ADOQuery1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT CO.NOMBRE, CO.DNI, CO.TELEFONO');
    SQL.Add('FROM CONTACTOS CO INNER JOIN CLIENTES CL');
    SQL.Add('ON CO.ID_CLIENTE = CL.ID AND CL.ID = :P_ID');
    SQL.Add('ORDER BY CO.NOMBRE');
    Parameters.ParamByName('P_ID').Value:= tu_variable; //(*)
    Open;
  end;
(*) Donde "tu_variable" es cualquier variable (o constante) de tipo Integer que contenga el ID del cliente cuyos contactos se desea listar.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #15  
Antiguo 18-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Buenos días,

gracias por vuestra ayuda, siento no haber contestado pero no acabo de conseguir hacerlo funcionar.

Qué duro es esto de la programación por momentos... , me está dando la noche este problema

El caso es que no se donde meter ese código que me comenta ecfisa y estoy intentando hacer una sola línea de sql para ponerla en las propiedades de la query TContactos pero sigo fallando en la parte que indica el campo IDCliente de la tabla TClientes y que no está en el mismo form, no se si me falta algo por probar pero he hecho todo tipo de combinaciones.

Quizás la solución sea crear una variable en el Form que recoja el contenido de IDCLiente de la tabla TClientes y después hacer referencia a esa variable dentro de la sentencia SQL, pero mis pruebas tampoco han sido exitosas.

No pierdo la esperanza, sigo haciendo pruebas...
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #16  
Antiguo 18-11-2014
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Delphitest Ver Mensaje
El caso es que no se donde meter ese código que me comenta ecfisa
Por ejemplo, al pulsar un botón.
Responder Con Cita
  #17  
Antiguo 18-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Es que me estoy liando con esto...

Pensaba que la forma de hacerlo era poner en las propiedades SQL de la query lo necesario para que actuara de filtro y mostrase los datos que necesito.

Voy a hacer mas pruebas poniendo en ese sitio "select * from contactos" porque requiere que ponga algo por lo que he comprobado y el código que proporciona ecfisa en algún botón aunque sea para ver si da el resultado esperado.

Muchas gracias, os mantengo informados

Que paséis un buen día.
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
  #18  
Antiguo 18-11-2014
Delphitest Delphitest is offline
Miembro
 
Registrado: sep 2006
Ubicación: Salamanca-España
Posts: 249
Poder: 18
Delphitest Va por buen camino
Solucionado con el código de ecfisa y una ayudita de un forero

He metido el código en el evento OnChange de las pestañas donde aparece el DBGrid con los datos de los contactos

Gracias por todo
__________________
Mi proyecto paso a paso (Parte I)
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Compartir Contactos en Outlook ChristianS Windows 4 15-12-2011 01:57:18
Importar contactos Outlook Manuel1790 Windows 2 21-09-2007 18:15:08
actualizar aplicacion cliente en varios puesto VRO Providers 0 25-10-2005 19:00:49
Exportar Contactos. messenger y ot JXJ Varios 0 02-05-2005 03:25:11
Imprimir Contactos en Outlook ChristianS Windows 0 02-09-2003 23:00:48


La franja horaria es GMT +2. Ahora son las 22:48:28.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi