Case "ChangePassword4.htm" '二级订单修改密码
If e.postvalues.count = 0 Then
wb.AddPageTitle("","pageheader2","修改密码")
wb.AddForm("","form4","ChangePassword4.htm")
With wb.AddInputGroup("form4","ipg4")
.AddInput("txtname","请输入用户名","text").Value=Username
.AddInput("pwdold","请输入原密码","text")
.AddInput("pwdnew","请输入新密码","text")
End With
With wb.AddButtonGroup("form4","btg4",True)
.Add("btn4","确认修改","submit")
End With
Else
Dim txtname=e.PostValues("txtname")
Dim pwdold=e.PostValues("pwdold")
Dim pwdnew=e.PostValues("pwdnew")
Dim verified5 As Boolean
Dim p1 As List(of DataRow) = DataTables("贷款每日进度表1").SQLSelect("上二级归属仅录员工_上上级='" & txtname & "'")
For Each p As DataRow In p1
If p IsNot Nothing AndAlso p("上二级归属登录密码")=Pwdold Then
p("上二级归属登录密码")=Pwdnew
p.Save
'---数据同步
Dim dr1 As DataRow = DataTables("荣e享财务系统推送").Find("编号 = '" & p("编号") & "'")
If dr1 IsNot Nothing Then
dr1("上二级归属登录密码") = p("上二级归属登录密码")
End If
Dim dr2 As DataRow = DataTables("荣e享财务系统推送1").Find("编号 = '" & p("编号") & "'")
If dr2 IsNot Nothing Then
dr2("上二级归属登录密码") = p("上二级归属登录密码")
End If
Dim dr3 As DataRow = DataTables("荣e享财务系统推送2").Find("编号 = '" & p("编号") & "'")
If dr3 IsNot Nothing Then
dr3("上二级归属登录密码") = p("上二级归属登录密码")
End If
Dim dr4 As DataRow = DataTables("荣e享财务系统推送3").Find("编号 = '" & p("编号") & "'")
If dr4 IsNot Nothing Then
dr4("上二级归属登录密码") = p("上二级归属登录密码")
End If
verified5 = True
End If
Next
If verified5 = True Then
With wb.AddMsgPage("","msgpage","修改成功", "好好学习,天天向上") '生成成功提示页
.AddButton("btn1","返回","logon3.htm?fs=5")
End With
Else
With wb.AddMsgPage("","msgpage","修改失败", "账号或原密码不正确,请重新输入") '生成成功提示页
.icon = "Warn" '改变图标
.AddButton("btn1","返回").Attribute = ""
End With
End If
End If
e.WriteString(wb.Build)
Return
加好友 
发短信
Post By：2018/4/21 9:57:00 [只看该作者]
此主题相关图片如下：qq截图20180421094753.png
