联系人通讯录可添加照片本地数据库

.子程序 __启动窗口_创建完毕
.局部变量 字段, 字段信息, , "5"

.如果真 (文件是否存在 (#数据库名) ＝ 假)
字段 [1].名称 ＝ #姓名
字段 [1].类型 ＝ #文本型
字段 [1].最大文本长度 ＝ 20
字段 [2].名称 ＝ #性别
字段 [2].类型 ＝ #逻辑型
字段 [3].名称 ＝ #电话
字段 [3].类型 ＝ #文本型
字段 [4].名称 ＝ #地址
字段 [4].类型 ＝ #文本型
字段 [5].名称 ＝ #照片
字段 [5].类型 ＝ #字节集型
.如果真 (创建 (“通讯录”, 字段) ＝ 假)
信息框 (“数据库创建失败”, 0, , )
结束 ()
.如果真结束

.如果真结束
.如果真 (打开 (“通讯录”, , , , , , ) ＝ 假)
信息框 (“数据库打开失败”, 0, , )
结束 ()
.如果真结束
置当前库 (#数据库名)
到首记录 ()
.判断循环首 (尾记录后 () ＝ 假)
组合框_查找.加入项目 (读 (#姓名), )
跳过 ()
.判断循环尾 ()


.子程序 信息添加, 逻辑型
.局部变量 姓名, 文本型
.局部变量 电话, 文本型

姓名 ＝ 删全部空 (编辑框_姓名.内容)
电话 ＝ 删全部空 (编辑框_电话.内容)
.如果真 (姓名 ＝ “”)
信息框 (“没有填写姓名”, 0, , )
返回 (假)
.如果真结束
.如果真 (电话 ＝ “”)
信息框 (“没有填写电话”, 0, , )
返回 (假)
.如果真结束
.如果真 (查找 (读 (#姓名) ＝ 姓名) ＝ 真)
信息框 (姓名 ＋ “已存在”, 0, , )
返回 (假)
.如果真结束
.如果真 (加记录 (编辑框_姓名.内容, 组合框_性别.现行选中项 ＝ 1, 编辑框_电话.内容, 编辑框_地址.内容, 图片框_照片.图片) ＝ 假)
返回 (假)
.如果真结束
返回 (真)