Dim e As RequestEventArgs = args(0)
Dim wb As New weui
'订单编辑
Dim pr As DataRow '订单
Dim srs,sjl,sxw,skh,sxl As List(of DataRow) '订单明细集合
Dim Page As Integer '页码变量
If e.GetValues.ContainsKey("page") Then '如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) '提取page参数
End If
If e.GetValues.ContainsKey("oid") = False Then '如果没有传递订单编号,则新增与一个订单
With wb.AddDialog("","dlg1", "提示","信息不存在!")
.AddButton("btnOK","确定").Attribute = """
End With '利用自定义函数GetOrderID为新增订单生成编号.
Else '如果传递了订单编号,则找出此订单进行编辑
pr = DataTables("员工花名册").SQLFind("身份证号='" & e.GetValues("oid") & "'")
If pr Is Nothing Then '多用户情况下,必须考虑其他用户删除订单的可能.
wb.InSertHtml("此人员信息已被其他用户删除!")
e.WriteString(wb.Build)
Return "" '必须返回
End If
srs = DataTables("员工简历").SQLSelect("身份证号='" & pr("身份证号") & "'",,"起始时间") '获取订单明细
End If
Dim url As String = "edit.htm?page=" & page & "&oid=" & pr("身份证号") '传递页码和订单编号
wb.AddForm("","form1",url)
With wb.AddInputGroup("form1","zp","")
With .AddUploader("up1","",True)
.AllowAdd = False '关闭文件上传功能
.AddImage("./ftp/照片/" & pr("身份证号") & "照片.jpg")
End With
End With
With wb.AddInputGroup("form1","ipg1",iif(e.GetValues.ContainsKey("oid"),"员工信息","员工信息"))
With .AddInput("学历","学历","text")
.Value = pr("学历")
.Readonly = True
End With
End With
'员工简历
With wb.AddInputGroup("form1","ygjl","工作经历")
End With
If e.GetValues.ContainsKey("oid") AndAlso srs.count > 0 Then '如果不是新增订单,且订单明细行数大于0,则生成订单明细表格.
With wb.AddTable("form1","detailTable") '为了区分,明细表的名字设为detailTable
.head.AddRow("期间","单位","岗位")
.ActiveSheet = "menu" '指定菜单
If srs IsNot Nothing Then
For Each sr As DataRow In srs
Dim yy,mm,dd As String
yy = sr("起始时间").Year
mm = Format(sr("起始时间").Month,"00")
dd = yy & "." & mm
Dim yy1,mm1,dd1 As String
If sr.IsNull("终止时间") Then
dd1 = "至今"
Else
yy1 = sr("终止时间").Year
mm1 = Format(sr("终止时间").Month,"00")
dd1 = yy1 & "." & mm1
End If
With .Body.AddRow( dd & "-" & dd1,sr("单位"),sr("岗位"))
.Primarykey = sr("_Identify") '为此行指定主键值
End With
Next
End If
End With
End If
wb.AppendHTML("<script src='./lib/order.js'></script>") '引入脚本文件
e.WriteString(wb.Build) '生成网页
[此贴子已经被作者于2018/5/23 19:18:50编辑过]
加好友 
发短信
Post By：2018/5/23 18:18:00 [显示全部帖子]
