该模块的关键程序代码如下：

//下面的过程调用口令验证模块，并根据登录用户授权情况设置功能菜单是否可用

//该过程在模块表单创建时被调用。

procedure TMainFrm.FormCreate(Sender: TObject);

var

  I,J,K:INTEGER;

  USER,dbpass,pass,USERTYPE,MKNAME:STRING;

  Exepath:String;

Begin

 //若用户表中没有就创建“系统管理员”用户，用户类别为“系统管理员”，初始口令为“11111111”

  DataModFrm.USER.Open;

  If NOT DataModFrm.USER.LOCATE('用户名称','系统管理员',[]) then begin

     DataModFrm. USER.Append;

     DataModFrm. USER.FieldByName('用户名称').AsString:='系统管理员';

     DataModFrm. USER.FieldByName('用户类别').AsString:='系统管理员';

     DataModFrm. USER.FieldByName('用户口令').AsString:='11111111';

     DataModFrm. USER.Post;

  End;

  //为系统管理员授予用户管理和用户权限管理权限

//'用户管理'','权限管理'菜单分别对应用户管理和用户权限管理模块

 DataModFrm. USERMOD.Open;

  if not DataModFrm.USERMOD.Locate('用户类别;授权模块', vararrayof(['系统管理员', '用户管理']),[]) then begin

     DataModFrm. USERMOD.Append;

     DataModFrm. USERMOD.FieldByName('用户类别').AsString:='系统管理员';

     DataModFrm. USERMOD.FieldByName('授权模块').AsString:='用户管理';

     DataModFrm. USERMOD.Post;

  End;

  if not DataModFrm.USERMOD.Locate('用户类别;授权模块', vararrayof(['系统管理员', '权限管理']),[]) then begin

     DataModFrm. USERMOD.Append;