检索TDBGrid中特定列的值

Question

我的应用程序中有一个名为Grid的TDBGRID，其中包含3列：

EMP_ID    EMP_FirstName    EMP_LastName

我的网格是多选的。

当用户单击按钮时，如何获取所选行的EMP_ID（我想将它们传递给存储过程）。

Answer 1

如果我了解您的需求，下面的代码应该会有所帮助。

DBGrid中选定的行记录在存储在其SelectedRows属性中的书签中。 因此，要获取过程TForm1.GetBookmarkIDs的列表，您需要做的是：

• 将当前位置保存在网格中（CDS1.GetBookmark）

• 迭代SelectedRows的项目，依次获取每个书签，获取书签，获取数据集并转到该书签，并获取数据集行的EMP_ID（在我的测试数据中，列名恰好只是“ ID”）。

• 使用EMP_ID值执行任何操作

• 返回到我们在开始时添加书签的记录

对DisableControls和EnableControls的调用是为了加快处理速度，因为它们阻止了在访问选定的行时GUI（当然还有网格）中其他数据感知控件的更新。

码：

procedure TForm1.GetBookmarkIDs;
var
  BM,
  SelectedBM : TBookmark;
  EMP_ID : Integer;
  i : Integer;
begin
   BM := CDS1.GetBookmark;
   try
     CDS1.DisableControls;
     CDS1.First;
     for i  := 0 to DBGrid1.SelectedRows.Count - 1 do begin
       SelectedBM := PChar(DBGrid1.SelectedRows[i]);
       CDS1.GotoBookmark(SelectedBM);
       EMP_ID := CDS1.FieldByName('ID').AsInteger;
       Memo1.Lines.Add(IntToStr(EMP_ID));
     end;
   finally
     CDS1.GotoBookmark(BM);
     CDS1.FreeBookmark(BM);
     CDS1.EnableControls;
   end;
 end;

您并未确切说明如何格式化EMP_ID列表以发送到存储过程。 使用上面的代码，您将每次都像在“ for i：= 0 ...”循环周围调用存储过程一样。

例如，如果您希望将它们作为逗号分隔的列表，则可以按照以下方式将例程重写为返回字符串的函数

function TForm1.GetBookmarkIDs : String;
[...]
begin
  Result := '';
  [...]
       //EMP_ID := CDS1.FieldByName('ID').AsInteger;
       if Result <> '' then
         Result := Result + ', ';
       Result := Result + CDS1.FieldByName('ID').AsString;
       [...]