Advertisement
GWibisono

perbaikan?? coba test dulu moga2 output gk error

Jun 5th, 2012
68
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 3.19 KB | None | 0 0
  1. <?php
  2. ob_start();
  3. error_reporting(E_ALL);
  4. require_once 'baru/Classes/PHPExcel.php';
  5. // Create new PHPExcel object
  6. $objPHPExcel = new PHPExcel();
  7.  
  8. mysql_connect("localhost", "root", "root") or die(mysql_error());
  9. mysql_select_db("pln2") or die(mysql_error());
  10.  
  11. echo $ID_PEL=$_GET['ID_PEL'];
  12.  
  13. $unik = strtotime($_GET['TGL']." 1:0:0");
  14. $tanggal=date('Y-m-d', $unik);
  15.  
  16. $query = "SELECT a.NM, b.ID_PEL, b.NO_METER, b.DY_BR, b.GARDU, b.TIANG, b.TGL, c.C_TIM  FROM tm_plg a, td_plg b, t_tim c where a.ID_PEL=b.ID_PEL and a.C_TIM=c.C_TIM and a.STATUS_KSR=0 and b.TGL='$tanggal'";
  17.  
  18. $hasil = mysql_query($query)or die($query."<br>".mysql_error());
  19. /*
  20. header dari excel
  21. // Set properties
  22. $objPHPExcel->getProperties()->setCreator("Daud Edison Tarigan")
  23. ->setLastModifiedBy("Daud Edison Tarigan")
  24. ->setTitle("Office 2007 XLSX Test Document")
  25. ->setSubject("Office 2007 XLSX Test Document")
  26. ->setDescription("Test document for Office 2007 XLSX, generated using PHP classes.")
  27. ->setKeywords("office 2007 openxml php")
  28. ->setCategory("Test result file");
  29. */
  30. $a=array();
  31.  //Add some data
  32. /*
  33. $objPHPExcel->setActiveSheetIndex(0)
  34. ->setCellValue('A1', 'Data Pelanggan')
  35. ->setCellValue('A2', 'Nama Tim')
  36. ->setCellValue('A3', 'Tanggal')
  37. ->setCellValue('A5', 'No')
  38. ->setCellValue('B5', 'Nama')
  39. ->setCellValue('C5', 'Id Pelanggan')
  40. ->setCellValue('D5', 'Nomor Meter')
  41. ->setCellValue('E5', 'Daya')
  42. ->setCellValue('F5', 'Gardu')
  43. ->setCellValue('G5', 'Tiang');
  44. HEADER TULISAN!!
  45. */
  46. $a[5]=array('Data Pelanggan',
  47. 'Nama Tim'
  48. , 'Tanggal'
  49. , 'No'
  50. , 'Nama'
  51. , 'Id Pelanggan'
  52. , 'Nomor Meter'
  53. , 'Daya',
  54. 'Gardu'
  55.  'Tiang'
  56.  );
  57.  
  58. $rowNya = 6;
  59. $no = 0;
  60. while($row=mysql_fetch_array($hasil)){
  61. /*
  62.     $objPHPExcel->setActiveSheetIndex(0)
  63.     ->setCellValue("B2", $row['C_TIM'])
  64.     ->setCellValue("B3", $tanggal);
  65.     tulisan keterangan
  66. */
  67.     if($no==0)
  68.         $a[2]=array(2=>$row['C_TIM'],$tanggal);
  69.        
  70.     $no++; //= $no +1;
  71.     /*
  72.     $objPHPExcel->setActiveSheetIndex(0)
  73.     ->setCellValue("A$rowNya", $no)
  74.     ->setCellValue("B$rowNya", $row['NM'])
  75.     ->setCellValue("C$rowNya", $row['ID_PEL']."    " )
  76.     ->setCellValue("D$rowNya", $row['NO_METER']."    ")
  77.     ->setCellValue("E$rowNya", $row['DY_BR'])
  78.     ->setCellValue("F$rowNya", $row['GARDU'])
  79.     ->setCellValue("G$rowNya", $row['TIANG']);
  80.     */
  81.     $i2=$no+5; $a[$i2]=array( $no
  82.     , $row['NM']
  83.     , $row['ID_PEL']."    "
  84.     , $row['NO_METER']."    "
  85.     , $row['DY_BR']
  86.     , $row['GARDU']
  87.     $row['TIANG']
  88.     );
  89.     $rowNya = $rowNya + 1;
  90. }
  91.  
  92.  
  93. /*
  94. // Rename sheet
  95. $objPHPExcel->getActiveSheet()->setTitle('Simple');
  96.  
  97. // Set active sheet index to the first sheet, so Excel opens this as the first sheet
  98. $objPHPExcel->setActiveSheetIndex(0);
  99.  
  100. // Redirect output to a client’s web browser (Excel5)
  101. header('Content-Type: application/vnd.ms-excel');
  102. header('Content-Disposition: attachment;filename="database_plg.xls"');
  103. header('Cache-Control: max-age=0');
  104.  
  105. $objWriter = PHPExcel_IOFactory::createWriter($objPHPExcel, 'Excel5');
  106. $objWriter->save('php://output');
  107. */
  108. $s='<table border=1>';
  109. for($i=0;$i<count($a);$i++)
  110. {
  111.     $s.="\n<tr>";
  112.     for($j=0;$j<7;$j++){
  113.         is_null($a[$i][$j])?$s.="\n\t<td>&nbsp;</td>":$s.="\n\t<td>$a[$i][$j]</td>";
  114.     }
  115.     $s.="\n</tr>";
  116. }
  117. $s='</table>';
  118. die($s);
  119. ?>
  120. <? ob_flush(); ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement