Динамический запрос (подстановка текущего выбранного значения поля)

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
  cxDataStorage, cxEdit, DB, cxDBData, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, ExtCtrls, DBCtrls, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    cxGrid1: TcxGrid;
    cxGrid1DBTableView1: TcxGridDBTableView;
    cxGrid1DBTableView1Kod_abonenta: TcxGridDBColumn;
    cxGrid1DBTableView1Fam: TcxGridDBColumn;
    cxGrid1DBTableView1Name: TcxGridDBColumn;
    cxGrid1DBTableView1Otchestvo: TcxGridDBColumn;
    cxGrid1DBTableView1Ser_pasporta: TcxGridDBColumn;
    cxGrid1DBTableView1Num_pasporta: TcxGridDBColumn;
    cxGrid1DBTableView1Data_rojdeniya: TcxGridDBColumn;
    cxGrid1DBTableView1Adress: TcxGridDBColumn;
    cxGrid1Level1: TcxGridLevel;
    DBNavigator1: TDBNavigator;
    Filter: TDBRadioGroup;
    cxGrid2DBTableView1: TcxGridDBTableView;
    cxGrid2Level1: TcxGridLevel;
    cxGrid2: TcxGrid;
    cxGrid3DBTableView1: TcxGridDBTableView;
    cxGrid3Level1: TcxGridLevel;
    cxGrid3: TcxGrid;
    cxGrid2DBTableView1Kod_abonenta: TcxGridDBColumn;
    cxGrid2DBTableView1Kod_telephona: TcxGridDBColumn;
    cxGrid2DBTableView1Num_telephona: TcxGridDBColumn;
    cxGrid3DBTableView1Kod_taripha: TcxGridDBColumn;
    cxGrid3DBTableView1Opisanie: TcxGridDBColumn;
    cxGrid3DBTableView1Stoimost_perehoda: TcxGridDBColumn;
    cxGrid3DBTableView1Abonentskaya_plata: TcxGridDBColumn;
    cxGrid3DBTableView1Stoimost_uslug: TcxGridDBColumn;
    procedure FormShow(Sender: TObject);
    procedure cxGrid1DBTableView1FocusedRecordChanged(
      Sender: TcxCustomGridTableView; APrevFocusedRecord,
      AFocusedRecord: TcxCustomGridRecord;
      ANewItemRecordFocusingChanged: Boolean);
    procedure DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
    procedure FilterClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
uses Unit2;
{$R *.dfm}
 
procedure TForm1.FormShow(Sender: TObject);
begin
with DM do begin
  ConnToBD.Connected:=true;
  Abonenti.open;
  Basa.open;
  Plan.open;
  end;
end;
 
procedure TForm1.cxGrid1DBTableView1FocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord;
  ANewItemRecordFocusingChanged: Boolean);
begin
with DM do begin
 if Abonenti.Active then begin
  if Form1.Filter.ItemIndex=1 then begin
   Basa.Close;
   Basa.SQL.Clear;
   Basa.SQL.Add('select * from Basa');
   if (not Abonenti.IsEmpty) and (not (Abonenti.State in [dsInsert,dsEdit])) then
     Basa.SQL.Add('where Kod_abonenta='+Abonenti.FieldByName('Kod_abonenta').AsString);
   Basa.Open;
  end
  else begin
    Basa.Close;
    Basa.SQL.Clear;
    Basa.SQL.Add('select * from Basa');
    Basa.Open;
  end;
 end;
end;
end;
 
procedure MyFilter;
begin
with DM do begin
 if Abonenti.Active then begin
  if Form1.Filter.ItemIndex=1 then begin
   Basa.Close;
   Basa.SQL.Clear;
   Basa.SQL.Add('select * from Basa');
   if (not Abonenti.IsEmpty) and (not (Abonenti.State in [dsInsert,dsEdit])) then
     Basa.SQL.Add('where Kod_abonenta='+Abonenti.FieldByName('Kod_abonenta').AsString);
   Basa.Open;
  end
  else begin
    Basa.Close;
    Basa.SQL.Clear;
    Basa.SQL.Add('select * from Basa');
    Basa.Open;
  end;
 end;
end;
end;
 
procedure TForm1.cxGrid1DBTableView1FocusedRecordChanged(
  Sender: TcxCustomGridTableView; APrevFocusedRecord,
  AFocusedRecord: TcxCustomGridRecord;
  ANewItemRecordFocusingChanged: Boolean);
begin
  MyFilter;
end;
 
 
procedure TForm1.FilterClick(Sender: TObject);
begin
  MyFilter;
end;
 
end.