[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; и смотрим,

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