Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
共17 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题：移动端签字
1楼
cd_tdh 发表于：2023/11/30 9:36:00
老师这个贴子，移动端签字的js该怎么引用呢？
分享一个手写签字功能，有需要的可以根据自己情况修改 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!
    ......
    With .AddInputCell("ic4") '通过InputCell增加输入框
        .AddLabel("lsj", "手机", 0) '增加标签,0显示在左边
        .AddInput("sj", "text", 1) '增加输入框,1表示显示在中间
        .AddVcodeButton("hym", "获取验证码", 2) '增加获取验证码按钮,2表示显示在右边
    End With
    With wb.AddInputGroup("form1", "ipg2", "签字确认")
        wb.InsertHTML("</div>")
        wb.AppendHTML("<script src='./qz/flashcanvas.js'></script>") '引入脚本文件
        wb.AppendHTML("<script src='./qz/jquery-2.0.3.min.js'></script>") '引入脚本文件
        wb.AppendHTML("<script src='./qz/jSignature.min.js'></script>") '引入脚本文件
        wb.AppendHTML("<script src='./qz/qz.js'></script>") '引入脚本文件
        wb.AppendHTML("<script>initExWeUI();</script>")
        wb.InsertHTML("<style>.exui-scrollview{margin-bottom: 50px;}</style>") '设置距离底边的距离,避免遮挡
        e.WriteString(wb.Build)
    End With
 . ......
2楼
有点蓝 发表于：2023/11/30 9:45:00
贴出完整代码
3楼
cd_tdh 发表于：2023/11/30 10:40:00
找到了，后面Case我注释的代码怎么写到一个内部函数里面呢
Dim e As RequestEventArgs = args(0)
Dim wb As New weui
Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")
wb.AddForm("", "form1", "test.htm")
With wb.AddInputGroup("form1", "page1", "基本资料")
    .AddInput("xm", "姓名", "text") '常规语法增加输入框
    With .AddInputCell("ic1") '通过InputCell增加输入框
        .AddLabel("lnl", "年龄", 0) '增加标签,0显示在左边
        .AddInput("nl", "number", 1) '增加输入框,1表示显示在中间
    End With
    With .AddInputCell("ic2", 1) '通过InputCell增加输入框,1表示突出显示
        .AddLabel("lkh", "卡号", 0) '增加标签,0显示在左边
        .AddInput("kh", "number", 1).PlaceHolder = "请输入卡号" '增加输入框,1表示显示在中间
    End With
    With .AddInputCell("ic3", 2) '通过InputCell增加输入框, 2表示突出显示(含图标)
        .AddLabel("lmm", "密码", 0) '增加标签,0显示在左边
        .AddInput("mm", "text", 1).PlaceHolder = "请输入密码" '增加输入框,1表示显示在中间
    End With
    With wb.AddButtonGroup("form1", "page2", False)
        wb.InsertHTML(div)
        .Add("reset", "重写", "button")
        .Add("yes", "确定", "submit").FormAction = "qzb.htm"
    End With
    With wb.AddInputGroup("form1", "page3", "签字确认")
        .AddHiddenValue("qzxx", "")
        wb.InsertHTML("<div id='someelement'></div>")
    End With
End With
e.WriteString(wb.Build) '生成网页



'    Case "qzb.htm"
'        Dim qzxxs As String = e.Values("qzxx")
'        Dim fsj As String = "姓名:" & e.Values("xm") & " 年龄:" & e.Values("nl") & " 卡号:" & e.Values("kh") & " 密码:" & e.Values("mm") & " 手机:" & e.Values("sj") & " 电话:" & e.Values("sh")
'        If qzxxs.StartsWith("image/png;base64") And qzxxs.Length > 50 Then
'            With wb.AddToast("", "t1", "提交成功!", 0)
'                .Msec = 1000
'                .Icon = "success"
'            End With
'            With wb.AddArticle("", "page1")
'                .AddImage("data:" & e.Values("qzxx"))
'                .AddContent("确认时间" & Date.Now)
'            End With
'            Dim j As DataRow = DataTables("签字记录").AddNew
'            j("签字数据") = e.Values("qzxx")
'            j("签字日期") = Date.Now
'            j("提交信息") = fsj
'            j.Save
'        Else
'            wb.AddPageTitle("", "ph2", "提交失败", "无签名数据!")
'            With wb.AddToast("", "t2", "无签名数据" & Chr(13) & Chr(10) & "提交失败!", 0)
'                .Msec = 1000
'                .Icon = "warn"
'            End With
'        End If
'        e.WriteString(wb.Build)
4楼
有点蓝 发表于：2023/11/30 10:49:00
http://www.foxtable.com/mobilehelp/topics/0025.htm
5楼
cd_tdh 发表于：2023/11/30 12:44:00


[此贴子已经被作者于2023/12/1 9:03:32编辑过]
6楼
cd_tdh 发表于：2023/12/1 9:05:00
Dim e As Object = args(0)
Dim wb As New WeUI '定义一个基于weui框架的网页生成器
Dim dr As DataRow = DataTables("审核示例表").SQLFind("ID = '123456789'")
If dr IsNot Nothing Then '如果找到的话
    S elect Case e.Path
        Case "shujushenhe.htm"
            Dim div As String = FileSys.ReadAllText(ProjectPath & "\qz.txt")
            wb.AddForm("", "form1", "qzb.html")
            With wb.AddInputGroup("form1", "ipg1", "审批信息")
                With .AddInput("id", "ID", "text") '常规语法增加输入框
                    .Value = dr("ID")
                    .Readonly = True
                End With
                With .AddInput("xmmc", "项目名称", "text") '常规语法增加输入框
                    .Value = dr("项目名称")
                    .Readonly = True
                End With
            End With
            With wb.AddButtonGroup("form1", "btg1", False)
                wb.InsertHTML(div)
                .Add("reset", "重写", "button")
                .Add("yes", "确定", "submit").FormAction = "qzb.htm"
            End With
            With wb.AddInputGroup("form1", "ipg2", "签字确认")
                .AddHiddenValue("qzxx", "")
                wb.InsertHTML("<div id='someelement'></div>")
            End With
            e.WriteString(wb.Build) '生成网页
        Case "qzb.htm"
            Dim qzxxs As String = e.Values("qzxx")
            If qzxxs.StartsWith("image/png;base64") And qzxxs.Length > 50 Then
                With wb.AddToast("", "t1", "提交成功!", 0)
                    .Msec = 1000
                    .Icon = "success"
                End With
                With wb.AddArticle("", "page1")
                    .AddImage("data:" & e.Values("qzxx"))
                    .AddContent("确认时间" & Date.Now)
                End With
                dr("签字数据") = e.Values("qzxx")
                dr("审核日期") = Date.Now
                dr.Save
            Else
                wb.AddPageTitle("", "ph2", "提交失败", "无签名数据!")
                With wb.AddToast("", "t2", "无签名数据" & Chr(13) & Chr(10) & "提交失败!", 0)
                    .Msec = 1000
                    .Icon = "warn"
                End With
            End If
            With wb.AddButtonGroup("form1", "btg1", False)
                .Add("reset", "重写", "button")
                .Add("yes", "确定", "submit")
            End With
            e.WriteString(wb.Build)
    End S elect
end if

shujushenhe内部函数全部代码如上：
确定后，跳转到：qzb.htm页面，是空白的。
他后面的qzb这个逻辑没看懂，我就想签字确定后，把签字数据保存到后台数据表，提示审核完成就行了
[此贴子已经被作者于2023/12/1 9:06:44编辑过]
7楼
有点蓝 发表于：2023/12/1 9:28:00
外部是怎么调用这个函数的？
8楼
cd_tdh 发表于：2023/12/1 9:39:00
<div id="signature"></div>
    <p style="text-align: center">
        <b style="color: red">请上方写字签名。</b>
    </p>
    

    <!--  <div id="someelement"></div> -->
    <script src="/qz/jquery-2.0.3.min.js"></script>
    <!--[if lt IE 9]>
        <script src="flashcanvas.js"></script>
    <![endif]-->
    <script src="/qz/jSignature.min.js"></script>
   <script> $("#signature").jSignature({'UndoButton':true});  // 初始化jSignature插件. </script>

  <script src="/qz/qz.js"></script>

9楼
有点蓝 发表于：2023/12/1 9:47:00
httprequest是怎么调用shujushenhe内部函数的？
10楼
cd_tdh 发表于：2023/12/1 9:49:00
    Case "shujushenhe.htm" '数据审核
        Functions.Execute("shujushenhe", e)
共17 条记录, 每页显示 10 条, 页签: [1] [2]
Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03125 s, 2 queries.