易语言同学录源码

.版本 2

.程序集 窗口程序集1
.程序集变量 配置文件名, 文本型

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

皮肤_资源加载 (#皮肤_迅雷7)

配置文件名 ＝ “date.edb”
打开 (配置文件名, “同学录”, , , , , )
到首记录 ()
.判断循环首 (取反 (尾记录后 ()))
组合框2.加入项目 (读 (#姓名), )
跳过 (1)
.判断循环尾 ()
组合框2.现行选中项 ＝ 0
跳到 (组合框2.现行选中项 ＋ 1)
同学录读数 ()

.子程序 同学录读数

编辑框xm.内容 ＝ 读 (#姓名)
编辑框nj.内容 ＝ 读 (#年级)
编辑框xx.内容 ＝ 读 (#血型)
编辑框dh.内容 ＝ 读 (#电话)
编辑框qq.内容 ＝ 读 (#QQ)
编辑框xz.内容 ＝ 读 (#星座)
编辑框sr.内容 ＝ 读 (#生日)
编辑框mx.内容 ＝ 读 (#梦想)
编辑框sx.内容 ＝ 读 (#生肖)
编辑框ah.内容 ＝ 读 (#爱好)
编辑框xb.内容 ＝ 读 (#性别)
编辑框xzzz.内容 ＝ 读 (#现在住址)
编辑框mqgz.内容 ＝ 读 (#目前工作)
编辑框jtzz.内容 ＝ 读 (#家庭住址)

.子程序 _组合框2_列表项被选择

跳到 (组合框2.现行选中项 ＋ 1)
同学录读数 ()

.子程序 _组合框2_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 jnXh, 整数型
.局部变量 nnn, 整数型
.局部变量 pdbz, 逻辑型

.如果 (键代码 ＝ #回车键)
pdbz ＝ 假
组合框2.内容 ＝ 删首尾空 (组合框2.内容)

.如果 (取反 (组合框2.内容 ＝ “”))

.计次循环首 (组合框2.取项目数 () ＋ 1, nnn)
.如果真 (组合框2.取项目文本 (nnn － 1) ＝ 组合框2.内容)
pdbz ＝ 真
组合框2.现行选中项 ＝ nnn － 1
跳到 (nnn)
跳出循环 ()
.如果真结束

.计次循环尾 ()
.如果真 (取反 (pdbz))
jnXh ＝ 取整 (到数值 (组合框2.内容))
.如果 (jnXh ＞ 0 且 jnXh ≤ 组合框2.取项目数 () ＋ 1)
pdbz ＝ 真
组合框2.现行选中项 ＝ jnXh － 1
跳到 (jnXh)
.否则
.计次循环首 (组合框2.取项目数 () ＋ 1, nnn)
.如果真 (寻找文本 (组合框2.取项目文本 (nnn － 1), 组合框2.内容, , 假) ≠ -1)
pdbz ＝ 真
组合框2.现行选中项 ＝ nnn － 1
跳到 (nnn)
跳出循环 ()
.如果真结束

.计次循环尾 ()

.如果结束


.如果真结束

.否则

.如果结束

.如果 (组合框2.现行选中项 ≠ -1)

.否则
鸣叫 ()
信息框 (“姓名输入错误”, 48, “输入错误”)
组合框2.现行选中

项 ＝ 0
.如果结束

跳到 (组合框2.现行选中项 ＋ 1)

同学录读数 ()


.否则

.如果结束


.子程序 _修改_被选择

载入 (添加数据, , 真)

.子程序 _关于_被选择

信息框 (“ZYL制作！”, #信息图标, “友情提示”)

.子程序 _搜所_被选择

姓名搜索框.获取焦点 ()

.子程序 _退处_被选择

销毁 ()

.子程序 _按钮1_被单击
.局部变量 组合框的项, 整数型
.局部变量 n, 整数型

组合框的项 ＝ 组合框2.取项目数 ()
.如果真 (姓名搜索框.内容 ＝ “”)
信息框 (“您为输入搜索姓名！”, #信息图标, “提示”)
.如果真结束
.计次循环首 (组合框的项, n)
.如果 (姓名搜索框.内容 ≠ 组合框2.取项目文本 (组合框2.现行选中项))
组合框2.现行选中项 ＝ 组合框2.现行选中项 ＋ 1
.否则
跳到 (组合框2.现行选中项 ＋ 1)
同学录读数 ()
跳出循环 ()

.如果结束
.如果真 (组合框的项 ＝ n 且 姓名搜索框.内容 ≠ 组合框2.取项目文本 (组合框2.现行选中项 ＋ 1))
.如果真 (信息框 (“未找到该姓名，是否添加？”, 4 ＋ #询问图标, “提示”) ＝ #是钮)
_修改_被选择 ()
.如果真结束

.如果真结束

.计次循环尾 ()






.子程序 _刷心_被选择

刷新显示 ()

.子程序 __启动窗口_鼠标右键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

弹出菜单 (弹出, , )


.子程序 _修该_被选择

_修改_被选择 ()


.子程序 _搜索_被选择

_搜所_被选择 ()


.子程序 _刷新_被选择

_刷心_被选择 ()


.子程序 _退出_被选择

_退处_被选择 ()