玩过DZ程序的朋友都知道 DZ修改或重建用户组后。原有的用户组数据会在用户下一次上线的时候才会自动更新,如果这个用户一直不上线的话就会导致这个用户所发表的贴子用户信息有误。这个源码可以主动更新用户组数据会玩的自己拿(ーー)
窗口程序集名 | 保 留 | 保 留 | 备 注 | 窗口程序集_启动窗口 | | | |
全局_数据库句柄 = 连接MySql (, , , , )修改用户组ID ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_记录集句柄 | 整数型 | | | 局部_计次 | 整数型 | | | 局部_用户类型 | 整数型 | | | 局部_用户积分 | 整数型 | | | 局部_用户ID | 文本型 | | | 局部_用户组ID | 文本型 | | | 局部_用户名 | 文本型 | | | 执行SQL语句 (全局_数据库句柄, “select*from pre_common_member”)局部_记录集句柄 = 取记录集 (全局_数据库句柄 )计次循环首 (取记录集行数 (局部_记录集句柄 ), 局部_计次 )到指定行 (局部_记录集句柄, 局部_计次 - 1 )读字段值 (局部_记录集句柄, 8, 局部_用户类型 )如果真 (局部_用户类型 = 0 )读字段值 (局部_记录集句柄, 0, 局部_用户ID )读字段值 (局部_记录集句柄, 13, 局部_用户积分 )读字段值 (局部_记录集句柄, 9, 局部_用户组ID )如果真 (局部_用户组ID ≠ 到文本 (积分取用户组ID (局部_用户积分 )) )数据库修改字段 (“pre_common_member”, “uid”, 局部_用户ID, “groupid”, 到文本 (积分取用户组ID (局部_用户积分 )) )调试输出 (读字段值 (局部_记录集句柄, 2, 局部_用户名 ), 局部_用户ID, 局部_用户积分, 局部_用户组ID )计次循环尾 ()释放记录集 (局部_记录集句柄 )|
数据库修改字段 | | | |
参_表名 | 文本型 | | | | 参_特征字段 | 文本型 | | | | 参_特征内容 | 文本型 | | | | 参_修改字段 | 文本型 | | | | 参_修改内容 | 文本型 | | | | 更新记录 (全局_数据库句柄, 参_表名, 参_修改字段 + “='” + 参_修改内容 + “'”, 参_特征字段 + “='” + 参_特征内容 + “'”)返回 ()变量名 | 类 型 | 静态 | 数组 | 备 注 | 局部_积分 | 整数型 | | 0 | 局部_组ID | 整数型 | | 0 | 局部_计次 | 整数型 | | |
局部_积分 = { 0, 20, 50, 130, 270, 440, 650, 900, 1190, 1520, 1890, 2300, 2750, 3240, 3370, 5000, 7000, 10000, 15000, 20000, 25000, 35000, 90000 }局部_组ID = { 9, 10, 11, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 12, 13, 14, 15 }计次循环首 (取数组成员数 (局部_积分 ) - 1, 局部_计次 )如果真 (参_现有积分 ≥ 局部_积分 [局部_计次 ] 且 参_现有积分 ≤ 局部_积分 [局部_计次 + 1 ])返回 (局部_组ID [局部_计次 + 1 ])计次循环尾 ()返回 (-1 )
这是本小白的论坛用户组。做下修改参考
|