Скрытие элементов

[haker270]

Искал через поиск, но так ниче и не нашел(
Есть форма авторизации, бд юзеров в access.
Никак не могу настроить, чтобы при переходе пользователя отображались на форме одни компоненты, а при переходе администратора другие. Пробовал так, но не работает
procedure TForm1.FormActivate(Sender: TObject);
begin
if (DataModule2.AdoTable3.FieldValues['Категория']='user')
then
N1.Visible:=false;

end;
оно вообще это элемент не выводит ни для одной категории, ни для другой

[Dozent]

N1.Visible:=false;

Ну так он и делает фалс, т.е. не отображать!
А можно спросить как вы отличаетеа администратора от обычного юзера?
Просто названием логина User / Administrator ?
Что это N1? Пункт меню? дайте больше кода...

[haker270]

Есть в бд таблица Pass, в ней Login, Password, Категории(в ней значения user или admin). Есть окно авторизации для входа на основную форму
вот код
procedure TForm6.Button1Click(Sender: TObject);
var s1: string;
begin
datamodule2.adoquery2.close;
datamodule2.adoquery2.sql.clear;
s1:='select * from Pass where Login='+QuotedStr(edit1.text)+'and Password='+QuotedStr(Edit2.text);
datamodule2.adoquery2.sql.add(s1);
datamodule2.adoquery2.active:=true;
datamodule2.adoquery2.open;

if not datamodule2.adoquery2.isEmpty then
begin

form1.Visible:= false;
Edit1.Clear;
Edit2.Clear;
Application.Initialize;
Form6.Free;
Application.CreateForm(TForm1,Form1 ) ;
Application.Run;
end
else
ShowMessage('Неправильно введены Login#Pass пожалуйста пройдите регистрацию') ;
end;
при вводе логина и пароля и нажатии кнопки нужно чтобы открывалась новая форма и если это из категории пользователь, то не отображались пункты с mainmenu, а если из категории администратор, то все отображалось...
я поставил, что при открытии формы, будет убираться компонент, вот код
procedure TForm1.FormActivate(Sender: TObject);
begin
if DataModule2.AdoTable3.FieldValues['Категория']='user'
then
N1.Visible:=false;

end;

[Dozent]

ну я вот думаю что логин должен быть индивидуален, ну да ладна, бывают ситуации что инициалы у людей полностьб идентичны..
Ну ненравится мне это

s1:='select * from Pass where Login='+QuotedStr(edit1.text)+'and Password='+QuotedStr(Edit2.text);

Вовторых я в коде не увидил ни каких поисков и ни каких фильтраций по AdoTable3
по которой вы какя понимаю определяете категорию, он будит считывать запись накоторой находится после последних манипуляций если ни чо не делалось то на первой записи. Попробуйте так

if DataModule2.adoquery2.FieldValues['Категория']='user'
then
N1.Visible:=false;

И мой совет сделать логически подругому, сразу же после удачной авторизации пользоввателя проверять, если администартор то сделать визибле=тру, а изначально поставить фалс те пункты меню что не дожны быт ьдоступны ползователю

[Dozent]

ДА и делат ьпроверку тоже советую делат ьподругому, делать финт по АДОтабле, т.е. если такого пользователя не найдено сразу выводить сообшения что вы не найдены, если найдены то проверять пароль, соотвествено и указатель будит стоят на нужной нам записе, и останется только считать нужный вам параметр категории пользователя производяшего авторизацию в базу...
НО если исльзовать AdoTable.Locate помните что он встанет на первую найденыую запись...
НУ и подумайте что если у вас в базе произойдёт такое что будит два одинаковых имени опльзователя и пароля, запрсо выведит две записи, как вы это будите обрабатывать?

И никогда не создавайте поля в базе КИРИЛИЦЕЙ

[Dozent]

ну и ешё вы помойму не правильно обращаетесь

MainMenu1.N1.VIsible:=false; наверное так надо

[haker270]

Спасибо огромное, но я немного не понял и сделал так, все вроде заработало, только не выводит окно если данные введены неверно)
procedure TForm6.Button1Click(Sender: TObject);
begin
if ((DataModule2.AdoTable3.Locate('Log in',edit1.Text,[])) and (DataModule2.AdoTable3.FieldValues['Password']=edit2.Text))
then
begin
if DataModule2.AdoTable3.FieldValues['Catagory']='admin'
then
begin
form1.N1.Visible:=true;
Application.Initialize;
Form6.Free;
Application.CreateForm(TForm1,Form1 ) ;
Application.Run;
end
else
begin
if DataModule2.AdoTable3.FieldValues['Catagory']='user'
then
begin
form1.N1.Visible:=false;
Application.Initialize;
Form6.Free;
Application.CreateForm(TForm1,Form1 ) ;
Application.Run;
end
else
ShowMessage('Вы ввели неправильный пароль или логин');
end
end;

[Dozent]

if ((DataModule2.AdoTable3.Locate('Log in',edit1.Text,[])) and (DataModule2.AdoTable3.FieldValues['Password']=edit2.Text)) then
  begin
   if DataModule2.AdoTable3.FieldValues['Catagory']='admin' then
      begin
       form1.N1.Visible:=true;
       Application.Initialize;
       Form6.Free;
       Application.CreateForm(TForm1,Form1 ) ;
       Application.Run;
      end
      else if DataModule2.AdoTable3.FieldValues['Catagory']='user' then
           begin
            form1.N1.Visible:=false;
            Application.Initialize;
            Form6.Free;
            Application.CreateForm(TForm1,Form1 ) ;
            Application.Run;
           end;
  end
  else ShowMessage('Âû ââåëè íåïðàâèëüíûé ïàðîëü èëè ëîãèí');

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

[Dozent]

ну ирациональынм будит оптимизировать код

procedure TForm6.Button1Click(Sender: TObject);
begin
if ((DataModule2.AdoTable3.Locate('Log in',edit1.Text,[])) and (DataModule2.AdoTable3.FieldValues['Password']=edit2.Text)) then
  begin
   if DataModule2.AdoTable3.FieldValues['Catagory']='admin' then
      begin
       form1.N1.Visible:=true;
      end
      else
       begin
        form1.N1.Visible:=false;
       end;
   Application.Initialize;
   Form6.Free;
   Application.CreateForm(TForm1,Form1 ) ;
   Application.Run;
  end
  else ShowMessage('Âû ââåëè íåïðàâèëüíûé ïàðîëü èëè ëîãèí');
end;

[haker270]

Спасибо огромное, остановлюсь пока на этом