Dim e As RequestEventArgs = args(0)

Dim wb As New weui

e.AsyncExe cute = True  \'通知系统异步执行,不要关闭信道

Functions.AsyncE xecute("yanzheng",e) \'异步调用函数处理接收到的数据和文件

Dim cmd1 As New SQL Command

cmd1.Conn ect  io nName = "智慧党建" \'记得设置数据源名称

cmd1.Comman dText = "Se lect Count(*) From {党员信息}"

Dim dt As DataTable = cmd1.Exe cuteReader

Select Case e.path

    Case "logon.htm" \'登录页面

        wb.AddPageTitle("","pageheader","三会一课系统","专为瓮安检察院党建信息管理设计")

        If e.PostValues.ContainsKey("单位名称") AndAlso e.PostValues.ContainsKey("所属支部") AndAlso e.PostValues.ContainsKey("姓名") AndAlso e.PostValues.ContainsKey("密码") Then \'判断是否是验证失败后的重新登录

            wb.AddTopTips("","toptip1","用户名或密码错误!").msec = 2000 \'如果用户通过登录按钮访问,则给用户一个2秒的提示.

        End If

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

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

            With .AddSelect("单位名称","单位名称*","|" & dt.sqlG etComboListString("单位名称"))

                .Attribute = """

            End With

            With .AddSelect("所属支部","所属支部*","")

                .Attribute = """

            End With

            With .AddSelect("姓名","姓名*","|" & dt.sqlG etComboListString("姓名"))

            End With

            .AddInput("密码","密码*","password")

        End With

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

            .Add("btn1", "登录", "submit")

        End With

        With wb.AddPageFooter("","pf1","Copyright © 2020 瓮安县人民检察院机关党委")

            .AddLink("本系统为初步demo版本","根据需要进行完善")

        End With

        e.WriteString(wb.Build) \'生成网页

End Select