| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集_启动窗口 | |||
| 变量名 | 类 型 | 数组 | 备 注 |
| 全局_sql句柄 | 整数型 | ||
| 集_表项索引 | 整数型 | ||
| 程_当前页数 | 整数型 | ||
| 程_每页显示条数 | 整数型 | ||
| 程_当前记录位置 | 整数型 | ||
| 程_分页总数 | 整数型 |
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| __启动窗口_创建完毕 | |||||
如果真 (全局_sql句柄 ＝ 0)
信息框 (“数据库连接失败!”, 16, “石头提示”, )返回 ()编辑框_datatime.内容 ＝ 易语言时间到数据库时间 ()
程_当前页数 ＝ 1
程_每页显示条数 ＝ 21
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_数据库读入_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||||
| 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 | 逻辑型 | 超级列表框→→→→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)计次循环尾 ()返回 (真)
' 调试输出 (“创建失败”)返回 (假)| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _按钮_修改列表框_被单击 | |||||
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| 易语言时间到数据库时间 | 文本型 | 2022年3月20日6时58分58秒→→→→→→→→ 0000-00-00 00:00 | |||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| a | 整数型 | |||||
| 年 | 文本型 | |||||
| 月 | 文本型 | |||||
| 日 | 文本型 | |||||
| 时 | 文本型 | |||||
| 分 | 文本型 | |||||
| 秒 | 文本型 | |||||
| 结果 | 文本型 | |||||
a ＝ 寻找文本 (到文本 (取现行时间 ()), “年”, , 假)
年 ＝ 取文本左边 (到文本 (取现行时间 ()), a － 1)
月 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “月”, “年”, )
日 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “日”, “月”, )
时 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “时”, “日”, )
分 ＝ 文本_倒取出中间文本 (到文本 (取现行时间 ()), “分”, “时”, )
结果 ＝ 年 ＋ “-” ＋ 月 ＋ “-” ＋ 日 ＋ “ ” ＋ 时 ＋ “:” ＋ 分
返回 (结果)
| 子程序名 | 返回值类型 | 公开 | 备 注 | ||
| _超级列表框1_左键单击表项 | |||||
| 变量名 | 类 型 | 静态 | 数组 | 备 注 | ||
| 表项索引 | 整数型 | |||||
编辑框_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 | 操作系统界面功能支持库 |
这么多分卷 下载不起 
