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

\'\'\'

Dim e As RequestEventArgs = args(0)

Dim path As String = "foxtableAppTest"

Dim wb As new weui

wb.appendHTML("<meta name=\'viewport\' c />",True)

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=\'../mui/css/mui.css\'></script>",True)

wb.appendHTML("<script src=\'../mui/js/mui.js\'></script>",True)

wb.appendHTML("<script Type=\'text/javascript\' charset=\'utf-8\'>mui.init();</script>",True)

wb.appendHTML("<style>.fox_page_title{color:white}</style>",True)

wb.appendHTML("<style>.fox_page_subtitle{color:white;}</style>",True)

wb.appendHTML("<style>.fox_page_header{background-color:dodgerblue;}</style>",True)

wb.appendHTML("<style>.weui_label{color:dodgerblue;}</style>",True)

wb.appendHTML("<style>h5,p{margin:8px 16px;}</style>",True)

Dim cmd1 As new SQLCommand

cmd1.C

cmd1.CommandText ="Se/ect DISTINCT 单位,部门,角色 from {单位用户} where 角色=\'班务\'"

Dim dt1 As DataTable = cmd1.ExecuteReader

Dim xxs As List(of String)=dt1.GetValues("单位")

wb.AddPageTitle("","ph1","学生报名","请扫描学校给定的报名码或选填学校及班级")

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

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

Dim In1 = .AddInput("身份证号","身份证号:","Text")

In1.readonly = True

In1.value = e.Cookies("username")

Dim In2= .AddInput("学生姓名","学生姓名:","Text")

In2.readonly = True

In2.value = e.Cookies("userxm")

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText = "SE/ECT 身份证件号,申读学校,申读班级,录取类型,问题 FROM {学生信息} where 身份证件号 =\'" & e.Cookies("username") & "\'"

Dim dt As DataTable = cmd.ExecuteReader()

Dim dr As DataRow

If dt.DataRows.Count>0

dr = dt.DataRows(0)

If dr("录取类型")>""

Dim Int1= .AddSelect("申读学校","申读学校:",dr("申读学校"))

\' int1.enabled=False

Dim Int2= .Addselect("申读班级","申读班级:",dr("申读班级"))

\'int2.enabled=False

Else

Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray).replace(e.Cookies("sdxx"), "[" & e.Cookies("sdxx") & "]"))

Int1.attribute=""

Dim Int2= .Addselect("申读班级","申读班级:",dt1.GetComboListString("部门","单位=\'" & e.Cookies("sdxx") & "\'").replace(e.Cookies("sdbj"), "[" & e.Cookies("sdbj") & "]"))

End If

Else

If e.Cookies.ContainsKey("sdxx")

Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray).replace(e.Cookies("sdxx"), "[" & e.Cookies("sdxx") & "]"))

Int1.attribute=""

Else

Dim Int1 =.AddSelect("申读学校","申读学校:"," |" & String.join("|",xxs.Toarray))

Int1.attribute=""

End If

If e.Cookies.ContainsKey("sdbj")

Dim Int2= .Addselect("申读班级","申读班级:",dt1.GetComboListString("部门","单位=\'" & e.Cookies("sdxx") & "\'").replace(e.Cookies("sdbj"), "[" & e.Cookies("sdbj") & "]"))

Else

Dim Int2= .Addselect("申读班级","申读班级:","")

End If

.AddHiddenValue("类型","a")

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

Dim btn1= .Add("btn1", "扫报名码", "button")

If dr IsNot Nothing AndAlso dr("录取类型")>""

btn1.kind=1

btn1.enabled=False

Else

btn1.Attribute = " & path & "/plus/barcode_scan.html\',true,true);"""

btn1.kind=1

End If

Dim btn2= .Add("btn2", "信息填报", "submit")

btn2.kind=1

Dim btn3= .Add("btn3", "返回", "button")

btn3.kind=1

btn3.Attribute=""

End With

If dr IsNot Nothing AndAlso dr("问题")>""

wb.InSertHtml("form1","<p style= \'font-size:15px;color:red;\'>存在信息问题，请修改提交：</P>")

wb.InSertHtml("form1","<p style= \'font-size:15px;\'>" & dr("问题") & "</P>")

End If

If dr IsNot Nothing AndAlso dr("录取类型")>""

wb.InSertHtml("form1","<div style= \'background:url(../picture/nqbj.jpg);height:150px;background-size：cover\'>" )

wb.InSertHtml("form1","<p style= \'text-align:center;font-size:20px;color:white;margin-top:20px;\'>录取通知</P>")

wb.InSertHtml("form1","<p style = \'text-indent:2em;color:white;\'>经学校招生小组审核同意，你已被我校录取，请按相关时间安排入学就读，如有申读学校变更，需经学校教务处同意方可进行变更。</P>")

wb.InSertHtml("form1","</div>")

End If

End With

wb.InsertHTML("<script>function scaned( t, r, f ) {document.getElementById(\'申读学校\').value=r.split(\',\')[0]; document.getElementById(\'申读班级\').value=r.split(\',\')[1];document.getElementById(\'类型\').value=r.split(\',\')[2]}</script>")

For Each xx As String In xxs

wb.InsertHTML("<p hidden id=\'" & xx & "\'>" & " |" & dt1.GetComboListString("部门","单位=\'" & xx & "\'") & "</p>")

wb.AppendHTML("<script src=./lib/getsdbj.js></script>")

e.WriteString(wb.Build)

e.Handled=True