Delphi - 恢复 DBGrid 中的实际行答案

【问题标题】：Delphi - restore actual row in DBGridDelphi - 恢复 DBGrid 中的实际行
【发布时间】：2011-03-01 01:18:04
【问题描述】：

D6 教授

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

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

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

但是如果我们重新打开查询，我们需要重新定位到最后一条记录。定位是不够的，因为 Grid 在另一行中显示它。这是一件很烦人的事，因为修改记录移到另一行后，你很难跟上，用户讨厌这个。

我们找到了这段代码：

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 或 Live/Sensitive Query 时，使用 MoveBy 很危险，因为如果有人删除或追加新行，我们可能会重新定位到错误的记录中。

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

那么问题来了：如何在 DBGrid 中强制行位置和记录？

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

我在寻找用户友好的解决方案，我理解他们，因为我尝试使用这种跨 DBGrid 的跳转，并且使用起来非常糟糕，因为更新后尝试查找原始记录时我的眼睛都出来了......： -(

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

【问题讨论】：

标签： delphi dataset row dbgrid locate

【解决方案1】：

在关闭和重新打开查询之前存储您的唯一键字段的值，然后在重新打开后将Locate 存储到记录中。 DisableControls/EnableControls 防止屏幕更新。

【讨论】：

嗨！我看不是。 GotoBookMark 与 Locate here 相同，因为我们是在 Open 之后。但实际的网格行不一样，所以禁用不阻止网格在另一个位置显示记录。 MoveBy 很好，但我需要在这里找到。但是如果我使用定位，网格行改变了......例如：研磨显示第4行中的记录127。当我用moveby重新打开时，它也在第4行。当我使用定位/书签时，它在3, 2, 5 - 随机，我可以看到实际记录... :-(
用户 2 插入/删除一行，您的用户 1 保存的记录号将不正确。这就是 TOndrej 试图帮助您避免的。

【解决方案2】：

我想到的只是一段简单的代码：

procedure DoRefresh(Dataset: TDataset);
var
  bkm: TBookmark;
begin
  Dataset.UpdateCursorPos;
  bkm := Dataset.GetBookmark;
  Dataset.DisableControls;
  try
    Dataset.Refresh;  //refresh dataset if it's open

    if Dataset.BookmarkValid(bkm) then
    begin
      Dataset.GotoBookmark(bkm);
    end;
  finally
    Dataset.EnableControls;
    Dataset.FreeBookmark(bkm);
  end;
end;

【讨论】：

嗨！我使用这样的例程： aRow = Grid.GetRow();查询。重新打开； SetActRow(aRow);所以这不是书签问题，这是 DBGrid Row 问题...
您使用的是什么 DBGrid？标准 TDBGrid 没有属性 GetRow。我怀疑这是 DBGrid 问题。 DBGrid 的活动记录是数据集中的当前活动记录。

【解决方案3】：

既然 'MoveBy's 对您有用，请使用它们。

在关闭数据集之前获取一个“书签”。完成您的工作，重新打开数据集，然后使用“MoveBy”将您的记录重新定位在网格上。完成后，获取另一个 Bookmark 并使用 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;

【讨论】：

【解决方案4】：

记录位置很大程度上取决于您从 Query/Table 对象获得的结果集的排序顺序。如果您根本不订购，那么您从服务器获得的顺序是实现定义的，因此无法保证重新打开查询时记录的顺序相同，即使没有发生任何更改 .至少在 MSSQL 和 Firebird 中，如果不使用 Order By 子句，则结果的顺序不同。

至于重新定位，我认为 TOndrej 解决方案是最安全的解决方案 - 使用结果集的主键将网格重新定位到正确的记录上。

【讨论】：