HBuider扫码与submitAjaxFileds - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Select Case e.path

Case "prod.htm"

Dim wb As new weui

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)

wb.AddForm("","form1","prod.htm")

With wb.AddInputGroup("form1","ipg1","现场盘点")

Dim UserName As String = e.Cookies("username") '从cookie中获取用户名

Dim Val3 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候

Dim Val4 As Date = Date.today

.AddHiddenValue("date",Val4)

.AddHiddenValue("statistics",Val3)

' .AddInput("图号","图号","Text")

With .AddInput("code","图号","")

.Attribute = "" '调用js函数

End With

.AddInput("product","名称","Text")

.AddInput("classify","类别","Text")

.AddInput("number","数量","Number")

.AddInput("remarks","备注","Text")

End With

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

.Add("btn1", "确定", "submit")

.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""

.Add("btn1", "返回", "button").Attribute = ""

End With

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;}</script>")

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

e.WriteString(wb.Build)

Case "getCodes.htm"

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim mt As New Date(y, m, 1)

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cr As DataRow

cmd.C

cmd.CommandText = "Select * Fr　om {期初表} Where 日期 = #" & mt & "# "

dt = cmd.ExecuteReader

Dim dr As DataRow = dt.Find("零件图号='" & e.Values("code") & "'")

If dr IsNot Nothing Then

e.WriteString(dr("零件名称") & "|" & dr("备注"))

End If

End Select

---------------------

手动输入图号有效，扫二维输入图号没有动静，如何触发？

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('code').value=r;onchange='setCodes()'}</script>")

是这么用onchang吗？但是还是没有动静

哦，好了，又学会一招，谢谢。

为什么setCodes()放到项目里就触发不了呢？单个网页是可以，通过登记页面进入主页，再进入下一页面就失效了，控件那里手动input编码也没动静

Select Case e.path

Case "prod.htm"

Dim wb As new weui

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

If e.PostValues.Count = 0 Then　.................

引入了呀

直接测试prod.htm这个页面正常的，套进主页就不行

Dim e As RequestEventArgs = args(0)

Dim path As String = "foxtableAppTest"

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",".txt"

e.WriteFile(fl)

Return "" '这里必须返回

End Select

End If

Select Case e.path

Case "prod.htm"

Dim wb As new weui

wb.AppendHTML("<script type='text/javascript' src='/" & path & "/js/common.js'></script>", True)

wb.AppendHTML("<link rel='stylesheet' href='/" & path & "/css/common.css' Type='text/css' charset='utf-8'/>", True)

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

If e.PostValues.Count = 0 Then

wb.AddForm("","form1","prod.htm")

With wb.AddInputGroup("form1","ipg1","现场盘点")

Dim UserName As String = e.Cookies("username") '从cookie中获取用户名

Dim Val1 As String = DecryptText(UserName,"123","123") '解密,两个密钥必须和加密的时候

Dim Val2 As Date = Date.today

.AddHiddenValue("统计员",Val1)

.AddHiddenValue("日期",Val2)

With .AddInput("图号","图号","")

.Attribute = "" '调用js函数

End With

.AddInput("名称","名称","Text")

.AddInput("类别","类别","Text")

.AddInput("数量","数量","Number")

.AddInput("备注","备注","Text")

End With

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

.Add("btn1", "确定", "submit")

.Add("btn1", "扫一扫", "button").Attribute = " & path & "/plus/barcode_scan.html',true,true);"""

.Add("btn1", "返回", "button").Attribute = ""

End With

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById('图号').value=r;setCodes();}</script>")

e.WriteString(wb.Build)

' msgbox(th) '这里弹出什么内容

Else

Dim nms() As String = {"图号","名称","类别","数量"} '不能为空的列名数组

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) = False Then '生成错误提示页

With wb.AddMsgPage("","msgpage","增加失败", nm & "列不能为空!")

.icon = "Warn" '改变图标

.AddButton("btn1","返回").Attribute = ""

End With

e.WriteString(wb.Build)

Return "" '必须返回

End If

nms = New String() {"统计员","日期","图号","名称","类别","数量","备注"} '重新定义了nms数组,增加了两列.

Dim dr As DataRow = DataTables("生产盘点表").AddNew()

For Each nm As String In nms

If e.PostValues.ContainsKey(nm) Then

dr(nm) = e.PostValues(nm)

End If

'保存并生成增加成功提示页面

dr.save()

With wb.AddMsgPage("","msgpage","增加成功","谢谢!") '生成成功提示页

.AddButton("btn1","继续增加","prod.htm")

End With

e.WriteString(wb.Build)

End If

Case "getCodes.htm" '根据输入的省和县,获取区号有邮编

Dim y As Integer = Date.Today.Year

Dim m As Integer = Date.Today.Month

Dim mt As New Date(y, m, 1)

Dim cmd As New SQLCommand

Dim dt As DataTable

Dim cr As DataRow

cmd.C

cmd.CommandText = "Select * Fr　om {期初表} Where 日期 = #" & mt & "# "

dt = cmd.ExecuteReader

Dim dr As DataRow = dt.Find("零件图号='" & e.Values("图号") & "'")

If dr IsNot Nothing Then

e.WriteString(dr("零件名称") & "|" & dr("备注"))

End If

End Select

Dim e As RequestEventArgs = args(0)

Static UserTable As DataTable '定义一个变量,用于存储用户随机身份ID,以及最后一次活动时间.

Static ClearTime As Date

If UserTable Is Nothing Then '创建用于记录登录信息的临时表

ClearTime = Date.Now()

Dim dtb As New DataTableBuilder("UserInfos")

dtb.AddDef("UserName", Gettype(String), 16)

dtb.AddDef("UserID",Gettype(String),16)

dtb.AddDef("ActiveTime",Gettype(Date))

UserTable = dtb.Build(True)

End If

If (Date.Now - ClearTime).TotalMinutes >= 30 Then '清除超过30分钟没有操作的登录信息

UserTable.DeleteFor("ActiveTime < #" & Date.Now.AddMinutes(-30) & "#")

ClearTime = Date.Now()

End If

Dim wb As New weui

'身份验证

Dim UserName As String

Dim Password As String

Dim UserID As String

Dim UID As String

If e.Path = "logon.htm" '验证用户名和密码

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

Dim Verified As Boolean '用于标记用户是否通过了身份验证

UserName = e.PostValues("username")

Password = e.PostValues("password")

'验证用户身份

Dim cmd As New SQLCommand

Dim dt As DataTable

cmd.C

cmd.CommandText = "Select * Fr　om {员工表} Where [员工姓名] = '" & UserName & "' And [密码] = '" & Password & "'"

dt = cmd.ExecuteReader

If dt.DataRows.Count = 1 Then

Verified = True

Dim dr0 As DataRow = dt.DataRows(0)

UID = dr0("员工编号")

End If

If Verified Then

UserID = Rand.NextString(16) '生成随机用户ID

UserName = EncryptText(UserName,"123","123") '将用户名加密.

Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")

If dr IsNot Nothing Then '如果是重复登录,删除以前的登录信息

dr.Delete()

End If

dr = UserTable.AddNew()

dr("UserName") = UserName

dr("UserID") = UserId

dr("ActiveTime") = Date.Now '记录登录时间

wb.AppendCookie("username",UserName) '将用户名和密码写入cookie

wb.AppendCookie("userid",UserID)

wb.AppendCookie("uid",UID)

wb.InsertHTML("<meta http-equiv='Refresh' c>") '直接跳转到首页

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

Return "" '必须的

End If

Else '其它页面从Cookie提取登录信息进行验证

UserName = e.Cookies("username") '从cookie中获取用户名

UserID = e.Cookies("userid") '从cookie中获取随机ID

Dim dr As DataRow = UserTable.Find("UserName = '" & UserName & "'")

If dr IsNot Nothing AndAlso dr("UserID") = UserID Then '如果通过验证,更新活动时候,继续访问其它页面.

dr("ActiveTime") = Date.Now '更新活动时间

Else '如果验证失败

wb.InsertHTML("<meta http-equiv='Refresh' c>") '那么直接跳转到登录页面

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

Return "" '必须的

End If

'开始生成网页

Select Case e.path

Case "logon.htm" '登录页面

wb.AddPageTitle("","pageheader","管理系统","")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then '判断是否是验证失败后的重新登录

wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 '如果用户通过登录按钮访问,则给用户一个2秒的提示.

End If

wb.AddForm("","form1","logon.htm")

With wb.AddInputGroup("form1","ipg1")

.AddInput("username","户名","text")

.AddInput("password","密码","password")

End With

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

.Add("btn1", "登录", "submit")

End With

Case "exit.htm" '退出登录

wb.DeleteCookie("username") '清除cookie中原来的用户名和密码

wb.DeleteCookie("password")

wb.DeleteCookie("uid")

wb.InsertHTML("<meta http-equiv='Refresh' c>") '然后直接跳转到登录页面

Case "car.htm"

Functions.Execute("车辆管理",e)

Return "" '必须的

Case "drive.htm"

Functions.Execute("用车登记",e)

Return "" '必须的

Case "gas.html"

Functions.Execute("油卡登记",e)

Return "" '必须的

Case "prod.htm"

Functions.Execute("盘点sc",e)

Return "" '必须的

Case "", "default.html" '首页

With wb.AddTabBar("", "tb1", 1)

' .AddButton("bt1","返回","./images/button.png").Attribute = ""

.AddPage("page1","","./images/button.png")

.AddButton("bt2","盘点","./images/cell.png","/prod.htm")

.AddButton("bt3","退出系统","./images/cell.png","/exit.htm")

.AddButton("bt4","车辆管理","./images/cell.png","/car.htm")

End With

With wb.AddGrid("page1","g1")

UID = e.Cookies("uid") '从cookie中获取用户ID

Dim cmd1 As New SQLCommand

Dim dt1 As DataTable

cmd1.C

cmd1.CommandText = "Select * Fr　om {权限明细} Where [用户ID] = '"& UID &"'"

dt1 = cmd1.ExecuteReader

For Each dr As DataRow In dt1.datarows

.Add(dr("序号"),dr("模块名称"),dr("模块图标"),"")

End With

Case "filter.htm"

Functions.Execute("Filter",e)

Return "" '必须的

Case "list.htm"

Functions.Execute("List",e)

Return "" '必须的

Case "tongji.htm"

Functions.Execute("Statistics",e)

Return "" '必须的

End Select

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

有一个warning

此主题相关图片如下：qq截图20181020154517.png

主题：HBuider扫码与submitAjaxFileds