Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
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
  #6  
Antiguo 20-09-2003
__cadetill __cadetill is offline
Miembro
 
Registrado: may 2003
Posts: 3.387
Poder: 27
__cadetill Va por buen camino
Bueno, lo del uso del DataModule es opcional, aunque recomendable su uso y que te acostumbres a ellos aunque sean aplicaciones pequeñas y sencillas

Para Paradox sería la forma que yo utilizo para Interbase/Firebird y sería algo así

Supongamos que el Dataset de usuarios y contraseñas se llama "TUsuarios" (Tabla Usuarios) y los TEdits "User" y "Pass". Podemos poner algo así en el botón OK

Código:
procedure TLoggin.OKClick(Sender: TObject);
begin
  if not TUsuarios.Active then
    TUsuarios.Open;

  if TUsuarios.Locate('Usuario', User.Text, []) then
  begin
    if TUsuarios.FieldByName('Password').AsString = Pass.Text then
      ShowMessage('User/Pass correctos')
    else
      ShowMessage('Pass incorrecto');
  end
  else
    ShowMessage('User innexistente');
end;
Espero te sirva
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


La franja horaria es GMT +2. Ahora son las 06:23:35.


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