|
最多可添加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)”)
|
|