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

  

变量名	类 型	静态	数组	备 注
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)

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

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

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

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

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口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 发表于 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_报警信息处理, , 假)

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

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