专家坐堂-在foxtable中如何引用其它的框架,jqueryFoxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在foxtable中如何引用其它的框架,jquery  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=97824)

--  作者：ycwk
--  发布时间：2017/3/19 9:28:00
--  在foxtable中如何引用其它的框架,jquery
我套用了一个其它的网站的UI，放在D:\\web\\xdf, 框架显示都没有问题，不知道是否可以用它的框架显示类似weui 中的网页？
下面这段代码怎么改？

\'通用事件头,用于发送已经存在的常见文件
Dim fl As String = "d:\\web\\" & e.path
If filesys.FileExists(fl)
    Dim idx As Integer = fl.LastIndexOf(".")
    Dim ext As String = fl.SubString(idx)
    Select Case ext
        Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"
            e.WriteFile(fl)
            Return \'这里必须返回
    End Select
End If
\'以下是动态生成网页的代码
Select Case e.Path
    Case "addnew.htm"
        Dim wb As New WeUI \'定义一个基于weui框架的网页生成器
        wb.AddForm("","form1","addnew.htm")
        With wb.AddInputGroup("form1","ipg1","新增订单")
            .AddSelect("cp","产品","PD01|PD02|PD03|PD04|PD05")
            .AddInput("gy","雇员","text")
            .AddInput("kh","客户","text")
            .AddInput("dj","单价","number")
            .AddInput("zk","折扣","number")
            .AddInput("sl","数量","number")
            .AddInput("rq","日期","date")
        End With
        With wb.AddButtonGroup("form1","btg1",True)
            .Add("btnok","确定")
        End With
        e.WriteString(wb.Build) \'生成网页
End Select

--  作者：ycwk
--  发布时间：2017/3/19 12:59:00
--
如果我放弃weui 框架，而使用jquery框架，貌似页面内的元素都不能动态生成了，只能使用静态的html页面,那提交到数据库的代码该如何写？能否给个例子？

--  作者：ycwk
--  发布时间：2017/3/19 13:20:00
--
是要在javascript 的脚本中，增加提交到操作数据库的代码吗？能给个示例吗？

--  作者：ycwk
--  发布时间：2017/3/19 13:29:00
--
http://www.foxtable.com/mobilehelp/scr/0026.htm 用这个示例？

--  作者：ycwk
--  发布时间：2017/3/19 16:38:00
--

新建了一个test.htm 页面，点击按钮，把数据提交到test1.htm
在httprequest事件中，写如下代码：
为什么弹出undefined的页面？好像没有数据提交?e.plaintext为空
Case "xdf\\test1.htm"
msgbox(e.PlainText) \'点击按钮后，可以弹出，但内容为空，不知何故
Dim sb As New StringBuilder
sb.AppendLine("通过GET方式提交的数据:<br/><br/>")
For Each key As String In e.GetValues.Keys
sb.AppendLine(key & ":" & e.GetValues(key) & "<br/>")
Next
sb.AppendLine("<br/><br/>通过POST方式提交的数据:<br/><br/>")
For Each key As String In e.PostValues.Keys
sb.AppendLine(key & ":" & e.PostValues(key) & "<br/>")
Next
e.WriteString(sb.ToString)

下面是test.htm 的代码
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<meta name="viewport" c />
<title>测试</title>
<link rel="stylesheet" href="ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css" />
<link rel="stylesheet" href="../img/main.css" />
<script src="ajax/libs/jquery/1.7.1/jquery.min.js"></script>
<script src="ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js"></script>
<script src="scripts/main.js"></script>
</head>
<body>

<body>

<div data-role="page">
<div data-role="content">
<form action=\'test1.htm\' enctype=\'multipart/form-data\' method=\'post\' id=\'form1\' name=\'form1\'>
<p>
<label for="fname">产品：</label>
<input type="text" name="fname1" id="cp">
</p>
<p>
<label for="fname">客户：</label>
<input type="text" name="fname2" id="kh">
</p>
<p>
<label for="fname">雇员：</label>
<input type="text" name="fname3" id="gy">
<input type="submit" data-inline="true" value="提交">
</p>
</form>
</div>
</div>

</body>
</html>

[此贴子已经被作者于2017/3/19 16:38:48编辑过]

--  作者：ycwk
--  发布时间：2017/3/20 8:38:00
--
能回答一下吗？

--  作者：ycwk
--  发布时间：2017/3/20 9:33:00
--
跪求指导

--  作者：有点色
--  发布时间：2017/3/20 9:40:00
--

把你的js文件，都放到web文件夹下。

然后页面引用对应的js即可。

--  作者：有点色
--  发布时间：2017/3/20 9:45:00
--
e.PlainText 空白的问题，你的事form的提交，直接用 e.xxxValues 获取提交的数据。

--  作者：ycwk
--  发布时间：2017/3/20 9:52:00
--
引用了 WeUI 框架，由于该框架配色，排版不符合整体风格，能不能在附加一些jquery 的样式？我试了下，有些是可以的，有些不行？比如：

这样是可以的。
Dim wb As New weui
wb.AppendHTML("<link rel=\'stylesheet\' href=\'xdf/ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.css\'/>",True) \'引入样式文件,参数True表示添加到head区
wb.AppendHTML("<link rel=\'stylesheet\' href=\'xdf/img/main.css\'/>",True) \'引入样式文伯
wb.AppendHTML("<script src=\'xdf/ajax/libs/jquery/1.7.1/jquery.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'xdf/ajax/jquery.mobile/1.1.1/jquery.mobile-1.1.1.min.js\'></script>",True) \'引入jquery
wb.AppendHTML("<script src=\'xdf/scripts/main.js\'></script>",True) \'引入jquery
wb.AppendHTML("<div data-theme=\'g\' data-role=\'header\' data-position=\'fixed\'><h1>服务满意度调查</h1></div>") \'页眉
wb.AppendHTML("<div data-theme=\'g\' data-role=\'footer\' data-position=\'fixed\'><h3>咨询电话:****</h3></div>") \'页脚

但下面的wb.appendHTML代码无法生效
If e.PostValues.Count = 0 Then \'生成增加调查表网页
wb.AddForm("","form1","SatisSurvey.htm")

With wb.AddRadioGroup("form1","q1","应用软件功能是否满足业务需要?")
wb.AppendHTML("<fieldset data-role=\'controlgroup\' data-Type=\'horizontal\'>") \'不起效果

.Add("a1","是").Value="是" \'第一个"是" 是界面输入提示, 第二个"是"是往数据库存的值
.Add("a2","否").Value="否"
wb.AppendHTML("</fieldset>")
End With