主题：怎样增加一个用户拥有管理员一样的权限

做一个计划任务，写入代码　http://www.foxtable.com/help/topics/0657.htm

Dim frm = Windows.Forms.Form.ActiveForm
If frm IsNot Nothing Then
    If frm.Name = "Class185" Then
        If user.group = "管理" Then
            frm.controls("btnGroup").Enabled = True
            frm.controls("btnRole").Enabled = True
            'Button2
            'btnUserTable
            'btnRole
            'btnExtProperty
            'btnDefault
            'lstUsers
            'btnGroup
            'btnEdit
            'btnDelete
            'btnAdd
            '
        End If
    End If
End If