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


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

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

帅哥哟,离线,有人找我吗?
李孝春
  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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望: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


 回到顶部