主题：照片在image控件中的显示和插入表中"照片"通用字段
wangliwei
[专家分：0] 发布于 2009-10-10 19:56:00
编写了一表单，有label1(caption):学号、label2(caption)::姓名、label3(caption)::照片
text1用于输学号。单击查询命令按钮则：text2显示出此学号的对应的姓名,image1显示此学号对应的照片。问题是
1.如何让image控件显示出对应的照片。我的代码是：
select 姓名,照片 from student where 学号=alltrim(thisform.text1.value) into cursor aa
thisform.image1.picture=aa.照片
但是出错。
2.将某一照片显示到image控件后单击录入按钮后，如何将些照片输入到照片字段中
3.同时还有一个问题：连编成功的.exe文件在U盘中如何让其在别的电脑上能用。我的主文件命令中有一句:set default to H:\file 但到其他电脑我的U盘盘符变为D或J，运行.exe时提示“找不到路径”。有什么方法可修改使之通用(我认为是set default to h:\file这条绝对路径惹的祸)？
回复列表 （共21个回复）
沙发
zxl931 [专家分：3420] 发布于 2009-10-10 23:26:00
第3个问题在主程序开始加入：
lcSys16 = SYS(16) &&查询当前运行程序名
lcProgram = SUBSTR(lcSys16, AT(":", lcSys16) - 1)
CD LEFT(lcProgram, RAT("\", lcProgram)) &&设置默认目录
set path to 文件夹名1,文件夹名2.... &&设置搜索路径
板凳
wangliwei [专家分：0] 发布于 2009-10-11 12:22:00
感谢您的回答。支持你，对于第1、2个问题希望给于回答，高分给您。
3 楼
sywzs [专家分：5650] 发布于 2009-10-11 12:50:00
1、照片字段存储照片的相对路径和照片文件名
2、把读取的照片文件名和相对路径保存到照片字段中
3、LJ=sys(5)+sys(2003) &&获取当前路径
SET DEFAULT TO &LJ &&设置当前路径为默认路径
SET PATH TO 文件夹1,文件夹2,.....文件夹n &&设置搜索路径
4 楼
wangliwei [专家分：0] 发布于 2009-10-11 21:09:00
比上一位给的代码简单明了，对于第1、2个问题觉得说的太含糊，希望根据我的代码给指出错误和详细的正确的代码。
5 楼
sywzs [专家分：5650] 发布于 2009-10-12 06:09:00
用getpict()函数获取图片文件名和路径，并保存到照片字段中。
6 楼
wangliwei [专家分：0] 发布于 2009-10-12 13:25:00
getpict()函数我已经用了，问题是
.[color=FF0000]如何让image控件显示出对应的照片[/color]。我的代码是：
select 姓名,照片 from student where 学号=alltrim(thisform.text1.value) into cursor aa
thisform.image1.picture=aa.照片
但此代码是有错的，问：选中照片后如何让其显示在image1控件中和单击查询后如何让对的此学号的照片显示在表单控件image1中。
7 楼
sywzs [专家分：5650] 发布于 2009-10-12 15:24:00
照片字段是字符型的吗？
8 楼
Ilikefox [专家分：5770] 发布于 2009-10-12 15:33:00
楼上，有错误，至少把什么错误描述一下，比如，出错时系统有什么提示(要知道系统提示比你只是说：“代码有错”“出错”要更加精确，也便于别人帮你分析原因)，根据你发帖描述，说说俺的看法，供参考。
首先你说明表中字段“照片”是通用字段，代码中使用语句
thisform.image1.picture=aa.照片
这句明显就不对，picture是字符型属性，当然不能把通用型字段的内容给它，类型不匹配。
sywzs在3楼提示照片字段存储照片的相对路径和照片文件名，言下之意就是字段“照片”应该改为字符型，不知道你做了没有。
5楼和6楼给人的信息是你已经用了getpict()函数获取照片路径，能不能说说你是怎么用的？
9 楼
Ilikefox [专家分：5770] 发布于 2009-10-12 15:35:00
sywzs在我之前发帖了，呵呵，8楼的楼上指的是6楼
10 楼
wangliwei [专家分：0] 发布于 2009-10-13 13:45:00
不是，通用型
我来回复
您所在位置：