TDBGrid控件中對多個記錄的處理

2019-11-17 05:10:38

字體：大中小

來源：轉載

供稿：網友

　　Delphi的TDBGrid控件主要用來處理數據表，它的屬性中有一個dgMultiSelect，若此屬性設定為TRUE，則可以選中多個記錄（可用CTRL＋鼠標左鍵選擇多個記錄）。

對選中的多個記錄可以有以下幾種處理方式，比較簡單的兩種是：清除所有的選擇記錄可用DBGrid1.SelectedRows.Clear語句;刪除所有的選擇記錄可用DBGrid1.SelectedRows.Delete語句。但假如想獲得選中的所有記錄的其他信息，比如，在單獨的一個窗體中顯示用戶選擇的記錄的第一個字段的內容（如所有選擇的姓名）如何處理呢？這就要使用書簽功能了，下面是筆者編寫的一個程序中的過程，用來將用戶選擇的多個記錄集中顯示在另外一個窗體中（筆者使用的是DELPHI4）, 供參考使用。
PRocedure GetSelectedRecord
(DataSet : TDataSet; //數據表
FieldName : String; //字段名稱
BookmarkList : TBookmarkList; // 書簽、用來保存所選字段內容的
Strings : TStrings); //字符串（用于將內容傳遞到另一個單獨窗體中的TLIST控件中）
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do
begin
DisableControls;
bm := GetBookMark;
try
//每個選擇的記錄都有一個書簽標志，這就為處理它們提供了條件
for I := 0 to BookmarkList.Count - 1 do
begin
Bookmark := BookmarkList[I];
Strings.Add(DataSet.FindField(fieldname).AsString);
end;
finally
GotoBookMark(bm);
FreeBookMark(bm);
EnableControls;
end;
end;
end;

調用舉例：
GetSelectedRecord(Table1, NAME, DBGrid1.SelectedRows, Form2.ListBox1.Items);