Delphi通过DBGrid删除ADOTabale中的内容

由于DBGrid与ADOTable是相关联的，虽然在DBGrid中每一行的位置在ADOTable中不一样，但是都是对应起来的。要通过DBGrid删掉ADOTable中的一行记录，直接点击DBGrid的一行，然后写一个删除函数就可以了。下面是一个删除按钮的函数：就是删除记录的。（不需要通过在DBGrid中选中的一条与ADOTable中的每一条相对比，然后找到相同的一条再删除，并得到其行号等等内容删除。）

1 procedure TForm1.Button2Click(Sender: TObject);  //删除记录 ,太郁闷了，直接删除就可以了，根本不用寻找到哪条，在DBGrid里面选择上哪条，数据中就选择上哪条，直接就可以删除
2 begin
3 ADOTable1.Active:=True;
4 ADOTable1.Edit;
5 if Application.MessageBox('确定要删除?','提示',MB_YESNO)=IDYES then
6 ADOTable1.Delete;
7 DBGrid1.Update;
8 end;

由于我的程序在一开始的时候DBGrid1就有一条记录默认选中，所以不需要判断DBGrid1是否有选中。只要DBGrid1有选中就可以执行这个按钮程序，就删除数据库中的记录了。

虽然是让我折腾好久，但是还是有收获：

1：

1 DBGrid1.DataSource.DataSet.FindField('生产线编号').AsString

这个得到的是DBGrid1中选中的一行中的某一列的值。

1 ADOTable1.FieldByName('生产线编号').AsString

这个得到的是ADOTable某一行中的某一列的值。

2：

1 ADOTable1.First;//这样下面的代码在选择最后一天记录的时候不会为空
2 while not ADOTable1.Eof do
3 
4 。。。。
5 
6 end;

这个只要有第一行的代码，在鼠标点到DBGrid1最后一行的时候，就不会不执行2到5的程序。就是说如果鼠标点击在DBGrid1最后一行的话，没有第一行的代码，这个程序中间的2到5代码就不会执行。就会忽略最后一行记录的执行。

说得比较乱。就这样吧。

View Code

 1  /**
 2 ADOTable1.First;//这样下面的代码在选择最后一天记录的时候不会为空
 3 while not ADOTable1.Eof do
 4 begin
 5 
 6 if DBGrid1.DataSource.DataSet.FindField('生产线编号').AsString=ADOTable1.FieldByName('生产线编号').AsString
 7  then
 8 begin
 9   if Application.MessageBox('确定要删除?','提示',MB_YESNO)=IDYES then
10   ADOTable1.Delete;
11   DBGrid1.Update;
12 end;
13 
14 ADOTable1.Next;
15 end;
16  **/

 

 

转载于:https://www.cnblogs.com/leewiki/archive/2011/12/16/2290379.html