利用書簽功能對TDBGrid控件中多個記錄的處理

2019-11-18 18:38:59

字體：大中小

來源：轉載

供稿：網友

DELPHI 的TDBGrid 控件主要用來處理數據表，它的屬性中有
一個dgMultiSelect，若此屬性設定為TRUE，則可以選中多個記錄
（可用CTRL ＋鼠標左鍵選擇多個記錄）。對選中的多個記錄
可以有以下幾種處理方式，比較簡單的兩種是：清除所有
的選擇記錄可用DBGrid1.SelectedRows.Clear 語句; 刪除所有的選
擇記錄可用DBGrid1.SelectedRows.Delete 語句。但如果想獲得選中
的所有記錄的其他信息，比如，在單獨的一個窗體中顯示
用戶選擇的記錄的第一個字段的內容（如所有選擇的姓名）
如何處理呢？這就要使用書簽功能了，下面是筆者編寫的
一個程序中的過程，用來將用戶選擇的多個記錄集中顯示
在另外一個窗體中（筆者使用的是DELPHI4）, 供參考使用。

PRocedure GetSelectedRecord
(DataSet : TDataSet; FieldName : String;
BookmarkList : TBookmarkList; Strings : TStrings);
file://這個過程中的參數分別為：數據表、字段名稱、
書簽、用來保存所選字段內容的
file://字符串（用于將內容傳遞到另
一個單獨窗體中的TLIST控件中）
var
I: Integer;
bm : TBookMark;
begin
Strings.Clear;
with Dataset do begin
DisableControls;
bm := GetBookMark;
try
file://每個選擇的記錄都有一個書簽標志，
這就為處理它們提供了條件
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

上一篇：游戲開發(fā)者社區(qū)對底層API的投票

下一篇：如何將幾個DBGRID里的內容導入同一個EXCEL表中？