请大家帮忙看看这段代码，它运行起来没有什么错误，但是我要实现的功能不能实现，谢谢 ( 积分: 7 )

procedure TForm3.Button1Click(Sender: TObject);
begin
table1.Open;
if (table1.recordcount=0) then
begin
showmessage('数据库中已没有数据');
end;
if table1.RecordCount<>0 then
if messagedlg( '是否删除['+table1.fieldbyname('姓名').asstring+']的所有信息?',mtcustom,[mbyes,mbno],0)=mryes then
begin
if table1.FieldByName('职位').asstring='党员' then
begin
table2.Open;
with table2 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table2.Delete;
table2.Close;
end
else if table1.FieldByName('职位').asstring='预备党员' then
begin
table3.Open;
with table3 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table3.Delete;
table3.Close
end
else if (table1.FieldByName('职位').asstring='班长')
or (table1.FieldByName('职位').asstring='团委书记')
or (table1.FieldByName('职位').asstring='学习委员')
or (table1.FieldByName('职位').asstring='生活委员')
or (table1.FieldByName('职位').asstring='文体委员')
or (table1.FieldByName('职位').asstring='组织委员')
or (table1.FieldByName('职位').asstring='宣传委员') then
begin
table4.Open;
with table4 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table4.Delete;
table4.Close
end;
end;
begin
table1.Open;
table1.Delete;
query1.Close;
query1.open;
form1.Query1.close;
form1.Query1.Open;
end;
end;
我想实现的功能是：现在有4个表，基本信息表，党员量化管理表，预备党员量化管理表 和 班团干部量化管理表，在按删除按扭的时候，不但要删除基本信息表中的相关内容，而且要根据职位的不同在党员量化管理表，预备党员量化管理表 和 班团干部量化管理表中删除学号相对应的记录。这些代码运行起来没有语法错误，但是以上功能不能实现，不知道是怎么回事？谢谢

procedure TForm3.Button1Click(Sender: TObject);
begin
table1.Open;
if (table1.recordcount=0) then
begin
showmessage('数据库中已没有数据');
end;
if table1.RecordCount<>0 then
if messagedlg( '是否删除['+table1.fieldbyname('姓名').asstring+']的所有信息?',mtcustom,[mbyes,mbno],0)=mryes then
begin
if table1.FieldByName('职位').asstring='党员' then
begin
table2.Open;
with table2 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table2.Delete;
table2.Close;
end
else if table1.FieldByName('职位').asstring='预备党员' then
begin
table3.Open;
with table3 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table3.Delete;
table3.Close
end
else if (table1.FieldByName('职位').asstring='班长')
or (table1.FieldByName('职位').asstring='团委书记')
or (table1.FieldByName('职位').asstring='学习委员')
or (table1.FieldByName('职位').asstring='生活委员')
or (table1.FieldByName('职位').asstring='文体委员')
or (table1.FieldByName('职位').asstring='组织委员')
or (table1.FieldByName('职位').asstring='宣传委员') then
begin
table4.Open;
with table4 do
locate('学号',vararrayof(['dbedit1.Text']),[lopartialkey]);
table4.Delete;
table4.Close
end;
end;
begin
table1.Open;
table1.Delete;
query1.Close;
query1.open;
form1.Query1.close;
form1.Query1.Open;
end;
end;
我想实现的功能是：现在有4个表，基本信息表，党员量化管理表，预备党员量化管理表 和 班团干部量化管理表，在按删除按扭的时候，不但要删除基本信息表中的相关内容，而且要根据职位的不同在党员量化管理表，预备党员量化管理表 和 班团干部量化管理表中删除学号相对应的记录。这些代码运行起来没有语法错误，但是以上功能不能实现，不知道是怎么回事？谢谢

二十一世纪什么最贵？－－网络技术人才！人才的价值怎么体现？－－薪水！你是否获得了应有的薪水？你的老板有没有苛刻你？无论你在什么地方，什么职位，只要三步，就能知道你应有的价值！

　　http://www.51cto.com/salary/ 欢迎进入51CTO薪酬评测系统


评测中遇到BUG或者其他技术方面的问题..请大家及时提出意见和建议..本人将给评测系统予以改进....谢谢......