Delphi - 恢复 DBGrid 中的实际行

Question

D6教授

以前我们使用 DBISAM 和 DBISAMTable。它处理 RecNo，并且可以很好地进行修改(删除、编辑等)。

现在我们替换为 ElevateDB，它不处理 RecNo，而且很多时候我们使用查询，而不是表。

必须重新打开查询才能看到修改。

但是如果我们重新打开查询，我们需要重新定位到最后一条记录。定位是不够的，因为网格将其显示在另一行中。这是非常令人不安的事情，因为修改记录移到另一行后，你很难跟上它，而且用户讨厌这样。

我们找到了这段代码:

function TBaseDBGrid.GetActRow: integer;
begin
 Result := -1 + Row;
end;


procedure TBasepDBGrid.SetActRow(aRow: integer);
var
 bm : TBookMark;
begin
 if IsDataSourceValid(DataSource) then with DataSource.DataSet do begin
  bm := GetBookmark;
  DisableControls;
  try
   MoveBy(-aRow);
   MoveBy(aRow);
   //GotoBookmark(bm);
  finally
   FreebookMark(bm);
   EnableControls;
  end;
 end;
end;

原始示例是使用 moveby。这对于查询来说效果很好，因为我们看不到查询在后台重新打开，视觉控制没有改变行位置。

但是当我们有 EDBTable 或实时/敏感查询时，使用 MoveBy 是危险的，因为如果有人删除或追加新行，我们可能会重新定位到错误的记录。

然后我尝试使用书签(见备注)。但这种技术不起作用，因为它在另一个行位置显示记录...

那么问题是:如何在 DBGrid 中强制行位置和记录？

或者什么样的DBGrid可以在底层DataSet刷新后重新定位到记录/行？

我寻找用户友好的解决方案，我理解它们，因为我尝试使用这个跨越DBGrid，并且非常不好使用，因为当我尝试在更新后查找原始记录时，我的眼睛都快要出来了......: -(

感谢您的每一个帮助、链接、信息: dd

Answer 1

既然“MoveBy”对你有用，那就使用它们吧。

在关闭数据集之前获取“书签”。完成您的工作，重新打开数据集，然后使用“MoveBy”在网格上重新定位您的记录。完成后，获取另一个书签并使用 DataSet.CompareBookmarks 将其与前一个书签进行比较。如果结果为 0 则很好，如果不是，则仅对前一个书签发出“GotoBookmark”。

这样，只要其他用户没有删除/插入记录，您的网格就不会显得跳跃，如果不是这种情况，至少您会在同一条记录上。

---

编辑:以下是一些代码示例，即使数据集中存在删除/插入操作，也应将所选记录重新定位到正确的位置。请注意，为简单起见，代码省略了禁用/启用控件，以及填充网格的记录较少时的特殊情况。

type
  TAccessDBGrid = class(TDBGrid);

procedure TForm1.Button1Click(Sender: TObject);
var
  BmSave, Bm: TBookmark;
  GridRow, TotalRow: Integer;
begin
  GridRow := TAccessDBGrid(DBGrid1).Row;
  TotalRow := TAccessDBGrid(DBGrid1).RowCount;
  BmSave := DBGrid1.DataSource.DataSet.GetBookmark;
  try

    // close dataset, open dataset...

    if DBGrid1.DataSource.DataSet.BookmarkValid(BmSave) then
      DBGrid1.DataSource.DataSet.GotoBookmark(BmSave);
    Dec(TotalRow);
    if GridRow < TotalRow div 2 then begin
      DBGrid1.DataSource.DataSet.MoveBy(TotalRow - GridRow);
      DBGrid1.DataSource.DataSet.MoveBy(GridRow - TotalRow);
    end else begin
      if dgTitles in DBGrid1.Options then
        Dec(GridRow);
      DBGrid1.DataSource.DataSet.MoveBy(-GridRow);
      DBGrid1.DataSource.DataSet.MoveBy(GridRow);
    end;
    Bm := DBGrid1.DataSource.DataSet.GetBookmark;
    try
      if (DBGrid1.DataSource.DataSet.BookmarkValid(Bm) and
          DBGrid1.DataSource.DataSet.BookmarkValid(BmSave)) and
          (DBGrid1.DataSource.DataSet.CompareBookmarks(Bm, BmSave) <> 0) then
        DBGrid1.DataSource.DataSet.GotoBookmark(BmSave);
    finally
      DBGrid1.DataSource.DataSet.FreeBookmark(Bm);
    end;
  finally
    DBGrid1.DataSource.DataSet.FreeBookmark(BmSave);
  end;
end;