Pemanfaatan Set Skip Of Command Untuk Mengatur Hak Akses Menu Pada Visual Foxpro Agus Winarno Abstract : Information system will make users easier to represent an information as fit as managerial level needs. Application system must have a complete feature, easy to use, secure, and accurate in order to represent effective, efficient, accurate and qualified information for users. Programming could create an access control for users into system as user level needs. Keywords : Access right, efficient, accurate
PENDAHULUAN Sistem Informasi adalah data yang telah diolah menjadi suatu bentuk yang penting bagi sipenerima dan mempunyai nlai yang nyata atau dapat dirasakan dalam keputusan-keputusan yang sekarang dan yang akan datang. Teknologi komputer merupakan faktor penting dalam rancangan sistem informasi yang baik dan berkualitas. Informasi yang efektif, efesien, akurat dan berkualitas sangatlah dibutuhkan bagi pemakai, dimana pemakai informasi terdiri dari berbagai disiplin ilmu sehingga tingkat pemahaman dari informasi yang diperoleh adalah berbeda-beda. Salah satu untuk memberikan informasi yang cepat, tepat, akurat dan berkualitas sehingga akan menghasilkan informasi yang dibutuhkan pemakai sesuai kewenangannya. Dalam sistem informasi Koperasi yang berbasis komputer yang dipakai oleh beberapa pemakai atau user yang memiliki tingkat kewenangan yang berbeda-beda seperti User bagian toko, user bagian simpanan, user bagian pinjaman dan sebagainya, sehingga membutuhkan hak untuk mengakses menu maupun submenu program yang berbeda-beda tingkat kewenangannya. Untuk memberikan hak akses suatu sistem aplikasi koperasi salah satunya adalah penerapan set skip of command pada menu utama sistem aplikasi, yang memiliki beberapa pilihan seperti login, pendataan, transaksi Toko, Transaksi Simpan Pinjam, laporan Toko, Laporan Simpan Pinjam dan sebagainya. Dimana pemakai atau user bagian toko hanya diperbolehkan menggunakan menu transaksi toko dan laporan toko saja. Dan user pinjaman hanya diperbolehkan mengakses transaksi simpanan dan laporan simpan pinjam sedangkan user pinjaman hanya diperbolehkan mengakses sub menu pinjaman, angsuran saja. Sehingga pemakai memiliki kewenangan untuk melakukan transasi maupun memperoleh
Agus Winarno adalah Dosen Fakultas Ilmu Komputer UDINUS Semarang 71
Techno.COM, Vol. 7 No. 2, Agustus 2008
72
informasi sesuai dengan tingkat kewenagan dengan keamanan perubahaan datanya dan informasinya lebih aman.
PEMBAHASAN Sistem Informasi Koperasi yang memiliki tiga jenis kegiatan transaksi yang antara lain: 1. Bagian toko yang mempunyai tugas melakukan transaksi pebelian, penjualan 2. Bagian Simpanan yang mempunyai tugas melakukan transaksi Simpanan. 3. Bagian Pinjaman yang mempunyai tugas melakukan transaksi pinjaman dan transaksi angsuran pinjaman. Dari ketiga jenis tugas kewenangan tersebut maka untuk memberikan batasan tingkat kewenangan para pemakai system informasi penulis memanfaatkan perintah Set Skip Of Command pada visual foxpro, dimana parameternya adalah sebagai berikut: SET SKIP OF Command SET SKIP OF POPUP MenuName1 lExpression3 Parameters a. POPUP MenuName1 lExpression3 MenuName1 adalah nama menu sesuai dengan menu level designer file xmenu.nmx dan _MEDIT .T. berarti tidak boleh diakses, _MEDIT .F. berarti boleh diakses, sebagai contoh: 1. SET SKIP OF POPUP _MEDIT .T. 2. SET SKIP OF POPUP _MEDIT .F.
b.
BAR nMenuItemNumber | SystemItemName OF MenuName2 lExpression4
MenuName1 adalah nama menu sesuai dengan menu level pada menu designer file xmenu.nmx dan _MEDIT .T. berarti tidak boleh diakses, _MEDIT .F. berarti boleh diakses, sebagai contoh: 1. SET SKIP OF BAR _MFI_NEW OF _MFILE .T. 2. SET SKIP OF BAR _MFI_NEW OF _MFILE .F. Dalam aplikasi tersebut kita memberikan contoh beberapa file antara lain usere.dbf , Utama.prg, Login.scx, menu.scx dan xmenu.mnx. 1. Table Usere.Dbf Tabel usere.dbf untuk menyimpan data-data pemakai sisem aplikasi yang memiliki beberapa atribut antara laian. Kdlgn (kode login ), pasw (password), nmuser (nama user/pemakai), tingkat (kewenangan misalkan T=Toko hanya memiliki kewenangan pada sub menu Toko, S=Simpanan hanya memiliki kewenangan pada sub menu simpanan , P=Pinjaman hanya memiliki kewenangan pinjaman dan A=All memiliki kewenangan
Pemanfaatan Set Skip ( Agus Winarno )
73
dapat mengakses semua menu pada sistem aplikasi tersebut, dan ket (keterangan) berisi keterangan kewenangan bagian toko, simpanan, pinjaman atau semuanya dengan struktur file sebagai berikut:
Gambar 1. Struktur File User.dbf
2. Utama.prg Pada file Utama.prg dibutuhkan beberapa perintah : 1. variabel xpasw,xtingkat,xnmusr,xket,xseksi1,xseksi2,xseksi3 untuk dikenal di seluruh program utama maupun sub-sub program pada program aplikasi tersebut. 2. Variabel xseksi1,xseksi2,xseksi3 diberi harga awal .t. (true= kondisi benar ) dan xpasw,xtingkat,xnmusr,xket diberi harga ‘’ (spasi kosong). 3. Diaktifkan direktory c:\data\ sebagai tempat program dan database tersimpan. 4. Jalakan form menu yaitu xfrm_menu.scx
Prorgam Utama.prg sebagai berikut: set talk off set stat off set scor off set safe off set date to brit set cent on set exac on clea clos database
Techno.COM, Vol. 7 No. 2, Agustus 2008
74
clos all clea all
PUBLIC xpasw,xtingkat,xnmusr,xket,xseksi1,xseksi2,xseksi3 STORE .t. to xseksi1,xseksi2,xseksi3 STORE ' ' TO xpasw,xtingkat,xnmusr,xket set defa to c:\data\ DO FORM xfrm_menu.scx read event SET DELETED ON
2. Login.Scx
Gambar 2. Output Login ke Sistem Informasi.
a.
Object : Form1
Procedure: Activate
STORE .t. to xseksi1,xseksi2,xseksi3 thisform.muser.value='<<<<' thisform.passwd.value=""
Pemanfaatan Set Skip ( Agus Winarno )
thisform.muser.enabled=.t. thisform.cexit.Enabled= .T. thisform.muser.setfocus()
b.
Object : Form1
Procedure: Load
CLOSE ALL sele 0 use usere set order to tag KDLGNx
c.
Object : Muser
Procedure: Lost Focus
muser=thisform.muser.value if muser='<<<<' thisform.release() else USE usere locate FOR KDLGN=thisform.muser.value if !found() Messagebox("Data Belum Terdaftar",0,"Pesan") thisform.Release ELSE xpasw=pasw xtingkat=tingkat xnmusr=nmuser thisform.passwd.enabled=.t. thisform.passwd.setfocus() endif endif
d.
Object : Passwd USE usere
Procedure: Lost Focus
75
Techno.COM, Vol. 7 No. 2, Agustus 2008
76
locate FOR KDLGN=thisform.muser.value if !found() Messagebox("Data Belum Terdaftar",0,"Pesan") release all clos all clear events RETURN else xpasw=pasw xtingkat=tingkat xnmusr=nmuser xket=ket DO case case xtingkat='T' store .f. to xseksi1 case xtingkat='S' store .f. to xseksi2 case xtingkat='P' store .f. to xseksi3 case xtingkat='A' store .f. to xseksi1,xseksi2,xseksi3 endc if thisform.passwd.value<>xpasw Messagebox("Password Salah",0,"Pesan") thisform.muser.value='' thisform.passwd.value='' return ENDIF endif thisform.Release
Pemanfaatan Set Skip ( Agus Winarno )
e.
Object : Cexit
Procedure: Click
thisform.Release
3. XMenu.mnx pada Menu.Designer
Gambar 3. Menu Designer level Menu Bar.
Gambar 4. Menu Designer level masuk .
77
Techno.COM, Vol. 7 No. 2, Agustus 2008
78
Gambar 5. Menu Designer level Toko.
Gambar 6. Menu Designer level SimpanPinj.
4. Menu.Scx Listing program dari program menu adalah sebagai berikut: a.
Object : Form1
Procedure: Activate
DO xmenu.mpr with this,.t. thisform.label3.visible=.t. thisform.label4.visible=.t. thisform.label5.visible=.t. thisform.label6.visible=.t. thisform.label7.visible=.t. thisform.label5.caption=xnmusr thisform.label6.caption=xket
Pemanfaatan Set Skip ( Agus Winarno )
thisform.label7.caption=xtingkat xtk=thisform.label7.caption SET SKIP OF POPUP Toko xseksi1 if xtk='S' SET SKIP OF BAR 1 of SimpanPinj xseksi2 SET SKIP OF BAR 2 of SimpanPinj xseksi3 SET SKIP OF BAR 3 of SimpanPinj xseksi3 endif
if xtk='P' SET SKIP OF BAR 1 of SimpanPinj xseksi2 SET SKIP OF BAR 2 of SimpanPinj xseksi3 SET SKIP OF BAR 3 of SimpanPinj xseksi3 endif thisform.refresh()
b.
Object : Form1
Procedure: Load
SELECT 0 USE pengurus SELECT 0 USE tbpelanggan SET ORDER TO TAG kdpel SELECT 0 USE tbjrnl SELECT 0
5. Hasil Output Menu adalah sebagai berikut:
79
Techno.COM, Vol. 7 No. 2, Agustus 2008
80
Gambar 7. Output Menu pilihan Toko yang boleh diakses.
Gambar 8. Output Menu pilihan Toko yang boleh diakses dan pilihan Simpan Pinjam tidak boleh diakses.
Output menu gambar 7 dan 8 merupakan sub menu TOKO saja yang boleh diakses yaitu : a. Dari menu Login.Scx DO case case xtingkat='T' store .f. to xseksi1 case xtingkat='S' store .f. to xseksi2
Pemanfaatan Set Skip ( Agus Winarno )
81
case xtingkat='P' store .f. to xseksi3 case xtingkat='A' store .f. to xseksi1,xseksi2,xseksi3 endc Dari program diatas jika xtingkat=’T’ berarti xseksi1 bernilai .f., jika xtingkat=’S’ berarti xseksi1 bernilai .f. , jika xtingkat=’P’ berarti xseksi1 bernilai .f. dan xtingkat=’A’ berarti xseksi bernilai .f. yang berarti boleh diakses. b. Dari menu.scx xtk=thisform.label7.caption SET SKIP OF POPUP Toko xseksi1 if xtk='S' SET SKIP OF BAR 1 of SimpanPinj xseksi2 SET SKIP OF BAR 2 of SimpanPinj xseksi3 SET SKIP OF BAR 3 of SimpanPinj xseksi3 endif if xtk='P' SET SKIP OF BAR 1 of SimpanPinj xseksi2 SET SKIP OF BAR 2 of SimpanPinj xseksi3 SET SKIP OF BAR 3 of SimpanPinj xseksi3 endif Dari program diatas Sub Menu TOKO tidak dapat diakses: SET SKIP OF POPUP Toko xseksi1 , jika xseksi bernilai .T. Hanya pada baris Simpanan saja yang boleh diakses seperti Gambar9: SET SKIP OF BAR 1 of SimpanPinj xseksi2 , jika nilai xseksi2=.F. Hanya pada baris Pinjaman dan Angsuran saja yang boleh diakses seperti gambar10: SET SKIP OF BAR 2 of SimpanPinj xseksi3 , jika nilai xseksi3=.F. SET SKIP OF BAR 3 of SimpanPinj xseksi3 , jika nilai xseksi3=.F.
Techno.COM, Vol. 7 No. 2, Agustus 2008
82
Gambar 9. Output Menu pilihan Simpan Pinjam hanya pada Simpan yang boleh diakses.
Gambar 10. Output Menu pilihan Simpan Pinjam hanya pada Pinjaman dan Angsuran yang boleh diakses.
KESIMPULAN Memberikan hak akses terhadap sistem informasi komputerisasi sengan jumlah user yang seidkit lebih sederhana dan lebih mudah menggunakan set skip of command dengan membatasi penggunaan men bar dan sub menu baris yang diperbolehkan diakses, teknik atau cara untuk memberikan kemudahan dalam membuat program menu yang memberikan hak akses atau kewenangan penggunaannya yang terstruktur, simpel dan mudah untuk dimengerti. Akhirnya segala sesuatu menjadi sederhana kalau kita telah memahami konsep dasar pemecahannya.
Pemanfaatan Set Skip ( Agus Winarno )
DAFTAR PUSTAKA 1. Abdul Kadir, Pemrograman Basis Data dengan Visual Foxpro 5, Jilid 1, Andi, Yogyakarta, 1999 2. Abdul Kadir, Pemrograman Basis Data dengan Visual Foxpro 5, Jilid 2, Andi, Yogyakarta, 1999 3. Ir. Yuniar Supardi, Microsoft Visual Foxpro 8.0, Elex Media Komputindo, Jakarta, 2004
83
