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

.版本 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.标题 ＝ “查找”

读数据库 ()

方法如下：

1、安装完成后，双击易语言图标打开易语言。这里d出了一个对话框。

2、双击中间的“windows窗口猛好州程序”新建一个程序。界面如图所示。

菜单栏：程序的各种 *** 作及设置。

窗口编辑区：绘制界面

属性设置区：设置组件、窗口的各种属性

组件框：选择各种组件

提示区：显示当前程序的运行、编译情况。显示对于某一命令的帮助提示。

3、在右侧组件框找到“标签”组件 选择后在界枝蔽面上拖动，松开鼠标，就画出了一个标签。

4、在左侧属性栏找到“标题”属性，修改为“我的第一个程序”并敲下回车。标签的标题就更改了

5、接下来用同样的方法创建一个袜瞎编辑框和一个按钮。

打出如图中的代码。或者复制以下。

.版本 2

编辑框1.内容 ＝ “你好，世界”

信息框 (“我的第一个易语言程序”, 0, )

6、双击按钮进入代码编辑页面。把输入法调为英文状态。

打出如图中的代码。或者复制以下。

.版本 2

编辑框1.内容 ＝ “你好，世界”

信息框 (“我的第一个易语言程序”, 0, )

7、点击上方三角按钮，或者单击F5运行程序查看效果。效果如图所示

8、点击按钮。d出了一个信息框，编辑框的标题也变为了“你好，世界”我们的第一个易语言程序制作完成！

.版本 2

.支持培数库 spec

.程序集 窗宏腊口程序集1

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

编辑框1.输入方式 ＝ 3

编辑框1.最大允许长度 ＝ 18

.子程配绝首序 _按钮1_被单击

.局部变量 年, 文本型

.局部变量 月, 文本型

.局部变量 日, 文本型

.判断开始 (取文本长度 (编辑框1.内容) ≠ 18)

信息框 (“身份z号码错误！”, 0, )

.默认

年 ＝ 取文本中间 (编辑框1.内容, 7, 4)

月 ＝ 取文本中间 (编辑框1.内容, 11, 2)

日 ＝ 取文本中间 (编辑框1.内容, 13, 2)

调试输出 (年, 月, 日)

.判断结束

---