请指教!!!
在DBGrid中如何删除所选中(多条)的记录
在DBGrid中如何删除所选中(多条)的记录
解决方案 »
- timer的循环调用
- 如何实现让用户来调整delphi中报表内容的位置
- 急招石家庄delphi程序员
- 如何将 Word 导入 SQL server 里去呢》
- Loading等待功能!
- 在stringgrid中如何格式化数字
- forgot2000的散分帖:200分征集你认为较好的电影下载网站。收费免费均可。进者有分!
- 如何点击窗口中任意位置拖动窗口?
- installshield developer 和installshield professional有什么区别?
- 这个问题我已经问了4遍,难道真的没有人理我!!!!!!!
- 非Delphi用户请教一个非常简单的数据库访问问题?来者有分!
- 初雪者,求助,数据库登陆问题。
具体的用法,参考Delphi的帮助吧
tempBookMark : TbookMark;
begin
If dbgrid1.SelectedRows.Count > 1 Then s := '真的要删除这些记录?'
If application.MessageBox(pchar(s), 'CVSC--多媒体光盘检索播放', mb_iconinformation + mb_YesNo) = IdYes Then
Begin
i := 0;
DBGrid1.Datasource.Dataset.DisableControls;
While i <= dbgrid1.SelectedRows.Count - 1 Do
Begin
DBGrid1.Datasource.Dataset.Book := dbgrid1.SelectedRows.Items[i]; //重要的在这里,取得BOOKMARK
TempBook := DBGrid1.Datasource.Dataset.GetBook;
DBGrid1.Datasource.Dataset.GotoBook(TempBook);
qry_del.ParamByName('param1').AsInteger := Dbgrid1.DataSource.DataSet.fieldbyname('id').AsInteger;
qry_del.Prepare;
qry_del.ExecSQL;
DBGrid1.Datasource.Dataset.FreeBook(TempBook); //释放BOOKMARK
inc(i); //下一个选择记录
End;
DBGrid1.Datasource.Dataset.EnableControls;
End;
end;