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) \'生成网页