[RusSTEEL]

юзал поиск аналогичного с моей проблемой нету, так что пожалуйста не посылайте в поиск. Суть темы такова:
есть таблица пользователи где строки Имя /пароль / допуск как сделать так чтобы на форме авторизации(ввода логина и пароля) он сравнивал введенный текст в edit1(логин) и edit2(пароль) с таблицей пользователи с соответствующими полями. Предполагаю нужен запрос такого типа, не могли бы вы мне его подсказать)

Код:

Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('***** user '+
                '(Logun, password ) values'+
                '('+#39+edit1.Text+#39+', '+#39+edit2.');
Query1.execSQL;
Query1.Close;
close;

[PhoeniX]

Код:

select `login` from `user` where `login`='LOGIN' and `password`='PASSWORD'; 

Где:

• `user` - таблица с юзверями
• `login` - имя поля с логином
• `password` - имя поля с паролем
• 'LOGIN' и 'PASSWORD' - то, что ввели в эдиты.

Подставляй.

[Asinkrit]

Я так понимаю, вы описали часть синтаксиса запроса на вставку строки в таблицу, а нужен запрос на проверку существования записи в таблице пользователей, к примеру:

Код:

  select user_id, user_fio, user_role
  from users  
  where user_login = :login
     and user_password = :password

Открываем данный запрос, через Open; или Active:=true; и смотрим, если есть хотя бы одна запись в возвращаемом результате, то выполняем вход в программу, запоминая данные пользователя (к примеру, ФИО и роль).

Код:

    with qryLogIn do
      begin
      if Active then Close;
      ParamByName('login').AsString:=teLogin.Text;
      ParamByName('password').AsString:=tePassword.Text;
      Open;
      if RecordCount > 0 then
        begin
        First;
        DM.UserName:=FieldByName('user_fio').AsString;
        DM.UserId:=FieldByName('user_id').AsInteger;
        DM.RoleId:=FieldByName('user_role_id').AsInteger;
        //DM - DataModule, именно там лучше хранить данные такого рода и использовать во разных местах программы
        Close;
        ModalResult:=mrOk; //в данном случае используется Splash-окно, именно здесь осуществляем вход в программу
        end
          else
            begin
            ShowMessage('Введены неправильно логин или пароль.');
            Close;
            end;
     end;

А поиском, вы похоже, даже не пользовались, подобных тем в интернете и на данном форуме обсуждалось много раз.

Эх, DJ PhoeniX, быстрый ты однако

[PhoeniX]

Ну, ясен пень, это ж я Фениксы, они такие, шустрые...

[RusSTEEL]

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

Открываем данный запрос, через Open; или Active:=true; и смотрим, если есть хотя бы одна запись в возвращаемом результате, то выполняем вход в программу, запоминая данные пользователя (к примеру, ФИО и роль).
Эх, DJ PhoeniX, быстрый ты однако

где это? О_О

[stil]

У TQuery.

Код:

Query1.open;
или
query1.active:=true;

Используется если предпологается что запрос вернет результат, применяется в запросах на выборку.

Код:

Query1.execsql;

вот это если результат не возвращается. например добавление или удаление.

[RusSTEEL]

Люди добрые, и в частности,Asinkrit, разложите пожалуйста по пунктам че куда вписать. В делфи далеко не про

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

запрос на проверку существования записи в таблице пользователей, к примеру:

Код:

  select user_id, user_fio, user_role
  from users  
  where user_login = :login
     and user_password = :password

Открываем данный запрос, через Open; или Active:=true; и смотрим, если есть хотя бы одна запись в возвращаемом результате, то выполняем вход в программу, запоминая данные пользователя (к примеру, ФИО и роль).

Код:

    with qryLogIn do
      begin
      if Active then Close;
      ParamByName('login').AsString:=teLogin.Text;
      ParamByName('password').AsString:=tePassword.Text;
      Open;
      if RecordCount > 0 then
        begin
        First;
        DM.UserName:=FieldByName('user_fio').AsString;
        DM.UserId:=FieldByName('user_id').AsInteger;
        DM.RoleId:=FieldByName('user_role_id').AsInteger;
        //DM - DataModule, именно там лучше хранить данные такого рода и использовать во разных местах программы
        Close;
        ModalResult:=mrOk; //в данном случае используется Splash-окно, именно здесь осуществляем вход в программу
        end
          else
            begin
            ShowMessage('Введены неправильно логин или пароль.');
            Close;
            end;
     end;

Предпологаю это вводим в баттон1(под названием ок) или в в квери в SQL где прописываюст все запросы?

Код:

  select user_id, user_fio, user_role
  from users  
  where user_login = :login
     and user_password = :password

Открываем данный запрос, через Open; или Active:=true; и смотрим,

что это вообще?
а кстати не мог найти функции спойлеров на форуме

[Asinkrit]

Это рабочий вариант кода, из одного из моих проектов, запрос размещается в ваш Querry1, у меня это qryLogIn, сам код, на исполнения на кнопку "Ок".

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

Ищите литературу "Дельфи и Базы данных", так же, неплохо бы было и базовый синтаксис SQL запросов освоить, иначе у вас ничего не получится написать, а если хотите что бы я вам все разжевал, да по полочкам разложил, то боюсь меня надо для этого чем то мотивировать.