关于复制窗口组件使用sqlite3读写组合框问题

圆圈

最多可添加6个组合框，对应6个字段的内容
字段：一班、二班、三班、四班、五班、六班
想实现：使用sqlite3读写组合框内容，每个组合框内容保存到一个字段

我自己使用数组写了读写，但是软件会崩，而且代码太多了，然后我给删了，求大神帮我重新写个

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
组合框数组	组合框	0
sql	Sqlite数据库

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

变量名	类 型	静态	数组	备 注
组合框i	组合框
数量a	整数型

如果真 (取数组成员数 (组合框数组) ≥ 5)
信息框 (“最多可添加6个”, #错误图标, , 取窗口句柄 ())
返回 ()

加入成员 (组合框数组, 组合框i)
数量a ＝ 取数组成员数 (组合框数组)
复制窗口组件 (组合框1, 组合框数组 [数量a])
按钮_添加.顶边 ＝ 按钮_添加.顶边 ＋ 24
按钮_删除.顶边 ＝ 按钮_删除.顶边 ＋ 24
组合框数组 [数量a].可视 ＝ 真
组合框数组 [数量a].顶边 ＝ 按钮_添加.顶边

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

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

数组 ＝ 取数组成员数 (组合框数组)
如果真 (数组 ＝ 0)
返回 ()
如果真 (是否已创建 (组合框数组 [数组]))
组合框数组 [数组].销毁 ()
按钮_添加.顶边 ＝ 按钮_添加.顶边 － 24
按钮_删除.顶边 ＝ 按钮_删除.顶边 － 24
删除成员 (组合框数组, 数组, 1)
如果真 (取数组成员数 (组合框数组) ＝ 0)
重定义数组 (组合框数组, 假, 0)

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

如果真 (sql.打开 (取运行目录 () ＋ “\1.db”, 真) ＝ 假)
信息框 (“找不到1.db文件”, 0, , 取窗口句柄 ())
返回 ()
sql.执行SQL语句 (“CREATE TABLE 班级(id   INTEGER PRIMARY KEY,一班 VARCHAR,二班 VARCHAR,三班 VARCHAR,四班 VARCHAR,五班 VARCHAR,六班 VARCHAR)”)

i支持库列表	支持库注释
sqlite3	(未知支持库)
SqliteDB	Sqlite数据库支持库

.版本 2<br /> .支持库 sqlite3<br /> .支持库 SqliteDB<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 组合框数组, 组合框, , "0"<br /> .程序集变量 sql, Sqlite数据库<br /> <br /> .子程序 _按钮_添加_被单击<br /> .局部变量 组合框i, 组合框<br /> .局部变量 数量a, 整数型<br /> <br /> .如果真 (取数组成员数 (组合框数组) ≥ 5)<br />     信息框 (“最多可添加6个”, #错误图标, , 取窗口句柄 ())<br />     返回 ()<br /> .如果真结束<br /> <br /> 加入成员 (组合框数组, 组合框i)<br /> 数量a ＝ 取数组成员数 (组合框数组)<br /> <br /> 复制窗口组件 (组合框1, 组合框数组 [数量a])<br /> 按钮_添加.顶边 ＝ 按钮_添加.顶边 ＋ 24<br /> 按钮_删除.顶边 ＝ 按钮_删除.顶边 ＋ 24<br /> 组合框数组 [数量a].可视 ＝ 真<br /> 组合框数组 [数量a].顶边 ＝ 按钮_添加.顶边<br /> <br /> <br /> .子程序 _按钮_删除_被单击<br /> .局部变量 数组, 整数型<br /> <br /> 数组 ＝ 取数组成员数 (组合框数组)<br /> .如果真 (数组 ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .如果真 (是否已创建 (组合框数组 [数组]))<br />     组合框数组 [数组].销毁 ()<br />     按钮_添加.顶边 ＝ 按钮_添加.顶边 － 24<br />     按钮_删除.顶边 ＝ 按钮_删除.顶边 － 24<br /> .如果真结束<br /> 删除成员 (组合框数组, 数组, 1)<br /> .如果真 (取数组成员数 (组合框数组) ＝ 0)<br />     重定义数组 (组合框数组, 假, 0)<br /> .如果真结束<br /> <br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> .如果真 (sql.打开 (取运行目录 () ＋ “\1.db”, 真) ＝ 假)<br />     信息框 (“找不到1.db文件”, 0, , 取窗口句柄 ())<br />     返回 ()<br /> .如果真结束<br /> sql.执行SQL语句 (“CREATE TABLE 班级(id   INTEGER PRIMARY KEY,一班 VARCHAR,二班 VARCHAR,三班 VARCHAR,四班 VARCHAR,五班 VARCHAR,六班 VARCHAR)”)

圆圈

附源码：
大神帮我完善一下。只写了添加、删除的代码
demo.e (4.56 KB, 下载次数: 1)

2023-9-17 13:30 上传

点击文件名下载附件

圆圈

咋沉了

SMTHU

66666666666666666666

SMTHU

666666666666666666666666