标题:照片通用字段的维护
只看楼主
zfk1970
Rank: 1
等 级:新手上路
帖 子:71
专家分:0
注 册:2010-12-2
结帖率:78.13%
已结贴  问题点数:5 回复次数:7 
照片通用字段的维护
人力资源管理系统中一表中有通用”照片“字段,在维护表单中,如何通过浏览方式实现图片的添加?
搜索更多相关主题的帖子: 通用 人力资源 照片 
2011-02-13 14:40
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
得分:5 
pic=getpict()
if not file(pic)
    return
endif

APPEND GENERAL 照片 FROM (pic)
2011-02-13 22:07
zfk1970
Rank: 1
等 级:新手上路
帖 子:71
专家分:0
注 册:2010-12-2
得分:0 
OLE   错误码:0x80041f5 application not found。
2011-02-14 13:29
zfk1970
Rank: 1
等 级:新手上路
帖 子:71
专家分:0
注 册:2010-12-2
得分:0 
fn = GETPICT('jpg|bmp|jpeg|', '照片文件')
IF NOT EMPTY(fn) AND FILE(fn)
 thisform.pageframe1.page1.olb照片.controlsource= fn
 thisform.pageframe1.page1.olb照片.Tag = fn
ENDIF

请大家看看有何错误?
2011-02-18 13:40
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
得分:0 
下面的代码测试通过:
CREATE CURSOR tst (xm c(8),pho g)
INSERT INTO tst (xm) VALUES ("x1")
pic=GETpic()
if file(pic)
    APPEND GENERAL pho FROM (pic)
endif
INSERT INTO tst (xm) VALUES ("x1")
pic=GETpic()
if file(pic)
    APPEND GENERAL pho FROM (pic)
endif
BROWSE
2011-02-19 15:01
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
得分:0 
你4楼的代码:
1、当你在getpict()里按下了取消时, FILE(fn)是返回.f.的,empty()判断是多余的。
2、你只是改变了表单上的显示效果,并没有改写表文件,表单关闭后,什么都没有发生。

关于你3楼的错误提示,可能是VFP的安装问题:试试在命令行运行
"path\vfp.exe" /regserver
注意将上面的path改成你的vfp的安装路径。
2011-02-19 15:08
pmc1234
Rank: 5Rank: 5
等 级:职业侠客
帖 子:398
专家分:383
注 册:2010-1-6
得分:0 
回复 5楼 xmlz
看上去你的xm在你的程序中好像是多余的
2011-02-20 14:34
xmlz
Rank: 9Rank: 9Rank: 9
等 级:蜘蛛侠
威 望:5
帖 子:294
专家分:1392
注 册:2010-8-29
得分:0 
可有可无
2011-02-20 21:32



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-332143-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016933 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved