Удаление пользователя
Это самая простая операция с
IBSecurityService. Ее код:
{Удаление
пользователя}
procedure
TfMain.bDeleteUserClick(Sender: TObject);
var
s: String; //для формирования строки
begin
//если
не один пользователь не выбран, просто
выходим:
if
LB1.ItemIndex = -1 then begin
ShowMessage('Выберите
пользователя!');
Exit;
end;
//иначе
продолжаем. формируем запрос:
s:=
'Вы действительно желаете удалить
пользователя ' +
LB1.Items[LB1.ItemIndex]
+ '?';
//попросим
подтверждения. выходим, если не
подтвердили:
if
Application.MessageBox(PChar(s), 'Удаление
пользователя',
MB_YESNOCANCEL+MB_ICONQUESTION)
<> IDYES then Exit;
//если
не вышли, значит удаляем пользователя
IBSS.Active:=
True;
try
//делаем
пользователя текущим:
IBSS.UserName:=
LB1.Items[LB1.ItemIndex];
//удаляем
его методом
DeleteUser:
IBSS.DeleteUser;
finally
IBSS.Active:=
False;
end;
//try
//перечитываем
информацию о пользователях:
ReloadUsers;
end;
Тут все почти так же, как в предыдущих
примерах, за исключением нового метода
DeleteUser, который физически удаляет
пользователя. Перед окончательной
компиляцией программы не забудьте
сделать текущей вкладку "Резервное
копирование базы данных", чтобы именно
она открывалась при загрузке программы.
