Foxtable(狐表)用户栏目专家坐堂 → Ajax后端运行的时候,怎么在前端进行状态提醒呢?


  共有4159人关注过本帖平板打印复制链接

主题:Ajax后端运行的时候,怎么在前端进行状态提醒呢?

帅哥哟,离线,有人找我吗?
cnsjroom
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1571 积分:11238 威望:0 精华:0 注册:2021/1/17 17:06:00
Ajax后端运行的时候,怎么在前端进行状态提醒呢?  发帖心情 Post By:2022/6/23 11:26:00 [只看该作者]

Ajax后端运行的时候,怎么在前端进行状态提醒呢?
因后端生成文件需要时间,用户点击前端按钮后,想提示转圈或者状态提醒字样,待文件生成后,直接打开文件
前后端代码该怎么完善呢?

后端代码:
Public Sub form289_word_Aj ax(rq as Request) 
Dim e As RequestEventArgs = rq.e
Dim cmd As SQLC ommand = rq.cmd
Dim time As String =Format(Date.now,"yyyyMMddHHmmss") 
Dim tm As String  = ProjectPath & "Attachments\谈话通知书.doc" '指定模板文件
Dim f1 As String = ProjectPath & "Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".doc" '指定目标文件
Dim f2 As String = ProjectPath & "Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf" '指定目标PDF文件
Dim wrt As New WordReport(tm,f1)
wrt.AddDataTable("谈话措施台账","主数据源","Se lect * from {谈话措施台账} where guid = '" & e.Values("guid") & "' ")
wrt.Build() 
wrt.SaveToPDF(f2) '保存为PDF文件
wrt.Quit() '退出
'返回生产的报表路径
e.WriteString("\Reports\谈话通知书"& e.Values("创建人") & e.Values("guid") & time &".pdf")
End Sub

前端代码:
({
    button6: {
        text: '{{text}}', //系统自动匹配标题
        visible:true,
        click: fun ction () { //按钮单击事件
        var data = {};//返回参数到前端
$.p ost("form289_word.Ajax",{guid:e.form.guid,创建人:e.form.user.name},function(res){ 
    var a = document.createElement("a");
    a.setAttribute("href", myurl + res);
    a.setAttribute("target", "下载excel");
    docum ent.body.appendChild(a);
    a.click();
    a.remove();
})
        }
    }
})
[此贴子已经被作者于2022/6/23 11:26:56编辑过]

 回到顶部