初学者请教一个问题请高手指点一下请问错在什么地方

[lqxdelphi]

procedure TForm3.FormShow(Sender: TObject);
var i:integer;
ss:string;
begin
//在权限设置中查询该用户名的权限
i:=1;
for i:=1 to 30 do
begin
with cxqx do
begin
close;
sql.Clear;
sql.Add('select * from qxxg where yhbh='''+trim(yhdl.yh.Text)+''' and mc='''+trim(form3.N+trim(intostr[I].Caption)+'''');
open;
end;
if cxqx.RecordCount>0 then
N+trim(inttostr[I]).enable:=cxqx.fieldbyname('N+inttostr[I]').value;
end;
i:=i+1;
end;

[hiflower]

i:=1; //不要
i:=i+1;//不要
不允许在 for 循环中改变循环变量的值

[47522341]

不太明白楼主程序的意思；
楼主还是连表的内容和楼主想要实现的功能粘贴上来吧；

[hmzgz81]

这都要抢啊！楼上的好快哦！ 佩服！怪不得升星了！

[lqxdelphi]

我是想根据所登录的用户名 确定该用户所对应的各种菜单名称的权限。 我设置了一个权限库
N1------N30