Foxtable(狐表) → 用户栏目 → 专家坐堂 → 移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？


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

主题：移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？  发帖心情 Post By：2020/2/21 23:32:00 [只看该作者]

移动开发中 怎么实现输入成员姓名 就自动从表中查找出身份证号 联系电话进行赋值呢？

在基础信息表中   有成员姓名   身份证号  联系电话  成员关系字段及值
如何实现在页面中，如果成员姓名框输入张三之后  对应的身份证号  联系电话 成员关系就自动从基础信息表中对应张三的值，不用用户再次输入了。

 With wb.AddInputGroup("form1","ipg121","家庭成员1信息登记")
                    .AddInput("成员姓名1","成员姓名","Text")
                    .AddSelect("成员关系1","成员关系","|配偶|儿子|女儿|父亲|母亲|爷爷|奶奶|外公|外婆|其他")
                    .AddInput("身份证号1","身份证号","text")
                    .AddInput("联系电话1","联系电话","number")
                End With
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/22 9:01:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）参考：http://www.foxtable.com/mobi...  发帖心情 Post By：2020/2/22 10:11:00 [只看该作者]

js  是否不支持中文字符（因为我表字段名是中文，所以采用了字段为中文写法）？运行后没有自动赋值
js代码
Function getbanzhurenxingming(){
var result= submitAjaxFileds('getbanzhurenxingming.htm','','学校名称','年级','班级',false);
If(result){
var vals=result.split("|");
If(vals.length==1){
document.getElementById("班主任姓名").value=vals[0];
}
}
}
Function getxuesheng(){
var result= submitAjaxFileds('getxuesheng.htm','','学校','年级','班级','学生姓名',false);
If(result){
var vals=result.split("|");
If(vals.length==3){
document.getElementById("现居住地").value=vals[0];
document.getElementById("班主任姓名").value=vals[1];
document.getElementById("居住类型").value=vals[2];
}
}
}

使用页面代码
            With wb.AddInputGroup("form1","ipg1","【一】基本信息")
                .AddSelect("学校","*所在学校*","|瓮安五中|瓮安八中|瓮安九中")
                .AddSelect("年级","所在年级*","|一年级|二年级|三年级|四年级|五年级|六年级|七年级|八年级|九年级")
                With.AddSelect("班级","*所在班级*","|1班|2班|3班|4班|5班|6班|7班|8班|9班|10班|11班|12班|13班|14班|15班")
                .Attrib ute = "oncha nge='getbanzhurenxingming()'" '调用js函数
            End With

                .AddInput("班主任姓名","班主任名*","text")
                .AddInput("学生姓名","*学生姓名*","text").Attrib ute = "oncha nge='getxuesheng()'" '调用js函数
                .AddSelect("与学生关系","人员关系*","|学生本人|学生父亲|学生母亲|学生爷爷|学生奶奶|学生外婆|学生外公|学生兄妹|其它亲戚")
                .AddInput("亲属姓名","*登记姓名*","text")
                .AddSelect("性别","选择性别","|男|女")
                .AddInput("身份证号","身份证号*","text")
                .AddInput("联系电话","联系电话*","number")
                .AddInput("户籍地址","户籍地址","text")
                .AddInput("现居住地","现居住地*","text")
                .AddS


getxuesheng.htm页面代码
 Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "getxuesheng.htm"
        
Dim dr As DataRow = DataTables("学生信息登记").Find("学校='" & e.Values("学校") & "' and 年级='" & e.values("年级") & "'and 班级='" & e.values("班级") & "' and 学生姓名='" & e.values("学生姓名") & "'")
        If dr IsNot Nothing Then
           e.WriteString(dr("现居住地") & "|" & dr("班主任姓名") & "|" & dr("居住类型"))
        End If
end select

getbanzhurenxinming.htm页面代码
 Dim e As RequestEventArgs = args(0)
Select Case e.Path
    Case "getbanzhurenxingming.htm"
Dim dr As DataRow = DataTables("班级表").Find("学校='" & e.Values("学校") & "' and 年级='" & e.values("年级") & "'and 班级='" & e.values("班级") & "'")
        If dr IsNot Nothing Then
           e.WriteString(dr("班主任姓名"))
        End If
end select
[此贴子已经被作者于2020/2/22 10:21:24编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/22 10:30:00 [只看该作者]

不要使用记事本创建和编辑js文件，会有编码问题。下载vscode、editplus、sublime等等编辑器使用

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）不要使用记事本创建和编辑js文件，会...  发帖心情 Post By：2020/2/22 11:05:00 [只看该作者]

使用sublime编辑  依然是一样的  运行还是没有能够自动赋值  不知道是哪里写错了

 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		回复：（有点蓝）不要使用记事本创建和编辑js文件，会...  发帖心情 Post By：2020/2/22 11:14:00 [只看该作者]

    是不是必须按照帮助教程  下面黑色加粗部分  必须写上，由province得到county值，然后再把province、county的值传入到js 进行区号 编号的获取     
        With wb.AddInputGroup("form1","ipg1","自动输入")
            With .AddSelect("province","省市","|"+DataTables("行政区域").GetComboListString("省市"))
                .Att ribute = "oncha nge=""setAja xOptions('county','getCounties.htm','province',false)"""
            End With
            With .AddSelect("county","县","")
                .Attribute = "onchange='setCodes()'" '调用js函数
            End With从
            .AddInput("areacode","区号","text")
            .AddInput("postcode","邮编","text")
        End With
[此贴子已经被作者于2020/2/22 11:14:50编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/22 11:31:00 [只看该作者]

1、控件使用ID，不是名称

var result= submitAjaxFileds('getbanzhurenxingming.htm','','学校','年级','班级',false);

.AddSelect("学校","*所在学校*","|瓮安五中|瓮安八中|瓮安九中")

AddSelect(ID, Label, Values)

ID输入框ID。
Label在输入框左侧显示的标签内容
2、另外已经提醒过，没有必要在函数里面在再使用这种判断，在httprequest事件判断即可，外部已经判断，里面再判断纯属多余，影响性能
Select Case e.Path
    Case "getbanzhurenxingming.htm"

3、和6楼那个没有关系，引用js文件了吗？

4、学会调试

Function getbanzhurenxingming(){
alert('能不能弹出');
var result= submitAjaxFileds('getbanzhurenxingming.htm','','学校名称','年级','班级',false);
alert(result); //能不能弹出
If(result){
var vals=result.split("|");
If(vals.length==1){
alert(document.getElementById("班主任姓名").); //能不能弹出
document.getElementById("班主任姓名").value=vals[0];
}
}
}


Dim dr As DataRow = DataTables("班级表").Find("学校='" & e.Values("学校") & "' and 年级='" & e.values("年级") & "'and 班级='" & e.values("班级") & "'")
msgbox(dr IsNot Nothing)
        If dr IsNot Nothing Then
msgbox(dr("班主任姓名"))
           e.WriteString(dr("班主任姓名"))
        End If
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05469 秒, 4 次数据查询