取数据库

.版本 2
.支持库 iext

.局部变量 id, 文本型
.局部变量 句柄, 整数型
.局部变量 照片, 字节集

id ＝ 超级列表框1.取标题 (超级列表框1.现行选中项, 0)
句柄 ＝ 外部数据库1.查询 (“select zp from a where id=” ＋ id)
外部数据库1.到首记录 (句柄)
照片 ＝ 外部数据库1.读 (句柄, “zp”)
外部数据库1.关闭记录集 (句柄)
图片框1.图片 ＝ 照片