便捷窗口工具，自定义添加修改分组名称

JU语句 ＝ “SELECT ” ＋ QJ常量.字段名之分组ID (, ) ＋ “,” ＋ QJ常量.字段名之分组名称 (, ) ＋ “ FROM ” ＋ QJ常量.表名之分组表 ()
.判断开始 (JU记录集.置SQL语句 (JU语句, QJ数据库) ＝ 假)
JU记录集.关闭 ()
QJ数据执行.取错误并提示 (“查询分组名称失败。”, 窗口之增改)
返回 ()
.判断 (JU记录集.打开 () ＝ 假)
QJ数据执行.取错误并提示 (“查询分组名称失败。”, 窗口之增改)
返回 ()
.默认

.判断结束
.判断循环首 (JU记录集.到下一记录 () ＝ 真)
JUID ＝ JU记录集.读字段整数值 (QJ常量.字段名之分组ID (2, ), )
JU索引 ＝ 组合框之分组名称.加入项目 (JU记录集.读字段文本值 (QJ常量.字段名之分组名称 (2, ), ), JUID)
.如果真 (是否为空 (分组ID) ＝ 假)
.如果真 (JUID ＝ 分组ID)
组合框之分组名称.现行选中项 ＝ JU索引
.如果真结束

.如果真结束

.判断循环尾 ()