Dim e As RequestEventArgs = Args(0)
Dim wb As New weui
Select Case e.Path
Case "answer.htm"
''''--------------------定义两个页面
With wb.AddTabBar("", "tb1", 1)
.AddPage("page1","收令回复","./images/001.png")
.AddPage("page2","消令回复","./images/002.png")
End With
'''--------------------------'指定第一个页面接收表单数据的的页面为handle.htm
wb.AddForm("page1","form1","answer.htm")
With wb.AddInputGroup("form1","ipg1","作业命令")
.AddHidenValue("_Identify","123")
.AddHidenValue("OneDate","123")
.AddInput("受令处所","受令处所","text")
.AddInput("命令号","命令号","text")
.AddInput("工作piao号","工作piao号","text")
.AddInput("停电馈线","停电馈线","text")
.AddInput("发令时间","发令时间","text")
.AddInput("完成时间","完成时间","text")
End With
With wb.AddInputGroup("form1","ipg2","命令内容")
.AddTextArea("命令内容",4)
End With
With wb.AddButtonGroup("form1","btg2",False)
With .Add("btn3", "上一条", "button")
.Value = "btn3"
.Attribute = ""
End With
With .Add("btn4","下一条","button")
.Value = "btn4"
.Attribute =""
End With
With wb.AddButtonGroup("form1","btg1",False)
With .Add("btn1", "收令回复", "submit")
.Kind = 1
.Attribute= ""
End With
End With
End With
wb.AppendHTML("<script src='/lib/myjax.js'></script>") '引入脚本文件
e.WriteString(wb.Build)
Case "upPage.htm"
Dim cookName As String = DecryptText(e.Cookies("username"),"wls123","wls123")
Dim str As String = ""
If e.PostValues.ContainsKey("btn4") Then
If e.PostValues("_Identify") = ""
Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = '" & cookName & "' And CreateTime > Date.Now.AddDays(-10) And Status =" & 4,"CreateTime DESC",0)
If dr IsNot Nothing Then
str = dr("_Identify") & "|" & dr("CreateTime") & "|" & dr("受令处所") & "|" & dr("命令号") & "|" & dr("工作piao号") & "|" & dr("停电馈线") & "|" & dr("发令时间") & "|" & dr("完成时间") & "|" & dr("命令内容")
Else
str = "IsNothing"
End If
Else
Dim dr As DataRow = DataTables("接触网作业命令").SQLFind("受令人 = '" & cookName & "' And CreateTime < '" & e.Values("OneDate") & "' And Status =" & 4,"CreateTime DESC",0)
If dr IsNot Nothing Then
e.WriteString(dr("_Identify") & "|" & dr("CreateTime") & "|" & dr("受令处所") & "|" & dr("命令号") & "|" & dr("工作piao号") & "|" & dr("停电馈线") & "|" & dr("发令时间") & "|" & dr("完成时间") & "|" & dr("命令内容"))
End If
End If
e.WriteString(str)
End If
End Select
function upPage(){
var result = submitAjaxFileds('upPage.htm','','_Identify','OneDate',false);
alert(result)
if (result) {
var vals = result.split("|");
document.getElementById("_Identify").value=vals[0];
document.getElementById("OneDate").value=vals[1];
document.getElementById("受令处所").value=vals[2];
document.getElementById("命令号").value=vals[3];
document.getElementById("工作piao号").value=vals[4];
document.getElementById("停电馈线").value=vals[5];
document.getElementById("发令时间").value=vals[6];
document.getElementById("完成时间").value=vals[7];
document.getElementById("命令内容").value=vals[8];
}
else {
//if(result=="IsNothing")
//show('dlg3');
}
}
加好友 
发短信
Post By：2018/2/28 20:33:00 [只看该作者]
