易语言SQL数据库。如何将“编辑框”，“组合框”，“日期框”的内容添加到超级列表框内？通过后一定加分！

.版本 2

.支持库 mysql

.支持库 iext

Z开始日期 ＝ 到文本 (取年份 (日期框1开始日期.今天)) ＋ “-” ＋ 到文本 (取月份 (日期框1开始日期.今天)) ＋ “-” ＋ 到文本 (取日 (日期框1开始日期.今天)) ＋ “ ” ＋ 取文本右边 (“00” ＋ 到文本 (取小时 (日期框1开始日期.今天)), 2) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取分钟 (日期框1开始日期.今天)), 2)) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取秒 (日期框1开始日期.今天)), 2))

Z到期日期 ＝ 到文本 (到文本 (取年份 (日期框1到期日期.今天)) ＋ “-” ＋ 到文本 (取月份 (日期框1到期日期.今天)) ＋ “-” ＋ 到文本 (取日 (日期框1到期日期.今天)) ＋ “ ” ＋ 取文本右边 (“00” ＋ 到文本 (取小时 (日期框1到期日期.今天)), 2) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取分钟 (日期框1到期日期.今天)), 2)) ＋ “:” ＋ 到文本 (取文本右边 (“00” ＋ 到文本 (取秒 (日期框1到期日期.今天)), 2)))

算日期 ()

.判断开始 (sql状态 ＝ “连接成功”)

.如果 (增加记录 (mysql句柄, “ns_b”, “b1='” ＋ Z开始日期 ＋ “',b2='” ＋ 编辑框1姓名.内容 ＋ “',b3='” ＋ 编辑框1电话.内容 ＋ “',b4='” ＋ 编辑框1租金.内容 ＋ “',b5='” ＋ 编辑框1地址.内容 ＋ “',b6='” ＋ 编辑框1原作物名.内容 ＋ “',b7='” ＋ 编辑框1土地代码.内容 ＋ “',b8='” ＋ 编辑框1土地名称.内容 ＋ “',b9='” ＋ 编辑框1土地类型.内容 ＋ “',b10='” ＋ 编辑框1土地面积.内容 ＋ “',b11='” ＋ 编辑框1种植数量.内容 ＋ “',b12='” ＋ 编辑框1种植种类.内容 ＋ “',b13='” ＋ 编辑框1品种名称.内容 ＋ “',b14='” ＋ 编辑框1种植大小.内容 ＋ “',b15='” ＋ 编辑框_租用备注.内容 ＋ “',b16='” ＋ 编辑框1租用年限.内容 ＋ “',b17='” ＋ 是否到期 ＋ “',b18='” ＋ Z到期日期 ＋ “';”))

透明标签_保存成功与否.标题 ＝ “保存成功”

.如果 (信息框 (“保存成功！---是否继续添加信息?”, #是否钮 ＋ #询问图标, “增加信息”, 高级选择夹2租用信息) ＝ #是钮)

连续赋值 (“”, 编辑框1地址.内容, 编辑框1租金.内容, 编辑框1电话.内容, 编辑框1姓名.内容, 编辑框_查询.内容, 编辑框1种植种类.内容, 编辑框_租用备注.内容, 编辑框1种植大小.内容, 编辑框1种植数量.内容, 编辑框1品种名称.内容, 编辑框1租用年限.内容, 编辑框1原作物名.内容, 编辑框1土地代码.内容, 编辑框1土地名称.内容, 编辑框1土地类型.内容, 编辑框1土地面积.内容)

透明标签_保存成功与否.标题 ＝ “”

.否则

透明标签_保存成功与否.标题 ＝ “”

.如果结束

.否则

透明标签_保存成功与否.标题 ＝ “保存失败”

返回 ()

.如果结束

.默认

信息框 (“连接数据库失败！”, #警告图标, , )

欢迎交流

索引=超级列表框.插入表项()
超级列表框.置标题(索引，0，编辑框.内容)
超级列表框.置标题(索引，1，组合框.取项目文本(组合框.现行选择项))
超级列表框.置标题(索引，2，日期框.今天)

写数据库可以用外数据库组件，也可以用数据库连接和记录集组件
记录集.打开("INSERT INTO ……",#SQL语句)

自己看帮助吧，应该不是很难！