存入数据库

.版本 2

.局部变量 照片, 字节集
.局部变量 文件名, 文本型

通用对话框1.类型 ＝ 0
通用对话框1.过滤器 ＝ “图形图像|*.bmp;*.jpg;*.gif”
.如果真 (通用对话框1.打开 ())
    照片 ＝ 读入文件 (通用对话框1.文件名)
    文件名 ＝ 找文件名 (通用对话框1.文件名)
    .如果 (外部数据库1.执行 (“insert into a (name,zp) values ('” ＋ 文件名 ＋ “',?)”, 照片))
        信息框 (“上传成功”, 0, )
        读取数据 ()
        图片框1.图片 ＝ 照片
    .否则
        信息框 (“上传失败”, 0, )
    .如果结束