Dim e As RequestEventArgs = args(0)
Dim UserInfo As Win.YPD.UserInfo = args(1)
Dim MainPage As Integer = e.GetValues("MainPage")
Dim PageURL As String = Nothing
Dim FormURL As String = Nothing
Select Case MainPage
Case 0 '新品申请
FormURL = "handle.htm?MainPage=0" '保存页
PageURL = "default.htm" '首页
Case 1 '新品视图
FormURL = "handle.htm?MainPage=1&page=" & e.GetValues("page") '保存页
PageURL = "gys_xpsq_st.htm?page=" & e.GetValues("page") '视图页
End Select
Dim wb As New WeUI
wb.Title = "供应商新品申请" '添加标题
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>", True) '引入脚本文件
wb.AddToptips("", "toptip1", "") '用于显示动态错误提示
'表单字段内容--》》》
wb.AddForm("", "form1", FormURL) '指定接收表单数据的的页面为handle.htm里去做保存
With wb.AddInputGroup("form1", "ipg1", "供应商新品申请")
.AddHiddenValue("ID", System.Guid.NewGuid.ToString()) '设置界面隐藏唯一id
'字段名 显示名 类型 .input属性
.AddInput("填表日期", "<label style='color:red;'>填表日期</label>", "date")
.AddInput("品名", "<label style='color:red;'>品名</label>", "text").Placeholder = "请输入文本"
'图片上传------:
'With wb.AddInputGroup("form1","ipgA1","图片上传")
With wb.AddInputGroup("form1", "ipgA1", "")
With .AddUploader("up1", "图片上传", True)
.AllowDelete = True '允许删除
.Incremental = True '允许 重复选择文件或连续拍照
End With
End With
wb.AddToast("", "tst1", "正在上传", 1)
wb.AddToast("", "tst2", "上传成功", 0)
wb.AddToast("", "tst3", "上传失败", 0).Icon = "warn"
'wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
'文件上传------: handle(新品提交页)
With wb.AddButtonGroup("form1", "btngrp1")
With .Add("btn1", "文件上传页面跳转", "button") '.Kind=1
'Kind设颜色默认0绿,1灰,2红
.Class = "btnClass"
.Attribute = "style='font-style:italic;font-weight:900;' "
End With
End With
'------
'上面这里"文件上传"是做个跳转，用法不对。
'求指导【上传界面】的代码如何直接放进来。
'------
End With '最外面的
'操作按钮
wb.InsertHTML("<div style='height:50px'></div>")
wb.AddPage("","page1").Attribute = "style='position: fixed;bottom: 0;right: 0;left: 0'"
'按钮组样式
With wb.AddButtonGroup("page1","btg22", False)
.Add("btn0", "新增", "button").Attribute = "" '提交(按钮单击调用函数)
.Add("btn1", "保存", "button").Attribute = "" '提交(按钮单击调用函数)
.Add("btnLast", "返回", "", PageURL) '超链接
.Add("btnList", "记录", "", "gys_xpsq_st.htm") '超链接
End With
e.WriteString(wb.Build)
Return Nothing
加好友 
发短信
Post By：2018/12/5 11:19:00 [只看该作者]
