专家坐堂-addinput输入焦点问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  addinput输入焦点问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=173280)

--  作者：xubing051018
--  发布时间：2021/11/22 17:52:00
--  addinput输入焦点问题
按照帮助的例子在练习网页开发的addinput
实际测试运行时，文本框没有输入焦点是怎么回事？
测试的例子中，只有用户登录的文本框有输入焦点，其他都没有。

--  作者：有点蓝
--  发布时间：2021/11/22 20:06:00
--
写了什么代码？没有输入焦点是指没有办法输入内容？

--  作者：xubing051018
--  发布时间：2021/11/24 9:04:00
--

Dim frs As List(of String) = DataTables("tb_Order").GetValues("OrderID","Status = \'1\'")
With wb.AddInputGroup("form1","ipg1","扫描车架号")
.AddSelect("订单号","订单号",String.Join("|",frs.ToArray))
.AddInput("车架号","车架号","Text")
End With

在iphone上用Hbulid模拟app测试运行的时候，点击车架号这个text输入框，没有输入光标，但是可以输入一个字符，不能连续输入，
需要重新点击下输入框，才能继续输入，每次只能输入一个字符。

但是同样的代码
With wb.AddInputGroup("form1","ipg1")
.AddInput("username","账号","text")
.AddInput("password","密码","password")
End With

登录界面里，账号，密码输入框是可以看到输入光标，也是可以正常连续输入字符。
搞不清什么问题。

--  作者：有点蓝
--  发布时间：2021/11/24 9:10:00
--
不要使用Hbulid打包，直接在手机使用浏览器，或者微信打开网页，能不能正常输入？

--  作者：xubing051018
--  发布时间：2021/11/24 10:02:00
--
用iphone的自带浏览器打开网址，也是一样。登录界面的账号，密码可以正常输入。
其他的text的input就是没有输入光标，一次只能输入一个字符

--  作者：有点蓝
--  发布时间：2021/11/24 10:42:00
--
使用pc浏览器测试有没有问题？安卓手机测试有没有问题？

--  作者：xubing051018
--  发布时间：2021/11/24 13:53:00
--
试了下，chrome浏览器里运行倒是没问题，正常输入。

--  作者：有点蓝
--  发布时间：2021/11/24 13:59:00
--
贴出完整代码看看。

正常应该是有什么事件干扰了

--  作者：xubing051018
--  发布时间：2021/11/24 18:14:00
--

httprequest代码：只有登录页的文本框有输入焦点。其他页面的文本输入框无焦点。

Dim path As String = "foxtableAppTest"

Dim wb As New weui

\'身份验证
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
End If

If UserName = "001" AndAlso Password = "999"
Verified = True
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","首页","")
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.AddInputGroup("form1","ipg12")
.AddInput("扫码号","扫码号","text")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "登录", "submit")
End With
Case "", "default.htm" \'首页
wb.DeleteCookie("ScanGp")
wb.AddPageTitle("","pageheader","首页","")
With wb.AddGrid("","g1")
.Add("c1","车架扫码", "./images/scan.png", "scan.htm") \'车架扫码页面
.Add("c2","Dialog", "./images/dev.png").Attribute = ""
.Add("c3","Progress", "./images/dev.png").Attribute = ""
.Add("c4","Panel", "./images/dev.png").Attribute = ""
.Add("c5","Tab", "./images/dev.png").Attribute = """
.Add("c6","退出", "./images/exit.png", "exit.htm") \'退出登录
End With
wb.AddToast("","t3","页面待开发",0).Icon = "info"
wb.AddProgress("","t4",False,20)
With wb.AddDialog("","dlg1", "","")
.AddButton("btnOK","确定")
End With
Case "scan.htm"
If e.Cookies.ContainsKey("ScanGp")
Else
wb.AppendCookie("ScanGp",Format(Date.Today,"yyyyMMdd") & Rand.NextString(6))
End If

With wb.AddTabBar("", "tb1", 0)
.AddPage("page1","扫码","./images/scan.png")
.AddPage("page2","清单","./images/list.png")
.AddPage("page3","轨迹","./images/track.png")
.AddPage("page4","设置","./images/order.png")
.AddButton("bt1","返回","./images/exit.png","default.htm")
End With

wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)
wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/ajaxform.js\'></script>", True)

\'第一个页面,车架扫码
wb.AddForm("page1","form1","addcode.htm")

Dim frs As List(of String) = DataTables("tb_Order").GetValues("OrderID","Status = \'1\'")

With wb.AddInputGroup("form1","ipg1","扫描号")
.AddSelect("扫码事件","扫码事件","11.正常入库|40.正常出库")
.AddSelect("订单号","订单号",String.Join("|",frs.ToArray))
.AddInput("扫码号","扫码号","Text")
End With
With wb.AddInputGroup("form1","ipg13")
.AddInput("username","账号","text")
.AddInput("password","密码","password")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""
End With
With wb.AddButtonGroup("form1","btg2",False)
\'.Add("btn3","提交","button").Attribute = ""
\'.Add("btn2", "返回", "button").Attribute = ""
.Add("btn2", "返回", "button","default.htm")
End With
wb.InsertHTML("form1","<div id=\'p2\' style=\'margin:0.5em\'></div>") \'插入一个div,用于显示服务器返回的页面


\'wb.InsertHTML("<script>function scaned( t, r, f ) {plus.nativeUI.alert(\'扫描返回的信息如:\\n编码:\' + t + \'\\n内容:\' + r + \'\\n图片存放路径(在手机端):\' + f);}</script>")
wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'扫码号\').value=r;addcode();}</script>")
\'wb.InsertHTML("<script>function scaned( t, r, f ) {document.form1.submit();}</script>")


Case "exit.htm" \'退出登录
wb.DeleteCookie("username") \'清除cookie中原来的用户名和密码
wb.DeleteCookie("password")
wb.InsertHTML("<meta http-equiv=\'Refresh\' c>") \'那么直接跳转到登录页面
End Select
e.WriteString(wb.Build) \'生成网页

--  作者：xubing051018
--  发布时间：2021/11/25 9:01:00
--
我测试了下，貌似找到个影响因素。
wb.AppendHTML("<script type=\'text/javascript\' src=\'/" & path & "/js/common.js\'></script>", True)
wb.AppendHTML("<link rel=\'stylesheet\' href=\'/" & path & "/css/common.css\' Type=\'text/css\' charset=\'utf-8\'/>", True)

页面里有上面的代码，就是不行，
把上面的代码拿掉，测试就正常了，有输入光标。