Advertisement
GWibisono

perbaikan.. semoga gk ada error

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