bzlgl_total.asp

学生日常管理系统

      j(i)=grid1.Columns.Item(1).Value 
                 
      grid1.Row=grid1.Row + 1
      
      'rds1.Recordset.movenext 
   next
     
   
   rds2.SQL="update bzrtest set i01="&cdbl(j(0))&",i02="&cdbl(j(1))&",i03="&cdbl(j(2))&",i04="&cdbl(j(3))&",i05="&cdbl(j(4))&",i06="&cdbl(j(5))&",i07="&cdbl(j(6))&",i08="&cdbl(j(7))&",i09="&cdbl(j(8))&",i10="&cdbl(j(9))&",i11="&cdbl(j(10))&",d1="&cdbl(j(11))&",ia="&cdbl(j(12))&",dd="&cdbl(j(13))&" where year_month='"&dateno.value&"' and xm='"&classno.value&"'"
   rds2.ExecuteOptions =1 
   rds2.Refresh   

end sub
'=================================
'保存考勤数据录入
'=================================

sub update_click()
  dim j(13)
   if rds1.Recordset.recordcount<0 then
   
      msgbox "没有数据保存......",,"提示窗口"
      
      exit sub
   
   end if   

   rds1.Recordset.movefirst
   
   for i=0 to rds1.Recordset.recordcount-1
   
      j(i)=grid1.Columns.Item(1).Value 
                 
      grid1.Row=grid1.Row + 1
      
      'rds1.Recordset.movenext 
   next
     
   
   rds2.SQL="insert into bzrtest(year_month,xm,i01,i02,i03,i04,i05,i06,i07,i08,i09,i10,i11,d1,ia,dd) values('"&dateno.value&"','"&classno.value&"',"&cdbl(j(0))&","&cdbl(j(1))&","&cdbl(j(2))&","&cdbl(j(3))&","&cdbl(j(4))&","&cdbl(j(5))&","&cdbl(j(6))&","&cdbl(j(7))&","&cdbl(j(8))&","&cdbl(j(9))&","&cdbl(j(10))&","&cdbl(j(11))&","&cdbl(j(12))&","&cdbl(j(13))&")"
   rds2.ExecuteOptions =1 
   rds2.Refresh   

end sub

'==============

sub printing()

   set xk_tjh=CreateObject("Scripting.FileSystemObject")
     
   if xk_tjh.fileexists("d:\xkprint.htm")=true then
    
     xk_tjh.DeleteFile "d:\xkprint.htm"
    
     Grid1.ExportToFile "d:\xkprint.htm",true
   else
    
     Grid1.ExportToFile "d:\xkprint.htm",true
   end if  


end sub



'===============
sub printing1()

'	RDS1.recordset.movefirst 	
'	if search_all then
'		call free_printer(rds1.Recordset.recordcount,trim(classno.value)+"班"+trim(yearno.value)+trim(termno.value)+"学期"+trim(CourseArray(0,courseno.selectedIndex-1))+"成绩信息一览表")
'	else

'		call free_printer(rds1.Recordset.recordcount,"学生成绩信息一览表")
'	end if 
 
' rds1.SQL="execute kaoqin_total 1,2,'991'"
' rds1.ExecuteOptions = 1
' rds1.Refresh 

 

	'vp.CurrentX=1
    'vp.CurrentY=1
    
    vp.MarginLeft=800


    vp.AbortWindowPos=1
    
    
    
	
	vp.Preview = true
	
	vp.StartDoc 
	
	rds1.recordset.movefirst
	

   print_lineno = 0  
   
  
   vp.Header = "|商业学校"+"班主任数据处理表"+"|"
   '   vp.Footer = " ||第%d页"
   formatstr = "<+950|<+900"
   headstr = "" 

   scoreCount = rds1.Recordset.fields.count-2
   
   for k=0 to rds1.Recordset.fields.count-1 
	   
    
     
     if k >1 and k<scoreCount then
		formatstr = formatstr+ "|<+600"
	 end if
	 
	 
	 if K>=scoreCount then
		formatstr = formatstr+ "|<+600"
	 end if
	  
	 headstr = headstr + trim(rds1.Recordset.fields(k).name)+"|"
	 
    ' msgbox headstr
    next 
   
	'print_lineno = print_lineno + 1
    rds1.Recordset.movefirst
    
    
    while not rds1.Recordset.eof
	onelinestr =""
	
     For j = 0 To  rds1.Recordset.fields.count-1 

      If isnull(rds1.Recordset.fields(j))=false  then   ' or trim(rds1.Recordset.fields(j))<>"" then
    
      
         if IsNumeric(rds1.Recordset.fields(j)) = true  Then
    
                   'xlSheet.Cells(print_lineno, j + 1) = trim(cstr(rds2.Recordset.fields(j)))
                   if j <>0 and j <>scoreCount +1 then
					onelinestr = onelinestr + trim(cstr(rds1.Recordset.fields(j))) +"|"
				  ' msgbox trim(cstr(formatnumber(rds1.Recordset.fields(j),0)))
				 '   msgbox onelinestr
				    else
					onelinestr = onelinestr + trim(cstr(rds1.Recordset.fields(j))) +"|"
				'	msgbox onelinestr
				   end if
				   
               
         else        

          'xlSheet.Cells(print_lineno, j + 1) = trim(cstr(rds2.Recordset.fields(j)))
                   onelinestr = onelinestr + trim(cstr(rds1.Recordset.fields(j))) +"|"
               '    msgbox onelinestr

         End If
     else  ' It is Null
		  onelinestr = onelinestr + "|"  
         ' msgbox onelinestr
    
    end if   

    Next
   
    print_lineno=print_lineno+1
    if print_lineno = 1 then
		vp.AddTable formatstr,headstr,onelinestr,,,false
    
    else
		vp.AddTable formatstr,headstr,onelinestr,,,true
	end if 
    rds1.Recordset.movenext
    
 wend 
 
    vp.EndDoc 
	vp.SaveDoc  "c:\xkprint.prn"
	
		
	window.open "http://<%=REQUEST.SERVERVARIABLES("SERVER_NAME")%>/shangye/public/print.asp"
 
end sub 






sub returning()
    history.go(-1)

end sub
'==============================================================
sub grid1_BeforeColEdit(colindex,keyascii,cancel)
	'	msgbox "不能输入和修改成绩！"			
		'cancel = true	
end sub

</script>
<script
language="javascript">
function click() {
if (event.button==2) {
alert('对不起,禁止使用此功能^_^.')
}
}
document.onmousedown=click
</script>


<p>
<object classid="clsid:6E84D662-9599-11D2-9367-20CC03C10627" height="3" id="vp" width="3"
VIEWASTEXT>
</object>
</p>
</body>
</html>