由于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代码就不会执行。就会忽略最后一行记录的执行。
说得比较乱。就这样吧。
![](https://i-blog.csdnimg.cn/blog_migrate/8f900a89c6347c561fdf2122f13be562.gif)
![](https://i-blog.csdnimg.cn/blog_migrate/961ddebeb323a10fe0623af514929fc1.gif)
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 **/