SISTEM PEMBAYARAN UPAH WARTAWAN MEDIA MASSA PADA DIVISION COMMUNICATION DI PT.TELKOM DIVRE I SUMATERA DENGAN MENGGUNAKAN PHP DAN MYSQL TUGAS AKHIR

1 2 SISTEM PEMBAYARAN UPAH WARTAWAN MEDIA MASSA PADA DIVISION COMMUNICATION DI PT.TELKOM DIVRE I SUMATERA DENGAN MENGGUNAKAN PHP DAN MYSQL TUGAS AKHIR...
Author:  Fanny Kusumo

18 downloads 55 Views 2MB Size

Recommend Documents

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

103



OUTPUTNYA :

LISTING UPAH / grafik.php


104

mysql_free_result($max); //kuantitaskan (SUM) seluruh nilai kuantitas dalam baris data sebagai ttlkuantitas $sum = mysql_query("SELECT SUM(kuantitas) AS ttlkuantitas FROM per_med") or die('ERROR SUM DATA'); $ttl = mysql_fetch_array($sum); $qry = mysql_query("SELECT * FROM per_med") or die('ERROR per_med DATA'); //ambil data MAX dari kuantitas $max = mysql_query("SELECT MAX(kuantitas) FROM per_med") or die('ERROR MAX DATA'); list ($most_value) = mysql_fetch_row($max); mysql_free_result($max); //kuantitaskan (SUM) seluruh nilai kuantitas dalam baris data sebagai ttlkuantitas $sum = mysql_query("SELECT SUM(kuantitas) AS ttlkuantitas FROM per_med") or die('ERROR SUM DATA'); $ttl = mysql_fetch_array($sum); ?>
Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

105

%
">
  
OUTPUTNYA :

LISTING UPAH / update.php


106

$query = mysql_query("update per_med set id='$id', media='$media', produk='$produk', judul = '$judul', kuantitas='$kuantitas' where id='$id'"); header("location:per_media.php"); ?>

LISTING UPAH / persen_edit.php

<meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Aplikasi Pembayaran :: <meta name="keywords" content="" /> <meta name="description" content="" /> <style type="text/css"> <script language="JavaScript"> function konf_del(lokasi) { hasil=window.confirm("Yakin akan didelete? "); if ( hasil==true ) { location.href=lokasi; } } Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

107



Persentase Berita dan Iklan Produk PT. Telkom DIVRE I Sumatera
dan Kompetitornya di Media Massa

FORM <span class="style4">UBAH DATA
Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

108

<strong>Media<strong>Produk <strong>Judul <strong>Jumlah Berita
"type="text"> "type="text"> " type="text"> " type="text"> " type="hidden">

News

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

109



 



OUTPUTNYA :

LISTING UPAH / save_persen.php Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

110

alert('Ada Form yang Kosong, Silahkan isi dengan benar ~_^'); self.location='per_media.php'; "; } else{ $sqlstr="INSERT INTO per_med(media,produk,judul,kuantitas, tanggal) values('$media','$produk','$judul','$kuantitas','$tanggal')"; $hasil = mysql_query($sqlstr,$cek); if(!$hasil) { echo "<script>alert('Data gagal Diinput'); self.location='per_media.php'; "; } else { echo "<script>alert('Data Berhasil di Upload'); self.location='per_media.php'; "; } } ?>

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

111

LISTING UPAH / surat_pembaca.php


?> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Sistem Pembayaran :: <meta name="keywords" content="" /> <meta name="description" content="" /> <style type="text/css"> Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

112

Sistem Pembayaran Upah Wartawan Media Massa PT. Telkom DIVRE I Sumatera

FORM SURAT PEMBACA dan BERITA MIRING

News

 

<marquee scrolldelay="3" scrollamount="3" onMouseOver="this.stop()" onMouseOut="this.start()" width="100%"> Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

114


113

src="link_kanan_data/1193457577_pejuang.jpg" border="1" width="120" height="40">

 



OUTPUNTA :

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

115

LISTING UPAH / input_berita.php

<meta http-equiv="Content-Type" content="text/html; charset=iso-88591" />

FORM INPUT SURAT PEMBACA / BERITA MIRING




value="Medan value="Medan value="Medan value="Medan value="Sinar

Pos">Radar Indonesia Pos">Barisan Baru Pos">Tempo Pos">Harian Bersama Indonesia Baru">Sinar Indonesia

value="Other">Lain - Lain

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

117

Tanggal Berita ">
Media <select name="media" type="text"> value="Seputar Indonesia">Seputar value="Sumut value="Medan value="Medan value="Medan value="Medan

Pos">Sumut Pos Pos">Medan Pos Pos">Harian Mandiri Pos">Bisnis Indonesia Pos">Gaya Medan

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

116

Judul
Tindakan
Do Date
PIC
Keterangan
Status Open Close
Data Berita



OUTPUTNYA :

LISTING UPAH / input_brtmrg.php

<meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Aplikasi Pembayaran :: <meta name="keywords" content="" /> <meta name="description" content="" /> <style type="text/css">
118

z-index:1; left: 883px; top: 69px; } -->

LOGOUT

Aplikasi Pembayaran Upah Jurnalistik PT. Telkom DIVRE I Sumatera

News

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

119

 

<marquee scrolldelay="3" scrollamount="3" onMouseOver="this.stop()" onMouseOut="this.start()" width="100%">

120

src="link_kanan_data/1170045334__adis.gif" border="0" width="120" height="48">

 



Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

121

OUTPUTNYA :

LISTING UPAH / input_surat.php


122

$id[$i]=$tampil["id"]; $tanggal[$i]=$tampil["tanggal"]; $media[$i]=$tampil["media"]; $filename[$i]=$tampil["filename"]; $judul[$i]=$tampil["judul"]; $tindakan[$i]=$tampil["tindakan"]; $dodate[$i]=$tampil["dodate"]; $pic[$i]=$tampil["pic"]; $keterangan[$i]=$tampil["keterangan"]; $status[$i]=$tampil["status"]; $i++; } mysql_free_result($hasil); return array($id,$tanggal,$media,$filename,$judul,$tindakan,$dodate,$pic,$ke terangan,$status); } ?> <script language="JavaScript"> function konf_del(lokasi) { hasil=window.confirm("Yakin akan didelete? "); if ( hasil==true ) { location.href=lokasi; } }
Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

123

No
Tanggal
Media
Judul
Proses Tindak Lanjut
Do Date
PIC
Keterangan
Status
Action
')">Hapus Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

124

&tanggal=&media=&judul=&tindakan=&dodate=&pic=&keterangan=&status="> Edit



OUTPUTNYA :

LISTING UPAH / ubah_surat.php



<meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Aplikasi Pembayaran :: <meta name="keywords" content="" /> <meta name="description" content="" /> Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

125

LOGOUT

Aplikasi Pembayaran Upah Jurnalistik PT. Telkom DIVRE I Sumatera

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

126

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

127

Tanggal Berita ">
Media <select name="media" value="" type="text">
Judul
Tindakan
Do Date " type="text" size="32">
PIC " type="text" size="32">
Keterangan " type="text" size="32">
Status Open Close
Data Berita
" type="hidden"> " type="hidden">





OUTPUTNYA :

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

128

LISTING UPAH / ubah2sp.php

alert('Ada form yang kosong...'); history.go( -1 ); "; } else { $uploaddir = $_SERVER['DOCUMENT_ROOT']."/upah/file/"; $uploadfile = $uploaddir.$_FILES['gambar']['name']; if (move_uploaded_file($_FILES['gambar']['tmp_name'], $uploadfile)) { $gmbr = "file/$gambar_name"; } $sqlstr="update brtmiring set id='$id', tanggal='$tanggal', media='$media', judul='$judul', tindakan='$tindakan', dodate='$dodate', pic='$pic', keterangan='$keterangan', status='$status', filename='$gmbr' where id='$id'"; Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

129

$hasil = mysql_query($sqlstr,$cek); if($hasil){ echo "<script>self.location='surat_pembaca.php';"; }} ?>

LISTING UPAH / saving_brt.php

alert('Ada Form yang Kosong, Silahkan isi dengan benar ~_^'); self.location='input_brtmrg.php'; "; } else{ $lokasi="file/".$HTTP_POST_FILES['filename'] ['name']; $hasil=move_uploaded_file("$filename","$lokasi"); $sqlstr="INSERT INTO brtmiring(tanggal,media,judul,tindakan,dodate,pic,keterangan,status,f ilename) values('$tanggal','$media','$judul','$tindakan','$dodate','$pic ','$keterangan','$status','$lokasi')"; //echo"$sqlstr"; $hasil = mysql_query($sqlstr,$cek); if(!$hasil) { echo "<script>alert('Data Berita gagal Diinput'); self.location='input_brtmrg.php'; "; } else { Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

130

echo "<script>alert('Data Berhasil di Upload'); self.location='surat_pembaca.php'; "; } } ?>

LISTING UPAH / wartawan.php

alert('Penghapusan Sukses'); self.location='wartawan.php'; "; } ?> <meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Persentase Produk :: <meta name="keywords" content="" /> <meta name="description" content="" /> <style type="text/css">
131

--> <script language="JavaScript"> function konf_del(lokasi) { hasil=window.confirm("Yakin akan didelete? "); if ( hasil==true ) { location.href=lokasi; } }

LOGOUT

Daftar Wartawan

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

132

<strong>Nama<strong>Email <strong>Media <strong>No HP

 

 

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

133


if($row){

$no=1; do{ list($id, $nama, $email, $media, $nohp)=$row; ?>
134

$no++; }while($row=mysql_fetch_row($hasil)); } else { echo "Belum Ada Data!"; } ?>
No. Nama Email Media No Hp Action
";?> ";?> ";?> ";?> ";?>
" method="post"> "> "> "> "> ">
"> "> "> "> ">

<strong>Data Wartawan



OUTPUTNYA :

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

135

LISTING UPAH / update_war.php



LISTING UPAH / wartawan_edit.php

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

136

<meta http-equiv="content-type" content="text/html; charset=utf-8" /> :: Aplikasi Pembayaran :: <meta name="keywords" content="" /> <meta name="description" content="" /> <style type="text/css"> <script language="JavaScript"> function konf_del(lokasi) { hasil=window.confirm("Yakin akan didelete? "); if ( hasil==true ) { location.href=lokasi; } }

LOGOUT

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

137

Data Wartawan

FORM <span class="style4">UBAH DATA
Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

138

<strong>Nama <strong>Email <strong>Media <strong> No HP
"type="text"> "type="text"> " type="text"> " type="text"> " type="hidden">

News



 

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.

139



OUTPUTNYA :

LISTING UPAH / saving_wartawan.php


140

echo "<script>alert('Ada Form yang Kosong, Silahkan isi dengan benar ~_^'); self.location='wartawan.php'; "; } else{ $sqlstr="INSERT INTO wartawan(nama,email,media,nohp) values('$nama','$email','$media','$nohp')"; $hasil = mysql_query($sqlstr,$cek); if(!$hasil) { echo "<script>alert('Data gagal Diinput'); self.location='wartawan.php'; "; } else { echo "<script>alert('Data Berhasil di Upload'); self.location='wartawan.php'; "; } } ?>

Defi Rakhmawati : Sistem Pembayaran Upah Wartawan Media Massa Pada Division Communication Di PT. Telkom Divre I Sumatera Dengan Menggunakan Php Dan Mysql, 2009.