Ver Mensaje Individual
  #4  
Antiguo 03-12-2012
DOS DOS is offline
Miembro
NULL
 
Registrado: jul 2011
Posts: 173
Reputación: 15
DOS Va por buen camino
Antes de dar por cerrado el tema y abusando de sus conocimientos de mi parte, he decidico complicarlo poniendo 4 tablas
Mascotas
Cod_mascota*
Cod_prop
nombre
raza
fecha_nac

Propietario
Cod_prop*
Nombre
Apellido
Direccion
Localidad

Peluquero
Cod_peluquero
Nombre
Apellido
Direccion

Turnos de peluqueria
Cod_turno
Cod_masc
Cod_prop
Cod_pelu
Fecha

El DBGrid tien los sig. campos
Fecha
Hora
Cliente //campo creado mediante la union con propietario
Mascota //campo creado mediante la union con mascota
Peluquero //campo creado mediante la union con peluquero

y el codigo del boton es el siguiente
Código Delphi [-]
procedure TForm16.Button8Click(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text:= 'SELECT * FROM turnopelu.DB ';
  Query1.SQL.Add('INNER JOIN peluquero.DB ON Cod_pelu = Cod_peluquero');
  Query1.SQL.Add('INNER JOIN propietario.DB ON Cod_cli = Cod_prop');
  Query1.SQL.Add('INNER JOIN mascota.DB ON Cod_masc = Cod_mascota');
  //Query1.SQL.Add('GROUP BY turnopelu.DB');

if combobox1.Text = 'Fecha' then
begin    
  Query1.SQL.ADD(' ORDER BY Fecha ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Peluquero' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_pelu ASC');
  Query1.Active:=true;
end
else

if combobox1.Text = 'Mascota' then
  begin    
  Query1.SQL.ADD(' ORDER BY Cod_masc ASC');
  Query1.Active:=true;
end;
end;
El problema es que no me muestra los datos de los campos agregados solo la fecha.
Responder Con Cita