⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄

📁 我做的第一个学生管理系统
💻
字号:
🔍 
<%
dim Pri
Pri=CheckUrl("成绩报表管理")
%>
<!--#include virtual="/school/public/CheckUrl.asp"-->
<%
vServer="http://" & Request.ServerVariables("Server_name")
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>打印幼师毕业成绩表 write by longZhiping on 1999.8.26</title>
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
</head>

<body background="../../images/di2001.jpg">

<p><font color="#0000a0" size="6"><strong>打印幼师毕业成绩表</strong>
<object id="rds1" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="0" height="0">
</object>

<object id="rds3" classid="clsid:BD96C556-65A3-11D0-983A-00C04FC29E33" width="0" height="0"></object>
</font><br><img src="../../images/Slidbar.gif" width="760">

<div align="center"><center>
<table border="1" width="760" height="325">  
    <tr>
    <td width="610" height="325" valign="top"><p align="center">
            <OBJECT classid=clsid:00028CD1-0000-0000-0000-000000000046 
            dataSrc=#rds1 height=350 id=grid1 style="LEFT: 0px; TOP: 0px" 
            width=600 VIEWASTEXT></OBJECT></p>
    </td>
  
       <td width="136" height="325" valign="top">
            


     </P>
     <hr color="#0000ff">
     <P align="center"><input type="button" value="开始打印" onclick="beginPrint()" name="start_input" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"  > 
	 <P align="center"><input type="button" value="全部打印" onclick="Allprint()" name="all_print" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"  > 
	 <P align="center"><input type="button" value="全部取消" onclick="AllNoprint()" name="all_no_print" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"  > 
     <P align="center"><input type="button" value="退出返回" onclick="returning()" name="exiting" style="COLOR: rgb(0,0,255); FONT-FAMILY: 宋体; FONT-SIZE: 14px"  > 
 
    </P></td></tr>

</table>
</center></div>
<script language="Vbscript">
	dim lastYearArray(0,100),lastTermArray(0,100)
	dim print_lineno,xhCount
	dim havedCourseArray(0,100),havedCourseNameArray(0,100),havedCourseCount '所有开设过的课程数组和课程数目
	
	print_lineno=0
		
	RDS1.Server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
	RDS1.Connect="database=school;uid=sa;pwd=;dsn=school"

	rds3.server = "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>"
	rds3.connect ="database=school;uid=sa;pwd=;dsn=school"

    rds1.SQL = "Execute createTempclass "
    rds1.ExecuteOptions = 1
    rds1.Refresh
	
	Set xlApp = CreateObject("Excel.Application") 
	xlApp.Visible = false
 
    Set xlBook =xlApp.Workbooks.Add
    Set xlSheet = xlBook.Worksheets(1) 
    
   
sub beginPrint()

	 call init()
	'根据用户的选择，一班接一班依次打印
	rds1.recordset.movefirst
	allrecords=rds1.Recordset.recordcount
	for i =1 to allrecords
			if rds1.Recordset.fields(2).value="打  印" then
				call ToClassprint(rds1.Recordset.fields(0).value) 
			end if 
			rds1.Recordset.movenext
	next
	rds1.Recordset.movefirst
end sub

'================================================
sub init()  '初始化打印内容--要打印的课程和名称
'================================================

	havedCourseArray(0,0)="M001"
	havedCourseNameArray(0,0)="政治"
	havedCourseArray(0,1)="M003"
	havedCourseNameArray(0,1)="语文"
	havedCourseArray(0,2)="M005"
	havedCourseNameArray(0,2)="数学"
	havedCourseArray(0,3)="M009"
	havedCourseNameArray(0,3)="物理"
	havedCourseArray(0,4)="M010"
	havedCourseNameArray(0,4)="化学"
	havedCourseArray(0,5)="S104"
	havedCourseNameArray(0,5)="生物学"
	havedCourseArray(0,6)="S118"
	havedCourseNameArray(0,6)="幼儿心理学"
	havedCourseArray(0,7)="S119"
	havedCourseNameArray(0,7)="幼儿卫生学"
	havedCourseArray(0,8)="S120"
	havedCourseNameArray(0,8)="幼儿教育学"
	havedCourseArray(0,9)="S106"
	havedCourseNameArray(0,9)="历史"
	havedCourseArray(0,10)="S107"
	havedCourseNameArray(0,10)="地理"
	havedCourseArray(0,11)="S108"
	havedCourseNameArray(0,11)="体育"
	havedCourseArray(0,12)="S111"
	havedCourseNameArray(0,12)="乐理视唱"
	havedCourseArray(0,13)="S113"
	havedCourseNameArray(0,13)="琴法"
	havedCourseArray(0,14)="S114"
	havedCourseNameArray(0,14)="舞蹈"
	havedCourseArray(0,15)="S109"
	havedCourseNameArray(0,15)="美工"
	havedCourseArray(0,16)="S101"
	havedCourseNameArray(0,16)="教师口语"
	havedCourseArray(0,17)="S102"
	havedCourseNameArray(0,17)="写字"
	havedCourseArray(0,18)="S121"
	havedCourseNameArray(0,18)="幼儿园综合活动指导"
	havedCourseArray(0,19)="0000"
	havedCourseNameArray(0,19)="   "
	havedCourseArray(0,20)="0000"
	havedCourseNameArray(0,20)="    "
	havedCourseArray(0,21)="0000"
	havedCourseNameArray(0,21)="    "
	
	havedCourseArray(0,22)="0000"
	havedCourseNameArray(0,22)="毕业证书编号"
	
	havedCourseArray(0,23)="0000"
	havedCourseNameArray(0,23)="备  注"
	
	havedCourseCount = 24
	
end sub

'=============================================
sub Allprint() '选择全部班级打印
'=============================================
	rds1.recordset.movefirst
	allrecords=rds1.Recordset.recordcount
	for i =1 to allrecords
		rds1.Recordset.fields(2).value="打  印"
		rds1.Recordset.movenext
	next 
	rds1.recordset.movefirst
end sub

'================================================
sub AllNoprint() '选择全部班级不打印
'=================================================
	rds1.recordset.movefirst
	allrecords=rds1.Recordset.recordcount
	for i =1 to allrecords
		rds1.Recordset.fields(2).value="不打印"
		rds1.Recordset.movenext
	next 
	rds1.recordset.movefirst
end sub
'===================================================
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
	set colsel = grid1.columns.item(colindex)
	select case colsel.caption
	case "打印状态"
		'colsel.button = true
		if grid1.columns.item(colindex).value = "打  印" then 
			 grid1.columns.item(colindex).value = "不打印"
		else
			 grid1.columns.item(colindex).value = "打  印"
		end if 
		cancel = true
	case else 
		cancel = true
	end select

end sub

'===================================================
sub ToClassPrint(classno) '打印一班的毕业成绩表
'===================================================	
			xlApp.Visible = true
			call getLastYearTerm(classno)
		   	call print_head(classno)		   	
		   	call print_name(classno)
			call print_body(classno)

end sub

'=================================================
sub print_head(classno)  '打印表头
'=================================================
	print_lineno = print_lineno + 3
   '打印表头	  
   xlSheet.Cells(print_lineno, havedCourseCount/2-2) = "海南琼海师范学校——毕业证书验印名册"
   xlSheet.Cells(print_lineno+1,havedCourseCount/2-2) = "——————————————————"
   
   print_lineno = print_lineno +2
   
   xlSheet.Cells(print_lineno, 1) = "  班级："
   xlSheet.Cells(print_lineno, 2) = trim(classno)
   xlSheet.Cells(print_lineno, 3) = "  专业："
   xlSheet.Cells(print_lineno, 4) =	"  幼师"
   xlSheet.Cells(print_lineno, 5) = "  学制："
   xlSheet.Cells(print_lineno, 6) = "  三年"
   print_lineno = print_lineno +1
   xlSheet.Cells(print_lineno, 1) = "学号"
   xlSheet.Cells(print_lineno, 2) = "姓名"
   xlSheet.Cells(print_lineno, 3) = "性别"
   xlSheet.Cells(print_lineno, 4) = "年龄"
   
   for i=0 to HavedCourseCount -1
	xlSheet.Cells(print_lineno,5+i) = HavedCourseNameArray(0,i)
   next
   print_lineno = print_lineno +1
end sub

'====================================================
sub print_name(classno)  '先在左边打印学号,姓名和性别
'====================================================
	rds3.sql = "select 学号,姓名,性别  from baseinfo where 班号='"+classno+"' order by 学号 ASC"
	rds3.ExecuteOptions  =1
	rds3.Refresh
	xhCount = rds3.Recordset.recordcount
	if xhCount <=0 then
		msgbox "没有找到此班的学生"
		exit sub
	end if
	
	for xhloop = 0 to xhCount - 1
		xlSheet.Cells(print_lineno+xhloop, 1) = rds3.Recordset.fields(0).value '打印学号	
		xlSheet.Cells(print_lineno+xhloop, 2) = rds3.Recordset.fields(1).value '打印姓名	
		xlSheet.Cells(print_lineno+xhloop, 3) = rds3.Recordset.fields(2).value '打印性别	
		rds3.Recordset.MoveNext
	next
	
end sub

'==========================================================================================
sub print_body(classno)  '打印表体，打印时按垂直方向即打完全班同一课程成绩后再打另一门
'==========================================================================================
	dim tmpvalue,scorenum
	
	for kcloop =0 to HavedCourseCount - 1  '按课程总数循环
		  if HavedCourseArray(0,kcloop)<> "0000" then
				rds3.SQL = " select "+rtrim(HavedCourseArray(0,kcloop))+" from score "&_
						   " where 学号 in (select 学号 from student where 班号='"+classno+"') and "&_
						   " 学年 = '"+lastYearArray(0,kcloop)+"' and 学期='"+LastTermArray(0,kcloop)+"' and "&_
						   " 成绩类型='总评成绩' order by 学号 ASC"
		  		    
			  	rds3.ExecuteOptions = 1
				rds3.Refresh 
				scorenum = rds3.Recordset.recordcount
				if  scorenum > 0 then 				
					for cno = 0 to scorenum - 1 '循环打印全班成绩
						tmpvalue = null
						tmpvalue = rds3.Recordset.fields(0).value
						if isnull(tmpvalue) then
							xlSheet.Cells(print_lineno+cno, 5+kcloop) = "    "
						else
							xlSheet.Cells(print_lineno+cno, 5+kcloop) = trim(cstr(tmpvalue))
						end if
						rds3.Recordset.MoveNext
					next
			    end if 
			end if	
	next 
	print_lineno = print_lineno + xhCount +2
end sub

'==================================================================
sub getLastYearTerm(classno) '取每门课程最后上课的学年和学期
'==================================================================

	for i = 0 to havedCourseCount - 1
		if havedCourseArray(0,i)<>"0000" then
			rds3.SQL = " select 学年,学期 from class_course where 班号='"+classno+"' and "&_
					   " rtrim(upper(课程号))='"+havedCourseArray(0,i)+"' order by 学年 DESC,学期 DESC"
			rds3.ExecuteOptions = 1
			rds3.Refresh
			if rds3.Recordset.recordcount > 0 then
				LastyearArray(0,i) = rds3.recordset.Fields(0).value
				lastTermArray(0,i) = rds3.recordset.Fields(1).value
			else
				'msgbox "没有一个学期开设过此课程！"
				havedCourseArray(0,i)="0000"
			end if
		end if
	next
end sub
				
'=======================================================
sub returning() '返回上一层程序
'=======================================================
    history.go(-1)

end sub
'==============================================================
	

</script>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -