DZ论坛 用户组自主更新源码

承希哥哥

玩过DZ程序的朋友都知道 DZ修改或重建用户组后。原有的用户组数据会在用户下一次上线的时候才会自动更新，如果这个用户一直不上线的话就会导致这个用户所发表的贴子用户信息有误。这个源码可以主动更新用户组数据会玩的自己拿(ーー）

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

全局_数据库句柄 ＝ 连接MySql (, , , , )
修改用户组ID ()

子程序名	返回值类型	公开	备 注
修改用户组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)


计次循环尾 ()
释放记录集 (局部_记录集句柄)

子程序名	返回值类型	公开	备 注
数据库修改字段
参数名	类 型	参考	可空	数组	备 注
参_表名	文本型
参_特征字段	文本型
参_特征内容	文本型
参_修改字段	文本型
参_修改内容	文本型

更新记录 (全局_数据库句柄, 参_表名, 参_修改字段 ＋ “='” ＋ 参_修改内容 ＋ “'”, 参_特征字段 ＋ “='” ＋ 参_特征内容 ＋ “'”)
返回 ()

子程序名	返回值类型	公开	备 注
积分取用户组ID	整数型
参数名	类 型	参考	可空	数组	备 注
参_现有积分	整数型

变量名	类 型	静态	数组	备 注
局部_积分	整数型		0	每级用户组所需积分上限。例：游客-99999-0  注册会员0-20 则写入：{0 ,20}
局部_组ID	整数型		0	每级用户组ID 注：论坛后台->用户->用户组 有标识   操作不可逆转---切勿填错
局部_计次	整数型

局部_积分 ＝ { 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)

i支持库列表	支持库注释
mysql	MySql支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 mysql<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 全局_数据库句柄 ＝ 连接MySql (, , , , )<br /> 修改用户组ID ()<br /> <br /> .子程序 修改用户组ID<br /> .局部变量 局部_记录集句柄, 整数型<br /> .局部变量 局部_计次, 整数型<br /> .局部变量 局部_用户类型, 整数型<br /> .局部变量 局部_用户积分, 整数型<br /> .局部变量 局部_用户ID, 文本型<br /> .局部变量 局部_用户组ID, 文本型<br /> .局部变量 局部_用户名, 文本型<br /> <br /> 执行SQL语句 (全局_数据库句柄, “select*from pre_common_member”)<br /> 局部_记录集句柄 ＝ 取记录集 (全局_数据库句柄)<br /> .计次循环首 (取记录集行数 (局部_记录集句柄), 局部_计次)<br />     到指定行 (局部_记录集句柄, 局部_计次 － 1)<br />     读字段值 (局部_记录集句柄, 8, 局部_用户类型)<br />     .如果真 (局部_用户类型 ＝ 0)<br />         读字段值 (局部_记录集句柄, 0, 局部_用户ID)<br />         读字段值 (局部_记录集句柄, 13, 局部_用户积分)<br />         读字段值 (局部_记录集句柄, 9, 局部_用户组ID)<br />         .如果真 (局部_用户组ID ≠ 到文本 (积分取用户组ID (局部_用户积分)))<br />             数据库修改字段 (“pre_common_member”, “uid”, 局部_用户ID, “groupid”, 到文本 (积分取用户组ID (局部_用户积分)))<br />             调试输出 (读字段值 (局部_记录集句柄, 2, 局部_用户名), 局部_用户ID, 局部_用户积分, 局部_用户组ID)<br />         .如果真结束<br /> <br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 释放记录集 (局部_记录集句柄)<br /> <br /> .子程序 数据库修改字段, , 公开<br /> .参数 参_表名, 文本型<br /> .参数 参_特征字段, 文本型<br /> .参数 参_特征内容, 文本型<br /> .参数 参_修改字段, 文本型<br /> .参数 参_修改内容, 文本型<br /> <br /> 更新记录 (全局_数据库句柄, 参_表名, 参_修改字段 ＋ “='” ＋ 参_修改内容 ＋ “'”, 参_特征字段 ＋ “='” ＋ 参_特征内容 ＋ “'”)<br /> 返回 ()<br /> <br /> .子程序 积分取用户组ID, 整数型<br /> .参数 参_现有积分, 整数型<br /> .局部变量 局部_积分, 整数型, , "0", 每级用户组所需积分上限。例：游客-99999-0  注册会员0-20 则写入：{0 ,20}<br /> .局部变量 局部_组ID, 整数型, , "0", 每级用户组ID 注：论坛后台->用户->用户组 有标识   操作不可逆转---切勿填错<br /> .局部变量 局部_计次, 整数型<br /> <br /> 局部_积分 ＝ { 0, 20, 50, 130, 270, 440, 650, 900, 1190, 1520, 1890, 2300, 2750, 3240, 3370, 5000, 7000, 10000, 15000, 20000, 25000, 35000, 90000 }<br /> 局部_组ID ＝ { 9, 10, 11, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 12, 13, 14, 15 }<br /> .计次循环首 (取数组成员数 (局部_积分) － 1, 局部_计次)<br />     .如果真 (参_现有积分 ≥ 局部_积分 [局部_计次] 且 参_现有积分 ≤ 局部_积分 [局部_计次 ＋ 1])<br />         返回 (局部_组ID [局部_计次 ＋ 1])<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (-1)

这是本小白的论坛用户组。做下修改参考

专注研究

不知道DZ有自动计划任务么？？？

y2j423633

落败De唯美 发表于 2017-6-11 12:23
你最好画个界面给我。你是要以指定用户搜索。然后获取用户信息修改积分。还是要列出全部用户。然后选择修 ...

私信你了,加QQ聊哇

承希哥哥

y2j423633 发表于 2017-6-10 11:36
好像是post登录过后,可以取到用户组的字段,我也是菜鸟在研究中,你有对指定用户的积分增减代码分享一份哇

你最好画个界面给我。你是要以指定用户搜索。然后获取用户信息修改积分。还是要列出全部用户。然后选择修改。还是怎么的

承希哥哥

y2j423633 发表于 2017-6-10 11:36
好像是post登录过后,可以取到用户组的字段,我也是菜鸟在研究中,你有对指定用户的积分增减代码分享一份哇

可以。你是做什么论坛的？

y2j423633

落败De唯美 发表于 2017-6-8 19:29
获取全部用户组用户修改积分倒是可以。在线用户我不会。对PHP不熟悉

好像是post登录过后,可以取到用户组的字段,我也是菜鸟在研究中,你有对指定用户的积分增减代码分享一份哇

承希哥哥

y2j423633 发表于 2017-6-6 13:33
对滴对滴,论坛上很多只讲了post登录dz,对于获取当前登录用户的用户组资料太少了,更别说对其当前用户进行 ...

获取全部用户组用户修改积分倒是可以。在线用户我不会。对PHP不熟悉

Safari

没看明白。。。

zlw310282

厉害了！

y2j423633

落败De唯美 发表于 2017-6-5 16:07
这么理解是吧。获取当前登录用户及用户所在用户组。然后可以进行在线用户的修改积分操作是吧

对滴对滴,论坛上很多只讲了post登录dz,对于获取当前登录用户的用户组资料太少了,更别说对其当前用户进行指定类型的积分增减操作了