mysql与超级列表框的操作

woaiyiyuyan2016

程序主页面

一.程序启动步骤：
1.先启动mysql数据库，打开启动数据库软件如下图：【启动：启动数据库  关闭：关闭数据库】

2.启动主程序软件

点击“数据库读入”就会读入数据

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
全局_sql句柄	整数型
集_表项索引	整数型
程_当前页数	整数型
程_每页显示条数	整数型
程_当前记录位置	整数型
程_分页总数	整数型

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

全局_sql句柄 ＝ 连接MySql (“127.0.0.1”, “test”, “test”, “mysql”, 3306)
如果真 (全局_sql句柄 ＝ 0)
信息框 (“数据库连接失败!”, 16, “石头提示”, )
返回 ()
编辑框_datatime.内容 ＝ 易语言时间到数据库时间 ()
程_当前页数 ＝ 1
程_每页显示条数 ＝ 21

子程序名	返回值类型	公开	备 注
_按钮_数据库读入_被单击

mysql到超级列表框_石头 (超级列表框1, “huamingce”, “mysql”, “50|80|50|100|150”)

子程序名	返回值类型	公开	备 注
mysql到超级列表框_石头	逻辑型		mysql→→→→超级列表框石头系列
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
表名	文本型				数据库表名字
库名	文本型				数据库名字
超级列表框列宽	文本型				例如：“50|80|50|100|150”，可省略，省略默认列宽80
每页显示多少条	整数型				可省略，省略默认每页显示21条
当前记录位置	整数型				可省略，省略默认当前记录位置为0
是否分页读取	整数型				可省略，省略默认为0，0为全部读取,1为分页读取

变量名	类 型	静态	数组	备 注
选择库是否成功	逻辑型
SQL语句	文本型
记录集句柄	整数型
字段数	整数型
列索引	整数型
索引	整数型
a	整数型
b	整数型
c	整数型
字段名	文本型
数据	文本型
列宽数组	文本型		0
程_总记录数	整数型
d	整数型
e	整数型
error	文本型

超级列表框.全部删除 ()
判断循环首 (超级列表框.取列数 () ≠ 0)
超级列表框.删除列 (超级列表框.取列数 () － 1)
判断循环尾 ()
选择库是否成功 ＝ 选择库 (全局_sql句柄, “mysql”)
如果真 (选择库是否成功 ＝ 真)
SQL语句 ＝ “select * from ” ＋ 表名 ＋ “;”
执行SQL语句 (全局_sql句柄, SQL语句)
记录集句柄 ＝ 取记录集 (全局_sql句柄)
程_总记录数 ＝ 取记录集行数 (记录集句柄)
字段数 ＝ 取字段总数 (记录集句柄)
判断 (每页显示多少条 ＝ 0)
每页显示多少条 ＝ 21



判断 (当前记录位置 ＝ 0)
当前记录位置 ＝ 0


判断 (是否分页读取 ＝ 0)
是否分页读取 ＝ 0



' 分页计算
如果 (程_总记录数 ％ 到整数 (每页显示多少条) ＝ 0)
程_分页总数 ＝ 程_总记录数 ÷ 到整数 (每页显示多少条)  ' 如果能被整除，总页数则为两数相除的商

' 本源码来自易语言资源网([url=www.5A5X.com]www.5A5X.com[/url])
程_分页总数 ＝ 取整 (程_总记录数 ÷ 到整数 (每页显示多少条)) ＋ 1  ' 如不能被整除，总页数则为两数相除取整再+1

列宽数组 ＝ 分割文本 (超级列表框列宽, “|”, )
计次循环首 (字段数, a)
如果真 (序号到字段名 (记录集句柄, a － 1, 字段名))
列索引 ＝ 超级列表框.插入列 (, , , , , )
判断 (取反 (是否为空 (超级列表框列宽)))  ' 省略默认列宽80==这里取反了，
如果真 (a ＝ 1)  ' 超级列表框第1列
超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))
如果真 (a ＝ 2)  ' 超级列表框第2列
超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))
如果真 (a ＝ 3)  ' 超级列表框第3列
超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))
如果真 (a ＝ 4)  ' 超级列表框第4列
超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))
如果真 (a ＝ 5)  ' 超级列表框第5列
超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))


超级列表框.置列宽 (列索引, 80)  ' 省略默认列宽80

超级列表框.置列标题 (列索引, 字段名)

计次循环尾 ()
如果真 (是否分页读取 ＝ 0)  ' 为0是全部读取记录
计次循环首 (取记录集行数 (记录集句柄), b)
到指定行 (记录集句柄, b － 1)
索引 ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (字段数, c)
读字段值 (记录集句柄, c － 1, 数据)
超级列表框.置标题 (索引, c － 1, 到文本 (数据))
计次循环尾 ()
计次循环尾 ()

执行SQL语句 (全局_sql句柄, “select * from ” ＋ 表名 ＋ “ LIMIT ” ＋ 到文本 (当前记录位置) ＋ “,” ＋ 到文本 (每页显示多少条) ＋ “”)
记录集句柄 ＝ 取记录集 (全局_sql句柄)
如果真 (是否分页读取 ＝ 1)  ' 为1是全部读取记录
计次循环首 (取记录集行数 (记录集句柄), d)
索引 ＝ 超级列表框.插入表项 (, , , , , )
计次循环首 (字段数, e)
读字段值 (记录集句柄, e － 1, 数据)
超级列表框.置标题 (索引, e － 1, 到文本 (数据))
计次循环尾 ()
到下一行 (记录集句柄)
计次循环尾 ()

释放记录集 (记录集句柄)
返回 (选择库是否成功)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

断开MySql (全局_sql句柄)

子程序名	返回值类型	公开	备 注
_按钮_列表到数据库_被单击

超级超级列表框到mysql (超级列表框1, “huamingce”, “mysql”)

子程序名	返回值类型	公开	备 注
超级超级列表框到mysql	逻辑型		超级列表框→→→→mysql
参数名	类 型	参考	可空	数组	备 注
超级列表框	超级列表框
表名	文本型				数据库表名字
库名	文本型				数据库名字

变量名	类 型	静态	数组	备 注
选择库是否成功	逻辑型
字段数	整数型
字段	字段信息类型		0
a	整数型
字段名	文本型
字段语句	文本型
b	整数型
列数	整数型
c	整数型
内容	文本型
SQL语句	文本型
数据语句	文本型
error	文本型

如果真 (查找库 (全局_sql句柄, 库名) ＝ 假)
创建库 (全局_sql句柄, 库名)
选择库是否成功 ＝ 选择库 (全局_sql句柄, 库名)
字段数 ＝ 超级列表框.取列数 ()
重定义数组 (字段, 假, 字段数)
计次循环首 (超级列表框.取列数 (), a)
字段名 ＝ 超级列表框.取列标题 (a － 1)
字段 [a].字段名 ＝ 字段名
字段 [a].类型 ＝ #字段基本类型
字段 [a].字段类型 ＝ #MYSQL变长文本型
字段 [a].附加类型信息 ＝ #最大长度
字段 [a].附加内容 ＝ “255”
字段 [a].列内容为空 ＝ 假
如果 (a ＝ 超级列表框.取列数 ())
字段语句 ＝ 字段语句 ＋ 字段名

字段语句 ＝ 字段语句 ＋ 字段名 ＋ “,”

计次循环尾 ()
如果真 (查找表 (全局_sql句柄, 表名))
' 删除表 (全局_sql句柄, 表名)
调试输出 (查找表 (全局_sql句柄, 表名))
. ' 如果 (创建表 (全局_sql句柄, 表名, 字段))
' 调试输出 (“创建成功”)
列数 ＝ 取数组成员数 (字段)
计次循环首 (超级列表框.取表项数 (), b)
数据语句 ＝ “”
计次循环首 (列数, c)
内容 ＝ 超级列表框.取标题 (b － 1, c － 1)
如果 (c ＝ 列数)
数据语句 ＝ 数据语句 ＋ “'” ＋ 内容 ＋ “'”
数据语句 ＝ 数据语句 ＋ “'” ＋ 内容 ＋ “',”

计次循环尾 ()
SQL语句 ＝ “INSERT INTO ” ＋ 表名 ＋ “ (” ＋ 字段语句 ＋ “) VALUES (” ＋ 数据语句 ＋ “);”
' 调试输出 (SQL语句)
' SQL语句 ＝ “INSERT INTO sxf (序号,QQ号,昵称,时间,余额变动) VALUES ('19','96176','秸航秃橇芳','2021-11-08 09:53:19','78233')”
如果 (执行SQL语句 (全局_sql句柄, SQL语句))
' 调试输出 (1)
取错误文本 (全局_sql句柄, error)
调试输出 (error)

计次循环尾 ()
返回 (真)
' 调试输出 (“创建失败”)
返回 (假)

子程序名	返回值类型	公开	备 注
_按钮_修改列表框_被单击

超级列表框修改鼠标选中一项 (超级列表框1)

子程序名	返回值类型	公开	备 注
易语言时间到数据库时间	文本型		2022年3月20日6时58分58秒→→→→→→→→ 0000-00-00 00:00

变量名	类 型	静态	数组	备 注
a	整数型
年	文本型
月	文本型
日	文本型
时	文本型
分	文本型
秒	文本型
结果	文本型

' 2022年3月20日6时58分58秒----------------- 0000-00-00 00:00
a ＝ 寻找文本 (到文本 (取现行时间 ()), “年”, , 假)
年 ＝ 取文本左边 (到文本 (取现行时间 ()), a － 1)
月 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “月”, “年”, )
日 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “日”, “月”, )
时 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “时”, “日”, )
分 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “分”, “时”, )
结果 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “  ” ＋ 时 ＋ “:” ＋ 分
返回 (结果)

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

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

编辑框_id.内容 ＝ “”
编辑框_name.内容 ＝ “”
编辑框_age.内容 ＝ “”
编辑框_money.内容 ＝ “”
表项索引 ＝ 超级列表框1.现行选中项
如果真 (表项索引 ＞ -1)
集_表项索引 ＝ 表项索引
编辑框_id.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
编辑框_name.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)
编辑框_age.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)
编辑框_money.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)

子程序名	返回值类型	公开	备 注
_按钮_添加列表框_被单击

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

如果真 (编辑框_name.内容 ＝ “”)
返回 ()
如果真 (编辑框_age.内容 ＝ “”)
返回 ()
如果真 (编辑框_money.内容 ＝ “”)
返回 ()
如果真 (编辑框_datatime.内容 ＝ “”)
返回 ()
编辑框_d

i支持库列表	支持库注释
mysql	MySql支持库
iext	扩展界面支持库一
spec	特殊功能支持库
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 mysql<br /> .支持库 iext<br /> .支持库 spec<br /> .支持库 shell<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 全局_sql句柄, 整数型<br /> .程序集变量 集_表项索引, 整数型<br /> .程序集变量 程_当前页数, 整数型<br /> .程序集变量 程_每页显示条数, 整数型<br /> .程序集变量 程_当前记录位置, 整数型<br /> .程序集变量 程_分页总数, 整数型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 全局_sql句柄 ＝ 连接MySql (“127.0.0.1”, “test”, “test”, “mysql”, 3306)<br /> <br /> .如果真 (全局_sql句柄 ＝ 0)<br />     信息框 (“数据库连接失败!”, 16, “石头提示”, )<br />     返回 ()<br /> <br /> .如果真结束<br /> 编辑框_datatime.内容 ＝ 易语言时间到数据库时间 ()<br /> 程_当前页数 ＝ 1<br /> 程_每页显示条数 ＝ 21<br /> <br /> <br /> .子程序 _按钮_数据库读入_被单击<br /> <br /> <br /> mysql到超级列表框_石头 (超级列表框1, “huamingce”, “mysql”, “50|80|50|100|150”)<br /> <br /> <br /> .子程序 mysql到超级列表框_石头, 逻辑型, 公开, mysql→→→→超级列表框石头系列<br /> .参数 超级列表框, 超级列表框<br /> .参数 表名, 文本型, , 数据库表名字<br /> .参数 库名, 文本型, , 数据库名字<br /> .参数 超级列表框列宽, 文本型, 可空, 例如：“50|80|50|100|150”，可省略，省略默认列宽80<br /> .参数 每页显示多少条, 整数型, 可空, 可省略，省略默认每页显示21条<br /> .参数 当前记录位置, 整数型, 可空, 可省略，省略默认当前记录位置为0<br /> .参数 是否分页读取, 整数型, 可空, 可省略，省略默认为0，0为全部读取,1为分页读取<br /> .局部变量 选择库是否成功, 逻辑型<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 记录集句柄, 整数型<br /> .局部变量 字段数, 整数型<br /> .局部变量 列索引, 整数型<br /> .局部变量 索引, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 字段名, 文本型<br /> .局部变量 数据, 文本型<br /> .局部变量 列宽数组, 文本型, , "0"<br /> .局部变量 程_总记录数, 整数型<br /> .局部变量 d, 整数型<br /> .局部变量 e, 整数型<br /> .局部变量 error, 文本型<br /> <br /> <br /> 超级列表框.全部删除 ()<br /> .判断循环首 (超级列表框.取列数 () ≠ 0)<br />     超级列表框.删除列 (超级列表框.取列数 () － 1)<br /> .判断循环尾 ()<br /> 选择库是否成功 ＝ 选择库 (全局_sql句柄, “mysql”)<br /> .如果真 (选择库是否成功 ＝ 真)<br />     SQL语句 ＝ “select * from ” ＋ 表名 ＋ “;”<br />     执行SQL语句 (全局_sql句柄, SQL语句)<br />     记录集句柄 ＝ 取记录集 (全局_sql句柄)<br />     程_总记录数 ＝ 取记录集行数 (记录集句柄)<br />     字段数 ＝ 取字段总数 (记录集句柄)<br />     .判断开始 (每页显示多少条 ＝ 0)<br />         每页显示多少条 ＝ 21<br /> <br />     .默认<br /> <br />     .判断结束<br />     .判断开始 (当前记录位置 ＝ 0)<br />         当前记录位置 ＝ 0<br /> <br />     .默认<br /> <br />     .判断结束<br />     .判断开始 (是否分页读取 ＝ 0)<br />         是否分页读取 ＝ 0<br />     .默认<br /> <br />     .判断结束<br /> <br /> <br /> <br />     ' 分页计算<br />     .如果 (程_总记录数 ％ 到整数 (每页显示多少条) ＝ 0)<br />         程_分页总数 ＝ 程_总记录数 ÷ 到整数 (每页显示多少条)  ' 如果能被整除，总页数则为两数相除的商<br /> <br />     .否则<br />         ' 本源码来自易语言资源网(<a href="http://www.5A5X.com" rel="nofollow" target="_blank">www.5A5X.com</a>)<br />         程_分页总数 ＝ 取整 (程_总记录数 ÷ 到整数 (每页显示多少条)) ＋ 1  ' 如不能被整除，总页数则为两数相除取整再+1<br /> <br />     .如果结束<br /> <br />     列宽数组 ＝ 分割文本 (超级列表框列宽, “|”, )<br /> <br />     .计次循环首 (字段数, a)<br />         .如果真 (序号到字段名 (记录集句柄, a － 1, 字段名))<br />             列索引 ＝ 超级列表框.插入列 (, , , , , )<br />             .判断开始 (取反 (是否为空 (超级列表框列宽)))  ' 省略默认列宽80==这里取反了，<br />                 .如果真 (a ＝ 1)  ' 超级列表框第1列<br />                     超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))<br />                 .如果真结束<br />                 .如果真 (a ＝ 2)  ' 超级列表框第2列<br />                     超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))<br />                 .如果真结束<br />                 .如果真 (a ＝ 3)  ' 超级列表框第3列<br />                     超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))<br />                 .如果真结束<br />                 .如果真 (a ＝ 4)  ' 超级列表框第4列<br />                     超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))<br />                 .如果真结束<br />                 .如果真 (a ＝ 5)  ' 超级列表框第5列<br />                     超级列表框.置列宽 (列索引, 到数值 (列宽数组 [a]))<br />                 .如果真结束<br /> <br /> <br />             .默认<br />                 超级列表框.置列宽 (列索引, 80)  ' 省略默认列宽80<br />             .判断结束<br /> <br />             超级列表框.置列标题 (列索引, 字段名)<br /> <br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> <br /> <br />     .如果真 (是否分页读取 ＝ 0)  ' 为0是全部读取记录<br />         .计次循环首 (取记录集行数 (记录集句柄), b)<br /> <br />             到指定行 (记录集句柄, b － 1)<br />             索引 ＝ 超级列表框.插入表项 (, , , , , )<br /> <br />             .计次循环首 (字段数, c)<br /> <br />                 读字段值 (记录集句柄, c － 1, 数据)<br /> <br />                 超级列表框.置标题 (索引, c － 1, 到文本 (数据))<br />             .计次循环尾 ()<br /> <br /> <br />         .计次循环尾 ()<br /> <br /> <br /> <br />     .如果真结束<br /> <br /> <br /> <br /> <br />     执行SQL语句 (全局_sql句柄, “select * from ” ＋ 表名 ＋ “ LIMIT ” ＋ 到文本 (当前记录位置) ＋ “,” ＋ 到文本 (每页显示多少条) ＋ “”)<br /> <br /> <br />     记录集句柄 ＝ 取记录集 (全局_sql句柄)<br /> <br /> <br />     .如果真 (是否分页读取 ＝ 1)  ' 为1是全部读取记录<br /> <br /> <br />         .计次循环首 (取记录集行数 (记录集句柄), d)<br />             索引 ＝ 超级列表框.插入表项 (, , , , , )<br /> <br />             .计次循环首 (字段数, e)<br />                 读字段值 (记录集句柄, e － 1, 数据)<br /> <br />                 超级列表框.置标题 (索引, e － 1, 到文本 (数据))<br />             .计次循环尾 ()<br />             到下一行 (记录集句柄)<br />         .计次循环尾 ()<br /> <br /> <br /> <br />     .如果真结束<br /> <br /> <br />     释放记录集 (记录集句柄)<br /> <br /> .如果真结束<br /> 返回 (选择库是否成功)<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> <br /> <br /> 断开MySql (全局_sql句柄)<br /> <br /> <br /> .子程序 _按钮_列表到数据库_被单击<br /> <br /> 超级超级列表框到mysql (超级列表框1, “huamingce”, “mysql”)<br /> <br /> <br /> .子程序 超级超级列表框到mysql, 逻辑型, 公开, 超级列表框→→→→mysql<br /> .参数 超级列表框, 超级列表框<br /> .参数 表名, 文本型, , 数据库表名字<br /> .参数 库名, 文本型, , 数据库名字<br /> .局部变量 选择库是否成功, 逻辑型<br /> .局部变量 字段数, 整数型<br /> .局部变量 字段, 字段信息类型, , "0"<br /> .局部变量 a, 整数型<br /> .局部变量 字段名, 文本型<br /> .局部变量 字段语句, 文本型<br /> .局部变量 b, 整数型<br /> .局部变量 列数, 整数型<br /> .局部变量 c, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 SQL语句, 文本型<br /> .局部变量 数据语句, 文本型<br /> .局部变量 error, 文本型<br /> <br /> .如果真 (查找库 (全局_sql句柄, 库名) ＝ 假)<br />     创建库 (全局_sql句柄, 库名)<br /> <br /> .如果真结束<br /> 选择库是否成功 ＝ 选择库 (全局_sql句柄, 库名)<br /> <br /> 字段数 ＝ 超级列表框.取列数 ()<br /> <br /> 重定义数组 (字段, 假, 字段数)<br /> <br /> .计次循环首 (超级列表框.取列数 (), a)<br /> <br />     字段名 ＝ 超级列表框.取列标题 (a － 1)<br /> <br />     字段 [a].字段名 ＝ 字段名<br /> <br />     字段 [a].类型 ＝ #字段基本类型<br /> <br />     字段 [a].字段类型 ＝ #MYSQL变长文本型<br /> <br />     字段 [a].附加类型信息 ＝ #最大长度<br /> <br />     字段 [a].附加内容 ＝ “255”<br /> <br />     字段 [a].列内容为空 ＝ 假<br /> <br />     .如果 (a ＝ 超级列表框.取列数 ())<br /> <br />         字段语句 ＝ 字段语句 ＋ 字段名<br /> <br />     .否则<br />         字段语句 ＝ 字段语句 ＋ 字段名 ＋ “,”<br />     .如果结束<br /> <br /> <br /> .计次循环尾 ()<br /> .如果真 (查找表 (全局_sql句柄, 表名))<br />     ' 删除表 (全局_sql句柄, 表名)<br /> .如果真结束<br /> 调试输出 (查找表 (全局_sql句柄, 表名))<br /> <br /> .' 如果 (创建表 (全局_sql句柄, 表名, 字段))<br />     ' 调试输出 (“创建成功”)<br /> <br />     列数 ＝ 取数组成员数 (字段)<br /> <br />     .计次循环首 (超级列表框.取表项数 (), b)<br /> <br />         数据语句 ＝ “”<br />         .计次循环首 (列数, c)<br /> <br />             内容 ＝ 超级列表框.取标题 (b － 1, c － 1)<br /> <br />             .如果 (c ＝ 列数)<br />                 数据语句 ＝ 数据语句 ＋ “'” ＋ 内容 ＋ “'”<br />             .否则<br />                 数据语句 ＝ 数据语句 ＋ “'” ＋ 内容 ＋ “',”<br />             .如果结束<br /> <br /> <br />         .计次循环尾 ()<br />         SQL语句 ＝ “INSERT INTO ” ＋ 表名 ＋ “ (” ＋ 字段语句 ＋ “) VALUES (” ＋ 数据语句 ＋ “);”<br /> <br />         ' 调试输出 (SQL语句)<br />         ' SQL语句 ＝ “INSERT INTO sxf (序号,QQ号,昵称,时间,余额变动) VALUES ('19','96176','秸航秃橇芳','2021-11-08 09:53:19','78233')”<br />         .如果 (执行SQL语句 (全局_sql句柄, SQL语句))<br />             ' 调试输出 (1)<br />         .否则<br />             取错误文本 (全局_sql句柄, error)<br /> <br />             调试输出 (error)<br /> <br />         .如果结束<br /> <br />     .计次循环尾 ()<br /> <br />     返回 (真)<br /> <br /> .否则<br />     ' 调试输出 (“创建失败”)<br />     返回 (假)<br /> .如果结束<br /> <br /> <br /> <br /> .子程序 _按钮_修改列表框_被单击<br /> <br /> 超级列表框修改鼠标选中一项 (超级列表框1)<br /> <br /> <br /> .子程序 易语言时间到数据库时间, 文本型, 公开, 2022年3月20日6时58分58秒→→→→→→→→ 0000-00-00 00:00<br /> .局部变量 a, 整数型<br /> .局部变量 年, 文本型<br /> .局部变量 月, 文本型<br /> .局部变量 日, 文本型<br /> .局部变量 时, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 秒, 文本型<br /> .局部变量 结果, 文本型<br /> <br /> ' 2022年3月20日6时58分58秒----------------- 0000-00-00 00:00<br /> <br /> a ＝ 寻找文本 (到文本 (取现行时间 ()), “年”, , 假)<br /> 年 ＝ 取文本左边 (到文本 (取现行时间 ()), a － 1)<br /> 月 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “月”, “年”, )<br /> 日 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “日”, “月”, )<br /> 时 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “时”, “日”, )<br /> 分 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “分”, “时”, )<br /> <br /> 结果 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “  ” ＋ 时 ＋ “:” ＋ 分<br /> <br /> 返回 (结果)<br /> <br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> .局部变量 表项索引, 整数型<br /> <br /> 编辑框_id.内容 ＝ “”<br /> 编辑框_name.内容 ＝ “”<br /> 编辑框_age.内容 ＝ “”<br /> 编辑框_money.内容 ＝ “”<br /> 表项索引 ＝ 超级列表框1.现行选中项<br /> <br /> .如果真 (表项索引 ＞ -1)<br />     集_表项索引 ＝ 表项索引<br />     编辑框_id.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)<br />     编辑框_name.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 1)<br />     编辑框_age.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 2)<br />     编辑框_money.内容 ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 3)<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮_添加列表框_被单击<br /> .局部变量 索引, 整数型<br /> <br /> <br /> .如果真 (编辑框_name.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_age.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_money.内容 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (编辑框_datatime.内容 ＝ “”)<br />     返回 ()<br /> <br /> .如果真结束<br /> 编辑框_d

3其他功能自行测试，数据库翻页（默认每页显示21条）可在源码里面修改。
4.论坛只能上传3M文件，所以分卷了。【需要好压解压】





备份：https://lanzout.com/ir0pM02dhuyh

b295a2

感谢分享，很需要

一米阳光2

支持开源，谢谢分享

selenly

看着很强大啊  收下了 学习下

gdwlwl

命名用户身份命名用户身份命名用户身份命名用户身份

welkin

感谢分享！！

youxigw

这个例子很详细

像鱼一样思考

6666666666666666666666

603007856

666666666666666

zifeiyu

666666666666666666