Question

易语言自带数据库。用在记录列表框表项数据，在加入新表项的时候，怎么判断数据库中是否存在该记录，重复

易语言自带数据库。用在记录列表框表项数据，在加入新表项的时候，怎么判断数据库中是否存在该记录，重复的话就不继续添加。不存在就继续。

Answer 1

.版本 2

.程序集 窗口程序集1

.程序集变量 计次, 整数型

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

.如果 (打开 (取运行目录 () ＋ “\表项数据.edb”, , , , , , ) ＝ 假)

    创建数据库 ()

.否则

    到首记录 ()

    .计次循环首 (取记录数 (), 计次)

        列表框1.加入项目 (读 (“表项”), 读 (“数据”))

        跳过 ()

    .计次循环尾 ()

.如果结束

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

.计次循环首 (列表框1.取项目数 (), 计次)

    .如果真 (列表框1.取项目文本 (计次 － 1) ＝ 编辑框1.内容)

        跳出循环 ()

    .如果真结束

    .如果真 (列表框1.取项目数值 (计次 － 1) ＝ 到整数 (编辑框2.内容))

        跳出循环 ()

    .如果真结束

.计次循环尾 ()

.如果真 (计次 ≤ 列表框1.取项目数 ())

    返回 ()

.如果真结束

加记录 (编辑框1.内容, 到整数 (编辑框2.内容))

列表框1.加入项目 (编辑框1.内容, 到整数 (编辑框2.内容))

.子程序 创建数据库

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

字段 [1].名称 ＝ “表项”

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

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

字段 [2].名称 ＝ “数据”

字段 [2].类型 ＝ #整数型

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

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