求易语言一个简单的小程序

在点击按钮1时先不要添加，要先寻找你即将添加的名字，如果在列表框内已寻找到了，就提示已添加过了，不能重复添加，如果没有寻找到，再执行添加的代码。

这里的清除只是清空"编辑框1",如果要删除记录,请清空"编辑框1",再点击"修改按钮"
-----------------------------------------------
.版本 2

.程序集 窗口程序集1
.程序集变量 文本, 文本型, , "0"
.程序集变量 文本内容, 文本型
.程序集变量 记录, 整数型

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

清除数组 (文本)
文本内容 ＝ 到文本 (读入文件 (取运行目录 () ＋ “\新建.txt”))
文本 ＝ 分割文本 (文本内容, #换行符, )
修改按钮.禁止 ＝ 真
录入按钮.禁止 ＝ 假
_清除按钮_被单击 ()

.子程序 _录入按钮_被单击

.如果真 (编辑框1.内容 ＝ “”)
信息框 (“请输入内容!”, 0, )
返回 ()
.如果真结束
加入成员 (文本, 编辑框1.内容)
写入数据 ()
_清除按钮_被单击 ()

.子程序 _清除按钮_被单击

编辑框1.内容 ＝ “”
编辑框1.获取焦点 ()

.子程序 _修改按钮_被单击

文本 [记录] ＝ 编辑框1.内容
写入数据 ()

.子程序 _查找按钮_被单击

.如果真 (编辑框2.内容 ＝ “”)
信息框 (“请输入关键词!”, 0, )
返回 ()
.如果真结束
.计次循环首 (取数组成员数 (文本), 记录)
.如果真 (寻找文本 (文本 [记录], 编辑框2.内容, , 假) ≠ -1)
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (记录 ＞ 取数组成员数 (文本))
信息框 (“未找到你要的记录,请减少关键词!”, 0, )
返回 ()
.如果真结束
修改按钮.禁止 ＝ 假
录入按钮.禁止 ＝ 真
编辑框1.内容 ＝ 文本 [记录]

.子程序 写入数据

文本内容 ＝ “”
.计次循环首 (取数组成员数 (文本), 记录)
.如果真 (文本 [记录] ＝ “”)
到循环尾 ()
.如果真结束
文本内容 ＝ 文本内容 ＋ 文本 [记录] ＋ #换行符
.计次循环尾 ()
写到文件 (取运行目录 () ＋ “\新建.txt”, 到字节集 (文本内容))
__启动窗口_创建完毕 ()

.版本 2

.支持库 iext

.程序集 窗口程序集1

.程序集变量 姓名, 文本型

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

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

按钮1.标题 ＝ “显示”

按钮2.标题 ＝ “查找”

标签1.标题 ＝ “姓名”

标签2.标题 ＝ “姓别”

列表.整行选择 ＝ 真

.如果真 (文件是否存在 (取运行目录 () ＋ “\名单.edb”) ＝ 假)

    按钮2.标题 ＝ “加入”

    创建名单数据库 ()

.如果真结束

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

.子程序 创建名单数据库, 逻辑型

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

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

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

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

字段 [2].名称 ＝ “姓别”

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

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

创建 (取运行目录 () ＋ “\名单.edb”, 字段)

返回 (真)

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

.如果真 (按钮2.标题 ＝ “查找”)

    到首记录 ()

    姓名 ＝ “”

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

        .如果真 (读 (“姓名”) ＝ 编辑框1.内容)

            姓名 ＝ 编辑框1.内容

            编辑框2.内容 ＝ 读 (“姓别”)

            跳出循环 ()

        .如果真结束

        跳过 ()

    .计次循环尾 ()

    .如果真 (姓名 ＝ “”)

        .如果真 (信息框 (“数据库中查找不到该名字,是否加入人员!”, 4, “提示”) ＝ 5)

            .如果 (信息框 (“姓别是<男>吗?”, 4, “确认”) ＝ 5)

                编辑框2.内容 ＝ “男”

            .否则

                编辑框2.内容 ＝ “女”

            .如果结束

            按钮2.标题 ＝ “加入”

            _按钮2_被单击 ()

        .如果真结束

        返回 ()

    .如果真结束

    .如果真 (信息框 (“是否删除该名字?”, 4, ) ＝ 5)

        按钮1.标题 ＝ “删除”

        删除名字 ()

    .如果真结束

    返回 ()

.如果真结束

.如果真 (编辑框2.内容 ≠ “男” 且 编辑框2.内容 ≠ “女”)

    信息框 (“姓别输入错误!”, 0, )

    编辑框2.获取焦点 ()

    返回 ()

.如果真结束

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

读数据库 ()

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

.如果真 (按钮1.标题 ＝ “删除”)

    删除名字 ()

    信息框 (“姓名:” ＋ 编辑框1.内容 ＋ “ 已删除”, 0, )

.如果真结束

读数据库 ()

.子程序 删除名字, 逻辑型

跳到 (记录)

删除 ()

彻底删除 ()

返回 (真)

.子程序 _列表_左键单击表项

编辑框1.内容 ＝ 列表.取标题 (列表.现行选中项, 0)

编辑框2.内容 ＝ 列表.取标题 (列表.现行选中项, 1)

记录 ＝ 列表.取表项数值 (列表.现行选中项)

按钮1.标题 ＝ “删除”

.子程序 读数据库

编辑框1.内容 ＝ “”

编辑框2.内容 ＝ “”

列表.全部删除 ()

到首记录 ()

.循环判断首 ()

    记录 ＝ 列表.插入表项 (, , , , , )

    列表.置标题 (记录, 0, 读 (“姓名”))

    列表.置标题 (记录, 1, 读 (“姓别”))

    列表.置表项数值 (记录, 记录 ＋ 1)

    跳过 ()

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

.子程序 _列表_右键单击表项

按钮1.标题 ＝ “显示”

按钮2.标题 ＝ “查找”

读数据库 ()