function DftrSmt($mhswid, $mhsw) { TampilkanHeaderMhsw($mhsw); $s = "select k.*,\n sm.Nama as STT\n from khs k\n left outer join statusmhsw sm on sm.StatusMhswID = k.StatusMhswID\n where k.KodeID = '" . KodeID . "'\n and k.MhswID = '{$mhswid}'\n order by k.Sesi"; $r = _query($s); $n = 0; echo "<table class=box cellspacing=1 width=100%>"; echo "<tr>\n <th class=ttl>Sesi</th>\n <th class=ttl>Thn Akd</th>\n <th class=ttl>Status</th>\n <th class=ttl>SKS</th>\n <th class=ttl>IPS</th>\n <th class=ttl>IPK</th>\n <th class=ttl>Biaya</th>\n <th class=ttl>Potongan</th>\n <th class=ttl>Pembayaran</th>\n <th class=ttl>Penarikan</th>\n <th class=ttl>Balance</th>\n </tr>"; while ($w = _fetch_array($r)) { $n++; echo "<tr>\n <td class=inp>{$w['Sesi']}</td>\n <td class=ul1>{$w['TahunID']}</td>\n <td class=ul1>{$w['STT']}<sup>{$w['StatusMhswID']}</sup></td>\n <td class=ul1 align=right>{$w['SKS']}</td>\n <td class=ul1 align=right>{$w['IPS']}</td>\n <td class=ul1 align=right>{$w['IPK']}</td>\n <td class=ul1 align=right>{$w['Biaya']}</td>\n <td class=ul1 align=right>{$w['Potongan']}</td>\n <td class=ul1 align=right>{$w['Bayar']}</td>\n <td class=ul1 align=right>{$w['Tarik']}</td>\n <td class=ul1 align=right>{$w['Balance']}</td>\n </tr>"; } echo "</table></p>"; }
CekBolehAksesModul(); TampilkanCariMhswnya(); if (!empty($_krsTahunID) && !empty($_krsMhswID)) { $oke = BolehAksesData($_krsMhswID); if ($oke) { $oke = ValidasiDataMhsw($_krsTahunID, $_krsMhswID, $khs); } if ($oke) { $oke = CekPembayaran($_krsMhswID); } if ($oke) { $mhsw = GetFields("mhsw m\r\n left outer join statusawal sta on sta.StatusAwalID = m.StatusAwalID \r\n\t left outer join dosen d on d.Login = m.PenasehatAkademik", "m.KodeID = '" . KodeID . "' and m.MhswID", $_krsMhswID, "m.*, sta.Nama as STAWAL, d.Nama as namaDosen"); $thn = GetFields("tahun", "KodeID = '" . KodeID . "' and TahunID", $_krsTahunID, "*"); $gos = sqling($_REQUEST['gos']); if (empty($gos)) { TampilkanHeaderMhsw($thn, $mhsw, $khs); TampilkanDaftarKRSMhsw($thn, $mhsw, $khs); } else { $gos(); } } } // *** Functions *** function TampilkanCariMhswnya() { $s = "select DISTINCT(TahunID) from tahun where KodeID='" . KodeID . "' order by TahunID DESC"; $r = _query($s); $opttahun = "<option value=''></option>"; while ($w = _fetch_array($r)) { $ck = $w['TahunID'] == $_SESSION['_krsTahunID'] ? "selected" : ''; $opttahun .= "<option value='{$w['TahunID']}' {$ck}>{$w['TahunID']}</option>";
global $HeaderMSHS; if (!empty($_SESSION['DariNPM'])) { $_SESSION['SampaiNPM'] = empty($_SESSION['SampaiNPM']) ? $_SESSION['DariNPM'] : $_SESSION['SampaiNPM']; $_npm = "'{$_SESSION['DariNPM']}' <= MhswID and MhswID <= '{$_SESSION['SampaiNPM']}' "; } else { $drmhsw = GetaField('mhsw', "NA", "N", "min(MhswID)"); $smpmhsw = GetaField('mhsw', "NA", "N", "max(MhswID)"); $_npm = "'{$drmhsw}' <= MhswID and MhswID <= '{$smpmhsw}' "; } $s = "select MhswID\r\n from mhsw\r\n where {$_npm}\r\n\t\torder by MhswID"; $r = _query($s); $n = 0; $DBFName = "dikti/MHMHS-20062.DBF"; DBFCreate($DBFName, $HeaderMSHS); while ($w = _fetch_array($r)) { $n++; $_SESSION["DBF-MHSWID-{$n}"] = $w['MhswID']; } $_SESSION["DBF-FILES"] = $DBFName; $_SESSION["DBF-POS"] = 0; $_SESSION["DBF-MAX"] = $n; echo "<p>Akan diproses <font size=+1>{$n}</font> data.</p>"; echo "<p><IFRAME src='dikti.mastermhsw.go.php' frameborder=0 height=400 width=600>\r\n </IFRAME></p>"; } $DariNPM = GetSetVar('DariNPM'); $SampaiNPM = GetSetVar('SampaiNPM'); TampilkanJudul("Proses membuat Master Mahasiswa untuk Dikti"); TampilkanHeaderMhsw(); if (!empty($_REQUEST['gos'])) { $_REQUEST['gos'](); }
$sub = !empty($_REQUEST['sub']) ? $_REQUEST['sub'] : 'frmPT'; $sub(); } function mb() { include_once "mhsw.edt.masterbipot.php"; $sub = !empty($_REQUEST['sub']) ? $_REQUEST['sub'] : 'BPTEDT'; $sub(); } // *** Parameters *** $arrmhswpg = array('Pribadi->pri', 'Alamat Tetap->almt', 'Akademik->akd', 'Orang Tua->ortu', 'Asal Sekolah->sek', 'Asal Perguruan Tinggi->pt', 'Bank->bank'); //'Master Bipot->mb'); $mhswid = GetSetVar('mhswid'); $mhswpg = GetSetVar('mhswpg', 'pri'); $mnux = 'mhsw.edt'; $pref = 'mhswedt'; $token = GetSetVar($pref, 'pri'); // *** Main *** TampilkanJudul("Data Mahasiswa"); if (!empty($_SESSION['mhswid'])) { $datamhsw = GetFields("mhsw m\r\n left outer join prodi prd on m.ProdiID=prd.ProdiID\r\n left outer join program prg on m.ProgramID=prg.ProgramID", 'm.MhswID', $mhswid, "m.*, prd.Nama as PRD, prg.Nama as PRG"); if (!empty($datamhsw)) { TampilkanHeaderMhsw($datamhsw); TampilkanSubMenu($mnux, $arrmhswpg, $pref, $token); if (!empty($token)) { $token(); } } else { echo ErrorMsg("Kesalahan", "Terjadi kesalahan. Mahasiswa dengan NPM: <b>{$mhswid}</b> tidak ditemukan."); } }
<?php // Author : Emanuel Setio Dewo // Email : setio.dewo@gmail.com // Start : 10 Sept 2008 // *** Parameters *** $MhswID = GetSetVar('MhswID'); $mhsw = GetFields("mhsw m\r\n left outer join dosen d on m.PenasehatAkademik = d.Login and d.KodeID='" . KodeID . "'\r\n left outer join prodi prd on prd.ProdiID = m.ProdiID and prd.KodeID='" . KodeID . "'\r\n left outer join program prg on prg.ProgramID = m.ProgramID and prg.KodeID='" . KodeID . "'\r\n ", "m.KodeID='" . KodeID . "' and m.MhswID", $MhswID, "m.*, prd.Nama as _PRD, prg.Nama as _PRG,\r\n d.Nama as DSN, d.Gelar"); // *** Main *** TampilkanJudul("Koreksi Nilai Mahasiswa"); TampilkanHeaderMhsw($MhswID, $mhsw); $gos = empty($_REQUEST['gos']) ? "EditNilaiMhsw" : $_REQUEST['gos']; if (!empty($mhsw)) { $gos($MhswID, $mhsw); } // *** Functions *** function TampilkanHeaderMhsw($MhswID, $w) { echo <<<ESD <table class=box cellspacing=1 width=700> <form action='?' method=POST> <input type=hidden name='mnux' value='{$_SESSION['mnux']}' /> <input type=hidden name='gos' value='' /> <tr><td class=inp width=100>NIM:</td> <td class=ul width=210> <input type=text name='MhswID' value='{$_SESSION['MhswID']}' size=12 maxlength=20 /> <input type=submit name='Ambil' value='Get Data' /> </td> <td class=inp width=100>Mahasiswa:</td> <td class=ul><b>{$w['Nama']}</b> </td> </tr>
function fnKonversi() { $MhswID = sqling($_REQUEST['MhswID']); $mhsw = GetFields('mhsw', "MhswID='{$MhswID}' and KodeID", KodeID, '*'); TampilkanHeaderMhsw($mhsw); }
function TampilkanDataMhsw($mhsw, $khs) { TampilkanHeaderMhsw($mhsw, $khs); }