Вывод ФИО пользователя(который авторизировался) в DBLookupComboBox

var
k: boolean;
begin
    DM.Users.Active:=True;
  DM.Users.First;
  k:= false;
    while not DM.Users.Eof do begin
    if DM.Users.FieldByName('login').Value=RzEdit1.Text then
      if DM.Users.FieldByName('Password').Value=RzEdit2.Text then begin
        k:=true;
      end;
    DM.Users.Next;
  end;
  if k then begin
    Timer1.Enabled:=True;
    cxProgressBar1.Visible:=True;
    rzLabel1.Visible:=true;
    With cxProgressBar1 do
    Begin cxProgressBar1.Position:=Position+1;
   if Position<>Properties.Max Then begin rzlabel1.font.color:=clred; rzLabel1.Caption:='Выполняется загрузка БД...' ;
   form1.RzBitBtn1.Enabled:=False;
   end;
   if Position=Properties.Max then
   begin
   form1.RzBitBtn1.Enabled:=TRUE;
   end;
   end;
 end
  else ShowMessage('Неверный логин или пароль.Обратитесь к администратору!');
end;

unit Unit3;
 
interface
 
uses
  classes, types, forms, Controls, StdCtrls, Dialogs, SysUtils;
 
type
   TForm2 = class(TForm)
  private
    procedure CheckLogin;
    function LoginCorrect(login, pass: String): Boolean;
  public
    constructor Create(AOwner: TComponent); override;
  end;
 
var
  Form2: TForm2;
 
implementation
 
uses
  Unit1;
 
 
{$R *.dfm}
 
function TForm2.LoginCorrect(login,pass:String):Boolean;
begin
  result := true;
end;
 
procedure TForm2.CheckLogin();
var
  f:TForm1;
  r:TModalResult;
begin
  f:=TForm1.Create(NIL);
  try
    repeat
      r:=f.ShowModal;
      if r=mrOk then
      begin
        // придумаем функцию LoginCorrect() которая возвращает нам True или False
        // откуда она берет эти данные, из базы или файла или придумывает сама, нам все равно
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
          Break
      end;
    until r=mrCancel;
    if r=mrCancel then
    begin
      ShowMessage('Отказ от авторизации. Программа завершает свою работу.');
      Application.Terminate();
      Abort;
    end;
  finally
    f.free;
  end;
end;
 
constructor TForm2.Create(AOwner: TComponent);
begin
  inherited;
  CheckLogin;
end;
 
end.

unit Unit1;
 
interface
 
uses
  Windows, Messages, Forms, StdCtrls, Classes, Controls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
implementation
 
{$R *.dfm}
 
end.

function TForm2.LoginCorrect(login,password:string):boolean;
begin
  Query1.Sql.text := 'select ........ from users u where u.login=:login and u.password=:password';
  Query1.Parameters.ParamByName('login').Value := login;
  Query1.Parameters.ParamByName('password').Value := password;
  Query1.Open;
  result := not Query1.eof;
  Query1.Close;
end;

combo.items.insert(0, 'моя строка');

function TForm2.LoginCorrect(login,password:String):Boolean;
  begin
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:password';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('password').Value := password;
  DM.Users.Open;
  result := not DM.Users.eof;
  DM.Users.Close;
end;

function TForm2.LoginCorrect(login,password:String):Boolean;
  begin
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:password';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('password').Value := password;
  DM.Users.Open;
  result := not DM.Users.eof;
  exit;
  DM.Users.Close;
end;

unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs;
 
type
  TMainForm = class(TForm)
  private
    { Private declarations }
    procedure CheckLogin;
    function LoginCorrect(login, pass: String): Boolean;
  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
uses Unit2, Unit3;
function TMainForm.LoginCorrect(login,pass:String):Boolean;
  begin
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('password').Value := pass;
  DM.Users.Open;
  result := not DM.Users.eof;
  exit;
  DM.Users.Close;
end;
procedure TMainForm.CheckLogin();
var
  f:TLoginForm;
  r:TModalResult;
begin
  f:=TLoginForm.Create(NIL);
  try
    repeat
      r:=f.ShowModal;
      if r=mrOk then
      begin
        // придумаем функцию LoginCorrect() которая возвращает нам True или False
        // откуда она берет эти данные, из базы или файла или придумывает сама, нам все равно
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
          Break
      end;
    until r=mrCancel;
    if r=mrCancel then
    begin
      ShowMessage('Отказ от авторизации. Программа завершает свою работу.');
      Application.Terminate();
      Abort;
    end;
  finally
    f.free;
  end;
end;
 
constructor TMainForm.Create(AOwner: TComponent);
begin
  inherited;
  CheckLogin;
end;
 
end.

unit Unit2;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TLoginForm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  LoginForm: TLoginForm;
 
implementation
 
{$R *.dfm}
 
end.

unit Unit3;
 
interface
 
uses
  System.SysUtils, System.Classes, Data.DB, Data.Win.ADODB;
 
type
  TDM = class(TDataModule)
    ADOConnection1: TADOConnection;
    Users: TADOQuery;
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  DM: TDM;
 
implementation
 
{%CLASSGROUP 'Vcl.Controls.TControl'}
 
{$R *.dfm}
 
end.

function TMainForm.LoginCorrect(login,pass:String):Boolean;
  begin
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  result := not DM.Users.eof;
  while not DM.Users.eof do begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  rzcombobox1.ItemIndex:=0;
  DM.Users.next;
  DM.Users.Close;
  end;
  end;

procedure TForm1.FillUsersCombo();
begin
DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  result := not DM.Users.eof;
  while not DM.Users.eof do 
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
DM.Users.Close;
DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login<>:login and u.password<>:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  result := not DM.Users.eof;
  while not DM.Users.eof do 
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
DM.Users.Close;
  
end;

while not DM.Users.eof do

rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
DM.Users.next;

procedure TMainForm.FillUsersCombo();
var
login: String;
pass: String;
begin
DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  while not DM.Users.eof do
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
DM.Users.Close;
DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login<>:login and u.password<>:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  while not DM.Users.eof do
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
DM.Users.Close;
end;

procedure TMainForm.CheckLogin();
var
  f:TLoginForm;
  r:TModalResult;
begin
  f:=TLoginForm.Create(NIL);
  try
    repeat
      r:=f.ShowModal;
      if r=mrOk then
      begin
        // придумаем функцию LoginCorrect() которая возвращает нам True или False
        // откуда она берет эти данные, из базы или файла или придумывает сама, нам все равно
        if LoginCorrect(f.Edit1.text, f.Edit2.text) then
          Break
          else
          f.rzStatusBar1.SimpleCaption:='Неверный логин или пароль!';
      end;
    until r=mrCancel;
    if r=mrCancel then
    begin
      ShowMessage('Отказ от авторизации. Программа завершает свою работу.');
      Application.Terminate();
      Abort;
    end;
  finally
    f.Free;
  end;
end;

function TMainForm.LoginCorrect(login,pass:String):Boolean;
  begin
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login=:login and u.password=:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  result := not DM.Users.eof;
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
  DM.Users.next;
  DM.Users.Close;
  DM.Users.sql.text := 'SELECT id_users, name&" "&surname&" "&patronymic AS ФИО, login, password  from users u where u.login<>:login and u.password<>:pass';
  DM.Users.Parameters.ParamByName('login').Value := login;
  DM.Users.Parameters.ParamByName('pass').Value := pass;
  DM.Users.Open;
  while not DM.Users.eof do
  begin
  rzcombobox1.items.add(DM.Users.fieldbyname('ФИО').asstring);
  DM.Users.next;
  end;
DM.Users.Close;
end;