【文件属性】:
文件名称:Delphi如何一次删除dbgrid多条记录的例子.rar
文件大小:6KB
文件格式:RAR
更新时间:2022-07-30 03:15:42
Delphi源码-数据库实例
Delphi演示如何一次删除网格数据表dbgrid中的多条记录,小技巧不过挺实用,希望对大家的Delphi编程有所帮助。以下是实现一次删除多条记录的相关代码供参考:
if DBGrid1.SelectedRows.Count >1 then s:= '真的要删除这些记录吗?';
if Application.MessageBox (Pchar(s),'删除多条记录',mb_iconinformation mb_yesNo)=idYes then
begin
DBGrid1.DataSource.DataSet.DisableControls ;
i:=0;
While i<= DBGrid1.SelectedRows.Count -1 do
begin
DBGrid1.DataSource.DataSet.Bookmark:= DBGrid1.SelectedRows.Items[i]; //重要在这里取得bookmark
TempBookmark := DBGrid1.Datasource.Dataset.GetBookmark;
DBGrid1.DataSource.DataSet.GotoBookmark(TempBookMark);
DBGrid1.DataSource.DataSet.Delete ;
DBGrid1.DataSource.DataSet.FreeBookmark (TempBookMark);
Inc(i);
end;
DBGrid1.DataSource.DataSet.EnableControls;
end;
更多代码请您在本页面下载源码。
【文件预览】:
srcfans.com
----一次删除dbgrid多条记录()
--------Project1.dof(1KB)
--------Unit1.dcu(4KB)
--------Unit1.dfm(1KB)
--------Project1.cfg(386B)
--------Project1.dpr(188B)
--------Unit1.pas(1KB)
--------Project1.res(876B)