权限的基类窗体求教........急......!

Question

以下是我一个窗体在OnCreate中的代码.
   with Datafm.spUserRight do
    if Locate('fActionName','frmBargain',[]) then
     if FieldByName('fRun').AsBoolean then
     begin
       Application.MessageBox('你没有足够的权限!','提示',mb_ok+mb_iconwarning);
       PostMessage(Self.Handle, WM_CLOSE, 0, 0);//关闭窗口本身
     end
     else
     begin
      bCanNew := FieldByName('fInsert').AsBoolean;
      bCanModify := FieldByName('fEdit').AsBoolean;
      bCanDelete := FieldByName('fDelete').AsBoolean;
      bCanPrint := FieldByName('fPrint').AsBoolean;
     end;spUserRight是一个存储过程,是关于登录用户权限的信息.
fActionName 是存放每个窗体的名字.
if Locate('fActionName','frmBargain',[]) then
是调用该窗体的权限记录.
我是想在每个窗体所继承的基类窗体中作个定义,以便在每个窗体能根据本窗体的
Name属性自动取得窗体的操作属性.该如何才可以不用在每个窗体写上以上代码.

Answer 1

if Locate('fActionName',Self.Name,[]) then