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