用户权限升级到组权限，看完这篇大呼这也太简单了。

Set Multilocks On
*--用户列表
TEXT TO lcSQLCmd noshow
select a1.u_name,isnull(b1.u_name,'') rolename,a1.roleid,a1.id,u_lx
 from user_pass a1 left join
(select id,u_name from user_pass where u_lx=1) b1
 on a1.roleid=b1.id
ENDTEXT
oDBSQLhelper=Newobject("MSSQLHelper","MSSQLHelper.prg")
If oDBSQLhelper.SQLQuery(lcSQLCmd,"user_pass")<0
    Messagebox(oDBSQLhelper.errmsg)
    Return .F.
Endif
CursorSetProp("Buffering",5,"user_pass")  &&设置为表缓冲

*--角色列表
TEXT TO lcSQLCmd NOSHOW textm
SELECT 0 id,'' rolename
union all
SELECT id,u_name rolename FROM user_pass WHERE u_lx=1
ENDTEXT
If oDBSQLhelper.SQLQuery(lcSQLCmd,"rolelist")<0
    Messagebox(oDBSQLhelper.errmsg)
    Return .F.
Endif

This.Visible=!user_pass.u_lx  &&如果是组，组合框隐藏掉

*--将组合框选中的组名回写用户列表（user_pass）
Replace rolename With rolelist.rolename,roleid With rolelist.Id In user_pass
Thisform.Refresh()

*--用户没有所属组，可以编辑权限列表,否则只读
If user_pass.roleid==0 
    If Inlist(Thisform.Opcode,1,2)
        This.ReadOnly=.F.
        This.column3.Enabled=.T.
    Else
        This.ReadOnly=.T.
        This.column3.Enabled=.F.
    Endif
ELSE 
   This.ReadOnly=.T.  
   This.column3.Enabled=.F.
Endif

Tablerevert(.T.,"user_pass")
Thisform.Oca.Undo()
Thisform.Opcode=0
Thisform.qiyu_grid_sort2.Refresh()

Tableupdate(1,.T.,"user_pass") &&保存缓冲表
*--与dal_ca共享链接
oDBSQLhelper=Newobject("MSSQLHelper","MSSQLHelper.prg","",Thisform.Oca.Datasource)
TEXT TO lcSQLCmd NOSHOW TEXTMERGE
UPDATE user_pass SET roleid = ?user_pass.roleid WHERE id=?user_pass.id
ENDTEXT
If oDBSQLhelper.ExecuteSQL(lcSQLCmd)<0
    Messagebox(Thisform.Oca.msg)  &&显示错误信息
    Return
Endif