VPF::Разграничение доступа пользователей к компонентам

torrrtik

Дата 23.4.2011, 11:59 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 23.4.2011

Репутация: нет
Всего: нет

Всем привет. Создала бд в аксесе. присоединила к Дельфи и создала проект. теперь хочу сделать разграничение доступа пользователей.(admin который имеет доступ ко всему и пользователь, который не может редактировать данные, только просматривать). попробовала так:
в главной форме документов объявила переменную

Код


private
    { Private declarations }
  public
  admin : Integer;
    { Public declarations }
  end;

на кнопку перехода в форму документа прописала

Код


procedure TForm3.Button1Click(Sender: TObject);
begin
admin:=1;
if admin<>1  then begin form6.DBcombobox4.enabled:=false; end;
Form6.Visible:=true;
end;

а на кнопке формы входа

Код


procedure TForm36.Button1Click(Sender: TObject);
begin
    if (edit1.Text ='tokar') and
          (edit2.Text = '123456') then
       begin
       form3.admin:=1;
               form36.Visible:=false;
               form1.Visible:=true;
       end
       else
       begin
       form3.admin:=0;
       form36.Visible:=false;
               form1.Visible:=true;
               end;
end;

из этого получается что если вводишь логин и пароль, то ты админ, не вводишь или неправильно вводишь, то обычный пользователь просматривающий данные. Но у меня в любом случае form6.DBcombobox4 редактируется. Я новичок в делфи, подскажите я что то пропустила?

Это сообщение отредактировал(а) bems - 23.4.2011, 23:03

Keeper89

Дата 23.4.2011, 13:16 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 9
Всего: 58

Почему бы не завести хотя бы в базе таблицу с пользователями и получать из нее права, а не указывать это все в тексте программы?

Добавлено через 2 минуты и 34 секунды
Да, и зачем переменной отвечающей за наличие администратора целый тип? В этом есть смысл или можно заменить на булевый?

--------------------

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »