Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发WeUI调用js函数上传文件 按钮


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

主题：移动开发WeUI调用js函数上传文件 按钮
帅哥哟，离线，有人找我吗？
ouyangfenghuan
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：2357 威望：0 精华：0 注册：2015/12/11 4:29:00 		  发帖心情 Post By：2019/4/25 13:37:00 [只看该作者]

JS如下:
function setCodes(){
    var result= submitAjaxFileds('getCodes.htm','','订单编号',false);
    if(result){
        var vals=result.split("|");
        if(vals.length==2){
            document.getElementById("产品").value=vals[0];
            document.getElementById("订单数量").value=vals[1];
        }
    }
}

function submitForm(){
    if(validit()) {
        show("tst1",2000);
        var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
    }
}


function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2",2000);
document.getElementById("质检报告图片").value=vals[0];
location="AddNew.htm?v="+Math.random();
    }
    else{
        show("txt3",2000);
    }
}


function validit(){
    var result=submitAjaxFileds("valid.htm","","姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量",false);
    if(result=="OK"){
        return true;
    }
    else{
        showTopTips("toptip1",result,2500);
        return false;
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/25 14:16:00 [只看该作者]

function submitForm(){
    if(validit()) {
        show("tst1",2000);
        var result = submitAjaxForm('form1','',true,'tst1');
    }
}
去掉afterSubmit函数
 回到顶部
帅哥哟，离线，有人找我吗？
ouyangfenghuan
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：2357 威望：0 精华：0 注册：2015/12/11 4:29:00 		  发帖心情 Post By：2019/4/25 15:55:00 [只看该作者]

还是不显示提交成功,继续增加


图片点击可在新窗口打开查看此主题相关图片如下：r2504.png
图片点击可在新窗口打开查看

AddNew 代码

Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then '生成增加订单网页
    wb.AddTopTips("","toptip1","") '用于显示动态错误提示
    wb.AddForm("","form1","addnew.htm") .Attribute=""  '验证表单
    With wb.AddInputGroup("form1","ipg1","增加报表")
        Dim gjs1 As List(of String) = DataTables("员工资料表").GetValues("姓名","绩效工资= true","部门 desc")
        .AddSelect("姓名","姓名","|" & String.Join("|",gjs1.ToArray)).Required =True '.Attribute = ""  '调用js函数.
        
        Dim gjs As List(of String) = DataTables("员工资料表").GetValues("设备","排计划= true","序号")
        .AddSelect("机台","机台","|" & String.Join("|",gjs.ToArray)).Required =True '.Attribute = ""  '调用js函数.
        With .AddInput("订单编号","订单编号R","number")  '写在一起,如 "
            .Attribute = """
        End With
        .AddInput("产品","产品","").Readonly=True
        .AddInput("订单数量","订单数量","number").Readonly=True '自动输入订单数量
        .AddSelect("工序","工序","")
        .AddInput("详细工作内容","详情","text").Placeholder= "可输入详细内容:如机台维护,换刀..."
        Dim time As Date = #00:01:00#
        With .AddInput("机器时间","机器时间","text")
            '.Attribute=""
            .value = Format(time,"HH:mm:ss")
        End With
        
        .AddInput("单次数量生产","单次数量","number").Value =1
        Dim Date1 As Date = Date.Now 
        .AddInput("起始时间","起始时间","datetime-local").value = Format(Date1,"yyyy-MM-ddT08:00")
' .Value = Format(Date.Now,"yyyy-MM-ddTHH:mm")
        .AddInput("结束时间","结束时间","datetime-local").value = format(Date1,"yyyy-MM-ddT08:00")
        .AddInput("实际产量","实际产量","number")
        '
        
        
        With .AddUploader("质检报告图片","检验报表/交货照片",False)
        .AllowDelete = True '允许删除
        .Incremental = True '允许重复选择文件或连续拍照
        .Rotate = 1 '顺时钟旋转90°
        .ScaleWidth = 450 '自动压缩图片宽度为400个像素,高度等比例压缩
        End With
        
        With wb.AddButtonGroup("form1","btg1",False)
        With .Add("btg1", "上传图片", "button")
        .Kind =  0
        .Attribute= "" '调用js函数上传
        End With
        End With
        wb.AddToast("","tst1", "正在上传",1)
        wb.AddToast("","tst2", "上传成功",0)
        wb.AddToast("","tst3", "上传失败",0).Icon= "warn"
         .AddInput("质检报告图片","图片文件","").Readonly=True '自动写入文件名    
  
        'With wb.AddButtonGroup("form1","btg2",True)
            '.Add("btn2", "确定","submit")
        'End With
    End With
 回到顶部
帅哥哟，离线，有人找我吗？
ouyangfenghuan
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：2357 威望：0 精华：0 注册：2015/12/11 4:29:00 		  发帖心情 Post By：2019/4/25 15:55:00 [只看该作者]

Else '保存新增的订单
    ' e.WriteString("OK")
    Dim dr As DataRow = DataTables("生产日报表").AddNew()
    Dim nms() As String = {"姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量","质检报告图片","详细工作内容"}
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    Dim fln As String
    For Each key As String In e.Files.Keys
        For Each fln In e.Files(key)
            e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件
        Next
    Next
    dr("质检报告图片")= fln
     dr.Save()
    With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交!") '增加订单成功提示信息,请领取打印标签
        .AddButton("btn2","继续增加","addnew.htm")
       ' .AddButton("btn2","返回列表","list.htm") '列表未做好,先不开放
    End With
  '   MessageBox.Show(1)
End If
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/25 16:15:00 [只看该作者]

嗯，使用ajex是无法使用MsgPage的。需要增加一个页面

case "提示页面.html"
Dim wb As New weui
With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交!") '增加订单成功提示信息,请领取打印标签
        .AddButton("btn2","继续增加","addnew.htm")
       ' .AddButton("btn2","返回列表","list.htm") '列表未做好,先不开放
    End With
e.WriteString(wb.Build)

然后保存后返回OK
Else '保存新增的订单
    ' 
    Dim dr As DataRow = DataTables("生产日报表").AddNew()
    Dim nms() As String = {"姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量","质检报告图片","详细工作内容"}
    For Each nm As String In nms
        dr(nm) = e.PostValues(nm)
    Next
    Dim fln As String
    For Each key As String In e.Files.Keys
        For Each fln In e.Files(key)
            e.SaveFile(key,fln,"d:\web\uploadfiles\" & fln) '保存接收到的文件
        Next
    Next
    dr("质检报告图片")= fln
     dr.Save()
e.WriteString("OK")
return
End If


js文件

function submitForm(){
    if(validit()) {
        show("tst1",2000);
        var result = submitAjaxForm('form1','afterSubmit',true,'tst1');
    }
}


function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2",2000);
location="提示页面.html";
    }
    else{
        show("txt3",2000);
    }
}
 回到顶部
帅哥哟，离线，有人找我吗？
ouyangfenghuan
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：2357 威望：0 精华：0 注册：2015/12/11 4:29:00 		  发帖心情 Post By：2019/4/25 21:37:00 [只看该作者]

还是不行,会停在原页面,但数据已提交

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106680 积分：542589 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/25 21:53:00 [只看该作者]

我测试没有问题

httprequest事件
Select Case e.Path
    Case "addnew.htm"
        If e.PostValues.Count = 0 Then
            Dim wb As New weui
            wb.AddTopTips("","toptip1","") '用于显示动态错误提示
            wb.AddForm("","form1","addnew.htm")
            With wb.AddInputGroup("form1","ipg1","新增订单")
                .AddSelect("产品","产品","|PD01|PD02|PD03")
                .AddInput("数量","数量","number")
                .AddInput("单价","单价","number").Step = 0.1
                .AddInput("折扣","折扣","number").Step = 0.01
                With .AddUploader("up1","图片",True)
                    .TextPosition = 0 '标题靠左
                    .AddImage("./images/shuqi2.jpg")
                End With
            End With
            With wb.AddButtonGroup("form1","btg1",True)
                .Add("btn1", "确定","button").Attribute="onclick='submitForm()'"
            End With
            wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
            e.WriteString(wb.Build)
        Else
            e.WriteString("OK")
        End If
    Case "msg.htm"
        Dim wb As New weui
        With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交!") '增加订单成功提示信息,请领取打印标签
            .AddButton("btn2","继续增加","addnew.htm")
            ' .AddButton("btn2","返回列表","list.htm") '列表未做好,先不开放
        End With
        e.WriteString(wb.Build)
End Select

js
function submitForm(){

    var result = submitAjaxForm('form1','afterSubmit',true);

}

function afterSubmit(result){
    if (result=='OK') {
        location="msg.htm";
    }
}
[此贴子已经被作者于2019/4/25 21:53:18编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
ouyangfenghuan
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：273 积分：2357 威望：0 精华：0 注册：2015/12/11 4:29:00 		  发帖心情 Post By：2019/4/26 8:09:00 [只看该作者]

少些了这个
       Else
            e.WriteString("OK")
        End If
 回到顶部
总数 18 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询