Dim wb As New weui

Select Case e.Path

    Case "xjrjzjf.htm"

        If e.PostValues.Count = 0 Then

            wb.AddPageTitle("","ph1","博融现金日记账")

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

            With wb.AddInputGroup("form1","ipg1","现金日记账【收入记账】")

                .AddInput("日期","日期","date")

                .AddSelect("凭证种类","凭证种类","|发票|收据|收条|小票|物流单|快递单|其它单据")

                .AddInput("凭证号数","凭证号数","Text")

                .AddSelect("对方科目","科目类别","|日常办公|销售回款|日常开支|货物订货|其它项目")

                .AddInput("摘要","内容摘要","Text")

                With  .AddInput("借方金额","收入金额","number")

                    .Step = "0.01"

                    .Attribute = ""

                End With

                .AddSelect("借方","收入人员","|肖妍|费泓纶|田景兰")

                .AddUploader("up1","照片",True) \'True表示允许上传多个文件

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

                    .Add("btn1", "确定", "submit")

                End With

            End With

            e.WriteString(wb.Build)

        Else

            Dim nms() As String = {"日期","凭证种类","凭证号数","摘要","科目类别","日页","借方金额","借方","照片名","crc值"}  \'

            Dim dr As DataRow = DataTables("现金日记账").AddNew()

            For Each nm As String In nms

                If e.PostValues.ContainsKey(nm) Then

                    dr(nm) = e.PostValues(nm)

                End If

            Next

            For Each key As String In e.Files.Keys

                If key = "up1" Then

                    For Each fln As String In e.Files(key)

                        e.SaveFile(key, fln, ProjectPath & "Attachments\\" & fln)

                    Next

                    dr.Lines("照片名") = e.Files(key)

                End If

            Next

            dr.save()

            With wb.AddMsgPage("","msgpage","增加成功", "好好学习,天天向上") \'生成成功提示页

                .AddButton("btn1","继续增加","xjrjzjf.htm")

            End With

            e.WriteString(wb.Build)

        End If

End Select