大神能不能进来帮忙 解决一下 复制窗口组件的问题

辣哥

  

子程序名	返回值类型	公开	备 注
子导航_创建导航
参数名	类 型	参考	可空	数组	备 注
背景	分组框
按钮	超级按钮
项目名称	文本型
项目宽度	整数型
项目高度	整数型

变量名	类 型	静态	数组	备 注
当前计数器	整数型
初始行数	整数型
初始显示	整数型
i	整数型

如果 (是否为空 (项目宽度))
全_子导航_宽度 ＝ 95
全_子导航_宽度 ＝ 项目宽度
如果 (是否为空 (项目高度))
全_子导航_高度 ＝ 30
全_子导航_高度 ＝ 项目高度
全_子导航_左边 ＝ 0全_子导航_顶边 ＝ 0
初始行数 ＝ 0
sql记录集 ＝ sql库.取记录集 (“SELECT * FROM xst_box_son WHERE visible = 1 AND isdefault = 1 AND boxid = '” ＋ 项目名称 ＋ “' ORDER BY seq”)
判断循环首 (sql记录集.到下一行 ())
当前计数器 ＝ 当前计数器 ＋ 1
加入成员 (全_子导航, 按钮)
复制窗口组件 (按钮, 全_子导航 [当前计数器])
事件转移 (全_子导航 [当前计数器], 按钮)
全_子导航 [当前计数器].置父窗口 (背景)
全_子导航 [当前计数器].可视 ＝ 真
全_子导航 [当前计数器].移动 (全_子导航_左边, 全_子导航_顶边, 全_子导航_宽度, 全_子导航_高度)
全_子导航 [当前计数器].标题 ＝ sql记录集.读字段文本值 (2)
全_子导航 [当前计数器].标记 ＝ sql记录集.读字段文本值 (1)
全_子导航 [当前计数器].通常前景色 ＝ 取颜色值 (0, 0, 0)
全_子导航 [当前计数器].通常背景色 ＝ 取颜色值 (255, 255, 255)
全_子导航 [当前计数器].点燃前景色 ＝ 取颜色值 (0, 136, 255)
全_子导航 [当前计数器].点燃背景色 ＝ 取颜色值 (255, 255, 255)
全_子导航 [当前计数器].焦点前景色 ＝ 取颜色值 (0, 136, 255)
全_子导航 [当前计数器].焦点背景色 ＝ 取颜色值 (255, 255, 255)
如果真 (当前计数器 ＝ 1)
全_子导航 [1].选中 ＝ 真
背景.可视 ＝ 假

初始显示 ＝ 初始显示 ＋ 1
如果真 (当前计数器 ≠ 1)
背景.可视 ＝ 真
全_子导航_左边 ＝ 全_子导航 [当前计数器 － 1].左边 ＋ 全_子导航 [当前计数器 － 1].宽度 ＋ 3
如果真 (全_子导航_左边 ＋ 全_子导航_宽度 ＋ 3 ＞ 背景.宽度)
初始行数 ＝ 初始行数 ＋ 1
全_子导航_左边 ＝ 0
全_子导航 [当前计数器].左边 ＝ 全_子导航_左边
全_子导航_顶边 ＝ (全_子导航 [当前计数器 － 1].高度 ＋ 5) × 初始行数
全_子导航 [当前计数器].顶边 ＝ 全_子导航_顶边
背景.高度 ＝ 全_子导航_顶边 ＋ 全_子导航_高度 ＋ 5

全_子导航_初始行数 ＝ 初始行数
全_子导航_当前计数器 ＝ 当前计数器
全_子导航 [当前计数器].刷新显示 ()
判断循环尾 ()
sql记录集.关闭 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 子导航_创建导航<br /> .参数 背景, 分组框<br /> .参数 按钮, 超级按钮<br /> .参数 项目名称, 文本型<br /> .参数 项目宽度, 整数型, 可空<br /> .参数 项目高度, 整数型, 可空<br /> .局部变量 当前计数器, 整数型<br /> .局部变量 初始行数, 整数型<br /> .局部变量 初始显示, 整数型<br /> .局部变量 i, 整数型<br /> <br /> <br /> .如果 (是否为空 (项目宽度))<br />     全_子导航_宽度 ＝ 95<br /> .否则<br />     全_子导航_宽度 ＝ 项目宽度<br /> .如果结束<br /> .如果 (是否为空 (项目高度))<br />     全_子导航_高度 ＝ 30<br /> .否则<br />     全_子导航_高度 ＝ 项目高度<br /> .如果结束<br /> 全_子导航_左边 ＝ 0<br /> 全_子导航_顶边 ＝ 0<br /> 初始行数 ＝ 0<br /> sql记录集 ＝ sql库.取记录集 (“SELECT * FROM xst_box_son WHERE visible = 1 AND isdefault = 1 AND boxid = '” ＋ 项目名称 ＋ “' ORDER BY seq”)<br /> .判断循环首 (sql记录集.到下一行 ())<br />     当前计数器 ＝ 当前计数器 ＋ 1<br />     加入成员 (全_子导航, 按钮)<br />     复制窗口组件 (按钮, 全_子导航 [当前计数器])<br />     事件转移 (全_子导航 [当前计数器], 按钮)<br />     全_子导航 [当前计数器].置父窗口 (背景)<br />     全_子导航 [当前计数器].可视 ＝ 真<br />     全_子导航 [当前计数器].移动 (全_子导航_左边, 全_子导航_顶边, 全_子导航_宽度, 全_子导航_高度)<br />     全_子导航 [当前计数器].标题 ＝ sql记录集.读字段文本值 (2)<br />     全_子导航 [当前计数器].标记 ＝ sql记录集.读字段文本值 (1)<br />     全_子导航 [当前计数器].通常前景色 ＝ 取颜色值 (0, 0, 0)<br />     全_子导航 [当前计数器].通常背景色 ＝ 取颜色值 (255, 255, 255)<br />     全_子导航 [当前计数器].点燃前景色 ＝ 取颜色值 (0, 136, 255)<br />     全_子导航 [当前计数器].点燃背景色 ＝ 取颜色值 (255, 255, 255)<br />     全_子导航 [当前计数器].焦点前景色 ＝ 取颜色值 (0, 136, 255)<br />     全_子导航 [当前计数器].焦点背景色 ＝ 取颜色值 (255, 255, 255)<br />     .如果真 (当前计数器 ＝ 1)<br />         全_子导航 [1].选中 ＝ 真<br />         背景.可视 ＝ 假<br />     .如果真结束<br /> <br />     初始显示 ＝ 初始显示 ＋ 1<br />     .如果真 (当前计数器 ≠ 1)<br />         背景.可视 ＝ 真<br />         全_子导航_左边 ＝ 全_子导航 [当前计数器 － 1].左边 ＋ 全_子导航 [当前计数器 － 1].宽度 ＋ 3<br />         .如果真 (全_子导航_左边 ＋ 全_子导航_宽度 ＋ 3 ＞ 背景.宽度)<br />             初始行数 ＝ 初始行数 ＋ 1<br />             全_子导航_左边 ＝ 0<br />         .如果真结束<br />         全_子导航 [当前计数器].左边 ＝ 全_子导航_左边<br /> <br />         全_子导航_顶边 ＝ (全_子导航 [当前计数器 － 1].高度 ＋ 5) × 初始行数<br />         全_子导航 [当前计数器].顶边 ＝ 全_子导航_顶边<br />         背景.高度 ＝ 全_子导航_顶边 ＋ 全_子导航_高度 ＋ 5<br />     .如果真结束<br /> <br /> <br />     全_子导航_初始行数 ＝ 初始行数<br />     全_子导航_当前计数器 ＝ 当前计数器<br />     全_子导航 [当前计数器].刷新显示 ()<br /> .判断循环尾 ()<br /> sql记录集.关闭 ()

  

子程序名	返回值类型	公开	备 注
_主导航_被单击

变量名	类 型	静态	数组	备 注
局_导航	超级按钮

局_导航 ＝ 取事件组件 ()
类_导航 ＝ 局_导航
主按钮_全部取消选中 (导航_背景)
子导航_创建导航 (分组框1, 子导航, 局_导航.标记)

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 _主导航_被单击<br /> .局部变量 局_导航, 超级按钮<br /> <br /> 局_导航 ＝ 取事件组件 ()<br /> 类_导航 ＝ 局_导航<br /> 主按钮_全部取消选中 (导航_背景)<br /> 子导航_创建导航 (分组框1, 子导航, 局_导航.标记)

我执行后 为什么不能  重新刷新数据，反而是覆盖数据呢

houtian

创建时候先销毁旧的, 如果数据库不是实时改变的话不建议这么做

动态创建按钮.e (6.84 KB, 下载次数: 11)

2025-9-6 20:05 上传

点击文件名下载附件

houtian

_主导航_被单击事件里,  你需要判断之前选中的子导航是否已经创建, 如果已经创建的 就隐藏掉, 当前导航一样, 判断没创建就创建, 已经创建的显示,  不要重复创建组件, 如果是实时变化的数据库, 那组件应该先销毁再进行创建

辣哥

houtian 发表于 2025-9-6 18:39
_主导航_被单击事件里,  你需要判断之前选中的子导航是否已经创建, 如果已经创建的 就隐藏掉, 当前导航一样 ...

能帮忙写一个案例吗

辣哥

这是数据库列表

houtian

辣哥 发表于 2025-9-6 18:59
能帮忙写一个案例吗

我给你写个例子

精易论坛龙

我不知道为什么你这样写，我的写法是，在添加动态组件前，初始化，判断数组有数值，就全部删除并清空控件，然后再加载新数据，添加新控件，你应该把所有旧控件删除同时数组也要清空。重新添加数组和添加控件就不会出现重复、清不干净的问题。写代码应该养成良好初始化，把数据全部赋空，特别是针对代码很多的程序，你不初始化，后面有时很难排查错误的。

辣哥

houtian 发表于 2025-9-6 20:05
创建时候先销毁旧的, 如果数据库不是实时改变的话不建议这么做

为什么不能下载

辣哥