Добавление записей
procedure TForm1.DataSource1DataChange (Sender : TObject; Field : TField);
begin if (Field = nil) or (Field.FieldName = 'Emp_ID') then begin Query2.DisableControls; Query2.Close; with Query2.SQL do begin Clear; Add('SELECT *');
Add('FROM employees T1');
Add('WHERE T1.Boss_ID = ' + Table1.FieldByName('Emp_ID').AsString);
Add('OR T1.Boss_ID IS NULL');
{ // дополнительный код } end; Query2.Open; Query2.EnableControls; end; end;
При этом будут извлечены записи, принадлежащие текущему Boss_ID, а также те, которые не принадлежат никакому Boss_ID (работники, у которых вообще нет начальника).
