登记表程序供大家参考

bugaosuni1314

  

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

子程序名	返回值类型	公开	备 注
_超级列表框1_当前表项被改变

子程序名	返回值类型	公开	备 注
_组合框1_列表项被选择

超级列表框1.类型 ＝ 组合框1.现行选中项
超级列表框1.刷新显示 ()

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
wjh	整数型
行	文本型		5
文本	文本型

超级列表框1.全部删除 ()
如果真 (通用对话框2.打开 ())
wjh ＝ 打开文件 (通用对话框2.文件名, #读写, )
判断循环首 (取反 (是否在文件尾 (wjh, 真)))
文本 ＝ 删首尾空 (读入一行 (wjh))
行 ＝ 分割文本 (文本, “\\”, )
超级列表框1.插入表项 (0, 行 [1], 到数值 (行 [5]), -1, , )
超级列表框1.置标题 (0, 1, 行 [2])
超级列表框1.置标题 (0, 2, 行 [3])
超级列表框1.置标题 (0, 3, 行 [4])
判断循环尾 ()
关闭文件 (wjh)

子程序名	返回值类型	公开	备 注
_按钮3_被单击

变量名	类 型	静态	数组	备 注
wjh	整数型
i	整数型
表项	文本型

如果真 (通用对话框1.打开 ())
wjh ＝ 打开文件 (通用对话框1.文件名, #重写, )
计次循环首 (超级列表框1.取表项数 (), i)
表项 ＝ 表项 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “\\” ＋ 到文本 (超级列表框1.取图片 (i － 1, 0)) ＋ #换行符
计次循环尾 ()
写出文本 (wjh, 表项)
信息框 (“保存成功”, 0, , )
关闭文件 (wjh)

子程序名	返回值类型	公开	备 注
_插入新表项_被选择

载入 (窗口1, _启动窗口, 真)

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项

弹出菜单 (右键菜单, , )

子程序名	返回值类型	公开	备 注
_修改本表项_被选择

如果真 (超级列表框1.现行选中项 ＝ -1)
信息框 (“你选择的位置不正确，需要选择姓名那列”, 0, , )
返回 ()
载入 (窗口2, _启动窗口, 真)

子程序名	返回值类型	公开	备 注
_删除本表项_被选择

如果真 (超级列表框1.现行选中项 ＝ -1)
信息框 (“请选择表项（姓名那一列）”, 0, , )
返回 ()
超级列表框1.删除列 (超级列表框1.现行选中项)

子程序名	返回值类型	公开	备 注
_全部删除_被选择

超级列表框1.全部删除 ()

子程序名	返回值类型	公开	备 注
_cha询功能_被选择

变量名	类 型	静态	数组	备 注
内容	文本型
索引	整数型
i	整数型

输入框 (“请输入要cha询的内容：”, “输入cha询内容”, , 内容, , )
索引 ＝ 超级列表框1.查找表项 (内容, 0, 假, -1)
如果 (索引 ＝ -1)
信息框 (“cha询失败！或没有内容”, 0, , )
编辑框1.内容 ＝ “ ”
超级列表框1.保证显示 (索引)
内容 ＝ “”
计次循环首 (超级列表框1.取列数 (), i)
内容 ＝ 内容 ＋ 超级列表框1.取标题 (索引, i － 1) ＋ “ ”
编辑框1.内容 ＝ “您找的内容在第” ＋ 到文本 (索引 ＋ 1) ＋ “行 ： ” ＋ 内容
计次循环尾 ()
' 置剪辑板文本 (内容)
' 信息框 (内容 ＋ #换行符 ＋ #换行符 ＋ “以上内容以加入剪辑版中”, 0, , )

子程序名	返回值类型	公开	备 注
_编辑_被选择

超级列表框1.进入编辑 (超级列表框1.现行选中项)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _超级列表框1_当前表项被改变<br /> <br /> <br /> <br /> .子程序 _组合框1_列表项被选择<br /> <br /> 超级列表框1.类型 ＝ 组合框1.现行选中项<br /> <br /> 超级列表框1.刷新显示 ()<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 wjh, 整数型<br /> .局部变量 行, 文本型, , "5"<br /> .局部变量 文本, 文本型<br /> <br /> 超级列表框1.全部删除 ()<br /> .如果真 (通用对话框2.打开 ())<br />     wjh ＝ 打开文件 (通用对话框2.文件名, #读写, )<br />     .判断循环首 (取反 (是否在文件尾 (wjh, 真)))<br />         文本 ＝ 删首尾空 (读入一行 (wjh))<br />         行 ＝ 分割文本 (文本, “\\”, )<br />         超级列表框1.插入表项 (0, 行 [1], 到数值 (行 [5]), -1, , )<br />         超级列表框1.置标题 (0, 1, 行 [2])<br />         超级列表框1.置标题 (0, 2, 行 [3])<br />         超级列表框1.置标题 (0, 3, 行 [4])<br /> <br />     .判断循环尾 ()<br /> .如果真结束<br /> 关闭文件 (wjh)<br /> <br /> <br /> .子程序 _按钮3_被单击<br /> .局部变量 wjh, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 表项, 文本型<br /> <br /> .如果真 (通用对话框1.打开 ())<br /> <br />     wjh ＝ 打开文件 (通用对话框1.文件名, #重写, )<br />     .计次循环首 (超级列表框1.取表项数 (), i)<br />         表项 ＝ 表项 ＋ 超级列表框1.取标题 (i － 1, 0) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 2) ＋ “\\” ＋ 超级列表框1.取标题 (i － 1, 3) ＋ “\\” ＋ 到文本 (超级列表框1.取图片 (i － 1, 0)) ＋ #换行符<br /> <br />     .计次循环尾 ()<br />     写出文本 (wjh, 表项)<br />     信息框 (“保存成功”, 0, , )<br />     关闭文件 (wjh)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _插入新表项_被选择<br /> <br /> 载入 (窗口1, _启动窗口, 真)<br /> <br /> <br /> <br /> .子程序 _超级列表框1_右键单击表项<br /> <br /> 弹出菜单 (右键菜单, , )<br /> <br /> <br /> .子程序 _修改本表项_被选择<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     信息框 (“你选择的位置不正确，需要选择姓名那列”, 0, , )<br />     返回 ()<br /> <br /> .如果真结束<br /> 载入 (窗口2, _启动窗口, 真)<br /> <br /> <br /> .子程序 _删除本表项_被选择<br /> <br /> .如果真 (超级列表框1.现行选中项 ＝ -1)<br />     信息框 (“请选择表项（姓名那一列）”, 0, , )<br /> <br />     返回 ()<br /> <br /> .如果真结束<br /> 超级列表框1.删除列 (超级列表框1.现行选中项)<br /> <br /> <br /> .子程序 _全部删除_被选择<br /> <br /> <br /> 超级列表框1.全部删除 ()<br /> <br /> <br /> <br /> .子程序 _cha询功能_被选择<br /> .局部变量 内容, 文本型<br /> .局部变量 索引, 整数型<br /> .局部变量 i, 整数型<br /> <br /> 输入框 (“请输入要cha询的内容：”, “输入cha询内容”, , 内容, , )<br /> 索引 ＝ 超级列表框1.查找表项 (内容, 0, 假, -1)<br /> <br /> .如果 (索引 ＝ -1)<br />     信息框 (“cha询失败！或没有内容”, 0, , )<br />     编辑框1.内容 ＝ “ ”<br /> .否则<br />     超级列表框1.保证显示 (索引)<br />     内容 ＝ “”<br /> <br />     .计次循环首 (超级列表框1.取列数 (), i)<br />         内容 ＝ 内容 ＋ 超级列表框1.取标题 (索引, i － 1) ＋ “ ”<br /> <br />         编辑框1.内容 ＝ “您找的内容在第” ＋ 到文本 (索引 ＋ 1) ＋ “行 ： ” ＋ 内容<br /> <br />     .计次循环尾 ()<br /> <br /> <br />     ' 置剪辑板文本 (内容)<br />     ' 信息框 (内容 ＋ #换行符 ＋ #换行符 ＋ “以上内容以加入剪辑版中”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 _编辑_被选择<br /> <br /> 超级列表框1.进入编辑 (超级列表框1.现行选中项)

xf702

很棒，加油！！

pipicool

学习一下

小虎来了

感谢分享啊

hbqjb

一目了然，谢谢分享！

一指温柔

#在这里快速回复#支持开源~！感谢分享

zbx

66666666666666666666666

查过

下个学习一下

豆豆灰常开心

感谢楼主分享！

pshq123

感谢分享1