Count,另一个是Actions。ActionCount表示TactionList中有多少功能，即Action,Actions是一个数组属性，通过索引可能访问每一个TAction,从而可以设置其具体的属性，象上面提到的Enable及Visible，从而达到限制的目的，通过这段代码，将应用程序的所有功能都加入了UserRight表中。

第三步，可以用Grid对上一步产生的表进行编辑操作

第四步，利用第二、三步产生的功能限制表UserRight，限制用户的权限，这可以在应用程序的主窗体的OnCreate 中实现。

procedure TfrmMain.FormCreate(Sender: TObject);

const

  　testUser=’yh’;

var

  　cdsRight:TClientDataSet;

  　i:Integer;

begin

  //set right of function

  　cdsRight:=TClientDataSet.Create(self);

  　try

  　cdsRight.LoadFromFile(’Right.CDS’);

  　cdsRight.AddIndex(’id’,’UserName;ActionCaption’,,’’,’’,0);

  　cdsRight.IndexName:=’id’;

  for i:=0 to ActionList1.ActionCount-1 do begin

    　if cdsRight.FindKey([TestUser,TAction(ActionList1.Actions[i]).Caption]) then

    　TAction(ActionList1.Actions[i]).Enabled:=cdsRight.FieldByName(’ActionEnable’).AsBoolean;

  　end;

  　finally

    　cdsRight.Close;

    　cdsRight.Free;

  end;

end;

　　这段代码中，假设当前的用户ID为yh,同时只设定了功能的Enable属性。

　　最后，笔者为了演示功能权限的设定功能，制作了demo程序，感兴趣者可以向作者索取。在demo程序中，同时还使用了内存表ClientDataSet的使用方法，不用BDE建立瘦数据库应用程序。