由于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 **/