Авторизация при прохождения теста

[Yura158]

Я тут немного уже ломаю голову... При нажатии кнопку "Тест", ввод под логин/пароль и на другой форме должен быть конкретный пользователь (имя, фамилия и т.д.), на форме есть компонент DBText. При открытии формы, вообще пусто DBText, но я добавил ADOQuery (его запрос: SELECT UserNamePersonal, UserFamilyPersonal, UserGroupPersonal FROM Users WHERE IDUSer = :UserIndex) и DataSource. И в том числе тоже настроил DBText (указал в DataField, и связал с DataSource) и указал необходимые как в запросе... Но безрезультатно...
Или можно заменить вместо DBText на Label
P.S. Просто я новичок, и не все хорошо понимаю, пытаюсь разобраться, но увы как немного ломаю голову с базой данных Access... Не судите так строго!.. Помогите пожалуйста!!!
P.S.S. Буду очень благодарен!

1-ая форма:

var
  Form16: TForm16;
  UserIndex:integer;
 
implementation
 
uses Unit18, Unit19;
 
{$R *.dfm}
 
procedure TForm16.BitBtn1Click(Sender: TObject);
begin
  if (Length(Trim(Edit1.Text)) = 0) or (Length(Trim(Edit2.Text)) = 0) then
  MessageBox(Handle, 'Обязательные поля не заполнены!', 'Ошибка', mb_OK + mb_ICONWARNING)
else
  begin
    with ADOQuery1 do
      begin
        SQL.Clear;
        SQL.Add('SELECT IDUSer as UserIndex FROM Users WHERE (UserName = :Login) AND (UserPass = :Password)');
        Parameters.ParamByName('Login').Value := Edit1.Text;
        Parameters.ParamByName('Password').Value := Edit2.Text;
        Open;
      end;
     if not ADOQuery1.isEmpty then
       begin
         UserIndex:= ADOQuery1['UserIndex'];
         Form19.Show;
         Form16.Close;
        end
      else
        MessageBox (Handle, 'Неверный логин или пароль!', 'Ошибка!', mb_OK + MB_ICONERROR);
  end;
end;

2-ая форма (буду делать тест, но пока что в режиме проверки работы):

procedure TForm19.BitBtn1Click(Sender: TObject);
begin
  Form18.Show;
  Form19.Close;
end;

3-я форма (уже кто и такой пользователь, который ввел логин/пароль из 1-ой формы, согласно на его имя, фамилия и т.д. - в нем содержится компонент DBText -- связал с DataSource, и указал необходимые в DataField в той же 3-форме есть компонент ADOQuery и DataSource):

procedure TForm18.FormShow(Sender: TObject);
begin
  ADOQuery1.Active:=false;
  ADOQuery1.Parameters.ParamByName('UserIndex').Value:=Unit16.UserIndex+1;
  ADOQuery1.ExecSQL;
  ADOQuery1.Active:=true;
end;

Снизу есть вложение проекта

[Sciv]

Ларчик открывался просто: Вы невнимательны

Код получения UserIndex в Unit16:

         UserIndex:= ADOQuery1['UserIndex'];

и код получения данных по индексу в Unit18:

  ADOQuery1.Parameters.ParamByName('UserIndex').Value:=Unit16.UserIndex + 1;

Дальше сами справитесь?

P.S. Учитесь пользоваться отладчиком, я поставил брякпойнт на момент получения UserIndex и нашёл грабли меньше, чем за пять минут. Проект дольше открывался :D

P.P.S. Справедливости ради отмечу, что я тоже особой внимательностью не отличился - все эти данные Вы уже выложили в своём посте, можно было вообще в проект не заглядывать

[Yura158]

Ну сомневаюсь, все я мучаюсь и никак не могу нормально сделать...

[Yura158]

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

Ларчик открывался просто: Вы невнимательны

Код получения UserIndex в Unit16:

Код:

UserIndex:= ADOQuery1['UserIndex'];

и код получения данных по индексу в Unit18:

Код:

ADOQuery1.Parameters.ParamByName('U serIndex').Value:=Unit16.UserIndex + 1;

Дальше сами справитесь?

P.S. Учитесь пользоваться отладчиком, я поставил брякпойнт на момент получения UserIndex и нашёл грабли меньше, чем за пять минут. Проект дольше открывался :D

P.P.S. Справедливости ради отмечу, что я тоже особой внимательностью не отличился - все эти данные Вы уже выложили в своём посте, можно было вообще в проект не заглядывать

Сомневаюсь что ничего у меня не получится... Я так не особо разбираюсь

[Sciv]

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

Сомневаюсь что ничего у меня не получится... Я так не особо разбираюсь

Вы, не особо разбираясь, уже нормально так 18 юнитов в проекте запилили