Dim e As RequestEventArgs = args(0)
Dim wb As New weui
wb.InsertHTML("<img width='100%' src=' images/fwsk.jpg '/>")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","AddNew.htm")
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "点餐","", "AddNew.htm")
.Add("btn4", "浏览", "","list.htm")
.Add("btn4", "统计", "","")
.Add("btn5", "退出", "", "exit.htm")
End With
With wb.AddInputGroup("form1","ipg3","点餐类型")
.AddInput("早餐人数","<label style='font-size:18px'>早餐人数:</label>","number")
.AddInput("中餐人数","<label style='font-size:18px'>中餐人数:</label>","number")
.AddInput("晚餐人数","<label style='font-size:18px'>晚餐人数:</label>","number")
.AddInput("用餐日期","<label style='font-size:18px'>用餐日期:</label>","Date")
.AddInput("备注","<label style='font-size:18px'>备注:</label>","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"用餐日期"} '不能为空的列名数组
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" '必须返回
End If
Next
nms = New String() {"编号","小计","姓名","用餐日期","备注","登记日期","早餐人数","中餐人数","晚餐人数"}
Dim xm As String = DecryptText(e.Cookies("username"),"123","123")
Dim drs As List(of DataRow) = DataTables("点餐记录表").SQLSelect("姓名 = '" & xm & "'And 用餐日期 = '" & e.PostValues("用餐日期") & "'")
For Each dr2 As DataRow In drs
If dr2("早餐人数") > 0 And e.PostValues("早餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "今天已有早餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
End If
If dr2("中餐人数") > 0 And e.PostValues("中餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "今天已有中餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
Return ""
End If
If dr2("晚餐人数") > 0 And e.PostValues("晚餐人数") > 0 Then
wb.AppendHtml("<meta http-equiv='refresh' c>",True)
wb.AddToast("","t1", "今天已有晚餐数据,不能重复点餐!",1).Visible= True
e.WriteString(wb.Build)
Return ""
Return ""
End If
Next
Dim dr As DataRow = DataTables("点餐记录表").AddNew()
For Each nm As String In nms
If e.PostValues.ContainsKey(nm) Then
dr(nm) = e.PostValues(nm)
End If
Next
Dim dr1 As DataRow = DataTables("点餐价格").DataRows(0)
Dim zcxj As Double
Dim mcxj As Double
Dim wcxj As Double
If dr("早餐人数") > 0 Then
zcxj = (dr("早餐人数") - 1) * dr1("早餐家属单价") + dr1("早餐职工单价")
Else
zcxj = 0
End If
If dr("中餐人数") > 0 Then
mcxj = (dr("中餐人数") - 1) * dr1("中餐家属单价") + dr1("中餐职工单价")
Else
mcxj = 0
End If
If dr("晚餐人数") > 0 Then
wcxj = (dr("晚餐人数") - 1) * dr1("晚餐家属单价") + dr1("晚餐职工单价")
Else
wcxj = 0
End If
dr("小计") = zcxj + mcxj + wcxj
dr("登记日期") = Date.Now
dr("姓名") = DecryptText(e.Cookies("username"),"123","123")
dr.Save
wb.AddForm("","form1","AddNew.htm")
With wb.AddButtonGroup("form1","btg2",False)
.Add("btn1", "点餐","", "AddNew.htm")
.Add("btn4", "浏览", "","list.htm")
.Add("btn4", "统计", "","")
.Add("btn5", "退出", "", "exit.htm")
End With
With wb.AddMsgPage("","msgpage","增加成功", "感谢你的支持!") '生成成功提示页
.AddButton("btn1","继续增加","AddNew.htm")
End With
e.WriteString(wb.Build)
End If
加好友 
发短信
Post By：2017/8/29 23:23:00 [只看该作者]
此主题相关图片如下：微信图片_20170829232243.jpg