以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  移动开发中,有没有办法实现当表彰类别等于不同类别的时候 对应显示或隐藏部分内容?  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=160435)

--  作者:cnsjroom
--  发布时间:2021/2/2 16:05:00
--  移动开发中,有没有办法实现当表彰类别等于不同类别的时候 对应显示或隐藏部分内容?
            移动开发中,有没有办法实现当表彰类别等于不同类别的时候 对应显示或隐藏部分内容?


            If e.PostValues("表彰类别")="个人表彰" Then
                .AddInput("姓名","姓名","text")
                .AddSelect("性别","性别","|男|女")
                .AddInput("所在部门","所在部门","text")
                .AddInput("所任职务","所任职务","text")
            Else  If e.PostValues("表彰类别")="集体表彰" Then
                .AddInput("部门名称","部门名称","text")
            End If

--  作者:有点蓝
--  发布时间:2021/2/2 16:13:00
--  
onchange事件处理,比如:http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=154088&skin=0
--  作者:cnsjroom
--  发布时间:2021/2/2 16:58:00
--  回复:(有点蓝)到onchange事件处理,比如:http://w...
我当前在系统中创建了js表 有两个字段 一个是name一个是js代码

当前写入了name:test
              js代码:(这个部分的代码写法是否正确呢?)
Function xianshi(){
   var gj=document.getElementById("表彰类别").value;
If(gj=="个人表彰")
 {
 alert("提示信息!"); 
 document.getElementById("姓名").value = "";
 document.getElementById("性别").value = "";
document.getElementById("所在部门").value = "";
 document.getElementById("所任职务").value = "";
 document.getELementById("姓名").disabled=true;
 document.getELementById("性别").disabled=true;
document.getELementById("所在部门").disabled=true;
 document.getELementById("所任职务").disabled=true;}
Else
 {alert("集体表彰"); 
 document.getElementById("部门名称").value = 0;
 document.getELementById("部门名称").disabled=true;}
}



然后保存为变量
Vars(Tables("js").Current("name")) = Tables("js").Current("js代码")


页面代码为:(是否正确?)
 With wb.AddInputGroup("form1","ipg1","内容信息")
            .AddInput("单位名称","单位名称*","text").Placeholder =e.Cookies("单位名称")
            With .AddSelect("表彰类别","表彰类别*","|个人表彰|集体表彰" )
                .Attr ibute = "onch ange=\'xianshi()\'"
            End With
            .AddInput("获奖名称","获奖名称","text")
            .AddInput("授奖单位名称","授奖单位","text")
            .AddInput("获奖时间","获奖时间","date")
            .AddInput("登记时间","登记时间","date")
        End With


那么在页面中如何进行引用呢?下面的语句如何变通实现引用对应的变量js代码呢?
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
[此贴子已经被作者于2021/2/2 17:02:18编辑过]

--  作者:有点蓝
--  发布时间:2021/2/2 17:13:00
--  
js是大小写敏感的,不要在foxtable代码编辑器里编辑js
--  作者:cnsjroom
--  发布时间:2021/2/2 17:43:00
--  回复:(有点蓝)js是大小写敏感的,不要在foxtable代...
直接在记事本里面编辑的 且放置在项目\\Attachments\\web\\lib下的
但是系统没有进行弹窗提示
 下载信息  [文件大小:   下载次数: ]
点击浏览该文件:ajaxform.zip


如果我要采用三楼的那表创建方式 
那么在页面中如何进行引用呢?下面的语句如何变通实现引用对应的变量js代码呢?
wb.AppendHTML("<script src=\'./lib/ajaxform.js\'></script>") \'引入脚本文件
[此贴子已经被作者于2021/2/2 18:07:23编辑过]

--  作者:有点蓝
--  发布时间:2021/2/2 20:10:00
--  
都说js是大小写敏感的,function、if、else都必须是小写的,基础的东西建议先上网稍微学习一下。

wb.AppendHTML("<script>" & Vars(Tables("js").Current("name")) & "</script>") 

--  作者:cnsjroom
--  发布时间:2021/2/3 9:55:00
--  
js名称test
function xianshi(){
   var gj=document.getElementById("表彰类别").value;
if(gj=="个人表彰")
 {
 alert("提示信息!"); 
 document.getElementById("姓名").value = "";
 document.getElementById("性别").value = "";
document.getElementById("所在部门").value = "";
 document.getElementById("所任职务").value = "";
 document.getELementById("姓名").disabled=true;
 document.getELementById("性别").disabled=true;
document.getELementById("所在部门").disabled=true;
 document.getELementById("所任职务").disabled=true;}
else
 {alert("集体表彰"); 
 document.getElementById("部门名称").value = 0;
 document.getELementById("部门名称").disabled=true;}
}



页面代码:
Dim wb As New weui
Dim vals As String
Dim cmd111 As New S QLCommand
cmd111.Conne cti \'记得设置数据源名称
cmd111.Comm andText = "Sele ct * From {表彰}"
Dim dt As DataTable = cmd111.ExecuteReader
If Functions.Execute("yanzheng",e) = 1 \'获取验证不能使用异步函数,必须等待并获取验证结果
    If e.PostValues.Count = 0 Then
        wb.AddPageTitle("","ph1","表彰登记")
        wb.AddForm("","form1","addbiaozhang.htm")
        wb.AddTopTips("","toptip1","请输入单位名称和支部名称!")
        With wb.AddInputGroup("form1","ipg1","内容信息")
            .AddInput("单位名称","单位名称*","text").Placeholder =e.Cookies("单位名称")
            .AddSelect("表彰类别","表彰类别*","|个人表彰|集体表彰" ).Attribute = "oncha nge=\'xianshi()\'"
            .AddInput("获奖名称","获奖名称","text")
            .AddInput("授奖单位名称","授奖单位","text")
            .AddInput("获奖时间","获奖时间","date")
            .AddInput("登记时间","登记时间","date")
        End With
        With wb.AddButtonGroup("form1","btg1",False)
            .Add("btn1", "确定更新", "submit")
            .Add("btn2", "取消更新", "submit").FormAction = "default.htm"
        End With
        e.WriteString(wb.Build) \'生成网页
    Else
        With wb.AddMsgPage("","msgpage","添加学习内容成功", "好好学习,天天向上") \'生成成功提示页
            .AddButton("btn1","继续添加","addbiaozhang.htm")
            .AddButton("btn11","取消添加","default.htm")
        End With
        wb.AppendHTML("<script>" & vars("test") & "</script>")
        e.WriteString(wb.Build)
    End If
End If


output.Show("<script>" & vars("test") & "</script>")
输出结果为:
<script>function xianshi(){
   var gj=document.getElementById("表彰类别").value;
if(gj=="个人表彰")
 {
 alert("提示信息!"); 
 document.getElementById("姓名").value = "";
 document.getElementById("性别").value = "";
document.getElementById("所在部门").value = "";
 document.getElementById("所任职务").value = "";
 document.getELementById("姓名").disabled=true;
 document.getELementById("性别").disabled=true;
document.getELementById("所在部门").disabled=true;
 document.getELementById("所任职务").disabled=true;}
else
 {alert("集体表彰"); 
 document.getElementById("部门名称").value = 0;
 document.getELementById("部门名称").disabled=true;}
}</script>


上述页面运行时,选择个人表彰或集体表彰之后页面并未新增姓名 性别  所在部门  所任职务 或部门名称的显示

图片点击可在新窗口打开查看此主题相关图片如下:12121.gif
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/2/3 9:58:00
--  
按F12打开浏览器开发者工具自行调试js:https://www.baidu.com/baidu?word=%E6%B5%8F%E8%A7%88%E5%99%A8%E5%BC%80%E5%8F%91%E8%80%85%E5%B7%A5%E5%85%B7
--  作者:cnsjroom
--  发布时间:2021/2/3 12:07:00
--  回复:(有点蓝)按F12打开浏览器开发者工具自行调试j...
调试可以弹出提示信息
但是没有对应对相应的页面标签进行显示或隐藏
当前js代码如下:

function xianshi(){
   var gj=document.getElementById("表彰类别").value;
if(gj=="个人表彰")
 {
 alert("提示信息!"); 
document.getElementById("部门名称").style.display="none";
 document.getElementById("姓名").style.display="inline";
 document.getElementById("性别").style.display="inline";
document.getElementById("所在部门").style.display="inline";
 document.getElementById("所任职务").style.display="inline";}
else
 {alert("集体表彰"); 
 document.getElementById("部门名称").style.display="inline";
document.getElementById("姓名").style.display="none";
 document.getElementById("性别").style.display="none";
document.getElementById("所在部门").style.display="none";
 document.getElementById("所任职务").style.display="none";}
}
[此贴子已经被作者于2021/2/3 13:01:15编辑过]

--  作者:有点蓝
--  发布时间:2021/2/3 13:50:00
--  
不存在"部门名称"、"姓名"这些ID的控件