易语言操作MySQL数据库的一些例程

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

.程序集 窗口程序集_窗口1

.子程序 _按钮2_被单击
.局部变量 mysql句柄, 整数型
.局部变量 记录集句柄, 整数型
.局部变量 productprice, 小数型
.局部变量 costprice, 小数型
.局部变量 记录集行数, 整数型
.局部变量 i, 整数型
.局部变量 id, 整数型

mysql句柄 ＝ 连接MySql (“127.0.0.1”, “ceshi123”, “ceshi123”, “ceshi123”, 3306)
调试输出 (mysql句柄)
' 执行SQL语句 (mysql句柄, “SELECT * FROM `fm_goods`”)

调试输出 (执行SQL语句 (mysql句柄, “SET NAMES GB2312”))  ' 不设置，读取中文或增加记录有中文时，不能成功

' 调试输出 (执行SQL语句 (mysql句柄, “INSERT INTO `fm_search_hot` (`created_at`, `updated_at`, `state`, `name`, `time`, `r`) VALUES ('2020-02-11 19:14:21', '2020-02-11 19:14:25', '2', '哈哈儿', '20201-01-06', '0')”))
调试输出 (增加记录 (mysql句柄, “fm_search_hot”, “created_at='2020-02-11 18:59:36',updated_at='2020-02-11 18:59:36',state='2',name='男装啊',time='2020-02-11',r='0'”))


' 记录集句柄 ＝ 取记录集 (mysql句柄)
' 记录集行数 ＝ 取记录集行数 (记录集句柄)

' “id='1',created_at='” ＋ 时间_格式化 (取现行时间 (), “yyyy-M-d ”, “hh:mm:ss”, 真) ＋ “',updated_at='” ＋ 时间_格式化 (取现行时间 (), “yyyy-M-d ”, “hh:mm:ss”, 真) ＋ “',state='2',name='男装',time='2020-02-11',r='0'”

' 调试输出 (时间_格式化 (取现行时间 (), “yyyy-M-d ”, “hh:mm:ss”, 真))

.子程序 _按钮1_被单击
.局部变量 mysql句柄, 整数型
.局部变量 记录集句柄, 整数型
.局部变量 productprice, 小数型
.局部变量 costprice, 小数型
.局部变量 记录集行数, 整数型
.局部变量 i, 整数型
.局部变量 id, 整数型
.局部变量 title, 文本型

mysql句柄 ＝ 连接MySql (“127.0.0.1”, “ceshi123”, “ceshi123”, “ceshi123”, 3306)
调试输出 (mysql句柄)
执行SQL语句 (mysql句柄, “SET NAMES GB2312”)  ' 不设置，读取中文或增加记录有中文时，不能成功
执行SQL语句 (mysql句柄, “SELECT * FROM `fm_goods`”)

记录集句柄 ＝ 取记录集 (mysql句柄)
记录集行数 ＝ 取记录集行数 (记录集句柄)
' 读字段值 (记录集句柄, “costprice”, costprice)
' 调试输出 (更新记录 (mysql句柄, “fm_goods”, “costprice='11111'”, “costprice='0'”))

' 到文本 (四舍五入 (productprice × 0.7, 0))
' UPDATE `fm_goods` SET `costprice`='123'

.计次循环首 (记录集行数, i)
    读字段值 (记录集句柄, “costprice”, costprice)
    读字段值 (记录集句柄, “productprice”, productprice)

    读字段值 (记录集句柄, “id”, id)
    读字段值 (记录集句柄, “title”, title)

    调试输出 (id, title)

    .' 如果真 (costprice ＝ 0)
        ' 调试输出 (id, costprice)
        ' 更新记录 (mysql句柄, “fm_goods”, “costprice='” ＋ 到文本 (四舍五入 (productprice × 0.7, 0)) ＋ “'”, “id='” ＋ 到文本 (id) ＋ “'”)
    .如果真结束
    ' 暂停 ()
    ' 读字段值 (记录集句柄, “productprice”, productprice)
    ' ' 到文本 (四舍五入 (productprice × 0.7, 0))
    ' UPDATE `fm_goods` SET `costprice`='123'
    到下一行 (记录集句柄)
.计次循环尾 ()