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