怎么把mysql、

gc99gc

gc99gc

先执行sq语句来进行检索.检索到数据后 反馈到列表框内      例如 查找  a标中的C字段    C字段cha询到的  内容为   字段1=  李明    字段2=男  字段3=1995     怎么把这三个数据反馈到编辑框内。那个大神帮忙看一下！

gc99gc

先执行sq语句来进行检索.检索到数据后 反馈到编辑框内      例如 查找  a标中的C字段    C字段cha询到的  内容为   字段1=  李明    字段2=男  字段3=1995     怎么把这三个数据反馈到编辑框内。那个大神帮忙看一下！

LEOONL

https://bbs.125.la/thread-14804775-1-1.html

qq73s5456

厉害呀， 这个问题你们都能对答如流

gc99gc

LEOONL 发表于 2024-8-8 11:28
https://bbs.125.la/thread-14804775-1-1.html

大佬能不能写个例子 看看

LEOONL

gc99gc 发表于 2024-8-8 11:53
大佬能不能写个例子 看看

那个贴不是纯源码吗，你试过可用没，可用就把可用的代码抠出来不就行了

ai12207745

有偿解决跟支持后续问题咨询，联系看资料

opozyl

.版本 2
.支持库 iext
.支持库 mysql

.子程序 获取库存列表, , , 获取库存列表
.局部变量 id, 文本型
.局部变量 品名, 文本型
.局部变量 规格, 文本型
.局部变量 单位, 文本型
.局部变量 数量, 文本型
.局部变量 单价, 文本型
.局部变量 金额, 文本型
.局部变量 供应商, 文本型
.局部变量 备注, 文本型
.局部变量 最后更新, 文本型
.局部变量 mysql, 整数型
.局部变量 记录集句柄
.局部变量 记录集数
.局部变量 计次
.局部变量 索引

超级列表框1.全部删除 ()
mysql ＝ 连接MySql (数据库地址, 数据库账号, 数据库密码, 数据库名, 3306)
.如果真 (mysql ＝ 0)  ' mysql连接错误
    信息框 (“数据库连接失败！”, 0, , )
    返回 ()
.如果真结束
' 设置编码，不然中文空白
执行SQL语句 (mysql, “set names gbk”)
.如果真 (执行SQL语句 (mysql, “select * from kc order by id”) ＝ 假)
    信息框 (“执行sql语句失败，请重试！”, #错误图标, , )
    返回 ()
.如果真结束

记录集句柄 ＝ 取记录集 (mysql)
记录集数 ＝ 取记录集行数 (记录集句柄)
.计次循环首 (记录集数, 计次)
    读字段值 (记录集句柄, “id”, id)
    读字段值 (记录集句柄, “name”, 品名)
    读字段值 (记录集句柄, “spec”, 规格)
    读字段值 (记录集句柄, “unit”, 单位)
    读字段值 (记录集句柄, “count”, 数量)
    读字段值 (记录集句柄, “price”, 单价)
    读字段值 (记录集句柄, “amount”, 金额)
    读字段值 (记录集句柄, “gys”, 供应商)
    读字段值 (记录集句柄, “time”, 最后更新)
    读字段值 (记录集句柄, “remark”, 备注)
    索引 ＝ 超级列表框1.插入表项 (, , , , , )
    超级列表框1.置标题 (索引, 0, id)
    超级列表框1.置标题 (索引, 1, 到文本 (计次))
    超级列表框1.置标题 (索引, 2, 品名)
    超级列表框1.置标题 (索引, 3, 规格)
    超级列表框1.置标题 (索引, 4, 单位)
    超级列表框1.置标题 (索引, 5, 数量)
    超级列表框1.置标题 (索引, 6, 单价)
    超级列表框1.置标题 (索引, 7, 金额)
    超级列表框1.置标题 (索引, 8, 供应商)
    超级列表框1.置标题 (索引, 9, 备注)
    超级列表框1.置标题 (索引, 10, 最后更新)
    到下一行 (记录集句柄)
.计次循环尾 ()


关闭MySql (mysql)

opozyl

  

子程序名	返回值类型	公开	备 注
获取库存列表			获取库存列表

变量名	类 型	静态	数组	备 注
id	文本型
品名	文本型
规格	文本型
单位	文本型
数量	文本型
单价	文本型
金额	文本型
供应商	文本型
备注	文本型
最后更新	文本型
mysql	整数型
记录集句柄
记录集数
计次
索引

超级列表框1.全部删除 ()
mysql ＝ 连接MySql (数据库地址, 数据库账号, 数据库密码, 数据库名, 3306)
如果真 (mysql ＝ 0)  ' mysql连接错误
信息框 (“数据库连接失败！”, 0, , )
返回 ()
' 设置编码，不然中文空白
执行SQL语句 (mysql, “set names gbk”)
如果真 (执行SQL语句 (mysql, “select * from kc order by id”) ＝ 假)
信息框 (“执行sql语句失败，请重试！”, #错误图标, , )
返回 ()

记录集句柄 ＝ 取记录集 (mysql)
记录集数 ＝ 取记录集行数 (记录集句柄)
计次循环首 (记录集数, 计次)
读字段值 (记录集句柄, “id”, id)
读字段值 (记录集句柄, “name”, 品名)
读字段值 (记录集句柄, “spec”, 规格)
读字段值 (记录集句柄, “unit”, 单位)
读字段值 (记录集句柄, “count”, 数量)
读字段值 (记录集句柄, “price”, 单价)
读字段值 (记录集句柄, “amount”, 金额)
读字段值 (记录集句柄, “gys”, 供应商)
读字段值 (记录集句柄, “time”, 最后更新)
读字段值 (记录集句柄, “remark”, 备注)
索引 ＝ 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, id)
超级列表框1.置标题 (索引, 1, 到文本 (计次))
超级列表框1.置标题 (索引, 2, 品名)
超级列表框1.置标题 (索引, 3, 规格)
超级列表框1.置标题 (索引, 4, 单位)
超级列表框1.置标题 (索引, 5, 数量)
超级列表框1.置标题 (索引, 6, 单价)
超级列表框1.置标题 (索引, 7, 金额)
超级列表框1.置标题 (索引, 8, 供应商)
超级列表框1.置标题 (索引, 9, 备注)
超级列表框1.置标题 (索引, 10, 最后更新)
到下一行 (记录集句柄)
计次循环尾 ()
关闭MySql (mysql)

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

.版本 2<br /> .支持库 iext<br /> .支持库 mysql<br /> <br /> .子程序 获取库存列表, , , 获取库存列表<br /> .局部变量 id, 文本型<br /> .局部变量 品名, 文本型<br /> .局部变量 规格, 文本型<br /> .局部变量 单位, 文本型<br /> .局部变量 数量, 文本型<br /> .局部变量 单价, 文本型<br /> .局部变量 金额, 文本型<br /> .局部变量 供应商, 文本型<br /> .局部变量 备注, 文本型<br /> .局部变量 最后更新, 文本型<br /> .局部变量 mysql, 整数型<br /> .局部变量 记录集句柄<br /> .局部变量 记录集数<br /> .局部变量 计次<br /> .局部变量 索引<br /> <br /> 超级列表框1.全部删除 ()<br /> mysql ＝ 连接MySql (数据库地址, 数据库账号, 数据库密码, 数据库名, 3306)<br /> .如果真 (mysql ＝ 0)  ' mysql连接错误<br />     信息框 (“数据库连接失败！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> ' 设置编码，不然中文空白<br /> 执行SQL语句 (mysql, “set names gbk”)<br /> .如果真 (执行SQL语句 (mysql, “select * from kc order by id”) ＝ 假)<br />     信息框 (“执行sql语句失败，请重试！”, #错误图标, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> 记录集句柄 ＝ 取记录集 (mysql)<br /> 记录集数 ＝ 取记录集行数 (记录集句柄)<br /> .计次循环首 (记录集数, 计次)<br />     读字段值 (记录集句柄, “id”, id)<br />     读字段值 (记录集句柄, “name”, 品名)<br />     读字段值 (记录集句柄, “spec”, 规格)<br />     读字段值 (记录集句柄, “unit”, 单位)<br />     读字段值 (记录集句柄, “count”, 数量)<br />     读字段值 (记录集句柄, “price”, 单价)<br />     读字段值 (记录集句柄, “amount”, 金额)<br />     读字段值 (记录集句柄, “gys”, 供应商)<br />     读字段值 (记录集句柄, “time”, 最后更新)<br />     读字段值 (记录集句柄, “remark”, 备注)<br />     索引 ＝ 超级列表框1.插入表项 (, , , , , )<br />     超级列表框1.置标题 (索引, 0, id)<br />     超级列表框1.置标题 (索引, 1, 到文本 (计次))<br />     超级列表框1.置标题 (索引, 2, 品名)<br />     超级列表框1.置标题 (索引, 3, 规格)<br />     超级列表框1.置标题 (索引, 4, 单位)<br />     超级列表框1.置标题 (索引, 5, 数量)<br />     超级列表框1.置标题 (索引, 6, 单价)<br />     超级列表框1.置标题 (索引, 7, 金额)<br />     超级列表框1.置标题 (索引, 8, 供应商)<br />     超级列表框1.置标题 (索引, 9, 备注)<br />     超级列表框1.置标题 (索引, 10, 最后更新)<br />     到下一行 (记录集句柄)<br /> .计次循环尾 ()<br /> <br /> 关闭MySql (mysql)