Visible, invisible на кнопке

[SuweR]

У меня есть авторизация(пользователь, руководство и админ), на другой форме, на которую он переходит есть 4 кнопки(сотрудники, договора, накладные и замеры), как сделать так что бы когда заходил пользователь кнопку Сотрудники была невидима, а когда через сотрудника или руководство, то она была бы видна им?

[Serge_Bliznykov]

на этой второй форме нужно обрабатывать (проверять) права текущего пользователя.
и показывать элементы только для тех пользователей, которые имеют на это право.

if (usermode = cUser) then begin
   buttonSotrudniki.Visible := false;
   buttonSotrudniki.Enable := false; // не обязательно, для красоты
end
else
  if (usermode = cBoss) or (usermode = cAdmin) then begin
     buttonSotrudniki.Visible := true;
     buttonSotrudniki.Enable := true; 
  end;

[SuweR]

Кхм

[SuweR]

А где мне прописать этот код, и что за usermode? пишет не объявлен он

[Serge_Bliznykov]

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

А где мне прописать этот код

на событие формы.
например, на onShow


так это же просто условный пример.

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

и что за usermode? пишет не объявлен он

подставьте вашу переменную, где у Вас хранится режим пользователя после авторизации
и там, где сравнение тоже напишите свои константы - как Вы отличаете пользователя/админа/руководителя друг от друга.

Если Вы хотите конкретный код - показывайте исходники своего проекта.
Если хотите писать сами - пишите.
Угадать, как у Вас называется переменная, где хранятся права пользователя (и в каком виде) - я не могу, телепатия слабенькая...

[SuweR]

Вот код авторизации:

var login, pass:string;
begin
     DataModule1.adoquery1.sql.clear;
     DataModule1.adoquery1.sql.add('select pass from users where login='+#39+Log.Text+#39);
     DataModule1.adoquery1.Open;
     if DataModule1.Adoquery1.isEmpty then
        showmessage('Ïîëüçîâàòåëü'+Log.Text+'íå íàéäåí') 
    else
       if DataModule1.Adoquery1.FieldbyName('PASS').value <> Password.Text then
           showmessage('Ïàðîëü íå âåðíûé')
       else Glavnoe_Okno.Show;
end;

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[SuweR]

У меня авторизация подключена к другой базе данных присутствует ADOConnection2, ADOTable1, ADOQuery1, DataSource8

[Serge_Bliznykov]

1) перед копированием кода программы в буфер обмена ОБЯЗАТЕЛЬНО включайте русскую раскладку на клавиатуре

2) код нужно оформлять по правилам -
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)

3) я Вас спрашивал, где у Вас хранятся права пользователя?

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

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

Как?
Никак не отличаете?

4) Пароль лучше не хранить в базе в открытом виде - используйте для этого хеш.

5) для вставки полей в запрос нужно или использовать параметрический запрос или экранировать переменные.

[SuweR]

У меня База данных в Accesse под паролем

[Serge_Bliznykov]

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

У меня База данных в Accesse под паролем

хорошо.
Но это что-то меняет?

Ваш запрос ВОЗВРАЩАЕТ правильный пароль для заданного пользователя.
Поверьте мне, получить его в отладчике - дело 10 минут.
и всё, пароль руководителя/админа известен хакеру.
Несмотря на запароленный файл БД (кстати, пароль от БД хранится в открытом виде в вашей Delphi программе, если уж на то пошло).