Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim e As RequestEventArgs = args(0)'
wb.AddPageTitle("","pageheader","用户注册","艾迪尔国际家居")
If e.PostValues.Count = 0 Then
wb.AddForm("","form1","立项事件.htm")
With wb.AddInputGroup("form1","ipg1","带 * 为必填项 ")
.AddInput("日期","注册日期*","date")
.AddInput("Name","用户姓名*","Text")
.AddInput("Config","用户部门*","Text") 怎么在Config写入组
.AddInput("Config","用户岗位*","Text") 怎么 在Config写入角色
.AddInput("Config","用户密码*","Text") 怎么在 Config写入密码
.AddInput("上级","直接上级*","Text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
e.WriteString(wb.Build)
Else
Dim nms() As String = {"日期","Name","Config"} '不能为空的列名数组
For Each nm1 As String In nms
If e.PostValues.ContainsKey(nm1) = False Then '生成错误提示页
With wb.AddMsgPage("","msgpage","增加失败", nm1 & "列不能为空!")
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return "" '必须返回
End If
Next
nms = New String() {"Name","Type","Config","上级","日期"} '重新定义了nms数组,增加了两列.
Dim dr As DataRow = DataTables("用户表").AddNew()
For Each nm1 As String In nms
If e.PostValues.ContainsKey(nm1) Then
dr(nm1) = e.PostValues(nm1)
End If
Next
dr.save()
wb.InsertHTML("我们注册信息如下 :<br/>")
For Each key As String In e.PostValues.Keys
wb.InsertHTML(key & ":" & e.PostValues(key) & "<br/>")
Next
'''
With wb.AddMsgPage("","msgpage","提交成功", "您可以登陆使用了") '生成成功提示页
.AddButton("btn1","立即登陆","")
End With
e.WriteString(wb.Build)
End If
'End Select
[此贴子已经被作者于2018/2/9 19:32:00编辑过]
加好友 
发短信
Post By：2018/2/9 19:32:00 [只看该作者]
