.版本 2
.支持库 iext
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 i, 整数型
.局部变量 行, 文本型
.局部变量 列, 文本型, , "0"
.局部变量 记录集, 文本型, , "0"
记录集 ＝ 取配置节名 (“d:\a.ini”)
输出调试文本 (取数组成员数 (记录集))
.计次循环首 (取数组成员数 (记录集), i)
行 ＝ 读配置项 (“d:\a.ini”, “记录” ＋ 到文本 (i), “数据”, )
列 ＝ 分割文本 (行, “|”, )
输出调试文本 (列 [1] ＋ “-” ＋ 列 [2] ＋ “-” ＋ 列 [3] ＋ “-” ＋ 列 [4])
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 列 [1])
超级列表框1.置标题 (i － 1, 1, 列 [2])
超级列表框1.置标题 (i － 1, 2, 列 [3])
超级列表框1.置标题 (i － 1, 3, 列 [4])
.计次循环尾 ()
.子程序 _按钮1_被单击
载入 (窗口1, , 真)
.子程序 __启动窗口_将被销毁
.局部变量 文本, 文本型
.局部变量 row, 整数型
.局部变量 行, 文本型
.局部变量 列, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 记录集, 文本型, , "0"
.计次循环首 (超级列表框1.取表项数 (), row)
文本 ＝ 超级列表框1.取标题 (row － 1, 0) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 1) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 2) ＋ “|” ＋ 超级列表框1.取标题 (row － 1, 3)
写配置项 (“d:\a.ini”, “记录” ＋ 到文本 (row), “数据”, 文本)
.计次循环尾 ()
记录集 ＝ 取配置节名 (“d:\a.ini”)
输出调试文本 (取数组成员数 (记录集))
.计次循环首 (取数组成员数 (记录集), i)
行 ＝ 读配置项 (“d:\a.ini”, “记录” ＋ 到文本 (i), “数据”, )
列 ＝ 分割文本 (行, “|”, )
输出调试文本 (列 [1] ＋ “-” ＋ 列 [2] ＋ “-” ＋ 列 [3] ＋ “-” ＋ 列 [4])
超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (i － 1, 0, 列 [1])
超级列表框1.置标题 (i － 1, 1, 列 [2])
超级列表框1.置标题 (i － 1, 2, 列 [3])
超级列表框1.置标题 (i － 1, 3, 列 [4])
.计次循环尾 ()
----------------------------------------------------------------------------------
窗口1
.版本 2
.支持库 iext
.程序集 窗口程序集2
.子程序 _按钮1_被单击
.局部变量 行, 整数型
.局部变量 列, 整数型
行 ＝ _启动窗口.超级列表框1.取表项数 ()
.如果 (编辑框1.内容 ≠ “” 且 编辑框2.内容 ≠ “” 且 编辑框3.内容 ≠ “” 且 编辑框4.内容 ≠ “”)
_启动窗口.超级列表框1.插入表项 (, , , , , )
_启动窗口.超级列表框1.置标题 (行, 0, 编辑框1.内容)
_启动窗口.超级列表框1.置标题 (行, 1, 编辑框2.内容)
_启动窗口.超级列表框1.置标题 (行, 2, 编辑框3.内容)
_启动窗口.超级列表框1.置标题 (行, 3, 编辑框4.内容)
.否则
信息框 (“请认真填写数据”, 0, )
-----------------------------------------------------------------------------------
我想要 的效果是：
选中超级列表框中的一项 后点击 修改记录 调出窗口1界面 并 把选中项中的数据分别加入到 窗口1的编辑框中 ，然后 我可以修改窗口1中各个编辑框的内容 修改完点击窗口1中的按钮后 超级列表框选中项数据变为修改后数据并且 配置文件d:\a.ini中的记录改为修改后的记录！