[poli-smen]

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

Всё,я исправил. А можете помочь с этим... При не правильном вводе пароля, показывает ShowMessage по всем пользователям а не по одному...как надо...

Чтобы такого не было условия нужно строить примерно так:

Код:

  if st='Артём' then
  begin
    if par='artem' then
    begin
      ShowMessage('Зравствуйте, Артём! У вас высший уровень доступа!');
      RadioButton1.Visible:=...
    end else
    begin
      ShowMessage('Пароль введен не верно, осталось ...
    end;
  end else
  if st='Максим' then
  begin
    if par='maxim' then
    begin
      ShowMessage('Зравствуйте, Максим! Вам доступны секретные данные!');
      RadioButton1.Visible:=...
    end else
    begin
      ShowMessage('Пароль введен не верно, осталось ...
    end;
  end else
  if st='Александр' then
  begin
    if par='sasha' then
    begin
      ShowMessage('Зравствуйте, Александр! Вам доступны открытые данные!');
      RadioButton1.Visible:=...
    end else
    begin
      ShowMessage('Пароль введен не верно, осталось ...
  end else
  if st=...

А вообще массив здесь так и напрашивается. Или же отдельная таблица базы данных.