Cita:
Empezado por Caral
Hola
Que es Status?
Saludos
|
Sorry ... este es el procedimiento completo ...
procedure TTLoginFrm.Connect(User : String; Status : String);
begin
// Update de conexion para el usuario
Try
With Modulo.Query1 Do
begin
SQL.Clear;
SQL.add('Update Permisos ' +
'Set Connectado = ' + Status + ' ' +
'where UserID = :User ');
Parameters.ParamByName('User').Value := UserName.Text;
ExecSQL;
Close;
end;
except
On EOleException do
end
end;