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

版本 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”, , , , , , )

数据库连接1连接Access (“datamdb”, “”)

版本 2

支持库 iext

支持库 eDB

子程序 刷新结果列表

超级列表框1全部删除 ()

记录集1到首记录 ()

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

超级列表框1插入表项 (, , , , , )

记录集1读文本 (“编号”, 编号) ' 编号是整数型的，这里用文本接收也正常

超级列表框1置标题 (超级列表框1取表项数 () － 1, 0, 编号)

记录集1读文本 (“商品名称”, 商品名称)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 1, 商品名称)

记录集1读文本 (“商品规格”, 商品规格)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 2, 商品规格)

记录集1读文本 (“商品数量”, 商品数量)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 3, 商品数量)

记录集1读文本 (“单位”, 单位)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 4, 单位)

记录集1读文本 (“进货价格”, 进货价格)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 5, 进货价格)

记录集1读文本 (“同行价格”, 同行价格)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 6, 同行价格)

记录集1读文本 (“销售价格”, 销售价格)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 7, 销售价格)

记录集1读文本 (“市场价格”, 市场价格)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 8, 市场价格)

记录集1读日期时间 (“入库时间”, 入库时间)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 9, 到文本 (入库时间))

记录集1读文本 (“商品介绍”, 商品介绍)

超级列表框1置标题 (超级列表框1取表项数 () － 1, 10, 商品介绍)

记录集1到下一条 ()

判断循环尾 ()

记录集1关闭 ()

下面是查找的

版本 2

支持库 eDB

子程序 _查找编辑框1_内容被改变

如果 (组合框1内容 ＝ “商品规格”)

_启动窗口记录集1打开 (“SELECT FROM 商品 WHERE 商品规格 like '%” ＋ 查找编辑框1内容 ＋ “%'”, #SQL语句)

否则

如果 (组合框1内容 ＝ “编号”)

_启动窗口记录集1打开 (“SELECT FROM 商品 WHERE 编号 like '%” ＋ 查找编辑框1内容 ＋ “%'”, #SQL语句)

否则

_启动窗口记录集1打开 (“SELECT FROM 商品 WHERE 商品名称 like '%” ＋ 查找编辑框1内容 ＋ “%'”, #SQL语句)

如果结束

如果结束

刷新结果列表 ()

记录集取记录数'记录数

数据库连接执行SQL("delete from 表")'删除表中所有行

版本 2

支持库 eDB

支持库 iext

记录集1置连接 (数据库连接1)

记录集1打开 (“语句”, #SQL语句, )

计次循环首 (记录集1记录数量, 计次)

超级列表框_商品插入表项 (, , , , , )

计次循环首 (记录集1字段数量 ＋ 1, 列计次)

记录集1读文本 (列计次 － 1, 文本)

超级列表框_商品置标题 (计次 － 1, 列计次, 文本)

计次循环尾 ()

记录集1到下一条 ()

计次循环尾 ()

记录集1关闭 ()

上注册，才能使用程序。应该是别人打开程序以后d出一个注册的窗口，注册帐号就可以使用程序。如果是这样，我说一个简单的注册方法。

首先你要连接一个数据库，有ACCESS数据库，还有Sql数据库。这比较复杂，简单的可以连接易语言自带的edb数据库，我给你说得就是edb数据库。下面便是连接edb数据库的例子。

打开易语言，找到上面第一行的数据库，点击，出现结构编辑器，记录编辑器等等，点击结构编辑器，d出一个新的数据库管理器， 在字段信息下面的名称一栏中输入“账号”在下面类型一栏选择“文本型”如果你希望输入的是数字可以选择“整数型”。点击保存，输入文件名“账号”，这样就完成名为“账号”的edb的数据库了。再到回到易语言界面，点击刚才说得上面第一行的数据库按钮d出的最下面的加入数据库常量，选择你刚才保存的“账号edb”数据库，这样就加入账号这个常量。 （如果你再想加密码，可以在字段“账号”后面再插入一个字段，选择“整数型”类型）。

下面是完成别人用你的程序时输入的账号时就是把账号写入到数据库，还有是验证别人是否已经注册过的代码。

建一个启动窗口，（你做的程序窗口放在启动窗口后面）加入一个编辑框一个按钮，把按钮命名为“注册”，双击启动窗口，在__启动窗口_创建完毕的子程序里加入代码：

打开 (取运行目录 () ＋ “\账号edb”, , , , , , ) ' 这是找到存放程序的文件夹里的“账号”数据库并打开这个数据库。 （当然你的程序和数据库要放在同一个文件夹里）

判断(到文本 (读 (#账号)) ≠ “”) ' 这是判断数据库“账号”这个字段是否为空，如果不为空，就是别人已经注册过了，那就不显示启动窗口让人注册了，直接载入你做的程序窗口。

载入 (窗口1, , 假) ' 载入你做的程序窗口。

_启动窗口销毁 ()

返回启动窗口界面，双击注册按钮输入代码：

如果 (编辑框1内容 ＝ “”)

信息框 (“你没有输入注册信息，请输入。”, #警告图标, “输入出错啦！”)

加空记录 () ' 这是往数据库尾部加入一条空记录，让人可以写入信息。

写 (#账号, 编辑框1内容) ' 这是把编辑框1的内容,,别人注册时输入的信息写入到数据库“账号”这个字段里。

到这里就完成了我想的注册方法，这里面也可以加入跟新删除注册信息的代码，但不知你有没有需要，我就没写出来。这是一个伪注册方法，至于真的注册验证，要做出注册机程序，输入使用者的电脑硬盘特征码，算出注册码， 别人可以真正注册，没有时间限制，但这不是你我几句话能说清楚的。但愿我的方法你能满意。

哦，你说自己注册的帐号要能登录上，什么意思，是否自己和别人同时注册？别人在使用的时，自己可以随时使用？如果是这样那还要写入一些代码，不好意思。太冷了受不了，下机了。如果是这样你可以追问一下，是否是这意思。

以上就是关于易语言自带数据库。用在记录列表框表项数据，在加入新表项的时候，怎么判断数据库中是否存在该记录，重复全部的内容，包括:易语言自带数据库。用在记录列表框表项数据，在加入新表项的时候，怎么判断数据库中是否存在该记录，重复、易语言 按条件显示数据库的记录到超级列表框、易语言数据库问题怎么取mdb表中的记录总数等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！