How can i import data/information values from databases and display them into labels captions?

Question

What I'm using for my database (all connected together): ADOConnection1, ADOQuery1, DataSource1, MS-Access, Delphi 10.3

I'm trying to get the values(of all types, mostly strings) from my Database (that's on ms access Database) and put them to text labels, as a displayable text from the database for that exact connected user.

So I will provide you as much information as possible...

Here is the full code that I am using:

procedure TLogin_Page.BitBtn2Click(Sender: TObject);

  begin
      with DataModule5 do
        begin
          // using the following code will check if the credentials are correct, if its correct then Login
          ADOQuery1.SQL.Text := 'SELECT UserCode FROM Credentials ' +
                                'WHERE (UserCode = :UserCode) ' +
                                'AND (Password = :Password)';
          ADOQuery1.Parameters.ParamByName('UserCode').Value := username_field.Text;
          ADOQuery1.Parameters.ParamByName('Password').Value := THashMD5.GetHashString(password_field.Text);
          ADOQuery1.Open;
      if not ADOQuery1.IsEmpty then
        begin
          ShowMessage('Welcome ' + username_field.text + ' !');
          EasyPharmacy_Page.Show;
          Login_Page.Hide;
          // clears fields once logged in
          username_field.Text:='';
          password_field.Text:='';
        end else
        messageDlg('Incorrect Credentials', mtCustom, [mbOK], 0);
      end;
      // once the user connected, import all of the informations of the connected user
      // the infos should be imported to labels texts in "MyAccountPage" form
      // code below doesnt show values from database to label texts
      with DataModule5 do
      begin
        with ADOQuery1 do
          begin
            Close;
            SQL.Clear;
            SQL.add ('SELECT * FROM Credentials ' +
                              'WHERE (UserCode = :UserCode) ' +
                              'AND (Password = :Password) ' +
                              'AND (FirstName = :FirstName) ' +
                              'AND (LastName = :LastName) ' +
                              'AND (Age = :Age) ' +
                              'AND (Adminstrator = :Adminstrator) ');
            Parameters.ParamByName('UserCode').Value;
            Parameters.ParamByName('UserCode').DataType:= ftString;
            // password hashed
            Parameters.ParamByName('Password').GetHashCode;
            Parameters.ParamByName('Password').Value;
            Parameters.ParamByName('Password').DataType:= ftString;
            // first name
            Parameters.ParamByName('FirstName').Value;
            Parameters.ParamByName('FirstName').DataType:= ftString;
            // last name
            Parameters.ParamByName('LastName').Value;
            Parameters.ParamByName('LastName').DataType:= ftString;
            // age
            Parameters.ParamByName('Age').Value;
            Parameters.ParamByName('Age').DataType:= ftInteger;
            // administrator permissions
            Parameters.ParamByName('Adminstrator').Value;
            Parameters.ParamByName('Adminstrator').DataType:= ftboolean;
            Prepared := true;
            with MyAccountPage do
              begin
                open;
                UsernameDetail.Caption := FieldByName('UserCode').AsString;
                PasswordDetail.Caption := FieldByName('Password').asString;
                FirstName.Caption      := FieldByName('FirstName').AsString;
                LastName.Caption       := FieldByName('LastName').AsString;
                MyAge.Caption          := FieldByName('Age').AsString;
              end;
          end;
      end;
  end;

I'm not sure if the problem that I'm having is in this code I'm using here, doesn't seem like its working, or doing what I wanted (display values to labels?):

          UsernameDetail.Caption := FieldByName('UserCode').AsString;
          PasswordDetail.Caption := FieldByName('Password').asString;
          FirstName.Caption      := FieldByName('FirstName').AsString;
          LastName.Caption       := FieldByName('LastName').AsString;
          MyAge.Caption          := FieldByName('Age').AsString;

When I run my program, it only clears the labels captions where the user information were supposed to be displayed

In case you want to know what I wrote in the "sign up" page that inserts the data into the database:

 with DataModule5 do
  begin
    ADOquery1.Close;
    ADOquery1.SQL.Clear;
    ADOquery1.SQL.Add('INSERT INTO Credentials ([UserCode], [Password], [FirstName], [LastName], [Age], [Adminstrator]) ');
    ADOquery1.SQL.Add('VALUES (:UserCode, :Password, :FirstName, :LastName, :Age, :Adminstrator) ');
    // Username + Password Data
    ADOquery1.Parameters.ParamByName('UserCode').Value := username_text.Text;
    ADOquery1.Parameters.ParamByName('Password').Value := THashMD5.GetHashString(Confirm_Password_Text.Text);

    // User's First and Last name Data
    ADOquery1.Parameters.ParamByName('FirstName').Value := FName_input.Text;
    ADOquery1.Parameters.ParamByName('LastName').Value := LName_input.Text;
    ADOquery1.Parameters.ParamByName('Age').value := Age_input.Text;
    // Administrator's Permission
    if AdminPrivilege.Checked = true then
      begin
        ADOquery1.Parameters.ParamByName('Adminstrator').Value:=-1;
      end;
    if AdminPrivilege.Checked = False then
      begin
        ADOquery1.Parameters.Parambyname('Adminstrator').Value:=0;
      end;

    ADOquery1.ExecSQL;

    ShowMessage('a new account has been created successfully');

  end;

If there is something wrong with my code please let me know...

Answer 1

i managed to solve the problem that i had (thanks to @ken white, for the clarification)

i replaced the TLabel components with TDBText, then i set each TDBText label's datasource+Datafield on the loggin process to display the data from database to labels, and this code worked out:

 with DataModule5 do
    begin
      // using the following code will check if the credentials are correct, if its correct then Login
      ADOQuery1.SQL.Text := 'SELECT * FROM Credentials ' +
                            'WHERE (UserCode = :UserCode) ' +
                            'AND (Password = :Password)';
      ADOQuery1.Parameters.ParamByName('UserCode').Value := username_field.Text;
      ADOQuery1.Parameters.ParamByName('Password').Value := THashMD5.GetHashString(password_field.Text);
      ADOQuery1.Open;
  if not ADOQuery1.IsEmpty then
    begin
      ShowMessage('Welcome ' + username_field.text + ' !');
      EasyPharmacy_Page.Show;
      // displayable profile information:
           with MyAccountPage do
           begin
              //Connecting DataSource
            with DataModule5 do
              begin
                usernamedetail.DataSource := DataSource1;  // UserName
                PasswordDetail.Datasource := DataSource1;  // PassWord
                FirstName.Datasource      := DataSource1;  // FirstName
                LastName.Datasource       := DataSource1;  // LastName
                MyAge.Datasource          := DataSource1;  // MyAge
              end;
              // filling DataField
              UsernameDetail.DataField  := 'UserCode';
              PasswordDetail.DataField  := 'Password';
              FirstName.DataField       := 'FirstName';
              LastName.DataField        := 'LastName';
              MyAge.DataField           := 'Age';
           end;

      Login_Page.Hide;
      // clears fields once logged in
      username_field.Text:='';
      password_field.Text:='';
    end else
    messageDlg('Incorrect Credentials', mtCustom, [mbOK], 0);
  end;

Answer 2

In BitBtn2Click you set the Prepared property to true but not the Active property of the query.