SQL操作的问题
各位侠客:
我在数据库中用一张表保存了程序里控件的名称与信息,想做一个权限管理功能,完成后怎么在软件启动时导入表中属性,数据表如下图
我启动时的导入代码如下:
procedure TMainForm.LevelLoad;
var
MMName:string;
MMValues:Boolean;
Comp:TComponent;
begin
with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select * from 权限管理 where 群组名称= '''+ LV +'''');
Open;
end;
qry1.First;
while not qry1.Eof do
begin
MMName:=qry1.fieldbyname('菜单名称').AsString;
MMValues:=qry1.FieldByName('菜单值').AsBoolean;
Comp.Name:=MMName;
Comp.Enabled:=MMValues;//这里不对!
qry1.Next;
end;
end;
[解决办法]
Comp:TComponent;
这个地方应该TMENUM之类的吧
[解决办法]
另外注意实例化啊
[解决办法]
提示什么错误？你的Comp:TComponent 类的变量，还未实例化
[解决办法]
Comp:TComponent;
TComponent是没有Enabled属性的
自己检查一下,具体是控件还是菜单
[解决办法]
Comp.Name:=MMName;
Comp.Enabled:=MMValues;//这里不对!
之前没有对comp进行创建或指向。。。。。。
