WEB读取照片 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → WEB读取照片

共有3637人关注过本帖树形打印复制链接主题：WEB读取照片

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/13 8:48:00 [显示全部帖子]

参考：http://www.foxtable.com/mobilehelp/topics/0044.htm

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/15 20:15:00 [显示全部帖子]

从表格找一行数据是很容易的，foxtable有N多种方法。2楼的帮助是为了告诉您，文件必须在web的目录里才能读取：

HttpServer.WebPath = "d:\web" '指定静态文件存储位置

如果【图片列的路径是：\学校档案\照片\文件名.*】不这些路径不在"d:\web"里面，是没有办法的

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/15 23:34:00 [显示全部帖子]

参考：http://www.foxtable.com/webhelp/topics/2911.htm

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/16 16:37:00 [显示全部帖子]

dim name as string

if e.PostValues.ContainsKey("xm") then

name = e.PostValues("xm")

end if

Dim wb As New weui
wb.AddForm("","form1","test.htm")
With wb.AddInputGroup("form1","ipg1","登录")
.AddInput("xm","姓名","text").value = name

End With

Dim dr As DataRow

if name > "" then

dr = DataTables("职工信息总表").SQLFind("姓名 = '" & name & "'")

end if

If dr IsNot Nothing Then '如果找到的话

With .AddUploader("up1","",True)
                .AllowAdd = False '关闭文件上传功能
                .AddImage("." & dr("图片"))
            End With

else

With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
End With

end if
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页

输入姓名后点击确定按钮提交看效果

[此贴子已经被作者于2020/3/16 16:43:28编辑过]

有点蓝

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/16 20:17:00 [显示全部帖子]

’下面的代码没执行，页面没反应

Dim dr As DataRow

msgbox(name ) 这里能不能弹出

        If name > "" Then
            dr = DataTables("职工信息总表").SQLFind("姓名 = '" & name & "'")
        End If
msgbox(dr IsNot Nothing) 这里能不能弹出

        If dr IsNot Nothing Then '如果找到的话
            With wb.AddInputGroup("form1","ipg1","客户资料")
                .AddInput("姓名","姓名","text").value = "姓名"
                .AddInput("性别","性别","text").Value = "性别"
                .AddInput("任教学科","任教学科","text").value = "任教学科"
                With .AddUploader("up1","",True)
                    .AllowAdd = False '关闭文件上传功能
                    .AddImage("D:\web\试验\" & dr("照片"))
                End With
            End With
        End If
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btn1", "确定", "submit")
        End With
        e.WriteString(wb.Build) '生成网页

        return 这里必须返回，e.WriteString不能重复调用
End Select
e.WriteString(wb.Build)

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/16 21:01:00 [显示全部帖子]

If dr IsNot Nothing Then '如果找到的话
msgbox(name ) '到这里name也是正确的，但直接就返回到输入页面了。

下面的代码为什么不执行呢？
With wb.AddInputGroup("form1","ipg1","职工信息")

msgbox(1) 能不能弹出
                .AddInput("姓名","姓名","text").value = "姓名"
                .AddInput("性别","性别","text").Value = "性别"
                .AddInput("任教学科","任教学科","text").value = "任教学科"

msgbox(2)
With .AddUploader("up1","",True)

msgbox("./试验/" & dr("照片"))
                    .AllowAdd = False '关闭文件上传功能
                    .AddImage("./试验/" & dr("照片")) 不能使用绝对路径
                End With

msgbox(4)
End With
End If

有点蓝

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110574 积分：562760 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/16 21:04:00 [显示全部帖子]

Case "zgxxzp.htm"

Dim name As String

wb.AddForm("","form1","zgxxzp.htm")

With wb.AddInputGroup("form1","ipg2","教师职称查询")

.Addinput("xm","姓名","text")

End With

If e.PostValues.ContainsKey("xm") Then

name = e.PostValues("xm")

End If

Dim dr As DataRow

' msgbox(name)

If name > "" Then

dr = DataTables("职工信息总表").SQLFind("姓名 ='" & name & "'")

End If

If dr IsNot Nothing Then '如果找到的话

With wb.AddInputGroup("form1","ipg1","职工信息")

.AddInput("姓名","姓名","text").value = "姓名"

.AddInput("性别","性别","text").Value = "性别"

.AddInput("任教学科","任教学科","text").value = "任教学科"

With .AddUploader("up1","",True)

.AllowAdd = False '关闭文件上传功能

.AddImage("./试验/" & dr("照片"))

End With

End If

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "确定", "submit")

End With

e.WriteString(wb.Build) '生成网页

Return

下一主题 >> << 上一主题

主题：WEB读取照片