选择框内容加入到数据库

祈枫

选择框内容怎么加入到数据库，选择多个用逗号进行分隔

sangco

我是如果真...
组合字串=组合字串+",66"
如果真...
组合字串=组合字串+",67"
...这样.....最后得到一个字符串

love5618775

先给组合框写个标记，然后遍历全部组合框，再判断选中的，最后做成JSON格式的写入保存。

huiw12

  

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

变量名	类 型	静态	数组	备 注
int	整数型
hwnd	整数型
i	整数型
找到的编辑框	选择框
txt	文本型

txt ＝ “”
hwnd ＝ 寻找组件 (_启动窗口, , “选择框”, , )
计次循环首 (取找到组件数目 (hwnd), i)
找到的编辑框 ＝ 取所找到组件 (hwnd, i － 1)
如果真 (找到的编辑框.选中)
txt ＝ txt ＋ 找到的编辑框.标题 ＋ “,”

计次循环尾 ()
txt ＝ 子文本替换 (txt, “,”, “”, 倒找文本 (txt, “,”, , 假), 1, 真)
调试输出 (txt)
清除组件寻找句柄 (hwnd)

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 int, 整数型<br /> .局部变量 hwnd, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 找到的编辑框, 选择框<br /> .局部变量 txt, 文本型<br /> <br /> txt ＝ “”<br /> hwnd ＝ 寻找组件 (_启动窗口, , “选择框”, , )<br /> .计次循环首 (取找到组件数目 (hwnd), i)<br />     找到的编辑框 ＝ 取所找到组件 (hwnd, i － 1)<br />     .如果真 (找到的编辑框.选中)<br />         txt ＝ txt ＋ 找到的编辑框.标题 ＋ “,”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> txt ＝ 子文本替换 (txt, “,”, “”, 倒找文本 (txt, “,”, , 假), 1, 真)<br /> 调试输出 (txt)<br /> <br /> 清除组件寻找句柄 (hwnd)

huiw12

  

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

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

变量名	类 型	静态	数组	备 注
int	整数型
hwnd	整数型
i	整数型
找到的编辑框	选择框
txt	文本型
题	文本型
分	文本型
答错扣分	文本型

txt ＝ “”
hwnd ＝ 寻找组件 (_启动窗口, , “选择框”, , )
计次循环首 (取找到组件数目 (hwnd), i)
找到的编辑框 ＝ 取所找到组件 (hwnd, i － 1)
如果真 (找到的编辑框.选中)
txt ＝ txt ＋ 找到的编辑框.标题 ＋ “,”

计次循环尾 ()
txt ＝ 子文本替换 (txt, “,”, “”, 倒找文本 (txt, “,”, , 假), 1, 真)
调试输出 (txt)
清除组件寻找句柄 (hwnd)
' 加入数据库
题 ＝ “”
分 ＝ “”
答错扣分 ＝ “”
加记录 (题, 分, 答错扣分, txt)

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

' 初始化加载数据库
status ＝ 打开 (取当前目录 () ＋ “/数据库.edb”, , , , , , )
置当前库 (“数据库”)

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 int, 整数型<br /> .局部变量 hwnd, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 找到的编辑框, 选择框<br /> .局部变量 txt, 文本型<br /> .局部变量 题, 文本型<br /> .局部变量 分, 文本型<br /> .局部变量 答错扣分, 文本型<br /> <br /> txt ＝ “”<br /> hwnd ＝ 寻找组件 (_启动窗口, , “选择框”, , )<br /> .计次循环首 (取找到组件数目 (hwnd), i)<br />     找到的编辑框 ＝ 取所找到组件 (hwnd, i － 1)<br />     .如果真 (找到的编辑框.选中)<br />         txt ＝ txt ＋ 找到的编辑框.标题 ＋ “,”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> txt ＝ 子文本替换 (txt, “,”, “”, 倒找文本 (txt, “,”, , 假), 1, 真)<br /> 调试输出 (txt)<br /> 清除组件寻找句柄 (hwnd)<br /> <br /> ' 加入数据库<br /> 题 ＝ “”<br /> 分 ＝ “”<br /> 答错扣分 ＝ “”<br /> 加记录 (题, 分, 答错扣分, txt)<br /> <br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> ' 初始化加载数据库<br /> status ＝ 打开 (取当前目录 () ＋ “/数据库.edb”, , , , , , )<br /> 置当前库 (“数据库”)