| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- SQL筛选 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=114035) |
| -- 作者：良才 -- 发布时间：2018/1/26 22:11:00 -- SQL筛选 筛选302班，请老师指教，谢谢！ Dim SQL As String
SQL = "Select 学期,班级,学生姓名,性别,a.学生编号,学籍号,学生身份证号 Fr om {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = \'"& ary(3) &"\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' Order By 学期,班级,b.学生编号" SQL+ = "Where" & "班级" & "=" & "302" t.Fill(SQL,"数据库",True) |
| -- 作者：有点蓝 -- 发布时间：2018/1/26 22:52:00 -- Dim SQL As String SQL = "Select 学期,班级,学生姓名,性别,a.学生编号,学籍号,学生身份证号 Fr om {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 班级=\'302\' and 学期 = \'" & ary(3) & "\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' Order By 学期,班级,b.学生编号" t.Fill(SQL,"数据库",True)
|
| -- 作者：良才 -- 发布时间：2018/1/27 11:09:00 -- 多出用到SQL Dim SQL As String Sel ect Case e.StripItem.Name Case "学生基本信息" SQL = "Se lect 学期,班级,学生姓名,性别,a.学生编号,学籍号,学生身份证号,出生日期,int(datediff(\'d\',出生日期,Cdate(cstr(year(Date()))+\'-08-31\'))/365.25) as 年龄,民族,监护人姓名,iif(监护人姓名=父亲姓名, 父亲电话, iif(监护人姓名=母亲姓名,母亲电话,null)) As 监护人电话, iif(监护人姓名=父亲姓名, iif(性别=\'男\', \'父子\', \'父女\'), iif(监护人姓名=母亲姓名, iif(性别=\'女\', \'母子\', \'母女\'),null)) AS 与监护人关系,户籍省 + 户籍县 + 户籍镇 As 户籍地,暂住街道 + 暂住社区 As 暂住地 From {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = \'"& ary(3) &"\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' Order By 学期,班级,b.学生编号" If _UserGroup = "班主任" Then SQL+ = "Where" & "班级" & "=" & "302" End If Case "学生午餐信息" SQL = "Sel ect 学期,班级,学生姓名,性别,a.学生编号,暂住街道 + 暂住社区 As 暂住地 From {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = \'"& ary(3) &"\' And 缴费项目 = \'预缴餐费\' And 缴费状态 = \'已缴\' Order By 学期,班级,b.学生编号 If _UserGroup = "班主任" Then SQL+ = "Where" & "班级" & "=" & "302" End If Case "学生接送信息" SQL = "Se lect b.学期,班级,学生姓名,性别,a.学生编号,父亲电话,母亲电话,车次,地点编号,b.接送地点 From ({学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号) Inner JOIN {车辆安排} c ON b.学期 = c.学期 And b.接送地点 = c.接送地点 WHERE b.学期 = \'"& ary(3) &"\' And 缴费项目 = \'车费\' And 缴费状态 = \'已缴\' Order By b.学期,班级,b.学生编号" If _UserGroup = "班主任" Then SQL+ = "Where" & "班级" & "=" & "302" End If Case "学生缴证信息" SQL = "Sel ect b.学期,b.班级,学生姓名,性别,a.学生编号,出生日期,民族,缴证人,缴证日期,c.监护人姓名,iif(c.监护人姓名=父亲姓名,iif(性别=\'男\', \'父子\', \'父女\'), iif(c.监护人姓名=母亲姓名, iif(性别=\'女\', \'母子\', \'母女\'),null)) AS 与监护人关系,监护人身份证号,监护人暂住证号,社保号,参保日期,查询密码,参保月数,资助金额,户籍省+户籍县 As 户籍地,暂住街道+暂住社区 As 暂住地,监护人工作单位 From (({学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号) Inner JOIN {资助标准} k ON b.学期 = k.学期) Inner JOIN {缴证信息} c ON b.学期 = c.学期 And b.学生编号 = c.学生编号 WHERE b.学期 = \'"& ary(3) &"\' And 缴费项目 = \'学费\' And 缴费状态 = \'已缴\' ORDER BY b.班级,b.学生编号" If _UserGroup = "班主任" Then SQL+ = "Where" & "班级" & "=" & "302" End If End Select t.Fill(SQL,"数据库",True) [此贴子已经被作者于2018/1/27 11:18:50编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2018/1/27 11:29:00 -- Case "学生午餐信息" SQL = "Sel ect 学期,班级,学生姓名,性别,a.学生编号,暂住街道 + 暂住社区 As 暂住地 From {学生基本信息} a Inner JOIN {缴退费信息} b ON a.学生编号 = b.学生编号 WHERE 学期 = \'"& ary(3) &"\' And 缴费项目 = \'预缴餐费\' And 缴费状态 = \'已缴\' If _UserGroup = "班主任" Then SQL &= " and " & "班级" & "=" & "302" & " Order By 学期,班级,b.学生编号" End If
|
| -- 作者：良才 -- 发布时间：2018/1/27 12:28:00 -- 怎么添加不了附件？ |
| -- 作者：良才 -- 发布时间：2018/1/27 13:00:00 -- 老师生成不了 |
| -- 作者：有点蓝 -- 发布时间：2018/1/27 14:13:00 -- 什么生成不了？4楼我只改了一条sql，其它自己参考着改 |
| -- 作者：良才 -- 发布时间：2018/1/27 14:16:00 -- 添加附件，按钮没有，可能是我电脑问题，以前可以 |
| -- 作者：有点蓝 -- 发布时间：2018/1/27 15:09:00 -- 换其他浏览器。关闭浏览器的极速模式 |
| -- 作者：良才 -- 发布时间：2018/1/27 18:24:00 -- 好的 |