【纯新手】EDB数据库的简单使用

wy0926

.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.如果真 (打开 (“czkahao.edb”, , , , , , ) ＝ 假)
    信息框 (“数据库打开失败”, 0, )
.如果真结束

.子程序 _按钮1_被单击
.如果 (编辑框1.内容 ＝ “” 或 编辑框2.内容 ＝ “”)
    信息框 (“内容不能为空”, 0, )
    返回 ()
.否则
    置当前库 (“czkahao.edb”)
    加空记录 ()
    写 (“卡号”, 编辑框1.内容)
    写 (“ming”, 编辑框2.内容)
    写 (“备注”, 编辑框4.内容)
    信息框 (“数据添加成功”, 0, )
    编辑框1.内容 ＝ “”
    编辑框2.内容 ＝ “”
    编辑框4.内容 ＝ “”
    编辑框1.获取焦点 ()
.如果结束


.子程序 _按钮2_被单击
.局部变量 查到的zc名, 文本型
.局部变量 查到的卡号, 文本型
.局部变量 查到的备注, 文本型
跳到 (1)
.如果真 (编辑框3.内容 ＝ “”)
    信息框 (“查找内容不能为空”, 0, )
    返回 ()
.如果真结束

.如果真 (查找 (读 (“卡号”) ＝ 编辑框3.内容) ＝ 假)
    信息框 (“没有匹配的卡号”, 0, )
    返回 ()
.如果真结束
查到的卡号 ＝ 读 (“卡号”)
查到的zc名 ＝ 读 (“ming”)
查到的备注 ＝ 读 (“备注”)
编辑框5.内容 ＝ “卡/机号：” ＋ 查到的卡号 ＋ #换行符 ＋ “zc名：” ＋ 查到的zc名 ＋ #换行符 ＋ “备注：” ＋ 查到的备注

.子程序 _按钮3_被单击
.局部变量 数据库路径, 文本型
.局部变量 创建数据库, 字段信息, , "3"
数据库路径 ＝ 取运行目录 () ＋ “\” ＋ “czkahao.edb”
调试输出 (数据库路径)
.如果 (文件是否存在 (数据库路径))
    信息框 (“数据库已存在”, 0, )
.否则
    创建数据库 [1].名称 ＝ “卡号”
    创建数据库 [1].类型 ＝ #文本型
    创建数据库 [1].最大文本长度 ＝ 20
    创建数据库 [2].名称 ＝ “ming”
    创建数据库 [2].类型 ＝ #文本型
    创建数据库 [2].最大文本长度 ＝ 20
    创建数据库 [3].名称 ＝ “备注”
    创建数据库 [3].类型 ＝ #文本型
    创建数据库 [3].最大文本长度 ＝ 100
    创建 (数据库路径, 创建数据库)
    信息框 (“数据库已创建”, 0, )
.如果结束



请爱护我......

小马爱吃鱼

感谢分享，很好的例程，不过个人觉得还是使用ACC或SQL好吧

wy0926

小马爱吃鱼 发表于 2018-7-13 12:58
感谢分享，很好的例程，不过个人觉得还是使用ACC或SQL好吧

还是新手，现在只懂edb

wy0926

这里有一个地方没考虑好，

重复的数据还可以添加..

改一下就可以了

zzh233

edb 其实如果不跨表 不多线程 挺方便的 你就当他是个文本得了

wy0926

zzh233 发表于 2018-7-13 13:25
edb 其实如果不跨表 不多线程 挺方便的 你就当他是个文本得了

反正我只需要记录一些数据，能查到就行，就是软件老被报毒，不好用啊，大佬 有办法吗？

Bszk

EDB是易语言自带的数据库，适合本地保存不大的数据。。
帮楼主顶一下。。。

wy0926

[不速之客] 发表于 2018-7-13 13:35
EDB是易语言自带的数据库，适合本地保存不大的数据。。
帮楼主顶一下。。。

感谢大佬！感谢大佬！感谢大佬！

zzh233

wy0926 发表于 2018-7-13 13:35
反正我只需要记录一些数据，能查到就行，就是软件老被报毒，不好用啊，大佬 有办法吗？

那跟这个数据库没关系吧 你换个编译器看看 用vc7的试试 如果只用核心库 可以直接试试2015的

longsui48

行吧 帮你顶一下