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

[danswin]

Всем привет, решил спросить у вас Денверистов )))))) проблема в следующем:
Я написал прогу грубо говоря справочник на базе, и мне нужно сделать чтобы пользователи при запуске программы выбирали себя и вводили пароль. Затем у пользователей есть права на доступ к менюшке тоесть где то открыта вкладка где то закрыта, вот суть как мне это реализовать, в принцепе догадываюсь но я уверен что я не смогу сам за денверить Ребят помогите чем сможете мож исходник есть у кого-нибудь или подскажите где взять ))))) буду за много благодарен……

[Квэнди]

Казалось бы причем здесь сети...

[danswin]

так это же типо через сетку )))

[Nemon]

А каукую базу собираешься использовать? Если Intebaase или MySQL, MSSQL. то они поддерживают создание пользователей с разными правами.

[Pitbull]

если тебе нужно ограничить доступ к самой базе, то их ті определяешь при создании базі.... Если тебе нужно в соответствии с введеннім именем юзера изменять доступ к клмпонентам формі, например, закладок и т.д... То тебе нужно передать имя пользователя в форму и анализировать его:
if user='Ромашка' then Button1.Enabled:=false;

или case используй...

[danswin]

нет мне доступ к базе не нужно, просто пользователь выбрал себя и у него дапустим (1 это показать только Меню файл) и все остальный вкладки не рабоатют, я понел что там нужночерез иф только не пойму как с базой про анализировать тоетсь сравнение с 1 или там 2 или 3 и в зависемости у пользователя в поле стоит 1 то показывает. вот

[Shuraken]

Вот примерный алгоритм. У Вас БД Oracle (гулять, так гулять). В ней создаем таблицу, ну, например UsersApplication (пользователи приложения), в которую будут заноситься пользователи, с полями типа: UserID, UserName и т.д. После этого создаем еще одну таблицу UserRightApplication (права пользователей для приложения) с полями UserID, MenuName, IsUserRight (boolean), которая будет связывать меню приложения с пользователем и правами на использование. Дальше в своей программе, после запуска, пробегаешься по всем пунктам меню, и смотришь в БД, какой пункт данному пользователю доступен, ну и включаешь соответственно те, которые доступны и отключаешь те, которые недоступны.
На других БД, думаю ситуация будет точно такой же. Если идея непонятна, то что же, обращайтесь, разьясню.

[danswin]

Вот смотрите я сделал чтобы пользователь выбрал себя и показал все позиции тоетсь я не чего не пытался сделать по провам доступа

procedure TForm9.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var par: String;
id : Integer;
begin
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
Form9.ModalResult:=mrOk;
Form1.Show;
Form9.Hide;
end;
end;
end;
end
else Form9.ModalResult:=mrCancel;
end;

А как теперь сделать чтоб по провам?

[Shuraken]

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

Вот смотрите я сделал чтобы пользователь выбрал себя и показал все позиции тоетсь я не чего не пытался сделать по провам доступа

procedure TForm9.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var par: String;
id : Integer;
mr : TModalResult;
begin
mr := mrCancel;
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
Form9.ModalResult:=mrOk;
mr := mrOk;
Form1.Show;
Form9.Hide;
end;
end;
end;
end
else Form9.ModalResult:=mrCancel;
if mr = mrOk then
begin
if Parol = 'Vasya_Pupkin' then
begin
Form1.MainMenu.Items[0].Enabled := false;
end;
end;
end;

А как теперь сделать чтоб по провам?

Попробуй так переписать.

[danswin]

так чето не выходит ты там написал вася пубкин)))))))) я так думаю это не рационально потомучто парава должы браться из базы