Foxtable(狐表)用户栏目专家坐堂 → 录入页面,选择上传图片后,怎么生成crc值呢?怎么在录入成功后,将录入信息页面内容及图片显示出来呢?允许上传多个文件,经过实际测试,只能上传一张图片,且照片一旦选择,为什么不能移除呢?


??共有49人关注过本帖树形打印复制链接

主题:录入页面,选择上传图片后,怎么生成crc值呢?怎么在录入成功后,将录入信息页面内容及图片显示出来呢?允许上传多个文件,经过实际测试,只能上传一张图片,且照片一旦选择,为什么不能移除呢?

帅哥,在线噢!
李孝春
??1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:13809 威望:0 精华:0 注册:2013/1/31 0:03:00
录入页面,选择上传图片后,怎么生成crc值呢?怎么在录入成功后,将录入信息页面内容及图片显示出来呢?允许上传多个文件,经过实际测试,只能上传一张图片,且照片一旦选择,为什么不能移除呢???发帖心情 Post By:2019/10/7 23:20:00 [只看该作者]

表没有加载字段照片、crc值? 两个字段属于二进制字段

1、录入页面,选择图片后上传,如何根据字段“照片名”生成字段“crc值”?
Dim val As String? = CRCCheckFile(dr("照片名"))
? ? ? ? ? ?dr.SQLSetValue("CRC值",val)
这个代码没有起作用
2、录入成功之后,如何获取录入成功后的页面内容,将当前录入保存成功的页面值进行显示?
3、允许上传多个文件,经过实际测试,只能上传一张图片,请问红色部分代码有什么办法修正么?且照片一旦选择,为什么不能移除呢?

页面代码如下:

Dim wb As New weui
Select Case e.Path
? ? Case "xjrjzjf.htm"
? ? ? ? If e.PostValues.Count = 0 Then
? ? ? ? ? ? wb.AddPageTitle("","ph1","博融现金日记账")
? ? ? ? ? ? wb.AddForm("","form1","xjrjzjf.htm")
? ? ? ? ? ? With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")
? ? ? ? ? ? ? ? .AddInput("日期","日期","date")
? ? ? ? ? ? ? ? .AddSelect("凭证种类","凭证种类","|发票|收据|收条|小票|物流单|快递单|其它单据")
? ? ? ? ? ? ? ? .AddInput("凭证号数","凭证号数","Text")
? ? ? ? ? ? ? ? .AddSelect("对方科目","科目类别","|日常办公|销售回款|日常开支|货物订货|其它项目")
? ? ? ? ? ? ? ? .AddInput("摘要","内容摘要","Text")
? ? ? ? ? ? ? ? With? .AddInput("借方金额","收入金额","number")
? ? ? ? ? ? ? ? ? ? .Step = "0.01"
? ? ? ? ? ? ? ? ? ? .Attribute = ""
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ? .AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")
? ? ? ? ? ? ? ? .AddUploader("up1","照片",True) 'True表示允许上传多个文件
? ? ? ? ? ? ? ? With wb.AddButtonGroup("form1","btg1",True)
? ? ? ? ? ? ? ? ? ? .Add("btn1", "确定", "submit")
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? End With
? ? ? ? ? ? e.WriteString(wb.Build)
? ? ? ? Else
? ? ? ? ? ? Dim nms() As String =?{"日期","凭证种类","凭证号数","摘要","科目类别","日页","借方金额","借方","照片名","crc值"}? '
? ? ? ? ? ? Dim dr As DataRow = DataTables("现金日记账").AddNew()
? ? ? ? ? ? For Each nm As String In nms
? ? ? ? ? ? ? ? If e.PostValues.ContainsKey(nm) Then
? ? ? ? ? ? ? ? ? ? dr(nm) = e.PostValues(nm)
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? Next
? ? ? ? ? ? For Each key As String In e.Files.Keys
? ? ? ? ? ? ? ? If key = "up1" Then
? ? ? ? ? ? ? ? ? ? For Each fln As String In e.Files(key)
? ? ? ? ? ? ? ? ? ? ? ? e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
? ? ? ? ? ? ? ? ? ? Next
? ? ? ? ? ? ? ? ? ? dr.Lines("照片名") = e.Files(key)
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? Next

? ? ? ? ? ? dr.save()
? ? ? ? ? ?Dim val As String? = CRCCheckFile(dr("照片名"))
? ? ? ? ? ?dr.SQLSetValue("CRC值",val)
? ? ? ? ? ? With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
? ? ? ? ? ? ? ? .AddButton("btn1","继续增加","xjrjzjf.htm")
? ? ? ? ? ? End With
? ? ? ? ? ? e.WriteString(wb.Build)
? ? ? ? End If
End Select
[此贴子已经被作者于2019/10/8 0:12:50编辑过]

?回到顶部
帅哥,在线噢!
有点蓝
??2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:34799 积分:177149 威望:0 精华:8 注册:2015/6/24 9:21:00
??发帖心情 Post By:2019/10/8 9:16:00 [只看该作者]

1、CRCCheckFile需要使用绝对路径,照片列保存的不是绝对路径吧?
msgbox(ProjectPath &?dr("照片名"))
Dim val As String? = CRCCheckFile(ProjectPath &?dr("照片名"))

2、使用ajax提交数据,页面不刷新即可:http://www.foxtable.com/mobilehelp/topics/0101.htm


?回到顶部
帅哥,在线噢!
李孝春
??3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1989 积分:13809 威望:0 精华:0 注册:2013/1/31 0:03:00
回复:(有点蓝)1、CRCCheckFile需要使用绝对路径,照...??发帖心情 Post By:2019/10/8 16:49:00 [只看该作者]

麻烦有点蓝老师指导一下:

红色部分代码? 启用后? 无法照片名不能获取到上传文件的绝对路劲地址 和 生成对应crc值
红色部分代码? 不启用时,照片名可以获取到上传文件的绝对路劲地址? 和生成crc值

页面代码如下:
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
? ? Case "xjrjzjf.htm"
? ? ? ? If e.PostValues.Count = 0 Then
? ? ? ? ? ? wb.AddPageTitle("","ph1","博融现金日记账")
? ? ? ? ? ? wb.AddForm("","form1","xjrjzjf.htm")
? ? ? ? ? ? With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")
? ? ? ? ? ? ? ? .AddInput("日期","日期","date")
? ? ? ? ? ? ? ? .AddSelect("凭证种类","凭证种类","|发票|收据|收条|小票|物流单|快递单|其它单据")
? ? ? ? ? ? ? ? .AddInput("凭证号数","凭证号数","Text")
? ? ? ? ? ? ? ? .AddSelect("对方科目","科目类别","|日常办公|销售回款|日常开支|货物订货|其它项目")
? ? ? ? ? ? ? ? .AddInput("摘要","内容摘要","Text")
? ? ? ? ? ? ? ? With? .AddInput("借方金额","收入金额","number")
? ? ? ? ? ? ? ? ? ? .Step = "0.01"
? ? ? ? ? ? ? ? ? ? .Attribute = ""
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ? .AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")
? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? With wb.AddInputGroup("form1","ipg22","文件上传")
? ? ? ? ? ? ? ? ? ? With .AddUploader("up1","图片",True)
? ? ? ? ? ? ? ? ? ? ? ? .AllowDelete = True '允许删除
? ? ? ? ? ? ? ? ? ? ? ? .Incremental = True '允许 重复选择文件或连续拍照
? ? ? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ??
? ? ? ? ? ? ? ? With wb.AddButtonGroup("form1","btg1",True)
? ? ? ? ? ? ? ? ? ? .Add("btn1", "确定", "submit")
? ? ? ? ? ? ? ? End With
? ? ? ? ? ? End With
? ? ? ? ? ? wb.AppendHTML("",True) '引入脚本文件
? ? ? ? ? ? wb.AppendHTML("") '引入脚本文件
? ? ? ? ? ? e.WriteString(wb.Build)
? ? ? ? Else
? ? ? ? ? ? Dim nms() As String = {"日期","摘要","对方科目"} '不能为空的列名数组
? ? ? ? ? ? For Each nm As String In nms
? ? ? ? ? ? ? ? If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
? ? ? ? ? ? ? ? ? ? With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
? ? ? ? ? ? ? ? ? ? ? ? .icon = "Warn" '改变图标
? ? ? ? ? ? ? ? ? ? ? ? .AddButton("btn1","返回").Attribute = ""
? ? ? ? ? ? ? ? ? ? End With
? ? ? ? ? ? ? ? ? ? e.WriteString(wb.Build)
? ? ? ? ? ? ? ? ? ? Return ""' '必须返回
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? Next
? ? ? ? ? ? nms = New String() {"日期","凭证种类","凭证号数","摘要","科目类别","日页","借方金额","借方","照片名","crc值"}? '重新定义了nms数组,增加了两列.
? ? ? ? ? ? Dim dr As DataRow = DataTables("现金日记账").AddNew()
? ? ? ? ? ? For Each nm As String In nms
? ? ? ? ? ? ? ? If e.PostValues.ContainsKey(nm) Then
? ? ? ? ? ? ? ? ? ? dr(nm) = e.PostValues(nm)
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? Next
? ? ? ? ? ? For Each key As String In e.Files.Keys
? ? ? ? ? ? ? ? If key = "up1" Then
? ? ? ? ? ? ? ? ? ? For Each fln As String In e.Files(key)
? ? ? ? ? ? ? ? ? ? ? ? e.SaveFile(key, fln, ProjectPath & "Attachments\" & fln)
? ? ? ? ? ? ? ? ? ? ? ? dr("照片名") = ProjectPath & "Attachments\" & fln
? ? ? ? ? ? ? ? ? ? Next
? ? ? ? ? ? ? ? End If
? ? ? ? ? ? Next
? ? ? ? ? ? '保存并生成增加成功提示页面
? ? ? ? ? ? dr.save()
? ? ? ? ? ? Dim val As String? = CRCCheckFile(dr("照片名"))
? ? ? ? ? ? dr.SQLSetValue("CRC值",val)
? ? ? ? ? ? e.AsyncExecute = True? '通知系统异步执行,不要关闭信道
? ? ? ? ? ? Functions.AsyncExecute("jisuan",e) '异步调用函数处理接收到的数据和文件
? ? ? ? ? ? With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") '生成成功提示页
? ? ? ? ? ? ? ? .AddButton("btn1","继续增加","xjrjzjf.htm")
? ? ? ? ? ? End With
? ? ? ? ? ? e.WriteString(wb.Build)
? ? ? ? End If
End Select


?回到顶部