使用内置窗口登陆默认输入 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Config

登录时使用下面代码获取验证通过

Dim dr As DataRow

dr = DataTables("用户表").Find("name = '" & UserName & "'")

If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then

Verified = True

End If

下面的网页里需要填入默认的姓名部门职位需要从 config 列获取

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Dim e As RequestEventArgs = args(0)'

For Each dr As DataRow In DataTables("订单总表").Select("阶段 = '4.安装阶段'","交货日期 Desc")

With wb.AddPreview("","pv" & dr("_Identify"),"客户信息",dr("楼盘") & dr("单元房号") & dr("用户姓名"))

请教下面代码

.AddItem("日期", dr("日期")) 为默认当前日期

.AddItem("姓名", dr("姓名")) 为默认登陆名

.AddItem("部门", dr("部门")) 从组获取 Group木作事业部PassWordEmIR5WBjrFGjO7SHZdBWwQ==Type2Role商务主管

.AddItem("职位", dr("职位")) 从角色获取 Group木作事业部PassWordEmIR5WBjrFGjO7SHZdBWwQ==Type2Role商务主管

设置为默认输入数据

.AddItem("用户电话",dr("用户电话"))

.AddItem("状态", dr("状态"))

.AddItem("楼盘",dr("楼盘"))

.AddItem("单元房号",dr("单元房号"))

.AddItem("报价金额",dr("报价金额"))

.AddItem("进度", dr("进度"))

.AddItem("交期时长",dr("交期时长"))

.AddItem("交货日期",dr("交货日期"))

.AddItem("运营周期",dr("运营周期"))

.AddItem("业务经理", dr("业务经理"))

.AddItem("深化设计", dr("深化设计"))

'.AddItem("软装设计", dr("软装设计"))

.AddItem("走完流程", dr("走完流程"))

.AddItem("待走流程", dr("待走流程"))

.Addbutton("点赞", "", 1, "")

End With

wb.AppendHTML(" ")

e.WriteString(wb.Build)

[此贴子已经被作者于2018/2/8 18:42:06编辑过]

参考代码

dim UserName as string = "管理员"
For Each u As UserInfo In users
    output.show(u.name)
    If u.name = username Then
        msgbox(u.group)
        msgbox(u.Roles)
    End If
Next

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Dim e As RequestEventArgs = args(0)'

wb.AddPageTitle("","pageheader","工作日志","艾迪尔国际家居")

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","gzrb.htm")

With wb.AddInputGroup("form1","ipg1","带 * 为必填项 ")

还是不会下面的获取代码

.AddInput("日期","填报日期*","date")

.AddInput("姓名","填报人*","Text") 自动获取登陆用户名

.AddInput("部门","所属部门*","Text") 自动获取登陆用户部门

.AddInput("岗位","所属部门*","Text") 自动获取登陆用户角色

End With

With wb.AddInputGroup("form1","ipg2","今日达成")

.AddTextArea("今日达成",5).Placeholder = "请输入您的工作达成日志 * "

.AddInput("营业收入","业绩收入","number")

.AddInput("今日支出","今日支出","number")

End With

With wb.AddInputGroup("form1","ipg3","明日计划")

.AddTextArea("明日计划",5).Placeholder = "请输入您的明日计划工作 * "

End With

With wb.AddInputGroup("form1","ipg4","工作建议")

.AddTextArea("工作建议",5).Placeholder = "请输入您的工作感想和建议我们会及时和您沟通"

End With

With wb.AddInputGroup("form1","ipg5","其他备注")

.AddTextArea("其他备注",5).Placeholder = "请输入:您的支出或是收入的备注方便记忆"

End With

With wb.AddInputGroup("form1","ipg6","重要资料请 tocasa@icwood.top 邮箱")

'.AddUploader("up1","客户资料",True) 'True表示允许上传多个文件

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

nms = New String() {"今日达成","明日计划","日期","姓名","营业收入","工作建议","今日支出" ,"部门","岗位"} '重新定义了nms数组,增加了两列.

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

dr.save()

wb.InsertHTML("我们收到您的日志: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

With wb.AddMsgPage("","msgpage","提交成功", "感谢您的付出,公司的辉煌离不开您的付出") '生成成功提示页

.AddButton("btn1","确认返回","icasa.htm")

End With

e.WriteString(wb.Build)

End If

'End Select

[此贴子已经被作者于2018/2/9 14:06:56编辑过]

[此贴子已经被作者于2018/2/9 14:11:07编辑过]

登陆的时候，根据username获取

dim UserName as string = "管理员"
For Each u As UserInfo In users
    output.show(u.name)
    If u.name = username Then
        msgbox(u.group)
        msgbox(u.Roles)
    End If
Next

用cookie存放group、roles等信息 http://www.foxtable.com/mobilehelp/scr/0042.htm

[此贴子已经被作者于2018/2/9 14:55:19编辑过]

dr = DataTables("用户表").Find("name = '" & UserName & "'")

If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then

Verified = True

For Each u As UserInfo In users
    output.show(u.name)
    If u.name = username Then
        msgbox(u.group)
        msgbox(u.Roles)
    End If
Next

End If

合成到这立面吗

在哪插入

'身份验证

Dim Verified As Boolean '用于标记用户是否通过了身份验证

Dim UserName As String = e.Cookies("username") '从cookie中获取用户名

Dim Password As String = e.Cookies("password") '从cookie中获取用户密码

If e.Path = "logon.htm" '如果是通过登录页面访问,从PostValues即可中提取用户名和密码

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

UserName = e.PostValues("username")

Password = e.PostValues("password")

End If

'Dim dr As DataRow 自定义窗口使用密码是明码

'dr = DataTables("用户表").Find("name = '" & UserName & "'")

'If dr IsNot Nothing AndAlso Password = dr("password") Then

'Verified = True

Dim dr As DataRow

dr = DataTables("用户表").Find("name = '" & UserName & "'")

If dr IsNot Nothing AndAlso dr("config").contains(MD5Encrypt(password)) Then

Verified = True

End If

'End If

If Verified AndAlso e.Path = "logon.htm" Then '如果用户访问的是登录页,且身份验证成功

wb.AppendCookie("username",UserName) '将用户名和密码写入cookie

wb.AppendCookie("password",Password)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

e.WriteString(wb.Build) '生成网页

Return '必须的

ElseIf Verified = False AndAlso e.Path <> "logon.htm" Then '如果用户身份验证失败,且访问的不是登录页面

wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面

e.WriteString(wb.Build) '生成网页

Return '必须的

End If

'开始生成网页

Select Case e.path

Case "logon.htm", "" '登录页面

wb.AddPageTitle("","pageheader","IDIR-CASA","TOCASA WUI OPEN")

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

还是插入到这个代码里

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Dim e As RequestEventArgs = args(0)'

wb.AddPageTitle("","pageheader","工作日志","艾迪尔国际家居")

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","gzrb.htm")

With wb.AddInputGroup("form1","ipg1","带 * 为必填项 ")

还是不会下面的获取代码

.AddInput("日期","填报日期*","date")

.AddInput("姓名","填报人*","Text") 自动获取登陆用户名

.AddInput("部门","所属部门*","Text") 自动获取登陆用户部门

.AddInput("岗位","所属部门*","Text") 自动获取登陆用户角色

End With

With wb.AddInputGroup("form1","ipg2","今日达成")

.AddTextArea("今日达成",5).Placeholder = "请输入您的工作达成日志 * "

.AddInput("营业收入","业绩收入","number")

.AddInput("今日支出","今日支出","number")

End With

With wb.AddInputGroup("form1","ipg3","明日计划")

.AddTextArea("明日计划",5).Placeholder = "请输入您的明日计划工作 * "

End With

With wb.AddInputGroup("form1","ipg4","工作建议")

.AddTextArea("工作建议",5).Placeholder = "请输入您的工作感想和建议我们会及时和您沟通"

End With

With wb.AddInputGroup("form1","ipg5","其他备注")

.AddTextArea("其他备注",5).Placeholder = "请输入:您的支出或是收入的备注方便记忆"

End With

With wb.AddInputGroup("form1","ipg6","重要资料请 tocasa@icwood.top 邮箱")

'.AddUploader("up1","客户资料",True) 'True表示允许上传多个文件

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

nms = New String() {"今日达成","明日计划","日期","姓名","营业收入","工作建议","今日支出" ,"部门","岗位"} '重新定义了nms数组,增加了两列.

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

dr.save()

wb.InsertHTML("我们收到您的日志: ")

For Each key As String In e.PostValues.Keys

wb.InsertHTML(key & ":" & e.PostValues(key) & " ")

With wb.AddMsgPage("","msgpage","提交成功", "感谢您的付出,公司的辉煌离不开您的付出") '生成成功提示页

.AddButton("btn1","确认返回","icasa.htm")

End With

e.WriteString(wb.Build)

End If

'End Select

脑子太笨了麻烦老师明示

[此贴子已经被作者于2018/2/9 14:57:21编辑过]

读出了所有的用户重叠没有部门和岗位显示

Dim wb As New WeUI '定义一个基于weui框架的网页生成器

Dim e As RequestEventArgs = args(0)'

wb.AddPageTitle("","pageheader","客户报备","艾迪尔国际家居")

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","xkf1.htm")

With wb.AddInputGroup("form1","ipg1","新客户报备( * 号为必填)")

For Each u As UserInfo In users

.AddInput("日期","建档日期*","date")

With .AddInput("报备人","报备人员","Text")

.value = u.name

.readonly = True

End With

If u.name = username Then

With .AddInput("部门","部门","Text")

.value = u.name

.readonly = True

End With

With .AddInput("岗位","岗位","Text")

.value = u.name

.readonly = True

End With

End If

With .AddInput("用户类型","用户类型","Text")

.value = "家居客户"

.readonly = True

End With

'.AddInput("来源备注","来源备注","Text")

'.AddInput("其他备注","其他备注","Text")

''.AddSwitch("上门客","上门客").Value = "True"

'.AddSwitch("上门客","上门客").Value = "True"

End With

此主题相关图片如下：微信截图_20180209151324.png

[此贴子已经被作者于2018/2/9 15:14:51编辑过]

主题：使用内置窗口登陆 默认输入

主题：使用内置窗口登陆默认输入