Advertisement
GWibisono

muncul sebagai excel

May 27th, 2012
146
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
PHP 2.94 KB | None | 0 0
  1. <?php
  2. error_reporting(0);
  3. mysql_connect("localhost","root","root");
  4. mysql_select_db("pln2");
  5. $qry_data=mysql_query("SELECT c.TGL, a.NM_ENTRY, b.NM, b.ALAMAT, c.ID_PEL, c.NO_METER, c.DY_BR, c.GARDU, c.TIANG, b.KET FROM t_tim a, tm_plg b, td_plg c, t_token d, t_kasir e, t_material f WHERE a.C_TIM=b.C_TIM and b.NO_MAT=f.NO_MAT and b.NO_KSR=e.NO_KSR and c.NO_TOKEN=d.NO_TOKEN and a.C_TIM=d.C_TIM and a.C_TIM=e.C_TIM and a.C_TIM=f.C_TIM and b.KTP=c.KTP");
  6.  
  7. /*
  8. BANYAK AMAT... padahal cuma 2 cukup
  9. // Mendeklarasikan file hasil laporan
  10. header("Pragma: public");
  11. header("Expires: 0");
  12. header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
  13. header("Content-Type: application/force-download");
  14. header("Content-Type: application/octet-stream");
  15. header("Content-Type: application/download");
  16. header("Content-Disposition: attachment;filename=nilai.xls");
  17. header("Content-Transfer-Encoding: binary ");
  18. header("Pragma: public");
  19. header("Expires: 0");
  20. header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
  21. header("Content-Type: application/force-download");
  22. header("Content-Type: application/octet-stream");
  23. header("Content-Type: application/download");;
  24. header("Content-Disposition:attachment;filename=datapelanggan.xls");
  25. header("Content-Transfer-Encoding: binary ");*/
  26.  
  27. header('Content-type: application/vnd.ms-excel');
  28. /*
  29. line ke 2 lebih baik dipake biar ada perintah downloadnya
  30. kalau ngak butuh.. hapus aja yg dibawah ini
  31. */
  32. header('Content-Disposition: attachment;'.
  33.     ' filename="read_'.date('Ymd').'.xls');      
  34.  
  35. xlsBOF();
  36. // Membuat Header dan nama kolom tabel
  37. xlsBuatLabel(0,0,"DAFTAR DATA PELANGGAN");
  38.  
  39. $s=xlsBuatLabel( "Nama");
  40. $s.=xlsBuatLabel( "Alamat");
  41. $s.=xlsBuatLabel( "No. Pelanggan");
  42. $s.=xlsBuatLabel "No. Meter");
  43. $s.=xlsBuatLabel( "Daya");
  44. $s.=xlsBuatLabel( "Gardu");
  45. $s.=xlsBuatLabel( "Tiang");
  46. $s.=xlsBuatLabel( "Penyetor");
  47. xlsBuatList($s);$s='';
  48. $xlsRow = 3;
  49. // Menampilkan data secara berulang
  50. while($data=mysql_fetch_array($qry_data)){
  51.     $s.=xlsBuatBaris( "Tanggal       :".$data['TGL']);
  52.     $s.=xlsBuatBaris( "Petugas Entry :".$data['NM_ENTRY']);
  53.     $s.=xlsBuatBaris( $data['NM']);
  54.     $s.=xlsBuatBaris( $data['ALAMAT']);
  55.     $s.=xlsBuatBaris( $data['ID_PEL']);
  56.     $s.=xlsBuatBaris( $data['NO_METER']);
  57.     $s.=xlsBuatBaris($data['DY_BR']);
  58.     $s.=xlsBuatBaris( $data['GARDU']);
  59.     $s.=xlsBuatBaris( $data['TIANG']);
  60.     $s.=xlsBuatBaris( $data['KET']);
  61.     $xlsRow++;
  62.     $s=xlsBuatList($s);$s='';
  63. }
  64. xlsEOF();
  65. exit();
  66.  
  67.  
  68. /*
  69. Dengan menyesal fungsi kamu terpaksa saya hapus
  70. */
  71.  
  72. // Fungsi saat data kosong
  73. function xlsBOF() {
  74.     echo "<table>";
  75.      
  76. }
  77. // Fungsi saat data berakhir
  78. function xlsEOF() {
  79.     echo "</table>"
  80.      
  81. }
  82. // Fungsi membuat baris data
  83. function xlsBuatBaris( $Value) {
  84.  
  85.     return "<td>$Value&nbsp;</td>";
  86. }
  87. // Fungsi menuliskan data bentuk label
  88. function xlsBuatLabel( $Value ) {
  89.     $L = strlen($Value);
  90.     return "<th>$L&nbsp;</th>";
  91.  
  92. }
  93.  
  94. function xlsBuatList($v)
  95. {
  96.     return "\n\t<tr>$v</tr>";
  97. }
  98. ?>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement