各位大佬，请教超级列表框数据写入数据库的问题 - 精易论坛

窗口程序集名	保留	保留	备注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备注
_服务器1_客户进入

编辑框1.加入文本 (“客户连接成功” ＋服务器1.取回客户 () ＋ #换行符 )

子程序名	返回值类型	公开	备注
_服务器1_客户离开

编辑框1.加入文本 (“客户断开连接” ＋服务器1.取回客户 () ＋ #换行符 )

子程序名	返回值类型	公开	备注
_服务器1_数据到达

变量名	类型	静态	数组	备注
表项索引2	整数型

表项索引2 ＝超级列表框1.插入表项 (, , , , , 1)
超级列表框1.置标题 (表项索引2, 0, 到文本 (表项索引2))
超级列表框1.置标题 (表项索引2, 1, 到文本 (服务器1.取回数据 ()))
超级列表框1.置标题 (表项索引2, 2, 到文本 (取现行时间 ()))
播放音乐 (取运行目录 () ＋ “\成功.wav”, 真)

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

透明标签1.标题＝到文本 (取现行时间 ())

子程序名	返回值类型	公开	备注
_时钟1_周期事件

时钟1.时钟周期＝ 1000
透明标签1.标题＝到文本 (取现行时间 ())

子程序名	返回值类型	公开	备注
_超级列表框1_左键单击表项

停止播放 ()

子程序名	返回值类型	公开	备注
_超级列表框1_表项被激活

载入 (窗口1_报警信息处理, , 假)

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

窗口程序集名	保留	保留	备注
窗口程序集_窗口1_报警信息处理

子程序名	返回值类型	公开	备注
_窗口1_报警信息处理_创建完毕

mysql句柄＝连接MySql (“192.168.0.103”, “root”, “root”, “mm”, 到整数 (“3306”))

如果 (mysql句柄＝ 0)

_启动窗口.标题＝ “数据库连接失败”

_启动窗口.标题＝ “数据库连接成功”

子程序名	返回值类型	公开	备注
_按钮1__被单击

变量名	类型	静态	数组	备注
sql	文本型
局_注册语句	文本型
局_注册账号	逻辑型

判断 (单选框1_误报.选中＝真)

标签5.标题＝单选框1_误报.标题

判断 (单选框2_普通.选中＝真)

标签5.标题＝单选框2_普通.标题

判断 (单选框3_紧急.选中＝真)

标签5.标题＝单选框3_紧急.标题

执行SQL语句 (mysql句柄, “set names gbk”)
选择库 (mysql句柄, “mm”)
局_注册语句＝取文本 (“insert into bao(new,timew,jbnew,yynew,jgnew) values('%s','%s','%s','%s','%s')”, 编辑框1.内容, 编辑框2.内容, 标签5.标题, 编辑框2.内容, 编辑框2.内容)
调试输出 (局_注册语句)
局_注册账号＝执行SQL语句 (mysql句柄, 局_注册语句)

如果 (局_注册账号＝假)

信息框 (“注册失败”, 0, , )

信息框 (“数据新增成功”, 0, , )

断开MySql (mysql句柄)

i支持库列表	支持库注释
mysql	MySql支持库
spec	特殊功能支持库

变量名	类型	静态	数组	备注
x	整数型

标签4.标题＝ _启动窗口.超级列表框1.取标题 (x, 1)
标签6.标题＝ _启动窗口.超级列表框1.取标题 (x, 2)

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