TDataSetOnFilterRecord事件中过滤掉的记录的可见性问题

在OnFilterRecord事件中过滤掉不需要的记录时，需要考虑被过滤掉的记录是否对应的行数据应该被隐藏或者跳过。

以下为一个示例代码：

procedure TForm1.DataSet1FilterRecord(DataSet: TDataSet; var Accept: Boolean);
begin
  // 过滤掉 ID 大于 3 的记录
  Accept := DataSet.FieldByName('ID').AsInteger <= 3;
  if not Accept then
  begin
    // 隐藏被过滤掉的记录
    DataSet.Fields.FieldByName('ID').Visible := False;
    DataSet.Fields.FieldByName('Name').Visible := False;
    DataSet.Fields.FieldByName('Age').Visible := False;
  end;
end;

在上面的代码中，如果记录的ID字段大于3，则该记录将被过滤掉，同时该记录的所有字段也将被设为不可见。这样，当用户在使用TDBGrid等数据控件时，被过滤掉的记录就不会被显示出来了。