Условие по полю из таблицы

[ins813]

Здравствуйте, есть SQL таблица, в которой ФИО, тип, пароль. Необходимо проверить все условия по данным полям для открытия формы. Подскажите в чем ошибка

ADOQuery3.Active:=false;
ADOQuery3.SQL.CommaText:='SELECT * FROM users WHERE fio = :pfio and pass = :ppass';
ADOQuery3.Parameters.ParamByName('pfio').Value:=combobox2.text;
ADOQuery3.Parameters.ParamByName('ppass').Value:=edit1.Text;
ADOQuery3.Open;
    if  ADOQuery3.RecordCount <> 0 then begin
  form2.hide;
  Edit1.Clear;
  if  ADOTable1.FieldByName('tip').Value=('Бухгалтер') then Form3.Show
else   if  ADOTable1.FieldByName('tip').Value=('Директор') then Form4.Show
else   if  ADOTable1.FieldByName('tip').Value=('Кассир') then Form5.Show
  else ShowMessage('Пароль неверный');
end else ShowMessage('Пароль неверный');
end;
end;

[Serge_Bliznykov]

а чего это после проверки ADOQuery3
вдруг начали обращаться к ADOTable1 ?!

[ins813]

Почему ? ADOTable1 - вы наверное имели ввиду ?

Попробовал изменить на Query3 - при вводе верного пароля всплывает окно "Неправильный пароль"

[Iron Monk]

При проверке запрошенные данные тримать нужно.

[Stilet]

ins813

А что за СУБД?

[ins813]

MS SQL 2008

Всем спасибо, из-за невнимательности произошла ошибка другого рода, а так код работает:

[evg_m]

Попробовал изменить на Query3 - при вводе верного пароля всплывает окно "Неправильный пароль"

А какоЕ из ...?(выделенных)

if  ADOQuery3.RecordCount <> 0 then begin
  form2.hide;
  Edit1.Clear;

  if  ADOTable1.FieldByName('tip').Value=('Бухгалтер') then Form3.Show
  else if  ADOTable1.FieldByName('tip').Value=('Директор') then Form4.Show
  else if  ADOTable1.FieldByName('tip').Value=('Кассир') then Form5.Show
  else ShowMessage('Пароль неверный');
end
else 
  ShowMessage('Пароль неверный');

P.S. Форумчанам знающим ответ просьба не отвечать, это вопрос именно к ТС.

[ins813]

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

А какоЕ из ...?(выделенных)
P.S. Форумчанам знающим ответ просьба не отвечать, это вопрос именно к ТС.

Вроде бы отписался что, разобрался - вот верный код:

ADOQuery3.Active:=false;
 ADOQuery3.SQL.CommaText:='SELECT * FROM users WHERE fio = :pfio and pass = :ppass';
 ADOQuery3.Parameters.ParamByName('pfio').Value:=combobox2.text;
 ADOQuery3.Parameters.ParamByName('ppass').Value:=edit1.Text;
 ADOQuery3.Open;
    if  ADOQuery3.RecordCount <> 0 then begin
  form2.hide;
  Edit1.Clear;
 if  ADOQuery3.FieldByName('tip').Value=('Бухгалтер') then Form3.Show
 else if ADOQuery3.FieldByName('tip').Value=('Директор') then Form4.Show
 else if ADOQuery3.FieldByName('tip').Value=('Кассир') then Form5.Show
end else ShowMessage('Пароль неверный');
end

[xxbesoxx]

Подскажите в чем ошибка

Лучще покажу чем подскажу

procedure TfrmMain.VxodProgrammu;
  var s: string;
begin
  With DM.myqryUsers do begin
  Close;
  SQL.Clear;
  s:= 'SELECT * FROM Users where  u_login  ='+ QuotedStr(cbbLogin.text)+' and u_Password ='+ QuotedStr(edtParol.text);
  SQL.Add(s);
  Open;
   if not DM.myqryUsers.IsEmpty then
  begin
     frmMain.Hide; //--Форма для входа 
     frmpanel.Show; 
    end
  else
   begin
     MessageDlg('Неправильный логин или пароль',mtError,[mbOK],0)
   end;
end;

end.

При закрытии frmPanel

procedure TfrmPanel.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   If Application.MessageBox('Вы действительно хотите закрыть программу','Предупреждения ',MB_ICONQUESTION+MB_YESNO)=IDYES
    then
     application.Terminate
   else
  Action:=caNone;
end;

[xxbesoxx]

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

А какоЕ из ...?(выделенных)

if  ADOQuery3.RecordCount <> 0 then begin
  form2.hide;
  Edit1.Clear;

  if  ADOTable1.FieldByName('tip').Value=('Бухгалтер') then Form3.Show
  else if  ADOTable1.FieldByName('tip').Value=('Директор') then Form4.Show
  else if  ADOTable1.FieldByName('tip').Value=('Кассир') then Form5.Show
  else ShowMessage('Пароль неверный');
end
else 
  ShowMessage('Пароль неверный');

P.S. Форумчанам знающим ответ просьба не отвечать, это вопрос именно к ТС.

Вы для разных должностей открывайте разние форму ? Form3.Show, Form4.Show Form5.Show зачем ?