求易语言一个简单的小程序
创建一个MDB文件或者EXCEL文件，然后里面分为 名字，性别。..然后用易语言做出2个编辑框2个按钮.实现按下按钮1后.编辑框2.显示.在MDB文件或者EXCEL文件中删除 编辑框1中输入的内容的那一行...如果输入的内容在文件中找不到..那就提示...删除成功的话.也提示.....求例子.求源码
..编辑框1.找姓名,,,,编辑框2显示文件中姓名后的性别~
.版本 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.标题 ＝ “查找”
读数据库 ()
