DIME m.dom(15)

WITH THISFORM.pageframe1.page1
    .check1.VALUE=m.dom(1)
    .check2.VALUE=m.dom(2)
    .check3.VALUE=m.dom(3)
    .check4.VALUE=m.dom(4)
    .check5.VALUE=m.dom(5)
    .check6.VALUE=m.dom(6)
    .check7.VALUE=m.dom(7)
    .check8.VALUE=m.dom(8)
    .check9.VALUE=m.dom(9)
    .check10.VALUE=m.dom(10)
    .check11.VALUE=m.dom(11)
    .check12.VALUE=m.dom(12)
ENDWITH

WITH THISFORM.pageframe1.page2
    .check1.VALUE=m.dom(13)
    .check2.VALUE=m.dom(14)
    .check3.VALUE=m.dom(15)
ENDWITH

m.sum=0
*****二进制到十进制的转换*******
FOR i=1 TO 15
    m.sum=m.sum*2+m.dom(i)                  提示操作符操作数不匹配                                
ENDFOR

m.uid=allt(THISFORM.lstuid.VALUE)
*****更新用户的权限***********
UPDATE adminer SET dom=m.sum WHERE allt(username)==m.uid    &&精确比较用户名，避免出错

*****如果是当前用户，还需要即时更新******
*IF m.uid==g_uid
*    FOR i=1 to 19
*        g_dom(i)=m.dom(i)
*    ENDFOR
*ENDIF