hola tengo un problema, aca les dejo una porcion de codigo
Código Delphi
[-]
with dm.query1.do begin
Active := False;
sql.Add('select * from cuentasusuarios where nombre = nombre and contrasena=contrasena');
ParamByName('pnombre').Value := editusuario.Text;
ParamByname('pcontrasena').Value:=editcontrasena.Text;
Active := true;
if (recordcount > 0)
then
begin
showmessage('Usuario y contrasena valido');
editusuario.Clear;
editcontrasena.Clear;
editusuario.SetFocus;
end else begin
showmessage('invalidos');
editusuario.Clear;
editcontrasena.Clear;
editusuario.SetFocus;
end;
end;
dm.usuarios.Close;
dm.usuarios.Open;
es para hacer un login, al principo cunado me logueo me muestra el mensaje pero cuando quiero hacer un segundo login me da error la aplicacion. me podrian decir donde ta el error???