Foxtable(狐表)用户栏目专家坐堂 → 原始用户表移动版 注册


  共有2822人关注过本帖树形打印复制链接

主题:原始用户表移动版 注册

帅哥哟,离线,有人找我吗?
yifan3429
  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/11 2:31:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180211023044.png
图片点击可在新窗口打开查看

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","带 * 为必填项 ")
        With .AddInput("日期","注册日期*","date")
            .Value = Date.Today
        End With
        .AddInput("Name","用户姓名*","Text")
        .AddInput("group","用户部门*","text")
        .AddInput("role","用户岗位*","Text")
        .AddInput("password","用户密码*","Text")
        .AddInput("店面","城市*","Text")
        .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
    
    If DataTables("用户表").Find("Name='" & e.PostValues("Name") & "'") IsNot Nothing Then
        With wb.AddMsgPage("","msgpage2","您已经注册!", "请联系管理员重置密码......")
            .icon = "Warn" '改变图标
            .AddButton("btn2","返回").Attribute = ""
        End With
        e.WriteString(wb.Build)
        Return" " '必须返回
    End If
    
    Dim name As String = e.values("name")
    Dim group As String = e.values("group")
    Dim password As String = e.values("password")
    Dim role As String = e.values("role")
    Dim ndr As DataRow = DataTables("用户表").AddNew
    ndr("config") = "Group" & chr(11) & group & chr(11) & "PassWord" & chr(11) & MD5Encrypt(password) & chr(11) & "Type" & chr(11) & "2" & chr(11) & "Role" & chr(11) & role
    
    '我还需要写入 店面 上级 日期 列内容
    e.WriteString("ok")
    
    
    ndr.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","立即登陆","logon.htm")
    End With
    e.WriteString(wb.Build)
End If
'End Select
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180211023011.png
图片点击可在新窗口打开查看
[此贴子已经被作者于2018/2/11 2:32:18编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/11 10:25:00 [只看该作者]

ndr("店面")  = e.values("店面")

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/11 16:13:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180211161216.png
图片点击可在新窗口打开查看

不知哪里出了错 
填写完整 
 还是报警错误
图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20180211161208.png
图片点击可在新窗口打开查看

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","带 * 为必填项 ")
        With .AddInput("日期","注册日期*","date")
            .Value = Date.Today
        End With
        .AddInput("Name","用户姓名*","Text")
        .AddInput("group","用户部门*","text")
        .AddInput("role","用户岗位*","Text")
        .AddInput("password","用户密码*","Text")
        .AddInput("店面","城市*","Text")
        .AddInput("上级","直接上级*","Text")
    End With
    
    With wb.AddButtonGroup("form1","btg1",True)
        .Add("btn1", "确定", "submit")
    End With
    e.WriteString(wb.Build)
Else
    Dim nms() As String = {"日期","Config","Name","上级","店面"} '不能为空的列名数组
    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
    
    If DataTables("用户表").Find("Name='" & e.PostValues("Name") & "'") IsNot Nothing Then
        With wb.AddMsgPage("","msgpage2","您已经注册!", "请联系管理员重置密码......")
            .icon = "Warn" '改变图标
            .AddButton("btn2","返回").Attribute = ""
        End With
        e.WriteString(wb.Build)
        Return" " '必须返回
    End If
    
    Dim name As String = e.values("name")
    Dim group As String = e.values("group")
    Dim password As String = e.values("password")
    Dim role As String = e.values("role")
    Dim ndr As DataRow = DataTables("用户表").AddNew
    ndr("config") = "Group" & chr(11) & group & chr(11) & "PassWord" & chr(11) & MD5Encrypt(password) & chr(11) & "Type" & chr(11) & "2" & chr(11) & "Role" & chr(11) & role
    ndr("name")  = e.values("name")
    ndr("店面")  = e.values("店面")
    ndr("上级")  = e.values("上级")
    ndr("日期")  = e.values("日期")
    '我还需要写入 店面 上级 日期 列内容
    e.WriteString("ok")
    
    
    ndr.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","立即登陆","logon.htm")
    End With
    e.WriteString(wb.Build)
End If
'End Select
[此贴子已经被作者于2018/2/11 16:43:54编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/11 16:26:00 [只看该作者]

注意id的大小写:http://www.foxtable.com/mobilehelp/scr/0045.htm

ID输入框ID,注意生成网页时,WeUI会自动将所有ID转换为小写,例如"Table1"或转换为"table1",今后不再重复提示,大家请自行留意。

 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/11 16:46:00 [只看该作者]

不是这个代码问题  还是逻辑问题  Config  不能为空  前面需要注入识别  但是我没搞懂怎么写

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/11 16:48:00 [只看该作者]

就是14楼的问题,有好好理解帮助的意思了么

Dim nms() As String = {"日期","config","name","上级","店面"}

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 8:51:00 [只看该作者]

Dim nms() As String = {"日期","Config","Name","上级","店面"} '不能为空的列名数组

 

把config删除,改成 group、password、role 等。


 回到顶部
帅哥哟,离线,有人找我吗?
yifan3429
  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2437 积分:22520 威望:0 精华:0 注册:2011/3/29 17:14:00
  发帖心情 Post By:2018/2/12 15:37:00 [只看该作者]

通过移动注册欧克了  但是在数据库可以看到新注册的用户  在系统默认的用户管理里面看不到。有办法吗


还需要增加一个,修改密码的网页  有参考吗
[此贴子已经被作者于2018/2/12 15:37:41编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105473 积分:536350 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/2/12 16:29:00 [只看该作者]

只能用自定义的用户管理,无法在使用系统默认的用户管理。

修改密码的网页就做3个输入框:旧密码,新密码,确认新密码,后台先核对旧密码再更新新密码即可

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/2/12 17:03:00 [只看该作者]

以下是引用yifan3429在2018/2/12 15:37:00的发言:
通过移动注册欧克了  但是在数据库可以看到新注册的用户  在系统默认的用户管理里面看不到。有办法吗


还需要增加一个,修改密码的网页  有参考吗
[此贴子已经被作者于2018/2/12 15:37:41编辑过]

 

数据库那里,对比一下和别的正常的数据有没有什么不同。如果你把不正常的config替换成正常的config,能否正常显示?


 回到顶部
总数 22 上一页 1 2 3 下一页