专家坐堂-如何在登录中获取表中的数据，来作为登录名，求解Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

\'通用头事件

Dim fl As String = "d:\\web\\" & e.path

If filesys.FileExists(fl)

Dim idx As Integer = fl.LastIndexOf(".")

Dim ext As String = fl.SubString(idx)

Select Case ext

Case ".jpg",".gif",".png",".bmp",".wmf",".js",".css" ,".html",".htm",".zip",".rar"

e.WriteFile(fl)

Return

End Select

End If

Dim wb As new WeUI

\'---身份验证

Dim verified As Boolean \'用户身份验证

Dim Username As String =e.Cookies("username")

Dim Password As String =e.Cookies("password")

If e.Path="logon.htm"

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

Username=e.PostValues("username")

Password=e.PostValues("password")

End If

If Username="admin" AndAlso Password="110" Then

verified=True

End If

If Username="liaohb" AndAlso Password="111" Then

verified=True

End If

If verified AndAlso e.Path="logon.htm" Then

wb.AppendCookie("username",Username)

wb.AppendCookie("password",Password)

wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")\'---跳转到数据页面

e.WriteString(wb.Build)

Return

ElseIf verified = False AndAlso e.Path<>"logon.htm" Then

wb.InsertHTML("<meta http-equiv=\'Refresh\' c>")\'---跳回首页

e.WriteString(wb.Build)

Return

End If

\'--------以下是页面

Select Case e.Path

Case "logon.htm"

wb.AddPageTitle("","pageheader","合伙人","合伙人详细信息")

If e.PostValues.ContainsKey("username") AndAlso e.PostValues.ContainsKey("password") Then

wb.AddToptips("","toptip1","用户名或密码错误!").msec=3000 \'---停留三秒的时间

End If

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

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

.AddInput("username","用户","text")

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

End With

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

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

End With

Case "show.htm"

Dim user As String =e.PostValues("username")

wb.AddPageTitle("","pageheader","合伙人","合伙人详细信息")

Dim g As new SQLGroupTableBuilder("合伙人","平台合伙人订单数据")

g.C

g.Groups.AddDef("上级统计所有合伙人_上级")

g.Groups.AddDef("平台订单信息_会员姓名")

\' g.Groups.AddDef("平台订单信息_付款时间")

\' g.Groups.AddDef("平台订单信息_订单编号")

\' g.Groups.AddDef("平台订单信息_状态")

g.Totals.AddDef("平台订单信息_一级佣金")

g.Totals.AddDef("平台订单信息_商品价格")

g.Totals.AddDef("平台订单信息_商品数量")

g.VerticalTotal = True

\' g.Filter="[上级统计所有合伙人_上级] =" & user

Dim dt As DataTable = g.Build(False)

Dim sb As new StringBuilder

sb.AppendLine("合伙人信息如下:</br></br>")

For Each dr As DataRow In dt.DataRows

sb.Append(dr("上级统计所有合伙人_上级") & ":" & dr("平台订单信息_会员姓名") & "," & dr("平台订单信息_商品数量") & "," & dr("平台订单信息_商品价格") & "<br/>")

e.WriteString(sb.ToString)

End Select

e.WriteString(wb.Build)