1.Create a [RightTabel] to hold the right define of your program.
{ Tag, Name, userID, Enabled }
2.Check_Right(Tag,userID) is a function which
can return the [enabled] field value of [RightTabel].
3.In every form's onformshow call the procedure below.
procedure Check_Power(frm_One: TForm);
var
i: integer;
begin
for i := 0 to frm_One.ComponentCount - 1 do
begin
if frm_One.Components is TControl then
begin
TControl(frm_One.Components).Enabled := Check_Right(frm_One.Components.Tag,userID);
end
end;
end;
