文件名称：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)