Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Select Case e.Path
Case "addnew.htm"
If e.PostValues.Count = 0 Then
wb.AppendHTML("<script type='text/javascript' src='./foxtableAppTest/js/common.js'></script>", True)
wb.AppendHTML("<link rel='stylesheet' href='./foxtableAppTest/css/common.css' Type='text/css' charset='utf-8'/>", True)
wb.AddTopTips("","toptip1","")
wb.AddPageTitle("","pageheader","钢丝生产","生产者 - - "& e.Cookies("Uname"))
wb.AddForm("","form1","addnew.htm").Attribute=""
With wb.AddInputGroup("form1","ipg1","录入产量")
.AddHiddenValue("姓名",e.Cookies("Uname") )
.AddHiddenValue("班次",e.Cookies("班次") )
.AddHiddenValue("日期",e.Cookies("indate") )
With .AddInputCell("ic4") '通过InputCell增加输入框
.AddLabel("lsj","轮号",0) '增加标签,0显示在左边
.AddInput("轮号","text",1) '增加输入框,1表示显示在中间
.AddVcodeButton("hym","扫一扫",2).Attribute = """
End With
.AddInput("车台","车台","Text")
.AddInput("长度","长度","number").value=15800
.AddSwitch("是交班数量","是交班数量",False)
End With
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('轮号').value=r;}</script>")
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn2","查询","button").Attribute ="""
.Add("btn3","返回","button").Attribute ="""
End With
wb.AppendHTML("<script src='../lib/aj.js'></script>")
e.WriteString(wb.Build)
[此贴子已经被作者于2020/6/9 10:57:42编辑过]