FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
como crear una ventana de login
necesito crear una ventana de login conectada con una base de dato de acceses, mediante un adoquery y datasourse y un adoconecction, estoy utilizando el siguiente codigo para la consulta pero no me hace la busqueda
procedure TPassword.BitBtn2Click(Sender: TObject); begin edit1.SetFocus; // saber si existen Datos. if (edit2.text<>'') and (edit1.text<>'') then begin // comprovar si existen en la BD. if (Edit1.text=adoquery1.FieldByName('nick').AsString) and (edit2.text=adoquery1.FieldByName('contraseña').AsString) then begin password.Free; sistemaprincipal.ShowModal; end else begin messageBox(handle,'Clave Incorrecta','!!!ERROR........!!!!',MB_ICONERROR+mb_OK); edit1.Clear; edit2.Clear; edit1.SetFocus; end; end else messageBox(handle,'Usuário Incorrecto ','ERROR......!!!!',MB_ICONERROR+mb_OK); end; por fabor ayundeme..... |
#2
|
||||
|
||||
Por favor, pon el código entre
[ delphi ] ... [ /delphi ]
supongo que te falta ir avanzando por la tabla mientras comparas los campos de edit1 y edit2 contra los campos nick y contraseña
Última edición por duilioisola fecha: 27-08-2008 a las 09:57:32. |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Consulta sobre ventana login y menus | Choclito | OOP | 6 | 02-09-2008 23:30:23 |
Como Crear Login | Stravinsky | Varios | 1 | 15-08-2007 19:54:13 |
cómo crear ventana de inicio como la de word o delphi? | jpcancino | Varios | 2 | 14-03-2007 02:56:02 |
Ayuda Con Ventana Para Login!!! | jugomez | MS SQL Server | 5 | 23-10-2006 17:22:29 |
mostrar ventana de login para acceder al servidor | feusebi | API de Windows | 0 | 13-01-2006 15:24:09 |
|