[Jesús Pena]

{------------------------ Creación-Modificación --------------------------------
Creación: 29/07/2005 Por: Jesús Pena Iglesias
Modificada:
------------------------------- Parámetros ------------------------------------
Entrada:
Salida:
--------------------------------Propósito---------------------------------------
* Aceptamos los datos
-------------------------------------------------------------------------------}

Código Delphi [-]
procedure TfrmUsuarios.bbAceptarClick(Sender: TObject);
begin
inherited;
if dsPrincipal.State = dsEdit then
begin
with dmUsuarios.IBSecurityService1 do
begin
FirstName := DBENombre.Text;
LastName := DBeApellido2.text;
MiddleName := DBEApellido1.Text;
UserName := dbeUsuario.Text;
Password := DBEPassword.Text;
Protocol := Local;
If RadioGroup1.ItemIndex = 1 then
begin
Protocol := TCP;
ServerName := eServidor.Text;
end;
try
Active := True;
ModifyUser;
Active := False;
except
on E: EIBInterbaseError do
raise Exception.Create('Error Modificando el Usuario de la base de datos del Sistema'+#13+'Error ');
end;
end;
dmUsuarios.EstablecerPermisos(dbeUsuario.Text);
// DataSetPost2.Execute;
end;
if dsPrincipal.State = dsInsert then
begin
with dmUsuarios.IBSecurityService1 do
begin
FirstName := DBENombre.Text;
LastName := DBeApellido2.text;
MiddleName := DBEApellido1.Text;
UserName := dbeUsuario.Text;
Password := DBEPassword.text;
Protocol := Local;
If RadioGroup1.ItemIndex = 1 then
begin
Protocol := TCP;
ServerName := eServidor.Text;
end;
try
Active := True;
AddUser;
Active := False;
except
on E: EIBInterbaseError do
raise Exception.Create('Error Creando el Usuario de la base de datos del Sistema'+#13+'Error ');
end;
end;
dmUsuarios.EstablecerPermisos(dbeUsuario.Text);
end;
DataSetPost2.Execute;
end;
{------------------------ Creación-Modificación --------------------------------
Creación: 29/07/2005 Por: Jesús Pena Iglesias
Modificada:
------------------------------- Parámetros ------------------------------------
Entrada:
Salida:
--------------------------------Propósito---------------------------------------
* Realizamos los procesos vinculados al borrado de un usuario
-------------------------------------------------------------------------------}
procedure TfrmUsuarios.tbBorrarClick(Sender: TObject);
begin
with dmUsuarios.IBSecurityService1 do
begin
FirstName := dmUsuarios.IBTUsuarios.FieldByName('Nombre').AsString;
LastName := dmUsuarios.IBTUsuarios.FieldbyName('APELLIDO2').AsString;
MiddleName := dmUsuarios.IBTUsuarios.FieldByName('APELLIDO1').AsString;
UserName := dmUsuarios.IBTUsuarios.FieldByName('USUARIO').AsString;;
Password := password;
If RadioGroup1.ItemIndex = 0 then
Protocol := Local
else
begin
Protocol := TCP;
ServerName := eServidor.Text;
end;
try
Active := True;
DeleteUser;
Active := False;
dmUsuarios.QuitarTodosPermisos(dmUsuarios.IBSecurityService1.UserName);
except
MessageBox(0, 'Error Borrando el Usuario de la base de datos del Sistema', 'Error', MB_ICONERROR or MB_OK);
end;
end;
inherited;
 
end;
 
Las rutinas EstablecerPermisos y QuitarTodosPermisos 
procedure TdmUsuarios.EstablecerPermisos(pUsuario: String);
var
i:Integer;
begin
with IBQPermisos do
begin
Sql.Clear;
sql.Add('GRANT xxxx TO ' + pUsuario); {Establecer permisos del Roll al usuario}
Prepare;
ExecSQL;
end;
with IBQDBOjects do
begin
If Active then Close;
Open;
First;
while not eof do
begin
with IBQPermisos do
begin
with Sql do
begin
Clear;
Add('GRANT ALL ON ' + IBQDBOjects.FieldByName('OBJETO').AsString + ' TO '+ pUsuario + ' WITH GRANT OPTION');
Prepare;
ExecSQL;
end;
end;
Next;
end;
If IBTUsuarios.FieldByName('VIAJES').AsInteger <> 1 then
begin
Sql.Clear;
sql.Add('REVOKE INSERT, UPDATE, DELETE ON DESTINOS FROM ' + pUsuario);
Prepare;
ExecSQL;
end;{If IBTUsuarios.FieldByName('VIAJES').AsInteger <> 1 then}
If IBTUsuarios.FieldByName('RUTAS').AsInteger <> 1 then
begin
Sql.Clear;
sql.Add('REVOKE INSERT, UPDATE, DELETE ON DESTINOS_VIAJES FROM ' + pUsuario);
Prepare;
ExecSQL;
Sql.Clear;
sql.Add('REVOKE INSERT, UPDATE, DELETE ON DESTINOS_VIAJES_PROGRAM FROM ' + pUsuario);
Prepare;
ExecSQL;
end; {If IBTUsuarios.FieldByName('RUTAS').AsInteger <> 1 then}
If iBTUsuarios.FieldByName('ZONAS').AsInteger <> 1 then
begin
Sql.Clear;
sql.Add('REVOKE INSERT, UPDATE, DELETE ON ZONAS FROM ' + pUsuario);
Prepare;
ExecSQL;
end;{If iBTUsuarios.FieldByName('ZONAS').AsInteger <> 1 then}
end;
end;
procedure TdmUsuarios.QuitarTodosPermisos(pUsuario: String);
begin
with IBQDBOjects do
begin
If Active then Close;
Open;
First;
while not eof do
begin
with IBQPermisos do
begin
with Sql do
begin
Clear;
Add('REVOKE ALL ON ' + IBQDBOjects.FieldByName('OBJETO').AsString + ' FROM '+ pUsuario + ' WITH GRANT OPTION');
Prepare;
ExecSQL;
end;
end;
Next;
end;
with IBQPermisos do
begin
Sql.Clear;
sql.Add('REVOKE xxxx FROM ' + pUsuario);{Eliminar los permisos del Roll al usuario}
Prepare;
ExecSQL;
end;
end;
end;