各位大侠
小弟用DBGRird显示数据库表里的记录 但是我不知道有什么办法可以在DBGrid里面
一条一条的删除数据库里的记录 要是哪位大侠会的话 就举一个例子讲一下
小弟不甚感谢
小弟用DBGRird显示数据库表里的记录 但是我不知道有什么办法可以在DBGrid里面
一条一条的删除数据库里的记录 要是哪位大侠会的话 就举一个例子讲一下
小弟不甚感谢
解决方案 »
- self.caption不显示标题
- treeview,源码如下,请问如何提高效率?请大侠们帮忙看一下,指点迷津!谢谢!
- 控件颜色设置问题----Tpanel
- 遇见的一件气愤的事情,发到网上发泄一下 见笑了
- 答对者,年薪:8万美元
- 在Delphi中如何实现两个对象之间的复制?
- 这个问题怎么办关于findwindow的
- 日期问题。在线等待。立即给分
- 如何让StatusBar一闪一闪的,谢了。在先等待。解决马上给分
- 对于TreeView如何实现节点连选呢,比如说按下SHIFT,点击节点一次选中多个,象WINDOWS那样的,
- 使用ADOQuery+DataSetProvider+ClientDateSet的问题
- delphi有相当于vb中messagebox的控件吗?
如你用的是Table
1、先定位你要删除的记录,你可以用程序实现table.next,table.Prior等,另DBGrid也可以实现数据记录的定位,你选种那行,Table就定位在哪行
2、调用 Table.delete,然后Table.Post就删除掉记录了
query.delete
With DBGrid do
begin
if SelectedRows.Count = 0 then
Application.MessageBox('删除的是空记录!','简通提醒您:',MB_ICONWARNING or MB_Ok)
else
begin
sWarning := '你要确实要删除这' + IntToStr(SelectedRows.Count) +'条记录吗?';
if(Application.MessageBox(PChar(sWarning) ,'**提醒您:'
,MB_ICONWARNING or MB_YESNO)= IDYES) then
begin
for i:=0 to SelectedRows.Count-1 do
begin
ADOQuery1.GotoBook(pointer(SelectedRows.Items[i]));
ShowMessage(Fields[0].AsString);
end;
SelectedRows.Delete;//删除所有选中的记录
end;
end;
end;//end of with
DBGrid.SelectedRows.Delete 是删除选择的记录
ADOQuery1.GotoBook(pointer(SelectedRows.Items[i])); 是选择第I个选择的记录操作
查看帮助GotoBook,里面具体都有说明。
祝你成功