LAMPIRAN LISTING PROGRAM
1. Koneksi.php
2.
Proses User login (user_login.php)
<script language="javascript"> alert ('Maaf, user atau password anda salah') window.location ='../index.php?pg=login'
3. Proses Registrasi Pasien (registrasi_process.php)
$nama_user=$_POST['nama_user']; $password=$_POST['password'];
$sql=mysql_query("insert into data_pasien values ('','$nama','$alamat','$usia','$jenis_kelamin')",$koneksi); $pilih=mysql_query("select * from data_pasien order by id_pasien desc"); $s=mysql_fetch_array($pilih); $id_pasien=$s['id_pasien']; $user=mysql_query("insert into data_user values ('','$id_pasien','$nama_user','$password','pasien')",$koneksi)or die(mysql_error()); if ($user==true) {header("location:../index.php?pg=login");} ?>
4. Proses Kotak masuk (Kotak_masuk_process.php) "POST") die("You can only reach this page by posting from the html form"); //check name and email if ($email =="" or $nama=="") {?> <script language="javascript"> <script language="javascript">
--> <script language="javascript">
5. Logout.php "); ?>
6. Delete pasien (delete.php)
7. Proses edit data pasien (process_edit.php)
?> <script language="JavaScript"> window.location = "../index.php?pg=profil/index.php&id="; alert('Password Tidak Diubah') <script language="javascript">
18. Detail rekam medis pasien (detail.php)
Konsultasi
Hasil pemeriksaan Anda pada:
| Tanggal | |
| Waktu | |
| Skor | |
Kesimpulan | = 165) { echo "Addict Tinggi";} ?> |
| Keterangan |
else if ($row['skor'] >= 165) { echo "Addict Tinggi (Severe). Pada tingkatan ini individu mengalami permasalahan yang signifikan dalam kehidupan mereka. Internet merupakan hal yang paling utama sehingga mengabaikan kepentingan-kepentingan yang lain. Pada tingkatan ini kenali masalah mendasar yang dapat mendukung kecanduan internet anda. Jika anda sedang berjuang dengan depresi, stres, atau kecemasan, misalnya, kecanduan internet mungkin cara untuk menenangkan diri sendiri. Kenali jika anda membutuhkan treatment seperti terapi, atau pertemuan kelompok. Ganti penggunaan internet anda dengan kegiatan sehat. Jika anda bosan dan kesepian dan dapat mendorong anda untuk kembali online maka buatlah rencana lain untuk mengisi waktu, seperti pergi makan siang dengan teman, belajar, atau mengundang teman untuk berbincang-bincang. Perlakukan internet sebagai alat bantu. tetap fokus pada kenyataan bahwa internet merupakan sarana untuk mencapai tujuan. Rencanakan strategi anda-apakah anda mencari informasi atau hiburan-dengan akhir dalam pikiran dan anda akan menghemat waktu yang berharga. Yang sangat diperlukan pada tingkatan ini adalah mencari profesional konseling. Terapi dapat memberikan dorongan yang luar biasa dalam mengontrol penggunaan internet. Terapi kognitif-perilaku menyediakan cara langkah demi langkah untuk menghentikan perilaku kompulsif internet, bekerja dengan terapis pada perubahan pikiran dan perilaku sekitarnya menggunakan iternet. Terapi juga dapat membantu anda belajar sehat cara mengatasi emosi tidak nyaman. Dan jika depresi atau kecemasan berkontribusi untuk menggunakan internet berlebih anda, terapi juga dapat mengatasi masalah itu.";} ?> |
Pertanyaan
"; echo "
19. Delete rekam medis pasien (delete.php)
} ?>
$qry= mysql_query ("delete from data_rekam_medis where id_rekam_m='$id'",$koneksi) or die (mysql_error()); $memori=mysql_query ("delete from data_memori where id_pasien='$_SESSION[id]' and akses='$akses'",$koneksi) or die (mysql_error()); if ($qry && $memori) header ("location:../index.php?pg=rekam/index.php"); ?>
20. Proses konsultasi (proses.php) <script language="javascript"> <script language="javascript">
21. Proses edit admin (process_edit.php)
if($password=="") { ?> <script language="JavaScript"> window.location = "../index.php?pg=admin/index.php&id=&status=edit"; alert('Password Tidak Diubah') <script language="javascript"> <script language="JavaScript"> window.location = "../index.php?pg=admin/index.php&id=&status=edit"; alert('Tidak ada perubahan')
22. Balas kotak masuk (replay.php)
Manajemen Kotak Masuk >> Balas Pesan
"; if ($row=mysql_fetch_array ($view)) { ?>
23. Hapus pesan (hapus.php)
24. Manajemen pertanyaan (process.php)
$status=$_REQUEST['status']; $qry = mysql_query (" insert into data_pertanyaan(pertanyaan,status) values ('$pertanyaan','$status')",$koneksi) or die (mysql_error()); ?> <script language="javascript">
25. Proses edit (process_edit.php) <script language="javascript"> "; -->
26. Hapus pertanyaan (delete,php)
