Select Case e.path
Case "logon.htm" '登录页面
wb.AddPageTitle("","pageheader","生产管理系统","由吉林天地人生产运行部开发")
If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录
wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.
End If
wb.AddForm("","form1","logon.htm")
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","户名","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
Case "exit.htm" '退出登录
wb.DeleteCookie("username") '清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面
Case "", "default.htm" '首页
wb.AddPageTitle("","pageheader","生产管理系统","由吉林天地人生产运行部开发")
With wb.AddGrid("","g2")
.Add("c1","泥浆接收录入", "./images/10.png", "njjslr.htm")
.Add("c5","日报", "./images/下载.png", "1.htm")
.Add("c12","退出", "./images/26.png", "exit.htm") '退出登录
End With
Case "1.htm"
If e.PostValues.Count = 0 Then
wb.AddForm("","form5","1.htm")
With wb.AddInputGroup("form5","ipg5","生产日报")
.AddInput("日期","日期","date")
.AddSelect("处理站","处理站","五厂|七厂|八厂|随钻1部|随钻2部")
End With
With wb.AddButtonGroup("form5","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim dms() As String = {"日期","处理站"} '不能为空的列名数组
For Each dm As String In dms
If e.PostValues.ContainsKey(dm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage1","生成失败", dm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return '必须返回
End If
Next
Dim dn As New String("日期") '重新定义了日期
Dim dl As New String("处理站") '重新定义了日期
If e.PostValues.ContainsKey(dn) AndAlso e.PostValues.ContainsKey(dl) Then
Vars("日期1") = e.PostValues(dn)
Vars("处理站") = e.PostValues(dl)
End If
With wb.AddMsgPage("","msgpage","生成日报", "努力工作,注意安全") '生成成功提示页
.AddButton("btn1","点击查看","Reports\ckd.htm")
End With
e.WriteString(wb.Build)
End If
End Select
加好友 
发短信
Post By：2021/12/8 21:59:00 [显示全部帖子]
