登陆时读取权限表,然后一个一个地ENABLE窗口上的控件,结果拨号登录时很慢,有什么好办法解决?
kith 2000-07-26 09:37:00 具体方法如下:
for i:= 0 to (TComponent(Sender).Componentcount-1) do
begin
cdname := TComponent(Sender).name+'.'+TComponent(Sender).Components[i].name;
query1.SQL.Text := 'select cdname from Tic_usergroup_priv'
+' where cdname = Upper('''+cdname+''') and +'usergroup=root';
query1.Open;
if query1.RecordCount > 0 then
begin
sc := TComponent(Sender).Components[i].classname;
if sc = 'TMenuItem' then
TMenuItem(TComponent(Sender).Components[i]).Enabled := True
ELSE if sc = 'TButton' then
TButton(TComponent(Sender).Components[i]).Enabled := True
.....