⑽ 退出界面时，释放OnShow()事件中动态设置的事件关联，并关闭临时使用的ADODataSet_User，因此需要编制FormRightManage的OnClose()事件，相关代码如下：

procedure TFormRightManage.FormClose(Sender: TObject; var Action: TCloseAction);

begin

  With DMServerDB do begin

    ADODataSetRole.AfterPost := Nil;

    ADODataSetRoleRight.AfterScroll := Nil;

    ADODataSet_User.BeforeScroll := Nil;

    ADODataSetRole.AfterScroll := Nil;

    ADODataSet_User.Close;

  end;

end;

用户角色权限管理界面运行后的效果如图3、4、5和6所示。

图3 用户角色权限管理界面的“用户”和“用户信息”选项页