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..... |
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
|
La franja horaria es GMT +2. Ahora son las 01:32:27. |
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