Вопрос по Менюшке ограничение прав доступа

[Shuraken]

Я написал примерный алгоритм. Конкретная реализация должна быть под конкретную задачу. Тот код, который ты привел, это пока не конкретика. Тогда уж дай название таблицы из базы, ее поля, где что хранится и тогда посмотрим.

[danswin]

INSERT INTO OP_ZAV (ID, FIO, OTDEL, DOL, TEL, PRIM, DOSTYP, PAROL) VALUES (1, 'Аржаев Артем Сергеевич', 'ИТ', 'Системный администратор', '118', NULL, '2', '99461310');
вот типо токово (выгрузил одну запись), сверка берет от пользователя и от пароля

[Shuraken]

Это вставка в таблицу. А дальше считываешь данные из таблицы в какой-нибудь датасет, делаешь locate по параметрам, которые были получены при запуске формы, считываешь права доступа и работаешь. Выглядеть (примерно) это будет так.

TableOP_ZAV.Open
if TableOP_ZAV.Locate('FIO', 'Аржаев Артем Сергеевич', []) then
begin
UserRights := TableOP_ZAV.FieldByName['DOSTYP'].AsString;
if UserRights = '2' then
begin
//делаешь enable or disable or visible or invisible в зависимости, что тебе нужно.
end;
end;

Примерно так.

[danswin]

как я понел это в самой программе делать или ? просто не пойму TableOP_ZAV.Open вот это куда ))))) или что это

[Pitbull]

Сообщение от danswin

как я понел это в самой программе делать или ? просто не пойму TableOP_ZAV.Open вот это куда ))))) или что это

Это в самой проге тебе советуют влепить.... Тоесть ты просматриваешь таблицу, в которой стоят права.....

TableOP_ZAV.Open // открываешь таблицу с именем юзера и правами
if TableOP_ZAV.Locate('FIO', 'Аржаев Артем Сергеевич', []) then //если находишь в поле FIO значение Артем Сергеевич , то выполняется следующий блок
begin
UserRights := TableOP_ZAV.FieldByName['DOSTYP'].AsString;// присваиваешь значение поля Dostyp переменной UserRights
if UserRights = '2' then // анализируешь права
begin
//делаешь enable or disable or visible or invisible в зависимости, что тебе нужно.
end;
end;

тоесть тебе предлагают создать таблицу с пользователями и с полем ПРАВА ('DOSTYP'), в котором будет находится символ 1 или 2 , или 3... Где 1,2 ,3 - это группы.Например: 1 - администраторы, 2 - пользователи, 3 - опытные узеры... ну и т.д... А в самой проге потом анализируешь эти значения и в зависимости от значения в данном поле делаешь визуализацию компонентов....

[danswin]

Ваше огромное спасиба вот только я переделал не немного

procedure TForm9.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
   var par: String;
   var UserRights: String;
      id : Integer;
begin
Form1.N5.Enabled:=true;  //открываем заново
Form1.N21.Enabled:=true; //открываем заново
Form1.N18.Enabled:=true;  //открываем заново
Form1.N17.Enabled:=true;  //открываем заново
Form1.Timer1.Enabled:=true;

If Not(DBLookupComboBox1.Text='') then begin
  If key=13 then begin
   id:=DBLookupComboBox1.KeyValue;
  With IBDataSet1 do begin
   par:=FieldValues['PAROL'];
   if Not(Edit1.Text=par) then begin
   Form9.ModalResult:=mrCancel;
   ShowMessage('Ââåäåí íåïðàâèëüíûé ïàðîëü');
   end
   else begin
   UserRights:=IBDataSet1.FieldbyName('DOSTYP').AsString
   if UserRights = '2' then 
   begin
   Form1.N18.Visible:=false;
end;
   if UserRights = '1' then 
   begin
   Form1.N5.Visible:=false;
   Form1.N21.Visible:=false;
   Form1.N18.Visible:=false;
   Form1.N17.Visible:=false;
   Form1.Timer1.Enabled:=false end;
   Form9.Hide;
   Form1.Hide;
   Form1.Show;
   Edit1.Clear;
   end;
  end;
 end;
 end
 else Form9.ModalResult:=mrCancel;
end;

[Nemon]

По мне так проще используй базу с разограничением доступа и гемороя меньше и опыта программирования больше

[danswin]

а бы сделалбы только незнаю как это реализовать, так бы конечног через базу бы сделал.