4.1.
Dialog Login Ke Sistem
Form
ini berguna untuk mengatur hak akses pengguna, pada sistem pendukung keputusan
ini hanya satu orang pengguna yaitu operator yang menggunakannya. Untuk menghasilkan
suatu implementasi dibutuhkan source program, yaitu sebagai
berikut :
Command Login:
vuser = ALLTRIM(thisform.txtuserid.Value)
vpws = ALLTRIM(thisform.txtpws.Value)
IF ISBLANK(vuser)
RETURN
ENDIF
SELECT * FROM tbluser WHERE
userid = vuser AND pws=vpws INTO CURSOR clogin
SELECT clogin
IF RECCOUNT()<=0
MESSAGEBOX('Maaf, User ID dan Password tidak terdaftar',0,'Login...')
RETURN
ENDIF
* BROWSE
thisform.Release()
thisform.vlogin()
Gambar 4.1 dibawah ini menunjukkan
implementasi dari proses login ke sistem.
Gambar 4.1.
Dialog login ke sistem
4.2.
Dialog Menu Utama
Dialog
menu utama ini dapat ditampilkan jika kita telah melaksanakan login sistem
secara benar. Pada bagian menu utama ini terdapat beberapa menu yaitu: file,
mode setting, master data, dan laporan. Gambar 4.2. implementasi dialog
menu utama.
Gambar 4.2 Dialog Menu
Utama
4.2.1.
Implementasi Antarmuka
}\
Gambar 4.3. Implementasi Antarmuka
Untuk menghasilkan
implementasi diatas berdasarkan source
program berikut :
DO FORM frmbiodata
DO FORM frmpenilaian
DO FORM frmmonitoring
DO FORM frmgolruang
DO FORM frmkriteria
DO FORM frmsubkriteria
DO FORM frmlapmonitorhasil
DO FORM frmpenilaian
DO FORM frmlapkelayakan
DO FORM frmsettingnilai
DO FORM frmuser
SELECT Tblbiodata.nip,
Tblbiodata.nama, Tblbiodata.tmptlahir,;
Tblbiodata.tgllhr, Tblbiodata.jkel,
Tblbiodata.skawin,;
Tblbiodata.statuspeg, Tblbiodata.kdgol,
Tblbiodata.jabatan, Tblbiodata.asalskl,;
Tblbiodata.alamat, Tblbiodata.telp;
FROM dbkepsmp!tblbiodata
INTO CURSOR clpp
SELECT clpp
*browse
REPORT
FORM rptkepala.frx preview
4.2.2. Dialog Menu File
Gambar 4.4 Dialog Menu File
4.2.2.1. Dialog Sub Menu Data Operator / User
Form
dialog sub menu data user ini untuk memasukkan data user yang menggunakan
program ini. Source programnya adalah
sebagai berikut :
**
Procedure Text Valid
vuserid=thisform.txtuserid.value
if isblank(vuserid)
return
endif
select * from tbluser where userid=vuserid into
cursor ctbluser
select ctbluser
if
reccount()<=0
thisform.cmdsimpan.enabled = .t.
return
endif
thisform.matiteks()
thisform.tampildata()
thisform.cmdsimpan.enabled = .f.
thisform.cmdhapus.enabled = .t.
thisform.cmdkoreksi.caption =
'\
Gambar 4.5 menunjukkan
implementasi penginputan data user.
Gambar 4.5 Dialog Sub Menu Data
User
4.2.2.2. Dialog Sub Menu Data Set Nilai Kelayakan
Form
dialog sub menu data set nilai
kelayakan ini untuk mengeset ketentuan nilai kelayakan menjadi kepala
sekolah. Source
programnya adalah sebagai berikut :
vnilaikp=thisform.text1.Value
vhasilkp=thisform.text2.Value
vangke =thisform.text4.Value
vuserid=thisform.txtuserid.value
vtahun=thisform.text3.Value
vpws = ALLTRIM(thisform.txtpws.Value)
IF ISBLANK(vuserid)
MESSAGEBOX('Maaf Username Belum anda masukkan','Konfirmasi')
RETURN
ENDIF
SELECT * FROM tbluser WHERE
userid = vuserid AND pws=vpws INTO CURSOR clogin
SELECT clogin
IF RECCOUNT()<=0
MESSAGEBOX('Maaf, User ID dan Password tidak terdaftar',0,'Login...')
RETURN
ENDIF
messagebox(' UPDATE NILAI ULANG
?',32,'Konfirmasi')
UPDATE tbsettingnilai SET nilaikp=vnilaikp,hasilkp=vhasilkp,angke=vangke,thnset=vtahun
Gambar 4.6. Dialog Sub Menu Set Nilai
Kelayakan
4.2.3. Dialog Menu Model Setting
Dialog
menu model ini terdiri dari sub menu yaitu: kriteria, sub kriteria dan golongan. Implementasi dialog
menu model dapat dilihat gambar 4.7.
Gambar 4.7. Dialog Menu Model Setting
4.2.3.1. Dialog Sub Menu Kriteria
Form
sub menu kriteria gunanya untuk pengisian kriteria-kriteria. Kriteria pada
siatem pendukung keputusan ini terdapat 6
macam kriteria. Source
programnya adalah sebagai berikut :
vkode =thisform.txtkdkriteria.Value
vjns=thisform.cmbjenis.Value
SELECT * FROM tbkriteria WHERE kdkriteria=vkode INTO CURSOR cload
SELECT cload
IF ISBLANK(vkode) AND ISBLANK(vjns)
RETURN
ENDIF
IF
RECCOUNT() <= 0
thisform.cmdsimpan.Enabled =.t.
RETURN
ENDIF
thisform.matiteks ()
thisform.tampildata ()
thisform.cmdsimpan.Enabled = .F.
thisform.cmdkoreksi.Enabled= .T.
thisform.cmdhapus.Enabled = .T.
thisform.cmdkoreksi.Caption ='\
Untuk lebih jelasnya kriteria-kriteria ini dapat dilihat
pada gambar 4.8.
Gambar 4.8. Dialog Sub Menu
Kriteria
4.2.3.2. Dialog Sub Menu Sub
Kriteria
Form sub menu sub_kriteria ini untuk penilaian
item sub_kriteria berdasarkan kriteria masing-masing. Source
programnya adalah sebagai berikut :
vkode =thisform.txtkdsub.Value
vkdkri =thisform.txtkdkriteria.Value
SELECT * FROM tbsubkriteria WHERE kdkriteria=vkdkri AND kdsub=vkode INTO CURSOR cload
SELECT cload
IF ISBLANK(vkode)
RETURN
ENDIF
IF
RECCOUNT() <= 0
MESSAGEBOX(" data yang ada cari belum ada ")
thisform.cmdsimpan.Enabled =.t.
RETURN
ENDIF
thisform.matiteks ()
thisform.tampildata ()
thisform.cmdsimpan.Enabled = .F.
thisform.cmdkoreksi.Enabled= .T.
thisform.cmdhapus.Enabled = .T.
thisform.cmdkoreksi.Caption ='\
thisform.loaddata
()
Implementasi sub_kriteria ini dapat dilihat pada gambar 4.9 berikut :
Gambar 4.9. Dialog Sub Menu Sub Kriteria
|
4.2.3.3. Dialog Sub Menu Golongan
Source program yang digunakan untuk form golongan
adalah sebagai berikut :
**
Procedure Text Valid
vkdgol=thisform.txtkdgol.value
if isblank(vkdgol)
return
endif
select * from tblgolruang where kdgol=vkdgol into cursor ctblgolruang
select ctblgolruang
if
reccount()<=0
thisform.cmdsimpan.enabled = .t.
return
endif
thisform.matiteks()
thisform.tampildata()
thisform.cmdsimpan.enabled = .f.
thisform.cmdhapus.enabled = .t.
thisform.cmdkoreksi.caption =
'\
Gambar 4.10.
Dialog Sub Menu Golongan
|
4.2.3.4. Dialog Sub Menu Pembuat
Penilaian / Periode
Source program yang digunakan untuk form
penilaian/periode ini adalah sebagai berikut :
**
Procedure Simpan/Edit Data
vperiode=thisform.txtperiode.value
vnamapdg=thisform.pf.page1.txtnamapdg.value
vnippdg=thisform.pf.page1.txtnippdg.value
vtahun=thisform.txttahun.value
IF ISBLANK(vperiode) THEN
RETURN
ENDIF
IF mEdit = .f.
INSERT INTO tblsettingperiode (periode,namapdg,nippdg,tahun);
VALUES (vperiode,vnamapdg,vnippdg,vtahun)
ELSE
UPDATE tblsettingperiode
SET namapdg=vnamapdg,nippdg=vnippdg;
WHERE periode=vperiode AND tahun=vtahun
ENDIF
thisform.init()
thisform.txtperiode.setfocus()
Form
sub menu Periode ini
untuk menentukan pada periode berapa melakukan penilaian
pengangkatan calon kepala sekolah dan siapa yang mengelolanya, implementasinya
dapat dilihat pada gambar 4.11 berikut ini :
Gambar 4.11. Dialog Sub Menu Pembuat
Penilaian / Periode
4.2.4. Dialog Menu Data / Master
Dialog
menu data terdiri dari sub menu yaitu kodefikasi
wilayah yang meliputi input data kecamatan dan data sekolah,
input data calon kepala sekolah,
dan seleksi calon kepala sekolah.
Adapun implementasi dialog menu data dapat dilihat pada gambar 4.12.
Gambar 4.12.
Dialog Menu Data
4.2.4.1. Dialog Sub Menu
Data Kecamatan
Form
dialog sub menu data kecamatan ini untuk memasukkan data kecamatan-kecamatan
yang ada dalam Kabupaten Pidie. Source
programnya adalah sebagai berikut :
**
Procedure Text Valid
vkdkec=thisform.txtkdkec.value
if isblank(vkdkec)
return
endif
select * from tblkecamatan where kdkec=vkdkec into cursor ctblkecamatan
select ctblkecamatan
if
reccount()<=0
thisform.cmdsimpan.enabled = .t.
return
endif
thisform.matiteks()
thisform.txtnamakec.value = namakec
thisform.cmdsimpan.enabled = .f.
thisform.cmdhapus.enabled = .t.
thisform.cmdkoreksi.caption
= '\
Gambar 4.13. menunjukkan
implementasi penginputan data kecamatan.
Gambar 4.13. Dialog Sub Menu Data
Kecamatan
4.2.4.2. Dialog Sub Menu
Data Sekolah
Form
sub menu data Sekolah
ini yaitu untuk memasukkan data sekolah-sekolah
yang ada di Kabupaten Pidie. Adapun data yang dimasukkan pada dialog sub
menu data sekolah ini
dapat dilihat pada gambar 4.14.
Gambar 4.14. Dialog Sub Menu Data Sekolah
Source programnya adalah sebagai berikut :
vkdkec = thisform.txtkdkec.Value
vkdsklh=thisform.txtkdsklh.value
if isblank(vkdsklh)
return
endif
select * from tblsekolah
where kdkec=vkdkec
AND kdsklh=vkdsklh into cursor ctblsekolah
select ctblsekolah
if reccount()<=0
thisform.cmdsimpan.enabled = .t.
return
endif
thisform.matiteks()
thisform.tampildata()
thisform.cmdsimpan.enabled = .f.
thisform.cmdhapus.enabled = .t.
thisform.cmdkoreksi.caption =
'\
4.2.4.3. Dialog Sub Menu Data Calon
Kepala
Gambar 4.15 Dialog Sub Menu Data Calon
Kepala Sekolah
Source programnya adalah sebagai berikut :
**
Procedure Simpan/Edit Data
vnip=thisform.txtnip.value
valamat=thisform.txtalamat.value
vjabatan=thisform.txtjabatan.value
vjkel=thisform.txtjkel.value
vkdgol=thisform.txtkdgol.value
vnama=thisform.txtnama.value
vskawin=thisform.txtskawin.value
vstatuspeg=thisform.txtstatuspeg.value
vtelp=thisform.txttelp.value
vtgllhr=thisform.txttgllhr.value
vtmptlahir=thisform.txttmptlahir.value
vkdkec=thisform.txtkdkec.Value
vkdsklh =
thisform.txtkdsklh.Value
vasal=thisform.cmbasalskl.Value
vnmskl=thisform.txtnamasekolah.Value
IF ISBLANK(vnip) THEN
RETURN
ENDIF
IF mEdit = .f.
INSERT INTO tblbiodata
(nip,alamat,jabatan,jkel,kdgol,nama,skawin,statuspeg,telp,tgllhr,tmptlahir,kdkec,kdsklh,asalskl,namasekolah);
VALUES (vnip,valamat,vjabatan,vjkel,vkdgol,vnama,vskawin,vstatuspeg,vtelp,vtgllhr,vtmptlahir,vkdkec,vkdsklh,vasal,vnmskl)
ELSE
UPDATE tblbiodata SET alamat=valamat,jabatan=vjabatan,jkel=vjkel,kdgol=vkdgol,nama=vnama,skawin=vskawin,statuspeg=vstatuspeg,;
telp=vtelp,tgllhr=vtgllhr,tmptlahir=vtmptlahir,kdkec=vkdkec,kdsklh=vkdsklh,asalskl=vasal,namasekolah=vnmskl;
WHERE nip=vnip
ENDIF
thisform.init()
thisform.txtnip.setfocus()
4.2.5. Dialog Sub Menu Penilaian
Seleksi
Gambar 4.16. Dialog Sub Menu Penilaian Seleksi
|
4.2.5.1. Dialog Sub Menu Seleksi /
Penilaian
Form
sub menu seleksi ini
yaitu berisi pemasukan data penilaian seorang
calon kepala sekolah berdasarkan kriteria-kriteria.
Implementasi pemasukan data penilaian dapat dilihat pada gambar 4.17.
Gambar 4.17. Dialog Sub Menu Seleksi Penilaian
Source programnya adalah sebagai berikut :
vnip=thisform.txtnip.value
v1=thisform.txttglpenilai.value
v3=thisform.txtkdkriteria.value
v4=thisform.txtkdsub.value
v5=thisform.txtnilai.value
vangke=thisform.txtangke.Value
vperiode=thisform.txtperiode.Value
vtahun=thisform.txttahun.Value
vbobot=thisform.txtbobot.Value
IF ISBLANK(vperiode) OR ISBLANK(vtahun) OR ISBLANK(vnip)
MESSAGEBOX('Periode * tahun * ')
RETURN
ENDIF
SELECT periode, tahun,nip FROM tbpenilaian WHERE periode=vperiode
AND tahun=vtahun AND nip=vnip INTO CURSOR cAuto
SELECT cAuto
IF ISBLANK(vnip) THEN
MESSAGEBOX('Data
belum valid',0,'Validasi Data')
RETURN
ENDIF
IF ISBLANK(v4) THEN
MESSAGEBOX('Data
Sub kriteria belum isi',0,'Validasi Data')
RETURN
ENDIF
IF medit=.f.
INSERT
INTO tbpenilaian (nip,tglpenilai,kdkriteria,kdsub,nilai,angke,periode,tahun,bobot);
VALUES (vnip,v1,v3,v4,v5,vangke,vperiode,vtahun,vbobot)
ELSE
UPDATE tbpenilaian SET tglpenilai=v1,kdkriteria=v3,nilai=v5,bobot=vbobot;
where nip=vnip AND kdsub=v4 AND
angke=vangke and periode=vperiode AND tahun=vtahun
ENDIF
thisform.txtkdsub.Value =''
thisform.txtnmsub.Value =''
thisform.txtnilai.Value =''
thisform.txtkdsub.SetFocus ()
thisform.cmbkriteria.SetFocus
()
thisform.cmbkriteria.Valid ()
thisform.loaddata ()
vkd=thisform.cmbkriteria.Value
SELECT * FROM tbkriteria WHERE nmkriteria=vkd INTO CURSOR ckri
SELECT ckri
IF RECCOUNT()<=0
thisform.cmdsimpan.Enabled = .t.
RETURN
ENDIF
thisform.txtkdkriteria.Value =kdkriteria
thisform.txtbobot.Value =bobot
thisform.txtbobot.Enabled =.f.
thisform.txtkdsub.SetFocus ()
thisform.loadkriteria()
4.2.5.2. Dialog Sub Menu Hasil
Penilaian Seleksi Kepala Sekolah
Form
sub menu hasil penilaian seleksi
ini yaitu berisi pemasukan data penilaian untuk
di proses berdasarkan kriteria-kriteria. Source program untuk hasil penilaian seleksi adalah
sebagai berikut :
vtnilai =
thisform.txttnilai.Value
vbobot =thisform.text2.Value
vnilai=thisform.text3.Value
vnip=thisform.txtnip.Value
**
hasilnya skor * bobot / 100 =...
thisform.txttnilai.Value =(vnilai +
vbobot) / 100
if
thisform.txttnilai.Value < thisform.text1.value
thisform.txtkp.Value ="Tidak
Sesuai Kriteria"
MESSAGEBOX('Belum Lulus Slekesi *Karena Tidak Layak*','Konfirmasi')
thisform.vtidaklayak ()
return
ENDIF
thisform.txtkp.Value ="Sesuai
Kriteria"
IF ISBLANK(vperiode)then
MESSAGE('periode dan tahun belum diisi')
RETURN
ENDIF
Implementasi prosesnya dapat dilihat pada
gambar 4.18.
Gambar 4.18. Dialog Sub Menu Hasil
Penilaian Seleksi Kepala Sekolah
4.2.6. Dialog Menu Laporan
Dialog
menu laporan ini terdiri dari laporan detail
penilaian,
laporan semua kriteria yang dinilai, laporan kelayakan calon kepala sekolah
dan laporan rekapitulasi calon kepala.
Implementasi laporan ini dapat dilihat pada gambar 4.19.
Gambar 4.19. Dialog Menu Laporan
4.2.6.1. Laporan Detail
Penilaian
Dialog
sub menu ini berisi laporan detail penilaian
calon kepala sekolah.
Penilaian dilakukan berdasarkan atas 6
macam kriteria dan source programnya
adalah sebagai berikut :
vnip =thisform.txtnip.Value
vangke=thisform.txtangke.Value
vtahun =thisform.text2.Value
*!* IF ISBLANK(vnip) THEN
*!* MESSAGEBOX('Nip masih kosong isi
dulu','Konfirmasi')
*!* endif
IF thisform.check1.Value =1 THEN
SELECT Tbmonitor.nip,
Tbmonitor.tnilai, Tbmonitor.kp, Tbmonitor.angke,;
Tbmonitor.tahun, Tbmonitor.periode,
Tbpenilaian.nip,;
Tbpenilaian.tglpenilai,
Tbpenilaian.kdkriteria, Tbpenilaian.kdsub,;
Tbpenilaian.nilai, Tbpenilaian.periode, Tbpenilaian.angke,;
Tbpenilaian.tahun, Tbkriteria.kdkriteria,
Tbkriteria.nmkriteria,;
Tbkriteria.tahun, Tbkriteria.bobot,
Tbkriteria.jenis,;
Tbsubkriteria.kdkriteria,
Tbsubkriteria.kdsub, Tbsubkriteria.nmsub,;
Tbsubkriteria.skor, Tblbiodata.nip, Tblbiodata.nama,;
Tblbiodata.tmptlahir, Tblbiodata.tgllhr,
Tblbiodata.jkel,;
Tblbiodata.skawin, Tblbiodata.statuspeg,
Tblbiodata.kdgol,;
Tblbiodata.jabatan, Tblbiodata.alamat,
Tblbiodata.telp;
FROM ;
dbkepsmp!tbmonitor ;
INNER JOIN dbkepsmp!tbpenilaian ;
ON Tbmonitor.nip =
Tbpenilaian.nip ;
INNER JOIN dbkepsmp!tbkriteria ;
ON Tbpenilaian.kdkriteria
= Tbkriteria.kdkriteria ;
INNER JOIN dbkepsmp!tbsubkriteria ;
ON Tbpenilaian.kdsub
= Tbsubkriteria.kdsub ;
INNER JOIN dbkepsmp!tblbiodata ;
ON Tbmonitor.nip =
Tblbiodata.nip;
WHERE Tbmonitor.angke=vangke
AND Tbmonitor.tahun=vtahun INTO CURSOR cll
SELECT cll
REPORT
FORM rptsemuapenilaian.frx
preview
else
IF ISBLANK(vnip) THEN
MESSAGEBOX('Nip masih kosong isi dulu','Konfirmasi')
return
endif
Implementasi laporan detail penilaian dapat dilihat
pada gambar 4.20 dan 4.21.
Gambar 4.20. Laporan Detail
Penilaian
Gambar 4.21. Laporan Detail
Penilaian
4.2.6.2. Laporan Semua
Kriteria yang Dinilai
Gambar 4.22. Semua Kriteria
Gambar 4.23. Laporan Semua
Kriteria Yang Dinilai
4.2.6.3. Laporan Keputusan
Kelayakan Kepala Sekolah
Dialog
sub menu ini berisi laporan kelayakan
untuk setiap calon kepala sekolah,
penilaian yang dilakukan berdasarkan atas 2
macam keputusan. Source
programnya adalah sebagai berikut :
vcmblayak=thisform.cmblayak.Value
vangke=thisform.txtangke.Value
ON ERROR return
SELECT Tbmonitor.nip, Tbmonitor.tnilai, Tbmonitor.kp, Tbmonitor.angke,;
Tbmonitor.tahun, Tbmonitor.periode,
Tblbiodata.nip, Tblbiodata.nama,;
Tblbiodata.tmptlahir, Tblbiodata.tgllhr,
Tblbiodata.jkel,;
Tblbiodata.skawin, Tblbiodata.statuspeg,
Tblbiodata.kdgol, Tblbiodata.asalskl,Tblbiodata.namasekolah,;
Tblbiodata.jabatan, Tblbiodata.alamat,
Tblbiodata.telp;
FROM ;
dbkepsmp!tbmonitor ;
INNER JOIN dbkepsmp!tblbiodata ;
ON Tbmonitor.nip =
Tblbiodata.nip;
WHERE Tbmonitor.kp=vcmblayak
AND Tbmonitor.angke=vangke;
ORDER BY Tbmonitor.nip asc INTO CURSOR cll
SELECT cll
IF RECCOUNT() <=0
MESSAGEBOX('Belum Ada Data','Konfirmasi')
RETURN
ENDIF
IF thisform.cmblayak.Value ="Sesuai
Kriteria" then
REPORT
FORM rptdaftarlayak.frx PREVIEW
ELSE
REPORT FORM rptdaftarlayak.frx
PREVIEW
endif
Implementasi
laporan keputusan Calon Kepala
Sekolah yang layak dan yang tidak layak dapat
dilihat pada gambar 4.24.
Gambar 4.24. Laporan Kelayakan
Kepala Sekolah
a. Laporan Keputusan Layak
Menjadi
Kepala
Gambar 4.25. Laporan Keputusan Layak
Menjadi
Kepala Sekolah
b. Laporan Keputusan Tidak Layak Menjadi
Kepala
Gambar 4.26. Laporan
Keputusan Tidak
Layak Menjadi Kepala Sekolah
4.2.6.4. Laporan Rekapitulasi
Kepala Sekolah
Gambar 4.27. Laporan
Rekapitulasi
Data Kepala Sekolah
Experience the best support available at QuickBooks Support Phone Number +1 855-907-0605.Nowadays, mostly every firm is using advanced tools to manage his/her account. These tools not only reduce the workload but also saves a lot of time that can be spent on other works. Visit us- https://g.page/quickbooksupport-contac-number?gm
BalasHapusThe King Casino Online
BalasHapusYou can play at The King Casino with over 바카라사이트 3,000 free spins, This casino game is the perfect fit for both entertaining players https://septcasino.com/review/merit-casino/ and high-quality online bsjeon.net casino 출장안마 players.