function TFrame1.Sel: Boolean;
begin
    Result := True;
    ListView1.Items.Clear;
    with DataModule1.IBQShared do
    begin
          SQL.Clear;
          SQL.Add('select name,note from Table1' +
                  'left join Table2 on Table2.name_id = Table1.note_id);
                  Open;
                  while not Eof do
                  begin
                       with ListView1.Items.Add do
                       begin
                                  Caption :=FieldByName('name').AsString;
                                  with SubItems do
                                  begin
                                       Add(FieldByName('note').AsString);
                                  end;
                         end;

                       Next;
                  end;
                  Close;
    end;
         if result then DataModule1.IBT.CommitRetaining
         else DataModule1.IBT.RollbackRetaining;
         inherited;
end;