Club Delphi  
    Paypal   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

Coloboración Paypal con ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #4  
Antiguo 22-03-2010
Avatar de Caral
[Caral] Caral is offline
Miembro Premium
 
Registrado: ago 2006
Posts: 7.659
Poder: 27
Caral Va por buen camino
Hola
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.sql.text:= 'Select Clave,nombre,domicilio from Usuarios where Clave =:Cla';
Query1.Parameters[0].Value:= Edit1.Text;
Query1.Open;
If Query1.FilebyName('Clave').AsString = Edit1.Text then
Begin
Edit2.text:= Query1.filebyname('nombre').AsString;
Edit3.text:= Query1.filebyname('domicilio').AsString;
end
else
MessageDlg('Clave Inválida',mtError, [mbOK], 0);
Edit1.Text := '';
Edit1.SetFocus;
Query1.Active := False;
end;
Saludos
__________________
Siempre Novato
Responder Con Cita
 


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
buscar registros iguales en una tabla didier MS SQL Server 1 23-09-2005 09:08:20
Buscar registros de forma rapida Tecnic2 Conexión con bases de datos 2 29-09-2004 18:11:56
buscar registros brandolin Conexión con bases de datos 3 21-01-2004 16:05:26
buscar registros brandolin Firebird e Interbase 1 19-01-2004 20:59:11


La franja horaria es GMT +2. Ahora son las 09:14:23.


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