- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 移动端数据查询提示问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=185094)
-- 发布时间：2023/2/3 13:55:00
-- 移动端数据查询提示问题
老师，好久没做移动端页面了，忘记得差不多了，请教一下我在Zhenweicx页面输入查询类别及查询码，点击查询，没有输入数据点击查询时，没有显示提示信息是哪儿不对呢？
js函数valid1代码如下：
function valid1(){
var v1 = document.getElementById("cxlb").value;
var v2 = document.getElementById("cxm").value;
if (v1 && v2){return true}
show("toptip1",2000);
return false;
}
Zhenweicx页面代码如下：
Dim e As Object = args(0)
If e.PostValues.Count = 0 Then
Dim wb As New weui
wb.AddTopTips("", "toptip1", "查询类别,查询码均不能为空!")
wb.AddForm("", "form1", "Zhenweicx_Filter.htm").Attribute = "on submit=\'return valid1()\'" \'调用valid1函数
With wb.AddInputGroup("form1", "ipg1", "数据查询") \'ParentID 父容器的ID,如果是顶层对象,设置为""即可. ID 分组ID. Text 可选参数,用于指定分组标题.
.AddSelect("cxlb", "查询类别", "介绍信|授权委托书")
.AddInput("cxm", "查 询 码", "text").Placeholder = "请输入查询码" \'增加输入框,1表示显示在中间 \'增加输入框,1表示显示在中间)
End With
wb.AppendHTML("<script src=\'./lib/valid1.js\'></script>") \'引入valid1脚本文件
wb.InsertHTML("<div style=\'height:50px\'></div>")
wb.AddPage("form1", "page1").Attribute = "style=\'position: fixed;bottom: 0;right: 0;left: 0\'"
With wb.AddButtonGroup("page1", "btg1", False)
.Add("btn1", "首页", "", "default.htm")
.Add("btn2", "查询", "submit")
End With
e.WriteString(wb.Build)
Else
Dim sb As New StringBuilder
sb.AppendLine("<meta name=\'viewport\' c>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "</br>")
Next
e.WriteString(sb.ToString)
End If
[此贴子已经被作者于2023/2/3 13:58:27编辑过]
-- 发布时间：2023/2/3 14:05:00
--
上面代码我测试没有问题哦
-- 发布时间：2023/2/3 14:32:00
--
谷歌浏览器里面调试器测试不行呢，没输入数据就直接跳转到新网页了。
Zhenweicx_filter页面代码如下：
Dim e As Object = args(0)
Dim wb As New weui
wb.AddForm("", "form1", "Zhenweicx_filter.htm")
If e.PostValues("cxlb") = "介绍信" Then
Dim dr As DataRow = DataTables("介绍信管理").SQLFind("查询码= \'" & e.PostValues("cxm") & "\'")
If dr IsNot Nothing Then
wb.AddPageTitle("form1", dr("查询码"), "介绍信信息")
wb.InsertHTML("<style>.fox_page_header{background-color: DarkGray;}</style>") \'设置页面颜色
wb.InsertHTML("<style>.fox_page_title{color:red;font-size:15px;font-weight:bold;line-height:0.5}</style>") \'设置项目信息化管理系统字体颜色,字体大小,加粗,行距black
With wb.AddInputGroup("form1", "ipg1", "介绍信信息")
With .AddInput("介绍信编号", "编  号", "text")
.Value = dr("介绍信编号")
.Readonly = True
End With
With .AddInput("所属机构", "所属机构", "text")
.Value = dr("所属机构")
.Readonly = True
End With
...........
With .AddInput("有效期", "有效期", "text")
.Value = dr("有效期")
.Readonly = True
End With
End With
End With
wb.InsertHTML("<div style=\'height:50px\'></div>")
wb.AddPage("form1", "page1").Attribute = "style=\'position: fixed;bottom: 0;right: 0;left: 0\'"
With wb.AddButtonGroup("page1", "btg1", False)
.Add("btn1", "首页", "", "default.htm")
.Add("btn2", "返回", "", "Zhenweicx.htm")
End With
e.WriteString(wb.Build)
Else
With wb.AddMsgPage("", "msgpage", "查询完成", "没有查询到相关数据!")
.icon = "info" \'改变图标"success","info","warn",对应的图标分别是
.AddButton("btn1", "返回").Attribute = ""
End With
e.WriteString(wb.Build)
Return Nothing \'必须返回
End If
End If
[此贴子已经被作者于2023/2/3 14:39:45编辑过]
-- 发布时间：2023/2/3 14:39:00
--
我使用谷歌浏览器测试也没有问题哦。做个例子发上来测试一下
-- 发布时间：2023/2/3 14:53:00
--
测试项目
admin
123456
工作台 - 真伪查询
倒数第7、8两个内部函数
[此贴子已经被作者于2023/2/3 15:49:46编辑过]
-- 发布时间：2023/2/3 15:02:00
--
做前端学会使用浏览器开发者工具
此主题相关图片如下：1.png
-- 发布时间：2023/2/3 15:05:00
--
js函数名称都是一致的啊
-- 发布时间：2023/2/3 15:11:00
--
肯定不一样
-- 发布时间：2023/2/3 15:32:00
--
还请老师核对一下，我反复核对名称是一样的，有数据也能查出来，但就是为空的时候不提示
-- 发布时间：2023/2/3 15:34:00
--
自行使用使用浏览器开发者工具查看。开发者工具是不会骗人的