Select Case e.Path
Case "test.htm"
Dim wb As New weui
Dim xgqx As Boolean
wb.InsertHTML("<style>.fox_page_title{color:white}</style>")
wb.InsertHTML("<style>.fox_page_subtitle{color:white;}</style>")
wb.InsertHTML("<style>.fox_page_header{background-color:dodgerblue;}</style>")
wb.InsertHTML("<style>.weui_label{color:dodgerblue;}</style>")
wb.InsertHTML("<style>h5,p{margin:8px 16px;}</style>")
wb.AddPageTitle("","ph1","学生信息审核","仔细审核各项信息后确认审核结果提交")
wb.AddForm("","form1","bzrshxsxxsave.htm") '.Attribute = ""
With wb.AddInputGroup("form1","ipg1","")
Dim In11 = .AddInput("姓名","学生姓名:","text")
In11.readonly=True
Dim In12 = .AddInput("身份证号","身份证号:","text")
In12.readonly=True
Dim In22 = .AddInput("学籍号","学籍号码:","text")
In22.readonly=True
Dim In7 = .AddInput("学校","就读学校:","text")
In7.readonly=True
Dim In8 = .AddInput("班级","就读班级:","text")
In8.readonly=True
Dim In2 = .AddInput("联系电话","联系电话:","text")
In2.readonly=True
Dim In5 = .AddInput("户口地址","户口地址:","text")
Dim In4 = .AddInput("家庭住址","家庭住址:","text")
Dim In3 = .AddInput("监护人姓名","监护姓名:","text")
In3.enabled=xgqx
Dim sel2=.AddSelect("户口性质","户口性质:","[农村]|城镇")
sel2.Enabled =xgqx
Dim sel4= .AddSelect("就读方式","就读方式:","[住校]|走校")
.AddSelect("就餐情况","就餐情况:","[不在校就餐]|早餐|午餐|晚餐|早午餐|早晚餐|午晚餐|早午晚餐").enabled=xgqx
.AddSelect("留守情况","留守情况:","非留守|[单亲留守]|双亲留守").enabled=xgqx
Dim sel6= .AddSelect("贫困建档","贫困建档:","[是]|否")
Dim In21 = .AddInput("邮政编码","邮政编码:","text")
In21.readonly=xgqx
End With
With wb.AddInputGroup("form1","ipg2","以下为选填内容")
Dim In23 = .AddInput("父亲姓名","父亲姓名:","text")
In23.readonly=xgqx
Dim In24 = .AddInput("母亲姓名","母亲姓名:","text")
In24.readonly=xgqx
End With
With wb.AddRadioGroup("form1","审核结论","请选择审核结果再提交")
.Add("bw1","信息审核通过,锁定学生修改",True)
.Add("bw2","信息填报存在不完整?不规范") '默认勾选
.Add("bm3","学校或班填报有误,请你另报")
End With
With wb.AddButtonGroup("form1","btg1",False)
Dim btn1=.Add("btn1", "审核提交", "sumbit")
btn1.kind=1
' btn1.Attribute= "style='width:150px;border-radius:20px;border:1px solid silver'"
End With
e.WriteString(wb.Build) '生成网页
End Select
加好友 
发短信
Post By：2020/2/21 21:58:00 [显示全部帖子]
