[求助]关于保存到sql表的js代码之类的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

此主题相关图片如下：tim截图20200407155936.png

Dim e As RequestEventArgs = args(0)

Select Case e.Path

Case "w001.htm"

Dim wb As New weui

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

wb.AddPage("","page3",False) '第二个

wb.AddPage("","page4",False) '第二个

wb.AddForm("page1","form1","w001.htm")

With wb.AddInputGroup("form1","ipg1","当前时间")

With .AddInput("xm","日期时间","text")

.Value = Date.Now

.Readonly = True

End With

With wb.AddArticle("form1","ar1")

.AddTitle("h1","每日下班通知")

.AddContent("请各位班长检查好门窗设备和灯,切断电源.处理好5s的各项工作,再进行确认.")

.AddImage("./Images/ghmc.jpg")

End With

With wb.AddButtonGroup("form1","btg1")

.Add("btn1", "我已确认", "button").Attribute="""

.Add("btn1", "记录问题", "button").Attribute="""

End With

With wb.AddArticle("page2","ar2")

.AddTitle("h1","已保存!")

.AddContent("下班路上,注意安全.谢谢")

.AddImage("./images/zyaq.jpg")

End With

'With wb.AddArticle("page3","ar3")

wb.AddForm("page3","form12","w001.htm")

With wb.AddInputGroup("form12","ipg11","文件上传")

With.AddInput("xm","内容:","text")

End With

With .AddUploader("up128","照片",True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

End With

With wb.AddButtonGroup("form12","")

.Add("btn1", "确定", "button").Attribute= "" '调用js函数上传

End With

wb.AddToast("","tst1", "正在上传",1)

wb.AddToast("","tst2", "上传成功",0)

wb.AddToast("","tst3", "上传失败",0).Icon= "warn"

wb.AppendHTML("<script> " & vars("w0001") & " </script>") '引入脚本文件

'wb.AddForm("page4","form123","w001.htm")

'For Each key As String In e.Files.Keys

'For Each fln As String In e.Files(key)

'e.SaveFile(key,fln,"e:\web\uploadfiles\" & fln) '保存接收到的文件

'Next

'e.WriteString("OK")

End With

e.WriteString(wb.Build) '生成网页

End Select

目前还没有实现的功能是，1 在同一个页面用过js代码把数据保存到sql表里面点一下我已确认检查的四项都显示ok 如果有问题直接在备注写入文本和配上照片保存到sql表里面。希望老师指点一下上面想实现的功能。

此主题相关图片如下：tim截图20200407160538.png

还有点我已经确认的时候当时的系统时间也要一并保存到表里。

设计过程：

1、在"d:\web"目录下，建立一个子目录lib，在这个目录建立一个文本文件，文件名为"ajaxform.js"，文件内容为：

function submitForm(){
    show("tst1",2000);
    var result = submitAjaxForm('form1','afterSubmit');
}

function afterSubmit(result){
    hide("tst1");
    if (result=='OK') {
        show("tst2");
        location="upload.htm";
    }
    else{
        show("tst3",2000);
    }
}

2、同一个网页里所有控件iD都不能相同和重复

With wb.AddButtonGroup("form1","btg1")

.Add("btn1", "我已确认", "button").Attribute="""

.Add("btn1", "记录问题", "button").Attribute="""

End With

3、如果是在函数里面，这种判断代码完全没有必要，多余的

Select Case e.Path

Case "w001.htm"

4、

Dim e As RequestEventArgs = args(0)

If e.PostValues.Count = 0 Then

1楼原来的代码

else

‘保存的代码，参考：http://www.foxtable.com/mobilehelp/topics/0059.htm

endif

谢谢老师有问题再向您提问。

老师想问一下，在page1 想要显示时间和 sql表里姓名和车间两个。用什么控件来显示比较合适，代码改如何修改

Dim e As RequestEventArgs = args(0)

Dim cmd As New S*LCommand

Dim dt1 As DataTable

cmd.C '记得设置数据源名称

cmd.CommandText = "Se*ect Count(*) From {车间检查记录表}"

dt1 = cmd.ExecuteReader()

Dim wb As New weui

wb.AddPage("","page1") '增加两个page

wb.AddPage("","page2",False) '第二个

wb.AddPage("","page3",False) '第二个

wb.AddPage("","page4",False) '第二个

wb.AddForm("page1","form1","w001.htm")

With wb.AddInputGroup("form1","ipg1","当前时间")

With .AddInput("xm","日期时间","text")

.Value = Date.Now

.Readonly = True

'With wb.AddInputGroup("form1","ipg1","当前时间")

'With .AddInput("xm","日期时间","text")

'.Value = Date.Now

'.Readonly = True

''With .AddInput("xm","姓名","text")

''.Value = dt1.GetValues("姓名")

''.Readonly = True

'End With

End With

此主题相关图片如下：tim截图20200408123918.png

主题：[求助]关于保存到sql表的js代码之类的问题