Есть вопрос по доступу к менюшке

  • Автор темы danswin
  • Дата начала
Статус
Закрыто для дальнейших ответов.
D

danswin

#1
Всем привет, народ есть вопрос, суть в следующем.
Есть программа тоесть сам написал, мне нужно сделать доступ через логин и пароль, чтоб при вводе пользователя были доступны только те менюшки которые я укажу, точно знаю что пользователи будут храниться в базе доступ к менюшки будут обращаться через базу тоетсь сверка если есть такие прова то мол покажу )))) подскажите где по рыть или мож кто скинет наработки я разберусь)
 
D

danswin

#2
Вообшем сервер интребыйс 6,5 и есть прога, есть в базе люди забиты и нужно чтоб приоткрытии программы ножно воодить пользователя и парол и чтоб моно было сразуже присвоить какие менюшки на пользователя открыть какие закрыть
 

vital

Больной Компом Детектед
29.01.2006
2 432
33
#3
А в чем вопрос? Не умеешь формы создавать? Создаешь форму в кот-ой юзверь вводит свой логин и пасс И таблицу в кот-ой записаны логин,пароль, права достпуа, потом делаешь банальный Select(Select прова_доступа where ник=тому_чт_ввел_юзверь and пас=то_что_ввел_юзверь) из таблицы с этими переменными, И все.. Далее if и что там тебе нужно..
 
D

danswin

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



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;



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

AnEi

#5
В менюшках есть свойство visible. Поставь по умолчанию в false, если необходимо для данного пользователя показать, то через if <прова>=... устанавливай в true.
 
Статус
Закрыто для дальнейших ответов.