Select Case e.Path
Case "list.htm",""
Functions.Execute("List",e)
Case "addnew.htm"
Functions.Execute("AddNew",e)
Case "edit.htm"
Functions.Execute("Edit",e)
Case "delete.htm"
Functions.Execute("Delete",e)
Case "getCodes.htm" '获取产品名称自动输入用
Functions.Execute("getCodes",e)
Case "getBrands.htm" '获取工序名称项目列表 不显示出来
Functions.Execute("getBrands",e)
End Select
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
If e.PostValues.Count = 0 Then '生成增加订单网页
wb.AddForm("","form1","addnew.htm")
With wb.AddInputGroup("form1","ipg1","增加报表")
Dim gjs1 As List(of String) = DataTables("员工资料表").GetValues("姓名","绩效工资= true","部门 desc")
.AddSelect("姓名","姓名","|" & String.Join("|",gjs1.ToArray))'.Attribute = "" '调用js函数.
Dim gjs As List(of String) = DataTables("员工资料表").GetValues("设备","排计划= true","序号")
.AddSelect("机台","机台","|" & String.Join("|",gjs.ToArray))'.Attribute = "" '调用js函数.
.AddInput("订单编号","订单编号R","number") .Attribute = "" '调用js函数
.AddInput("订单数量","订单数量","number") '自动输入订单数量
With .AddInput("产品","产品","")
.Attribute = """ '自动输入名称后生成工序的项目列表, onchange等于 =""引号 setAjaxOptions 括号('工序','getBrands.htm','产品',false) 论坛显示不出来
End With
.AddSelect("工序","工序","") '没有项目列表出来
.AddInput("机器时间","机器时间","time")
.AddInput("单次数量生产","单次数量生产","number")
.AddInput("起始时间","起始时间","datetime-local")
.AddInput("结束时间","结束时间","datetime-local")
.AddInput("实际产量","实际产量","number")
'
'
'.AddInput("单价","单价","number").Step="0.01"
'.AddInput("日期","日期","date")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Else '保存新增的订单
Dim dr As DataRow = DataTables("生产日报表").AddNew()
Dim nms() As String = {"姓名","机台","订单编号","工序","机器时间","单次数量生产","起始时间","结束时间","实际产量"}
For Each nm As String In nms
dr(nm) = e.PostValues(nm)
Next
dr.Save()
With wb.AddMsgPage("","msgpage","增加成功", "谢谢提交,请领取打印标签") '增加订单成功提示信息
.AddButton("btn1","继续增加","addnew.htm")
.AddButton("btn1","返回列表","list.htm")
End With
End If
wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
加好友 
发短信
Post By：2019/4/17 21:47:00 [只看该作者]
此主题相关图片如下：01.png
