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

itweike

各位大佬，小白一枚，通过百du看教程一步一步写的
最近在写一个小软件，一键报警求助软件，采用客户Duan和服务器端，现在遇到个问题想请教下各位大佬。

这是两个窗口画面

这是软件的客户Duan和服务器端，客户Duan点击中间红色框内按钮，客户Duan发送数据给服务端，服务端接收数据后再超级列表框内显示。



服务器端接收数据双击该条记录会载入一个新的窗口，思路是接收到报警求助信息要有反馈信息并写入到数据库，方便后续cha询




目前是双击这条记录可以载入新窗口，新窗口这边填写完相关信息后点击确认按钮加记录后新窗口内的数据一起写进数据库。

新窗口的记录我已经可以写进数据库了，但是不知道怎么加超级列表框的数据库一起写进去

suyunsq

客户Duan发送的数据加上分割内容，服务端接收到之后分割文本，然后超级列表框置标题就行了啊

suyunsq

超列一样的，取标题然后写入数据库对应表就行了

itweike

suyunsq 发表于 2024-7-17 01:38
客户Duan发送的数据加上分割内容，服务端接收到之后分割文本，然后超级列表框置标题就行了啊 ...

这是服务端代码

  

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

子程序名	返回值类型	公开	备 注
_服务器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	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _服务器1_客户进入<br /> <br /> 编辑框1.加入文本 (“客户连接成功” ＋ 服务器1.取回客户 () ＋ #换行符)<br /> <br /> .子程序 _服务器1_客户离开<br /> <br /> 编辑框1.加入文本 (“客户断开连接” ＋ 服务器1.取回客户 () ＋ #换行符)<br /> <br /> <br /> .子程序 _服务器1_数据到达<br /> .局部变量 表项索引2, 整数型<br /> <br /> 表项索引2 ＝ 超级列表框1.插入表项 (, , , , , 1)<br /> 超级列表框1.置标题 (表项索引2, 0, 到文本 (表项索引2))<br /> 超级列表框1.置标题 (表项索引2, 1, 到文本 (服务器1.取回数据 ()))<br /> 超级列表框1.置标题 (表项索引2, 2, 到文本 (取现行时间 ()))<br /> 播放音乐 (取运行目录 () ＋ “\成功.wav”, 真)<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 透明标签1.标题 ＝ 到文本 (取现行时间 ())<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> 透明标签1.标题 ＝ 到文本 (取现行时间 ())<br /> <br /> .子程序 _超级列表框1_左键单击表项<br /> <br /> 停止播放 ()<br /> <br /> .子程序 _超级列表框1_表项被激活<br /> <br /> 载入 (窗口1_报警信息处理, , 假)

itweike

这是载入新窗口处理反馈信息的界面代码

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口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	特殊功能支持库

.版本 2<br /> .支持库 mysql<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_窗口1_报警信息处理<br /> <br /> .子程序 _窗口1_报警信息处理_创建完毕<br /> <br /> mysql句柄 ＝ 连接MySql (“192.168.0.103”, “root”, “root”, “mm”, 到整数 (“3306”))<br /> .如果 (mysql句柄 ＝ 0)<br />     _启动窗口.标题 ＝ “数据库连接失败”<br /> .否则<br />     _启动窗口.标题 ＝ “数据库连接成功”<br /> .如果结束<br /> <br /> <br /> .子程序 _按钮1__被单击<br /> .局部变量 sql, 文本型<br /> .局部变量 局_注册语句, 文本型<br /> .局部变量 局_注册账号, 逻辑型<br /> <br /> .判断开始 (单选框1_误报.选中 ＝ 真)<br />     标签5.标题 ＝ 单选框1_误报.标题<br /> .判断 (单选框2_普通.选中 ＝ 真)<br />     标签5.标题 ＝ 单选框2_普通.标题<br /> .判断 (单选框3_紧急.选中 ＝ 真)<br />     标签5.标题 ＝ 单选框3_紧急.标题<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> 执行SQL语句 (mysql句柄, “set names gbk”)<br /> 选择库 (mysql句柄, “mm”)<br /> 局_注册语句 ＝ 取文本 (“insert into bao(new,timew,jbnew,yynew,jgnew) values('%s','%s','%s','%s','%s')”, 编辑框1.内容, 编辑框2.内容, 标签5.标题, 编辑框2.内容, 编辑框2.内容)<br /> 调试输出 (局_注册语句)<br /> 局_注册账号 ＝ 执行SQL语句 (mysql句柄, 局_注册语句)<br /> .如果 (局_注册账号 ＝ 假)<br />     信息框 (“注册失败”, 0, , )<br /> .否则<br />     信息框 (“数据新增成功”, 0, , )<br />     断开MySql (mysql句柄)<br /> .如果结束

suyunsq

论坛不是有很多例子吗，调用一个子程序来写取回客户Duan发送的数据分割取回的内容

一C

客户Duan.发送 接受 服务器.发送 数据， E自带的有

LEOONL

超级列表框序号=超级列表框1.取标题（超级列表框1.现行选中项，0）
报警站点=超级列表框1.取标题（超级列表框1.现行选中项，1）
报警时间=超级列表框1.取标题（超级列表框1.现行选中项，2）

itweike

已经解决了，谢谢各位大神

  

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

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

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

.版本 2<br /> .支持库 iext<br /> <br /> .局部变量 x, 整数型<br /> <br /> 标签4.标题 ＝ _启动窗口.超级列表框1.取标题 (x, 1)<br /> 标签6.标题 ＝ _启动窗口.超级列表框1.取标题 (x, 2)