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

老师这个贴子，移动端签字的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

. ......

找到了，后面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

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)

[此贴子已经被作者于2023/12/1 9:03:32编辑过]

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

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编辑过]

<b style="color: red">请上方写字签名。</b>

</p>

<!--[if lt IE 9]>

<![endif]-->

Case "shujushenhe.htm" '数据审核

Functions.Execute("shujushenhe", e)

在请教一下老师，签字哪儿高度有点小，我调试应该是根据不同设备自动调整高度的，但是js函数里面没找到在哪儿调整，有点像flashcanvas里面1086行位置，但是把高度调整为120%无效果

此主题相关图片如下：1111.jpg

下载信息 [文件大小：下载次数： ]
点击浏览该文件:flashcanvas.txt

下载信息 [文件大小：下载次数： ]
点击浏览该文件:jsignature.min.txt

[此贴子已经被作者于2023/12/1 11:35:33编辑过]

在请教老师，不是用的二进制列，签名数据是存的转码后的字符串，在生成报时，先把字符串转码为图片，在引用图片，word报表中，怎么引用签名的图片。

比如这样转码后图片是正常的，怎么生成报表：

Dim tm As String = ProjectPath & "Attachments\测试报表.doc" '指定模板文件

Dim fl1 As String = ProjectPath & "Reports\测试报表.doc" '指定目标文件

Dim fl2 As String = ProjectPath & "Reports\测试报表.pdf" '指定目标PDF文件

Dim wrt As New WordReport(Tables("审核示例表"), tm, fl1) '定义一个WordReport

Dim r As Row = Tables("审核示例表").Current

Dim s1 As String = r("签字数据")

Dim s2 As String

s2 = s1.SubString(17)

Dim bs As Byte() = Convert.FromBase64String(s2)

Dim stream As System.IO.Stream = New System.IO.MemoryStream(bs)

Dim bmp As System.Drawing.Bitmap = New System.Drawing.Bitmap(stream)

'Dim pbx As WinForm.PictureBox = Forms("窗口1").Controls("PictureBox1")

'pbx.Image = bmp

wrt.Replace("[签字照片]", 这个位置该怎么引用) '用代码替换制单人

wrt.BuildOne(r)

wrt.SaveToPdf(fl2) '保存为PDF适用

wrt.Quit() '退出

Dim Proc As New Process '打开PDF文件适用

Proc.File = fl2 'PDF文件适用

Proc.Start() 'PDF文件适用

[此贴子已经被作者于2023/12/1 13:36:04编辑过]

请老师看看我那个代码该怎么写保存到本地？保存到本地后怎么引用，因为涉及多人的签字，还不能重复，谢谢！

[此贴子已经被作者于2023/12/1 13:52:26编辑过]

主题：移动端签字