超级列表框 + ebd 增删改防重复添加等

诚悦科技

程序带 添加 删除 修改 搜索等功能
代码清晰 有标注，新手首选，我也是新手 别喷。上次发了一篇,组合框+ebd
这次来个 超级列表框 + ebd
话不多说 ,直接上代码 新手适用 自行研究

  

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

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

变量名	类 型	静态	数组	备 注
数据库路径	文本型
数据信息	字段信息		2	需要几个字段就填几个

数据库路径 ＝ 取运行目录 () ＋ “\user.edb”  ' 设置数据库路径
如果真 (取反 (文件是否存在 (数据库路径)))  ' 判断数据库是否存在，不存在就按以下标准创建
数据信息 [1].名称 ＝ #账号  ' 给字段信息的2个成员变量赋值
数据信息 [2].名称 ＝ #密码
连续赋值 ( #文本型, 数据信息 [1].类型, 数据信息 [2].类型)
数据信息 [1].最大文本长度 ＝ 20
数据信息 [2].最大文本长度 ＝ 255
创建 (数据库路径, 数据信息)  ' 创建数据库
打开 (数据库路径, , , , , , )
启动线程 (&读取记录, , )

子程序名	返回值类型	公开	备 注
_删除勾选_被单击

启动线程 (&删除记录, , )

子程序名	返回值类型	公开	备 注
_添加用户_被单击			添加 和修改二合一按钮 智能选择

如果真 (添加用户.标题 ＝ “添加用户”)
启动线程 (&添加用户, , )
如果真 (添加用户.标题 ＝ “修改密码”)
启动线程 (&修改密码, , )

子程序名	返回值类型	公开	备 注
读取记录

变量名	类 型	静态	数组	备 注
i	整数型
索引	整数型

超级列表框1.全部删除 ()
到首记录 ()
计次循环首 (取记录数 (), i)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, i)
超级列表框1.置标题 (索引, 1, 读 (“账号”))
超级列表框1.置标题 (索引, 2, 读 (“密码”))
跳过 ()
计次循环尾 ()
账号.内容 ＝ “”
密码.内容 ＝ “”

子程序名	返回值类型	公开	备 注
删除记录

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)
跳到 (i)
删除 ()
彻底删除 ()
超级列表框1.删除表项 (i － 1)

计次循环尾 ()
读取记录 ()

子程序名	返回值类型	公开	备 注
添加用户

如果真 (账号.内容 ＝ “”)  ' 查空
返回 ()
加空记录 ()
写 ( #账号, 账号.内容)
写 ( #密码, 密码.内容)
读取记录 ()

子程序名	返回值类型	公开	备 注
_账号_内容被改变			默认带搜索

变量名	类 型	静态	数组	备 注
i	整数型

到首记录 ()
如果 (查找 (读 ( #账号 ) ＝ 账号.内容))  ' 这句带去重功能
添加用户.标题 ＝ “修改密码”
密码.内容 ＝ 读 ( #密码 )
添加用户.标题 ＝ “添加用户”
密码.内容 ＝ “”

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

变量名	类 型	静态	数组	备 注
索引	整数型
状态图片	逻辑型
i	整数型

索引 ＝ 超级列表框1.现行选中项
如果真 (索引 ＞ -1)
账号.内容 ＝ 超级列表框1.取标题 (索引, 1)
密码.内容 ＝ 超级列表框1.取标题 (索引, 2)
变量循环首 (0, 超级列表框1.取表项数 () － 1, 1, i)  ' 改变检查框状态勾选
如果 (超级列表框1.取当前状态图片 (索引) ＝ 1)
超级列表框1.置状态图片 (索引, 0)
超级列表框1.置状态图片 (索引, 1)

变量循环尾 ()
如果真 (索引 ＝ -1)  ' 点空白
账号.内容 ＝ “”
密码.内容 ＝ “”

子程序名	返回值类型	公开	备 注
修改密码

到首记录 ()
如果真 (查找 (读 ( #账号 ) ＝ 账号.内容))
写 ( #密码, 密码.内容)
读取记录 ()

子程序名	返回值类型	公开	备 注
_全选_被单击

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (超级列表框1.取表项数 (), i)
如果 (全选.选中)
超级列表框1.置状态图片 (i － 1, 1)
超级列表框1.置状态图片 (i － 1, 0)

计次循环尾 ()

子程序名	返回值类型	公开	备 注
_超级列表框1_右键单击表项			记录太多，那就鼠标右键解决

账号.内容 ＝ “”
密码.内容 ＝ “”

i支持库列表	支持库注释
EThread	多线程支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 EThread<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数据库路径, 文本型<br /> .局部变量 数据信息, 字段信息, , "2", 需要几个字段就填几个<br /> <br /> 数据库路径 ＝ 取运行目录 () ＋ “\user.edb”  ' 设置数据库路径<br /> .如果真 (取反 (文件是否存在 (数据库路径)))  ' 判断数据库是否存在，不存在就按以下标准创建<br />     数据信息 [1].名称 ＝ #账号  ' 给字段信息的2个成员变量赋值<br />     数据信息 [2].名称 ＝ #密码<br />     连续赋值 (#文本型, 数据信息 [1].类型, 数据信息 [2].类型)<br />     数据信息 [1].最大文本长度 ＝ 20<br />     数据信息 [2].最大文本长度 ＝ 255<br />     创建 (数据库路径, 数据信息)  ' 创建数据库<br /> .如果真结束<br /> 打开 (数据库路径, , , , , , )<br /> 启动线程 (&读取记录, , )<br /> <br /> .子程序 _删除勾选_被单击<br /> <br /> 启动线程 (&删除记录, , )<br /> <br /> .子程序 _添加用户_被单击, , , 添加 和修改二合一按钮 智能选择<br /> <br /> .如果真 (添加用户.标题 ＝ “添加用户”)<br />     启动线程 (&添加用户, , )<br /> .如果真结束<br /> .如果真 (添加用户.标题 ＝ “修改密码”)<br />     启动线程 (&修改密码, , )<br /> .如果真结束<br /> <br /> <br /> .子程序 读取记录<br /> .局部变量 i, 整数型<br /> .局部变量 索引, 整数型<br /> <br /> 超级列表框1.全部删除 ()<br /> 到首记录 ()<br /> .计次循环首 (取记录数 (), i)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, i)<br />     超级列表框1.置标题 (索引, 1, 读 (“账号”))<br />     超级列表框1.置标题 (索引, 2, 读 (“密码”))<br />     跳过 ()<br /> .计次循环尾 ()<br /> 账号.内容 ＝ “”<br /> 密码.内容 ＝ “”<br /> <br /> .子程序 删除记录<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果真 (超级列表框1.取当前状态图片 (i － 1) ＝ 1)<br />         跳到 (i)<br />         删除 ()<br />         彻底删除 ()<br />         超级列表框1.删除表项 (i － 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 读取记录 ()<br /> <br /> .子程序 添加用户<br /> <br /> .如果真 (账号.内容 ＝ “”)  ' 查空<br />     返回 ()<br /> .如果真结束<br /> 加空记录 ()<br /> 写 (#账号, 账号.内容)<br /> 写 (#密码, 密码.内容)<br /> 读取记录 ()<br /> <br /> .子程序 _账号_内容被改变, , , 默认带搜索<br /> .局部变量 i, 整数型<br /> <br /> 到首记录 ()<br /> .如果 (查找 (读 (#账号) ＝ 账号.内容))  ' 这句带去重功能<br />     添加用户.标题 ＝ “修改密码”<br />     密码.内容 ＝ 读 (#密码)<br /> .否则<br />     添加用户.标题 ＝ “添加用户”<br />     密码.内容 ＝ “”<br /> .如果结束<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 索引, 整数型<br /> .局部变量 状态图片, 逻辑型<br /> .局部变量 i, 整数型<br /> <br /> 索引 ＝ 超级列表框1.现行选中项<br /> .如果真 (索引 ＞ -1)<br />     账号.内容 ＝ 超级列表框1.取标题 (索引, 1)<br />     密码.内容 ＝ 超级列表框1.取标题 (索引, 2)<br />     .变量循环首 (0, 超级列表框1.取表项数 () － 1, 1, i)  ' 改变检查框状态勾选<br />         .如果 (超级列表框1.取当前状态图片 (索引) ＝ 1)<br />             超级列表框1.置状态图片 (索引, 0)<br />         .否则<br />             超级列表框1.置状态图片 (索引, 1)<br />         .如果结束<br /> <br />     .变量循环尾 ()<br /> <br /> .如果真结束<br /> .如果真 (索引 ＝ -1)  ' 点空白<br />     账号.内容 ＝ “”<br />     密码.内容 ＝ “”<br /> .如果真结束<br /> <br /> <br /> .子程序 修改密码<br /> <br /> 到首记录 ()<br /> .如果真 (查找 (读 (#账号) ＝ 账号.内容))<br />     写 (#密码, 密码.内容)<br /> .如果真结束<br /> 读取记录 ()<br /> <br /> .子程序 _全选_被单击<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br />     .如果 (全选.选中)<br />         超级列表框1.置状态图片 (i － 1, 1)<br />     .否则<br />         超级列表框1.置状态图片 (i － 1, 0)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 _超级列表框1_右键单击表项, , , 记录太多，那就鼠标右键解决<br /> <br /> 账号.内容 ＝ “”<br /> 密码.内容 ＝ “”

源码也放上： 超级列表框 +ebd数据库.e (25.09 KB, 下载次数: 7)

12 小时前 上传

点击文件名下载附件
下载积分: 精币 -2 枚

pipicool

学习一下

卡卡1111

支持开源~！感谢分享

jysoft2022

感谢分享

zifeiyu

66666666666666666666

Yy熊

感谢分享，真好！......

一指温柔

感谢分享，真好！......

杨明煜

学习进步！......

初一47

已经顶贴，感谢您对论坛的支持！

查过

下个学习一下