Buen día. Termino la cuestión...
Código Delphi
[-]
procedure TfrmABMAgentes.btnElimUsuarioClick(Sender: TObject);
var
MiUsuario:string;
begin
with DataModule1 do
begin
if tblUsuarios.RecNo > 0 then
begin
MiUsuario:=tblUsuarios.FieldByName('UserName').AsString;
if idYes = Application.MessageBox(PWideChar('¿Confirma eliminación de Usuario?'
+ #13#10 + 'Esta operación NO PODRÁ DESHACERSE.'
+ #13#10 + 'Usuario: ' + MiUsuario), 'Gestión de usuarios,',
MB_YESNO + MB_ICONQUESTION + MB_DEFBUTTON2) then
begin
terminarTransaccion;
transaccion.StartTransaction;
try
CambiarEstadoVendedor(MiUsuario, 'INACTIVO', qUsuarios);
security_services.AUserName:=MiUsuario;
security_services.DeleteUser;
transaccion.Commit;
Application.MessageBox('Eliminación de usuario terminada.',
PWideChar(self.Caption), MB_OK + MB_ICONINFORMATION);
tblUsuarios.Refresh;
except
on e:Exception do
begin
terminarTransaccion;
mErrores(e, 'Imposible eliminar usuario seleccionado.', self.Caption);
end;
end;
end; end
else
begin
Application.MessageBox('Debe seleccionar un Usuario,',
PWideChar(self.Caption), MB_OK + MB_ICONERROR);
end;
end; end;
procedure TfrmABMAgentes.btnNuevoUsuarioClick(Sender: TObject);
begin
ventana_modal(TfrmNuevoUsuario);
end;
procedure TfrmABMAgentes.btnBuscarUsuariosClick(Sender: TObject);
var
nombre,
grupo: string;
begin
nombre:=AnsiupperCase(trim(txtUsuario.Text));
with tblUsuarios, DataModule1 do
begin
Filtered := False;
Filter := 'UserName <> ' + QuotedStr('SYSDBA')
+ 'AND UserName LIKE ' + QuotedStr('%' + nombre + '%');
Filtered := True;
terminarTransaccion;
transaccion.StartTransaction;
try
security_services.DisplayUsers;
tblUsuarios.AttachTable(security_services.Users, nil);
tblUsuarios.Open;
grdUsuarios.Columns[1].Visible:=False; grdUsuarios.Columns[5].Visible:=False; grdUsuarios.Columns[6].Visible:=False; grdUsuarios.Columns[7].Visible:=False; grdUsuarios.Columns[8].Visible:=False; transaccion.Commit;
except
on e:Exception do
begin
terminarTransaccion;
mErrores(e, 'No se pudieron recuperar los Usuarios.', 'Gestión de Usuarios.');
end;
end;
end;
end;
procedure TfrmABMAgentes.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action:=caFree;
end;
procedure TfrmABMAgentes.BtnSalirClick(Sender: TObject);
begin
Close;
end;
Es bastante simple.
Una pequeña contribución con este Foro que siempre me ha sacado de mas de un incendio.
Gracias.