Visible, invisible на кнопке

[SuweR]

У меня эта программа для защиты курсовой, мне сказали сделать распределение прав доступа

[Serge_Bliznykov]

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

У меня эта программа для защиты курсовой

в курсовой тоже надо делать всё хорошо и надёжно.

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

мне сказали сделать распределение прав доступа

ага. я это уже понял.
Делайте, я не против. Даже помогу, чем смогу.

[SuweR]

А что вместо Usermode написать?

[Serge_Bliznykov]

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

А что вместо Usermode написать?

скажу, когда Вы ответите на мой вопрос

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

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

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

[SuweR]

В базе данных, в таблице users, есть поля Login и Pass, в поле Login как раз и находятся User, Guide и Admin, а в поле Pass пароль от них

[Serge_Bliznykov]

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

в поле Login как раз и находятся User, Guide и Admin

о, как запущено. А если, ВДРУГ, нужно будет ещё одного или двух пользователей добавить? А логин User уже занят. Всё, задача не имеет решения?!

Мой совет, не привязывайтесь к логину.
Не хотите нормальную систему, не надо, но хотя бы минимальную универсальность и гибкость система должна же иметь!

Добавьте в таблицу users ещё одно поле, например, USERRIGHTS
вот туда и записывайте ваши "User, Guide и Admin"

тогда
в Glavnoe_Okno добавить переменную usermode:

type
  TForm2 = class(TForm)
    ....
  private
    { Private declarations }
  public
    { Public declarations }
    usermode : string; 
  end;

а при проверке логина/пароля заполнять эту переменную

     DataModule1.adoquery1.sql.add('select PASS, USERRIGHTS 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 begin
         Glavnoe_Okno.usermode := DataModule1.Adoquery1.FieldbyName('USERRIGHTS').value;
         Glavnoe_Okno.Show;
      end
      else
           showmessage('Ïàðîëü íå âåðíûé');
   DataModule1.adoquery1.Close;

p.s. кстати, английское слова Guide (Гид) выбрано не очень удачно.
это больше "руководство, гид, путеводитель, проводник, экскурсовод, ориентир"
(руководство тут больше в смысле инструкция по использованию).