- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 改成函数 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148233)
-- 发布时间：2020/4/2 18:19:00
-- 改成函数
怎么把下面的代码改写成list函数呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:ggg.zip |
-- 发布时间：2020/4/2 20:11:00
--
list函数
Dim e As RequestEventArgs = args(0)
Dim wb As New WeUI
Dim flt As String
If e.PostValues.ContainsKey("product") Then
flt &= "年级 = \'" & e.PostValues("product") & "\'"
End If
If e.PostValues.ContainsKey("bj") Then
If flt > "" Then
flt = flt & " and "
End If
flt &= "班级= \'" & e.PostValues("bj") & "\'"
End If
If e.PostValues.ContainsKey("jdc") Then
If flt > "" Then
flt = flt & " and "
End If
flt & = "街道村 = \'" & e.PostValues("jdc") & "\'"
End If
If e.PostValues.ContainsKey("dqzt") Then
If flt > "" Then
flt = flt & " and "
End If
flt &= "当前状态 = \'" & e.PostValues("dqzt") & "\'"
End If
Dim page As Integer = 0 \'默认page为0,显示第一页
Dim pageRows As Integer = 10 \'每页10行
If e.GetValues.ContainsKey("page") Then \'如果地址中有page参数
Integer.TryParse(e.GetValues("page"), page) \'提取page参数
End If
Dim StartRow As Integer = page * pageRows + 1 \'此页第一行
Dim EndRow As Integer = (page + 1) * pageRows \'此页最后一行
\'提取此页数据
Dim cmd As New SQLCommand
cmd.ConnectionName = "学校档案" \'记得设置数据源名称
cmd.CommandText = "Select Count(*) From {控缀保学}"
\'msgbox(3)
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt
End If
Dim Count As Integer = cmd.ExecuteScalar() \'获取总的行数
cmd.CommandText = "Select * From (Select Row_Number() Over(Order by 出生日期) As [NO.],学生姓名,年级,班级,家长姓名,联系电话,地址 From 控缀保学"
If flt > "" Then
cmd.CommandText = cmd.CommandText & " where " & flt
End If
cmd.CommandText = cmd.CommandText & ") As a "
cmd.CommandText = cmd.CommandText & " Where [NO.]>= " & StartRow & " And [NO.] <= " & EndRow
\'合成网页
With wb.AddTable("","Table1")
.CreateFromDataTable(cmd.ExecuteReader)
.Attribute = "style=\'width:550px\'"
\' .Alternate = 2 \'每两行显示一个不同背景颜色的行
\'.RowHead = 1
.ColWidth ="8px,45px,45px,45px,45px,100px"
.ActiveSheet = "menu"
.Primarykey = "_Identify" \'设置主键
End With
With wb.AddButtonGroup("","btg2", False)
If page > 0 Then
.Add("btnPrev", "上一页","","List.htm?page=" & page - 1)
End If
If Endrow < count Then
.Add("btnNext", "下一页","","List.htm?page=" & page + 1)
End If
If flt = "" Then
.Add("btn1", "筛选", "","filter.htm").kind = 1
Else
.Add("btn1", "取消筛选", "button", "default.htm").Kind = 2
End If
End With
With wb.AddActionSheet("","menu") \'设计菜单
.Add("mnudAdd", "增加记录")
.Add("mnuEdit", "编辑订单").Attribute ="onclick=\'kcbxedit\'"
.Add("mnuCancel","取消","",True)
End With
e.WriteString(wb.Build)
httprequest事件
Case "kcbxfilter.htm"
wb.AddForm("","form1","kcbxlist1.htm")
With wb.AddInputGroup("form1","ipg1","疑似辍学学生查询")
.AddSelect("product","年级","|九年级|八年级|七年级|六年级|五年级|四年级|三年级|二年级|一年级")
.AddSelect("bj","班级","|(1)班|(2)班|(3)班|(4)班|(5)班|(6)班|(7)班|(8)班")
.AddSelect("jdc","街道村","|铝厂居委会|峡西居委会|同兴村|同进村|广武村|三趟墩村|三台村")
.AddSelect("dqzt","当前状态","|疑似辍学|休学|休假|送教|培训")
End With
With wb.AddButtonGroup("form1","btg1",True)
.Add("btn1", "确定", "submit")
End With
Case "kcbxlist1.htm"
Functions.Execute("list",e)
return