Lettar
07-08-2020, 11:29:18
hola, necesito hacer una validacion simple de usuario y contraseña y para eso cree una funcion en el datamodule y ocupe un query para revisar si existia un usuario con ese nombre y contraseña
function TDataModule3.VerificarInicioSesion(Usuario, contraseña: string):boolean;
Var
Vusuario,Vpassword:string;
begin
//Verificacion de usuario
Vusuario:=#39+usuario+#39;
Vpassword:=#39+contraseña+#39;
Qingreso.close;
Qingreso.SQL.Clear;
with Qingreso do
begin
SQL.add('select usuario,contraseña');
SQL.add('from usuario');
SQL.add('where usuario = :usuario');
SQL.add('and contraseña = :contraseña');
prepare;
parambyname('usuario').AsString:= VUsuario;
parambyname('contraseña').AsString:= Vpassword;
open;
end;
result :=Qingreso.IsEmpty;
end;
y luego la llame de la unidad1 verificando si los edits no estaban vacios
//Confirmar que estén los campos llenos
if (Eusuarioingr.text <>'') and (contraseñaedit.Text <> '') then
begin
//revisar si existe el usuario
if unit3.DataModule3.VerificarInicioSesion(Eusuarioingr.Text,contraseñaedit.Text) then
begin
LIS.Visible:=false;
end;
end;
pero al ejecutarlo me sale 'access violation at address 00d84af5 in module proyect1.exe ' el error ocurre cuando llamo a la función, ni siquiera entra a ejecutarla alguien me dice como puedo solucionarlo o ideas sobre lo que estoy haciendo mal?
function TDataModule3.VerificarInicioSesion(Usuario, contraseña: string):boolean;
Var
Vusuario,Vpassword:string;
begin
//Verificacion de usuario
Vusuario:=#39+usuario+#39;
Vpassword:=#39+contraseña+#39;
Qingreso.close;
Qingreso.SQL.Clear;
with Qingreso do
begin
SQL.add('select usuario,contraseña');
SQL.add('from usuario');
SQL.add('where usuario = :usuario');
SQL.add('and contraseña = :contraseña');
prepare;
parambyname('usuario').AsString:= VUsuario;
parambyname('contraseña').AsString:= Vpassword;
open;
end;
result :=Qingreso.IsEmpty;
end;
y luego la llame de la unidad1 verificando si los edits no estaban vacios
//Confirmar que estén los campos llenos
if (Eusuarioingr.text <>'') and (contraseñaedit.Text <> '') then
begin
//revisar si existe el usuario
if unit3.DataModule3.VerificarInicioSesion(Eusuarioingr.Text,contraseñaedit.Text) then
begin
LIS.Visible:=false;
end;
end;
pero al ejecutarlo me sale 'access violation at address 00d84af5 in module proyect1.exe ' el error ocurre cuando llamo a la función, ni siquiera entra a ejecutarla alguien me dice como puedo solucionarlo o ideas sobre lo que estoy haciendo mal?