各位，小问题。帮帮忙。(50分)

我写了几行代码，不能通过请大家帮忙看一下，谢了。
我的本意是想，删除这个数据，把附数据库中的关联的数据也删除。请多指点

procedure Tkhgl.XP_Button2Click(Sender: TObject);
begin
if not adoquery2.eof then
begin
adoquery2.delete;
adoquery2.Close;
adoquery2.open;
end
else
if adoquery2.eof then
begin
showmessage('数据为空不能删除！');
end
while not adotable2.Eof do
begin
if adotable2['固定id']=adoquery2['自动编号'] then
adotable2.delete;
end
else adotable1.Next;
end;
end;

老兄你这段代码病得真不少，建议代码书写用缩进风格。根据你表述的，我随手改了一下，
你可参考。
procedure Tkhgl.XP_Button2Click(Sender: TObject);
begin
if adoquery2.RecordCount=0 then
begin
showmessage('数据为空不能删除！');
exit;
end;

if not adotable2.acitve then adotable2.open;
adotable2.first;
while not adotable2.Eof do
begin
if adotable2['固定id'].value=adoquery2['自动编号'].value then
adotable2.delete;
adotable2.Next;
end;
adoquery2.delete;
end;

凌晨5：00了，休息罗....[]

谢谢老兄