[ Mini Kiebo ]
Server: Windows NT DESKTOP-5B8S0D4 6.2 build 9200 (Windows 8 Professional Edition) i586
Path:
D:
/
Backup
/
14082024
/
Data
/
htdocs
/
htdocs
/
siakad
/
akademik
/
ajax
/
[
Home
]
File: rekap_kelas_xls.php
<?php require_once("configure_first.php"); $nmForm = "rekap_uas.php"; $nmTable = "p_nilai_siswa"; $formnama = "rekap_uas"; $huruf = "<font face=\"Times New Roman\" size=\"2\">"; if($_GET["id_ta"]) $id_ta = $_GET["id_ta"]; if($_GET["id_sem"]) $id_sem = $_GET["id_sem"]; if($_GET["id_jenis_nilai"]) $id_jenis_nilai = $_GET["id_jenis_nilai"]; $query = "select upper(sem_nama) as sem_nama from m_semester where sem_id = ".$id_sem; $iData=sAllData($query); for($a=0,$b=count($iData);$a<$b;$a++) { $sem_nama = $iData[$a]["sem_nama"]; } $query = "select ta_nama from m_tahun_ajaran where ta_id = ".$id_ta; $iData=sAllData($query); for($a=0,$b=count($iData);$a<$b;$a++) { $ta_nama = $iData[$a]["ta_nama"]; } $query = "select upper(jenis_nilai_nama) as jenis_nilai_nama from m_jenis_nilai where jenis_nilai_id = ".$id_jenis_nilai; $iData=sAllData($query); for($a=0,$b=count($iData);$a<$b;$a++) { $jenis_nilai_nama = $iData[$a]["jenis_nilai_nama"]; } if($_GET["id_kelas"]) { $id_kelas = $_GET["id_kelas"]; $query = "select a.*,substr(kelas_kode,1,2) as kode from m_kelas a where kelas_id = ".$id_kelas; // echo $query."<br>"; $iData=sAllData($query); for($a=0,$b=count($iData);$a<$b;$a++) { $kelas_nama = $iData[$a]["kelas_nama"]; $kelas_kode = $iData[$a]["kode"]; } } $namaFile = "Rekap Nilai Kelas ".$jenis_nilai_nama." ".$sem_nama." ".$ta_nama.".xls"; // $namaFile = "Rekap ".$jenis_nilai_nama.".xls"; // Function penanda awal file (Begin Of File) Excel function xlsBOF() { echo pack("ssssss", 0x809, 0x8, 0x0, 0x10, 0x0, 0x0); return; } // Function penanda akhir file (End Of File) Excel function xlsEOF() { echo pack("ss", 0x0A, 0x00); return; } // Function untuk menulis data (angka) ke cell excel function xlsWriteNumber($Row, $Col, $Value) { echo pack("sssss", 0x203, 14, $Row, $Col, 0x0); echo pack("d", $Value); return; } // Function untuk menulis data (text) ke cell excel function xlsWriteLabel($Row, $Col, $Value ) { $L = strlen($Value); echo pack("ssssss", 0x204, 8 + $L, $Row, $Col, 0x0, $L); echo $Value; return; } // header file excel header("Pragma: public"); header("Expires: 0"); header("Cache-Control: must-revalidate, post-check=0, pre-check=0"); header("Content-Type: application/force-download"); header("Content-Type: application/octet-stream"); header("Content-Type: application/download"); // header untuk nama file header("Content-Disposition: attachment; filename=".$namaFile.""); header("Content-Transfer-Encoding: binary "); // memanggil function penanda awal file excel xlsBOF(); xlsWriteLabel(0,0,"No."); xlsWriteLabel(0,1,"Kelas"); $query="select * from m_matapelajaran where mp_raport = 1 order by mp_urut asc"; $iDataArray=sAllData($query); for($a=0,$b=count($iDataArray);$a<$b;$a++) { $cols = (2+$a); xlsWriteLabel(0,$cols,$iDataArray[$a]["mp_nama"]); } $baris = 0; $query = "SELECT * FROM m_kelas where kelas_id < 43 and length(kelas_kode) = 4 order by kelas_kode asc"; $iData=sAllData($query); for($a=0,$b=count($iData);$a<$b;$a++) { $baris = $baris+1; xlsWriteLabel($baris,0,($a+1)); xlsWriteLabel($baris,1,$iData[$a]["kelas_nama"]); xlsWriteLabel($baris,2,$iData[$a]["siswa_nama"]); $query2="select * from m_matapelajaran where mp_raport = 1 order by mp_urut asc"; $iDataArray=sAllData($query2); for($c=0,$d=count($iDataArray);$c<$d;$c++) { $sqlx="select avg(nilai_siswa_angka) as jumlah from ".$nmTable." where id_ta = ".$_GET["id_ta"]." and id_sem = ".$_GET["id_sem"]." and id_kelas = ".$iData[$a]["kelas_id"]." and id_jenis_nilai = ".$_GET["id_jenis_nilai"]." and id_mp = ".$iDataArray[$c]["mp_id"]." group by id_kelas"; $rsx = mysql_query($sqlx); $hasilnilaix = mysql_fetch_array($rsx); $cols = (2+$c); xlsWriteNumber($baris,$cols,round($hasilnilaix["jumlah"])); $JN = ($JN+round($hasilnilaix["jumlah"])); $cell[$a][$c] = round($hasilnilaix["jumlah"]); } if(($a+1)%6 == 0) { $baris = $baris+1; xlsWriteLabel($baris,0,""); xlsWriteLabel($baris,1,"Rata-rata"); for($cc=0,$dd=count($cell[$a]);$cc<$dd;$cc++){ for($aa=(($a+1)-6),$bb=($a+1);$aa<$bb;$aa++) { $nilai[$cc] = $nilai[$cc]+$cell[$aa][$cc]; } $cols = (2+$cc); xlsWriteNumber($baris,$cols,round($nilai[$cc]/6)); $nilai[$cc] = 0; } } } xlsEOF(); exit(); ?>