Отсеивание данных

   
...
 
// компоненты НЕ встроенные, меняй на стандартные.
 AdvEditSotr: TAdvEdit;
    procedure JvXPButton1Click(Sender: TObject);
    procedure JvXPButton6Click(Sender: TObject);
    procedure JvXPButton2Click(Sender: TObject);
    procedure JvXPButton7Click(Sender: TObject);
    procedure cxRadioSotrFamilClick(Sender: TObject);
    procedure cxRadioSotrNameClick(Sender: TObject);
    procedure cxRadioSotrOtchClick(Sender: TObject);
  private
    { Private declarations }
    filterStr: string;
  public
    { Public declarations }
  end;
 
var
  FormFilter: TFormFilter;
 
implementation
 
{$R *.dfm}
 
uses UnitAuth, UnitDM, UnitMain, UnitProfile, UnitSotrudniki, UUserSet,
  UnitVosst, UnitKlienty, UnitPostavshiki;
 
// ----------------------------сотрудники------------------------------------
 
procedure TFormFilter.cxRadioSotrFamilClick(Sender: TObject);
begin
  filterStr := 'Фамилия';
end;
 
procedure TFormFilter.cxRadioSotrNameClick(Sender: TObject);
begin
  filterStr := 'Имя';
end;
 
procedure TFormFilter.cxRadioSotrOtchClick(Sender: TObject);
begin
  filterStr := 'Отчество';
end;
 
procedure TFormFilter.JvXPButton1Click(Sender: TObject);
begin
  if AdvEditSotr.Text <> '' then
  begin
    with DM.CompQuery_sotrudniki do
    begin
      Filter := filterStr + ' = ' + QuotedStr(AdvEditSotr.Text);
      Filtered := true;
      if (RecordCount = 0) then
      begin
        ShowMessage('asd');
      end;
    end;
  end;
 
end;
...

with table do
begin
SQL.Clear;
SQL.Add('SELECT * FROM имя_таблицы WHERE имя=вася');
ExecuteSQL; // не помню точно.
Active := true;
Active := false;
end;