易语言编辑框,组合框数据库应用

.版本 2

.程序集 窗口程序集1

.程序集变量 语文, 双精度小数型

.程序集变量 数学, 双精度小数型

.程序集变量 外语, 双精度小数型

.程序集变量 总分, 双精度小数型, , "0"

.程序集变量 名次, 双精度小数型, , "0"

.程序集变量 记录, 整数型

.子程序 __启动窗口_创建完毕

.如果真 (取反 (文件是否存在 (取运行目录 () ＋ “\数据库.edb”)))

  创建数据库 ()

.如果真结束

打开 (取运行目录 () ＋ “\数据库.edb”, “数据库”, , , , , )

.如果真 (取记录数 () ＝ 0)

  编辑框1.获取焦点 ()

  返回 ()

.如果真结束

刷新列表 ()

.子程序 创建数据库

.局部变量 字段, 字段信息, , "4"

字段 [1].名称 ＝ “姓名”

字段 [1].类型 ＝ #文本型

字段 [1].最大文本长度 ＝ 10

字段 [2].名称 ＝ “语文成绩”

字段 [2].类型 ＝ #文本型

字段 [2].最大文本长度 ＝ 5

字段 [3].名称 ＝ “数学成绩”

字段 [3].类型 ＝ #文本型

字段 [3].最大文本长度 ＝ 5

字段 [4].名称 ＝ “外语成绩”

字段 [4].类型 ＝ #文本型

字段 [4].最大文本长度 ＝ 5

创建 (取运行目录 () ＋ “\数据库.edb”, 字段)

……

我给你一个正确的代码。

.程序集 窗口程序集1

.子程序 _按钮1_被单击

加空记录 ()

写 (#账号, 组合框1.内容)

写 (#密码, 到数值 (编辑框1.内容))

组合框1.内容 ＝ “”

编辑框1.内容 ＝ “”

.子程序 __启动窗口_创建完毕

打开 (取运行目录 () ＋ “\1.edb”, , , , , , )

到首记录 ()

.判断循环首 (尾记录后 () ＝ 假)

组合框1.加入项目 (读 (“账号”), )

跳过 ()

.判断循环尾 ()

这上面的代码都没错。错的是下面的代码。

.

.子程序 _组合框1_列表项被选择

跳到 (组合框1.现行选中项 ＋ 1)

编辑框1.内容 ＝ 读 (“密码”)，错的是这句：编辑框1.内容 ＝ 读 (“密码”)

你把它改成：

编辑框1.内容 ＝ “”

编辑框1.加入文本 (到文本 (读 (#密码)))

另外你要把账号字段设置文本型，不然会出错提示数据类型不匹配。

这样就可以了。

---