Программное администрирование баз данных InterBase

{Нажали "Добавить"}
procedure TfMain.bAddUserClick(Sender: TObject);
begin
  //вначале очистим данные, которые могут быть
  //в редакторе пользователей:
  fEditor.eUser.Text:= '';
  fEditor.ePass.Text:= '';
  fEditor.ePass2.Text:= '';
  fEditor.eName.Text:= '';
  fEditor.eMiddle.Text:= '';
  fEditor.eLast.Text:= '';
  //теперь показываем форму:
  fEditor.ShowModal;
  //если изменений делать не нужно, просто выходим:
  if not Editor.izmen then Exit;
  //иначе готовим компонент IBSS к созданию нового пользователя.
  IBSS.Active:= True;
  try
    //теперь вводим данные нового пользователя:
    IBSS.UserName:= fEditor.eUser.Text;
    IBSS.Password:= fEditor.ePass.Text;
    IBSS.FirstName:= fEditor.eName.Text;
    IBSS.MiddleName:= fEditor.eMiddle.Text;
    IBSS.LastName:= fEditor.eLast.Text;
    //вызываем метод AddUser, который добавляет пользователя:
    IBSS.AddUser;
  finally
    IBSS.Active:= False; //закрываем компонент
  end; //try
  //перечитываем информацию о пользователях:
  ReloadUsers;
end;

//если изменений делать не нужно, просто выходим:
  if not Editor.izmen then Exit;

IBSS.Active:= True;
  try
    //теперь вводим данные нового пользователя:
    IBSS.UserName:= fEditor.eUser.Text;
    IBSS.Password:= fEditor.ePass.Text;
    IBSS.FirstName:= fEditor.eName.Text;
    IBSS.MiddleName:= fEditor.eMiddle.Text;
    IBSS.LastName:= fEditor.eLast.Text;
    //вызываем метод AddUser, который добавляет пользователя:
    IBSS.AddUser;
…

{Нажали "Редактировать"}
procedure TfMain.bModifyUserClick(Sender: TObject);
var i: Integer; //счетчик
begin
  //если не один пользователь не выбран, просто выходим:
  if LB1.ItemIndex = -1 then begin
    ShowMessage('Выберите пользователя!');
    Exit;
  end
  //если выбран SYSDBA, тоже выходим:
  else if LB1.Items[LB1.ItemIndex] = 'SYSDBA' then begin
    ShowMessage('Редактировать пользователя SYSDBA нельзя.');
    Exit;
  end; //else if
  //иначе редактируем
  //установим у IBSecurityService выбранного пользователя:
  IBSS.Active:= True;
  IBSS.UserName:= LB1.Items[LB1.ItemIndex];
  //найдем в IBSS индекс нужного пользователя:
  for i:= 0 to IBSS.UserInfoCount - 1 do
    if IBSS.UserInfo[i].UserName =
       LB1.Items[LB1.ItemIndex] then break;
  //теперь i содержит индекс пользователя
  //заполняем редактор пользователей данными:
  fEditor.eUser.Text:= IBSS.UserInfo[i].UserName;;
  //раз пользователь уже есть, выводим единички в качестве пароля:
  fEditor.ePass.Text:= '11111111111111111111';
  fEditor.ePass2.Text:= '11111111111111111111';
  fEditor.eName.Text:= IBSS.UserInfo[i].FirstName;
  fEditor.eMiddle.Text:= IBSS.UserInfo[i].MiddleName;
  fEditor.eLast.Text:= IBSS.UserInfo[i].LastName;
  //теперь покажем редактор:
  fEditor.ShowModal;
  //если изменений делать не нужно, просто выходим:
  if not Editor.izmen then Exit;
  //иначе сохраняем их:
  try
    //Имя пользователя менять не будем.
    //Сохраним пароль, если там не единички:
    if fEditor.ePass.Text <> '11111111111111111111' then
      IBSS.Password:= fEditor.ePass.Text;
    //Далее сохраняем остальные параметры:
    IBSS.FirstName:= fEditor.eName.Text;
    IBSS.MiddleName:= fEditor.eMiddle.Text;
    IBSS.LastName:= fEditor.eLast.Text;
    //сохраняем изменения физически методом ModifyUser:
    IBSS.ModifyUser;
  finally
    IBSS.Active:= False;
  end; //try
  //перечитываем информацию о пользователях:
  ReloadUsers;
end;

IBSS.UserName:= LB1.Items[LB1.ItemIndex];

{Удаление пользователя}
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;