.版本 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' 到下一行 (记录集句柄) .计次循环尾 ()