求助 MySQL内容获取

lxlm

获取数据库的内容全部显示出来

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_活动列表
变量名	类 型	数组	备 注
外形框_动态区域高度	整数型
模版_外框	外形框	0
模版_选择	选择框	0
模版_图片	图片框	0
模版_标题	透明标签	0
模版_描述	透明标签	0
模版_按钮	按钮	0
模版_状态	透明标签	0
数据总数	整数型
最高阈值	整数型
集_参数获取	整数型
集_数据表	文本型
集_标题	文本型
集_描述	文本型
集_状态	文本型
集_图片	字节集

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

最高阈值 ＝ 8
窗口布局创建 ()

子程序名	返回值类型	公开	备 注
窗口布局创建

数据获取 ()
组件复制 ()
纵向滚动条_滚动.最大位置 ＝ 外形框_动态区域高度 － 外形框_背景.高度
如果真 (数据总数 ≤ 最高阈值)
窗口布局状态1 ()
返回 ()
窗口布局状态2 ()

子程序名	返回值类型	公开	备 注
窗口布局状态1

纵向滚动条_滚动.可视 ＝ 假
外形框_背景.宽度 ＝ 取用户区宽度 ()
外形框_背景.高度 ＝ 取用户区高度 ()
外形框_动态区域.宽度 ＝ 外形框_背景.宽度
外形框_动态区域.高度 ＝ 外形框_动态区域高度
模版_外形框_外框.宽度 ＝ 外形框_动态区域.宽度
模版_按钮_详情.移动 (模版_外形框_外框.宽度 － 10 － 模版_按钮_详情.宽度, 17, 50, 25)
模版_透明标签_标题.宽度 ＝ 模版_外形框_外框.宽度 － 110 － 模版_按钮_详情.宽度
模版_透明标签_描述.宽度 ＝ 模版_外形框_外框.宽度 － 110 － 模版_按钮_详情.宽度

子程序名	返回值类型	公开	备 注
窗口布局状态2

纵向滚动条_滚动.可视 ＝ 真
外形框_背景.宽度 ＝ 取用户区宽度 ()
外形框_背景.高度 ＝ 取用户区高度 ()
外形框_动态区域.宽度 ＝ 外形框_背景.宽度 － 纵向滚动条_滚动.宽度 － 5
外形框_动态区域.高度 ＝ 外形框_动态区域高度
模版_外形框_外框.宽度 ＝ 外形框_动态区域.宽度
纵向滚动条_滚动.移动 (外形框_动态区域.宽度 ＋ 5, 0, 15, 外形框_背景.高度)
纵向滚动条_滚动.置父窗口 (外形框_背景)
模版_透明标签_标题.宽度 ＝ 模版_外形框_外框.宽度 － 模版_按钮_详情.宽度 － 模版_透明标签_标题.左边
模版_透明标签_描述.宽度 ＝ 模版_透明标签_标题.宽度
模版_按钮_详情.左边 ＝ 模版_透明标签_标题.左边 ＋ 模版_透明标签_标题.宽度

子程序名	返回值类型	公开	备 注
组件复制

变量名	类 型	静态	数组	备 注
局部_计次	整数型

重定义数组 (模版_外框, 假, 数据总数)
重定义数组 (模版_选择, 假, 数据总数)
重定义数组 (模版_图片, 假, 数据总数)
重定义数组 (模版_标题, 假, 数据总数)
重定义数组 (模版_描述, 假, 数据总数)
重定义数组 (模版_状态, 假, 数据总数)
重定义数组 (模版_按钮, 假, 数据总数)
计次循环首 (数据总数, 局部_计次)
复制窗口组件 (模版_外形框_外框, 模版_外框 [局部_计次])
模版_外框 [局部_计次].可视 ＝ 真
模版_外框 [局部_计次].顶边 ＝ (局部_计次 － 1) �� (模版_外形框_外框.高度 ＋ 3)
模版_外框 [局部_计次].左边 ＝ 模版_外形框_外框.左边
复制窗口组件 (模版_选择框_选择, 模版_选择 [局部_计次])
模版_选择 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_选择 [局部_计次].可视 ＝ 真
复制窗口组件 (模版_图片框_图片, 模版_图片 [局部_计次])
模版_图片 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_图片 [局部_计次].可视 ＝ 真
模版_图片 [局部_计次].图片 ＝ 集_图片
复制窗口组件 (模版_透明标签_标题, 模版_标题 [局部_计次])
模版_标题 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_标题 [局部_计次].可视 ＝ 真
模版_标题 [局部_计次].标题 ＝ 集_标题
复制窗口组件 (模版_透明标签_描述, 模版_描述 [局部_计次])
模版_描述 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_描述 [局部_计次].可视 ＝ 真
模版_描述 [局部_计次].标题 ＝ 集_描述
复制窗口组件 (模版_透明标签_状态, 模版_状态 [局部_计次])
模版_状态 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_状态 [局部_计次].可视 ＝ 真
模版_状态 [局部_计次].标题 ＝ 集_状态
复制窗口组件 (模版_按钮_详情, 模版_按钮 [局部_计次])
模版_按钮 [局部_计次].置父窗口 (模版_外框 [局部_计次])
模版_按钮 [局部_计次].可视 ＝ 真
外形框_动态区域高度 ＝ 模版_外框 [局部_计次].顶边 ＋ 60
到下一行 (全_Mysql句柄)  ‘在此处加上一行这个代码  程序闪退崩溃，不加就是如图；
计次循环尾 ()
封_数据库断开 ()

子程序名	返回值类型	公开	备 注
参数获取	文本型

如果真 (全_参数传递 ＝ 100)
集_数据表 ＝ “activities”
集_图片 ＝ #日常活动
返回 (集_数据表)
返回 (“失败”)

子程序名	返回值类型	公开	备 注
数据获取

变量名	类 型	静态	数组	备 注
局_结束日期	文本型
局_结束时间	文本型
时间	文本型

参数获取 ()
如果真 (集_数据表 ＝ “失败”)
信息框 (“参数接收失败，请重试！”, 0, , “参数传递”)
销毁 ()
返回 ()
封_数据库连接 ()
全_Sql语句 ＝ “SELECT * FROM `” ＋ 集_数据表 ＋ “`”
执行SQL语句 (全_Mysql句柄, 全_Sql语句)
全_记录集 ＝ 取记录集 (全_Mysql句柄)
数据总数 ＝ 取记录集行数 (全_记录集)
读字段值 (全_记录集, 1, 集_标题)
读字段值 (全_记录集, 8, 集_描述)
读字段值 (全_记录集, 4, 局_结束日期)
读字段值 (全_记录集, 5, 局_结束时间)
时间 ＝ 局_结束日期 ＋ “ ” ＋ 局_结束时间
判断 (到整数 (取时间间隔 (到时间 (封_日期时间 ()), 到时间 (时间), #秒 )) ＜ 0)
集_状态 ＝ “活动进行中！”
返回 ()
集_状态 ＝ “活动已结束！”

返回 ()

子程序名	返回值类型	公开	备 注
_纵向滚动条_滚动_位置被改变

外形框_动态区域.顶边 ＝ －纵向滚动条_滚动.位置 ＋ 1

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

.版本 2<br /> .支持库 iext<br /> .支持库 mysql<br /> <br /> .程序集 窗口程序集_活动列表<br /> .程序集变量 外形框_动态区域高度, 整数型<br /> .程序集变量 模版_外框, 外形框, , "0"<br /> .程序集变量 模版_选择, 选择框, , "0"<br /> .程序集变量 模版_图片, 图片框, , "0"<br /> .程序集变量 模版_标题, 透明标签, , "0"<br /> .程序集变量 模版_描述, 透明标签, , "0"<br /> .程序集变量 模版_按钮, 按钮, , "0"<br /> .程序集变量 模版_状态, 透明标签, , "0"<br /> .程序集变量 数据总数, 整数型<br /> .程序集变量 最高阈值, 整数型<br /> .程序集变量 集_参数获取, 整数型<br /> .程序集变量 集_数据表, 文本型<br /> .程序集变量 集_标题, 文本型<br /> .程序集变量 集_描述, 文本型<br /> .程序集变量 集_状态, 文本型<br /> .程序集变量 集_图片, 字节集<br /> <br /> .子程序 _窗口_活动列表_创建完毕<br /> <br /> 最高阈值 ＝ 8<br /> 窗口布局创建 ()<br /> <br /> <br /> <br /> <br /> <br /> .子程序 窗口布局创建<br /> <br /> 数据获取 ()<br /> <br /> <br /> <br /> 组件复制 ()<br /> 纵向滚动条_滚动.最大位置 ＝ 外形框_动态区域高度 － 外形框_背景.高度<br /> <br /> <br /> .如果真 (数据总数 ≤ 最高阈值)<br />     窗口布局状态1 ()<br />     返回 ()<br /> .如果真结束<br /> 窗口布局状态2 ()<br /> <br /> <br /> <br /> .子程序 窗口布局状态1<br /> <br /> 纵向滚动条_滚动.可视 ＝ 假<br /> 外形框_背景.宽度 ＝ 取用户区宽度 ()<br /> 外形框_背景.高度 ＝ 取用户区高度 ()<br /> 外形框_动态区域.宽度 ＝ 外形框_背景.宽度<br /> 外形框_动态区域.高度 ＝ 外形框_动态区域高度<br /> 模版_外形框_外框.宽度 ＝ 外形框_动态区域.宽度<br /> 模版_按钮_详情.移动 (模版_外形框_外框.宽度 － 10 － 模版_按钮_详情.宽度, 17, 50, 25)<br /> 模版_透明标签_标题.宽度 ＝ 模版_外形框_外框.宽度 － 110 － 模版_按钮_详情.宽度<br /> 模版_透明标签_描述.宽度 ＝ 模版_外形框_外框.宽度 － 110 － 模版_按钮_详情.宽度<br /> <br /> <br /> .子程序 窗口布局状态2<br /> <br /> 纵向滚动条_滚动.可视 ＝ 真<br /> 外形框_背景.宽度 ＝ 取用户区宽度 ()<br /> 外形框_背景.高度 ＝ 取用户区高度 ()<br /> 外形框_动态区域.宽度 ＝ 外形框_背景.宽度 － 纵向滚动条_滚动.宽度 － 5<br /> 外形框_动态区域.高度 ＝ 外形框_动态区域高度<br /> 模版_外形框_外框.宽度 ＝ 外形框_动态区域.宽度<br /> 纵向滚动条_滚动.移动 (外形框_动态区域.宽度 ＋ 5, 0, 15, 外形框_背景.高度)<br /> 纵向滚动条_滚动.置父窗口 (外形框_背景)<br /> <br /> 模版_透明标签_标题.宽度 ＝ 模版_外形框_外框.宽度 － 模版_按钮_详情.宽度 － 模版_透明标签_标题.左边<br /> 模版_透明标签_描述.宽度 ＝ 模版_透明标签_标题.宽度<br /> 模版_按钮_详情.左边 ＝ 模版_透明标签_标题.左边 ＋ 模版_透明标签_标题.宽度<br /> <br /> <br /> <br /> <br /> .子程序 组件复制<br /> .局部变量 局部_计次, 整数型<br /> <br /> <br /> <br /> 重定义数组 (模版_外框, 假, 数据总数)<br /> 重定义数组 (模版_选择, 假, 数据总数)<br /> 重定义数组 (模版_图片, 假, 数据总数)<br /> 重定义数组 (模版_标题, 假, 数据总数)<br /> 重定义数组 (模版_描述, 假, 数据总数)<br /> 重定义数组 (模版_状态, 假, 数据总数)<br /> 重定义数组 (模版_按钮, 假, 数据总数)<br /> <br /> <br /> <br /> <br /> .计次循环首 (数据总数, 局部_计次)<br />     复制窗口组件 (模版_外形框_外框, 模版_外框 [局部_计次])<br />     模版_外框 [局部_计次].可视 ＝ 真<br />     模版_外框 [局部_计次].顶边 ＝ (局部_计次 － 1) × (模版_外形框_外框.高度 ＋ 3)<br />     模版_外框 [局部_计次].左边 ＝ 模版_外形框_外框.左边<br />     复制窗口组件 (模版_选择框_选择, 模版_选择 [局部_计次])<br />     模版_选择 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_选择 [局部_计次].可视 ＝ 真<br />     复制窗口组件 (模版_图片框_图片, 模版_图片 [局部_计次])<br />     模版_图片 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_图片 [局部_计次].可视 ＝ 真<br />     模版_图片 [局部_计次].图片 ＝ 集_图片<br />     复制窗口组件 (模版_透明标签_标题, 模版_标题 [局部_计次])<br />     模版_标题 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_标题 [局部_计次].可视 ＝ 真<br />     模版_标题 [局部_计次].标题 ＝ 集_标题<br />     复制窗口组件 (模版_透明标签_描述, 模版_描述 [局部_计次])<br />     模版_描述 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_描述 [局部_计次].可视 ＝ 真<br />     模版_描述 [局部_计次].标题 ＝ 集_描述<br />     复制窗口组件 (模版_透明标签_状态, 模版_状态 [局部_计次])<br />     模版_状态 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_状态 [局部_计次].可视 ＝ 真<br />     模版_状态 [局部_计次].标题 ＝ 集_状态<br />     复制窗口组件 (模版_按钮_详情, 模版_按钮 [局部_计次])<br />     模版_按钮 [局部_计次].置父窗口 (模版_外框 [局部_计次])<br />     模版_按钮 [局部_计次].可视 ＝ 真<br />     外形框_动态区域高度 ＝ 模版_外框 [局部_计次].顶边 ＋ 60<br />     到下一行 (全_Mysql句柄)  ‘在此处加上一行这个代码  程序闪退崩溃，不加就是如图； <br /> <br /> .计次循环尾 ()<br /> <br /> 封_数据库断开 ()<br /> <br /> .子程序 参数获取, 文本型<br /> <br /> .如果真 (全_参数传递 ＝ 100)<br />     集_数据表 ＝ “activities”<br />     集_图片 ＝ #日常活动<br />     返回 (集_数据表)<br /> .如果真结束<br /> 返回 (“失败”)<br /> <br /> .子程序 数据获取<br /> .局部变量 局_结束日期, 文本型<br /> .局部变量 局_结束时间, 文本型<br /> .局部变量 时间, 文本型<br /> <br /> 参数获取 ()<br /> .如果真 (集_数据表 ＝ “失败”)<br />     信息框 (“参数接收失败，请重试！”, 0, , “参数传递”)<br />     销毁 ()<br />     返回 ()<br /> .如果真结束<br /> 封_数据库连接 ()<br /> 全_Sql语句 ＝ “SELECT * FROM `” ＋ 集_数据表 ＋ “`”<br /> 执行SQL语句 (全_Mysql句柄, 全_Sql语句)<br /> 全_记录集 ＝ 取记录集 (全_Mysql句柄)<br /> 数据总数 ＝ 取记录集行数 (全_记录集)<br /> <br /> 读字段值 (全_记录集, 1, 集_标题)<br /> 读字段值 (全_记录集, 8, 集_描述)<br /> 读字段值 (全_记录集, 4, 局_结束日期)<br /> 读字段值 (全_记录集, 5, 局_结束时间)<br /> 时间 ＝ 局_结束日期 ＋ “ ” ＋ 局_结束时间<br /> .判断开始 (到整数 (取时间间隔 (到时间 (封_日期时间 ()), 到时间 (时间), #秒)) ＜ 0)<br />     集_状态 ＝ “活动进行中！”<br /> <br />     返回 ()<br /> .默认<br />     集_状态 ＝ “活动已结束！”<br /> .判断结束<br /> <br /> <br /> <br /> 返回 ()<br /> <br /> <br /> <br /> <br /> <br /> .子程序 _纵向滚动条_滚动_位置被改变<br /> <br /> 外形框_动态区域.顶边 ＝ －纵向滚动条_滚动.位置 ＋ 1

皓③②

https://bbs.125.la/forum.php?mod ... highlight=sql%2B3.0

lxlm

皓③② 发表于 2025-1-6 11:34
https://bbs.125.la/forum.php?mod=viewthread&tid=14467547&highlight=sql%2B3.0

问题尚未解决

唐长老网络

.版本 2
.支持库 mysql

.计次循环首 (数据总数, x)
    读字段值 (全_记录集, 1, 集_标题)
    读字段值 (全_记录集, 8, 集_描述)
    读字段值 (全_记录集, 4, 局_结束日期)
    读字段值 (全_记录集, 5, 局_结束时间)
    时间 ＝ 局_结束日期 ＋ “ ” ＋ 局_结束时间
    到下一行 (全_记录集)
.计次循环尾 ()

lxlm

唐长老网络 发表于 2025-1-6 12:19
.版本 2
.支持库 mysql

依然无效

唐长老网络

你把组件 复制 那个写数据 显示到前端的 放这循环里面 试试

唐长老网络

你这相当于 就是 每次都是读取的第一条数据 没有 到下一条数据

赤颜|Tfasxn

肯定是读取一条数据，复制一次组件哇