Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 27-05-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 20
el_barto Va por buen camino
Smile Solicitud de user y password en delphi

Tengo 5 usuarios creados en mi base de datos en interbase y quiero que cuando ejecute mi programa en delphi les pida usuario y contraseña pero este cuadro donde pide usuario y contraseña este personalizado por mi agregandole una imagen o un texto, no quiero que sea el mismo recuadro que tiene por defecto delphi, como se hace esto
Responder Con Cita
  #2  
Antiguo 27-05-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
Crea una nueva ventana usa 2 botones BitBtn, al de aceptar le pones ModalREsult := mrOk y al de cancelar MrCancel

esa ventana llamala así
Código Delphi [-]
if Ventana.ShowModal = mrOK then 
  Se supone que es el usuario correcto
else
  Application.Terminate.

Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
  #3  
Antiguo 27-05-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 20
el_barto Va por buen camino
perdona la ignorancia y como se crea la ventana???, por que la que te hablo en el primer hilo aparece por default
Responder Con Cita
  #4  
Antiguo 27-05-2005
Avatar de el_barto
el_barto el_barto is offline
Miembro
 
Registrado: may 2005
Ubicación: Bogota Colombia
Posts: 533
Poder: 20
el_barto Va por buen camino
La ventana se crea como un messagebox o que???
Responder Con Cita
  #5  
Antiguo 28-05-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Poder: 29
Lepe Va por buen camino
1.- En delphi, Project --> Options, deja la ventana en cuestion en el apartado de Available Forms

Para crear la ventana, hay varias opciones, una de ellas es esta:
Código Delphi [-]
 with Tform1.Create(nil) do
  try
   if ShowModal = mrOk then
     begin
      // lo que quieras
    end;
  finally 
    Free;
  end
end;

Otra forma sería:
Código Delphi [-]
 Form1 := Tform1.Create(nil);
  try
   if ShowModal = mrOk then
     begin
      // lo que quieras
    end;
  finally 
    freeandnil(Form1);
  end
end;

Si quieres ocultar la ventana que te sale al principio, creo que es esto:
Cita:
Empezado por jachguate en otro hilo
Podes hacer un dialogo a tu gusto para pedir usuario y pass... pone la propiedad LoginPronpt de tu conexión a la base de datos a false y le pasas directamente los valores introducidos por el usuario en tu formulario.
Un saludo
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita
Respuesta



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 19:44:20.


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