Question

Delphi编程 怎么实现在form1按删除按钮删除adotable1的一条记录同时删除form2

的对应该条记录。

Answer 1

删除选中记录就是 adotable1.Delete吧
至于删除form2对应的记录，那看你是怎么写的了
如果form2是dbgrid dbmemo之类的数据库组件
只要它绑定的是同一个adotable1，
那只要adotable1执行删除 form2上也同时删除了

如果不是同一个adotable1 那就刷新那个adotable吧 或者重新查询

如果是数据关联 假设有ID字段是索引字段
id:=adotable1.FieldByName('ID').AsInteger
adotable1.Delete;
然后 把ID传递到form2 去删除和这个ID相关的数据

追问

form1和form2是连接两个不同表的不过它们拥有相同的字段'姓名'

追答

Name1:=adotable1.FieldByName('姓名').AsInteger
Form2.name2:=name1;
adotable1.Delete;
然后 把Name1传递到form2 去删除和这个ID相关的数据
假如form2是 adotable2

ADOTable2.Filter:='姓名='''+name2+'''';
ADOTable2.Filtered:=true;
ADOTable2.Delete;
ADOTable2.Filtered:=false;

这个是较方便的删除了

追问

adotable2ADOTable2.Filter:='姓名='''+name2+''''; ADOTable2.Filtered:=true;ADOTable2.Delete;ADOTable2.Filtered:=false;这些代码也是写在form1的删除按钮中的是吧，然后因为是form2中的表所以是不应该把adotable2.改为form2.adotable2

追答

我都说了 把Name1传递到form2中的name2了
就在form2中写个过程让 form1调用好了

直接form2.adotable2也是可以的
form2.ADOTable2.Filter:='姓名='''+name1+'''';
form2.ADOTable2.Filtered:=true;
form2.ADOTable2.Delete;
form2.ADOTable2.Filtered:=false;

追问

谢谢！

Answer 2

删除记录后，对form2进行刷新就可以了。
或者在指定删除的
adotable1
前面指定form2.