Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 24
enecumene Va por buen camino
gracias ContraVeneno, pero me podrias decir como hacerlo?? acordad que soy un total newbie...

te envio el codigo de nuevo para que lo veas:

Cita:
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
qryCliente.Close;
qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
qryCliente.Open;
if not qryCliente.IsEmpty then
DBText1.Caption:=qryClientenombre_cliente.Value+' '+qryClienteapellidos_cliente.Value;
end;
end;

Última edición por enecumene fecha: 14-07-2006 a las 01:18:09.
Responder Con Cita
  #2  
Antiguo 14-07-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
¬¬ ( <--- nos hace falta una carita con esta expresión )
Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
 if Key=#13 then begin
  qryCliente.Close;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  qryCliente.Open;
  if not qryCliente.IsEmpty then begin
    DBText1.Caption:=qryClientee.fieldByName("nombre_cliente").AsString+' '+qryCliente.fieldByName("apellidos_cliente").AsString;
    Peliculas.SetFocus; // esto era todo lo que necesitas para cambiar a películas
  else 
    //acciones cuando no encuentras al cliente
  end; //if cliente is not empty
end; //procedure
__________________


Última edición por ContraVeneno fecha: 14-07-2006 a las 01:21:41.
Responder Con Cita
  #3  
Antiguo 14-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 24
enecumene Va por buen camino
contraveneno, el error todavia persiste, el codigo funciona para una sola vez, pues si quiero digitar otro telefono tengo que cerrar y abrir de nuevo el form, no veo donde estan los apostrofe, pues en ningun lado los tengo...

Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
  qryCliente.Close;
  qryCliente.SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  qryCliente.SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  qryCliente.Open;
  if not qryCliente.IsEmpty then begin
    DBText1.Caption:=qryCliente.fieldByName('nombre_cliente').AsString+' '+qryCliente.fieldByName('apellidos_cliente').AsString;
    Edit2.SetFocus // esto era todo lo que necesitas para cambiar a películas
    end
  else
    begin
    ShowMessage('Cliente no existe');
    end;
  end; //if cliente is not empty
end;
Responder Con Cita
  #4  
Antiguo 14-07-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
Código Delphi [-]
procedure TAlquiler.MaskEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then begin
 with qryCliente do begin  
  if active then Close; //Agregué aquí
  sql.Clear; // y aquí
  SQL.Add(' SELECT telefono1_cliente, nombre_cliente, apellidos_cliente FROM tbClientes ');
  SQL.Add('WHERE telefono1_cliente = '+quotedstr(MaskEdit1.Text) );
  Open;
  if not IsEmpty then begin
    DBText1.Caption:=fieldByName('nombre_cliente').AsString+' '+fieldByName('apellidos_cliente').AsString;
    Edit2.SetFocus // esto era todo lo que necesitas para cambiar a películas
  end else begin
    ShowMessage('Cliente no existe');
  end; //if cliente is not empty (aquí te sobraba un "end"
 end; //with 
end; //procedire
a ver ahora....

P.D. Extraño a delphi
__________________

Responder Con Cita
  #5  
Antiguo 14-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 24
enecumene Va por buen camino
EXCELENTE!!!! gracias ContraVeneno me salio superbo, te lo agradezco muchissimo que hayas tomado un poco de tu tiempo para ayudarme, muchas gracias.. y a los demas que me han contestado no se quedan atras tampoco, muchas gracias a todos!!
Responder Con Cita
  #6  
Antiguo 14-07-2006
Avatar de ContraVeneno
ContraVeneno ContraVeneno is offline
Miembro
 
Registrado: may 2005
Ubicación: Torreón, México
Posts: 4.740
Poder: 26
ContraVeneno Va por buen camino
De nada

Nada más como recomendación, siempre dale nombre a tus controles, tal vez solo tengas unos pocos y sabes perfectamente que edit2 se refiere a las películas. Pero llegará el día que tendrás tantos edits que no sabrás ni cuál es cuál. Ahí es cuando te daras cuenta que es mucho más fácil identificar entre Edit2 y edtPeliculas.
__________________

Responder Con Cita
  #7  
Antiguo 14-07-2006
Avatar de enecumene
[enecumene] enecumene is offline
Miembro de Oro
 
Registrado: may 2006
Ubicación: Santo Domingo, Rep. Dom.
Posts: 3.040
Poder: 24
enecumene Va por buen camino
gracias ContraVeneno por tu recomendacion lo llevare a cabo.
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
ayuda con una consulta ddd_ddd SQL 7 06-05-2006 23:38:18
Ayuda con una consulta plz ! K4RL0S SQL 9 17-11-2005 17:33:09
Ayuda con consulta raco Varios 4 08-04-2005 21:56:43
Ayuda con consulta!! PINO72 Firebird e Interbase 1 17-10-2004 04:54:48
Ayuda con una consulta sql marcelofabiani SQL 4 27-07-2003 23:30:13


La franja horaria es GMT +2. Ahora son las 12:47:08.


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