var b:boolean;
b=false;
if ado_temp.FieldByName('del_other').AsBoolean=false then
begin
if E_mainf.user_bumen<>trim(adodataset1.FieldByName('bumen').AsString) then
a:=messagebox(handle,'你没有足够的权限删除别部的记录','警告',mb_iconwarning)
else
b=true;
end
else
begin
b=true;
end;
可是我有两个要嵌套的IF语句进行判断.要是不用GOTO语句的话,达不到效果,能不能帮我看看程序
if ado_temp.FieldByName('del_other').AsBoolean=false then
begin
if E_mainf.user_bumen<>trim(adodataset1.FieldByName('bumen').AsString) then
a:=messagebox(handle,'你没有足够的权限删除别部的记录','警告',mb_iconwarning)
end
else
begin
end;
我要让第二个IF语句不成立时,就执行最下面的begin end 那要怎么实现呢?