Лабораторная работа №4.

Тема: Работа по разграничению полномочий в ИС.

Цель: Выработка навыков по разграничению полномочий пользователей с использованием распределения прав на выполнение операции с информацией подлежащей защите

Отчет:

В разработанном проекте добавили возможности управления доступом. Для информации, подлежащей защите, распределили для каждого отдельного пользователя права:

· На чтение

· Изменение

· Удаление информации

procedure TForm1.BitBtn1Click(Sender: TObject);

Var a,b,c,e:string;

begin

a:=Edit1.text;

b:=Edit2.text;

c:=Edit2.text+'dcg';

if Form3.Table1.locate(login;Parol',vararrayof([a,c]),[])

then

begin

form4.table1.append;

form4.table1.fieldbyname('Name_sob').value:=вход в систему';

form4.table1.fieldbyname('Vremy4').value:=Time();

form4.table1.fieldbyname('Data').value:=Now();

form4.table1.Post;

form4.table1.Refresh;

form4.table1.Refresh;

form5.table1.Refresh;

if Form3.Table1.locate(login;Dolzh',vararrayof([a,'Администратор']),[])

then begin

form1.Show;

end;

if Form2.Table1.locate(login;Dolzh',vararrayof([a,'Руководитель']),[])

then begin

form2.Visible:=true;

form5.Visible:=true;

form3.Visible:=false;

end;

if Form2.Table1.locate(login;Dolzh',vararrayof([a,'Пользователи']),[])

then begin

form2.Visible:=false;

form5.Visible:=false;

form3.Visible:=false;

form6.Visible:=true;

end

else

begin

form4.table1.append;

form4.table1.fieldbyname('Name_sob').value:='пароль неверен';

form4.table1.fieldbyname('Vremy').value:=Time();

form4.table1.fieldbyname('Data).value:=Now();

form4.table1.Post;

form4.table1.Refresh;

form4.table1.Refresh;

form4.table1.Refresh;

form11.Show;

end;

end; end;

end.

Не нашли, что искали? Воспользуйтесь поиском: