'开始正常生成网页内容
wb.AddForm("","form1","ITFailure.htm").Attribute="o nsubmit='r eturn DeviceInfoQueryFunction()'"
With wb.AddInputGroup("form1","ipg1","基本信息")
' .AddInput("product","所在楼","text") '显示
' .AddInput("product","所在科室","text") '显示
' .AddInput("product","所在房间","text") '显示
With .AddInputCell("ic1") '增加待接收扫码的文本框
.AddLabel("lnumber","sn",0) '第2个sn 是显示在界面上的内容 第1个lsn是label控件的ID
.AddInput("number","text",1)
.AddVcodeButton("scan","扫码输入",2) '增加二维码扫描按钮,2表示显示在右边
End With
'增加 设备类型&所在楼&所在科室&所在房间 字段
.AddInput("sblx","设备类型","text")
.AddInput("sbxh","设备型号","text")
.AddInput("szl","所在楼","text")
.AddInput("szks","所在科室","text")
.AddInput("szfj","所在房间","text")
'''''''''''''''''''''''''''''''''增加姓名&工号字段
Dim OpenId As String = e.Cookies("openid")
Dim dr_name As DataRow= DataTables("WeChatUsers").SQLFind("Openid= '" & OpenID & "'")
If dr_name IsNot Nothing Then '如果dr不为空
With .AddInput("xm","姓名","text")
.Value=dr_name("RemarkName")
' .Readonly=True
End With
With .AddInput("gh","工号","text")
.Value=dr_name("EmployeeID")
' .Readonly=True
End With
Else '如果dr为空,则空着让报障人填 ,最终要存到 硬件报障记录表 里面
.AddInput("xm","姓名","text")
.AddInput("gh","工号","text")
End If
''''''''''''''''''''''''''''''''''''''''''''''''
Dim dr_ks As DataRow= DataTables("users_Report").SQLFind("JobNumber= '" & dr_name("EmployeeID") & "'")
' msgbox(dr("RemarkName"))
'原来是 科室 姓名 岗位 电话 提交日期 现要改为: 姓名 工号(科室改为工号) 岗位 电话 提交日期
If dr_ks IsNot Nothing Then '如果dr不为空
With .AddInput("dh","电话","text")
.Value=dr_ks("MobilePhone")
' .Readonly=True
End With
With .AddInput("ks","科室","text")
.Value=dr_ks("DeptName")
' .Readonly=True
End With
Else '如果dr为空,则空着让报障人填 ,最终要存到 硬件报障记录表 里面
.AddInput("dh","电话","text")
.AddInput("ks","科室","text")
End If
.AddInput("jlsj","记录时间","datetime-local").Value = Format(Date.Now,"yyyy-MM-ddTHH:mm") '增加记录时间字段
' .AddInput("gzms","故障描述","text") '增加故障描述字段
With wb.AddInputGroup("form1","ipg2","故障描述")
.AddTextArea("gzms",2).Placeholder = "请输入简单的故障描述,如:显示器不亮,网络不通,……等."
End With
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "提交", "submit")
End With