Membuat Program Biodata Karyawan Part 3

Membuat Window Yang Dibutuhkan

Tutorial ketiga ini merupakan lanjutan dari tutorial sebelumnya, jika anda ingin melihat tutorial sebelumnya silahkan buka Tutorial Membuat Program Biodata Karyawan Part 2.

Untuk bagian ketiga ini, kita akan membuat window-window sebagai target dari menu m_utama, untuk itu maka kita akan membutuhkan 5 window. Langsung saja ke langkah-langkahnya, buat 5 window dengan detail seperti ini:

Nama Window	Title	WindowType
w_user	Data User	main!
w_karyawan	Data Karyawan	main!
w_laporan	Laporan Data Karyawan	main!
w_password	Ganti Password	main!
w_about	Tentang Program	response!

Selain w_about, masukkan script This.Move(5,5) pada masing-masing Event Open windownya. Hal ini bertujuan agar saat window tersebut dibuka, posisinya akan berada disebelah kiri atas, namun jika anda tidak menginginkannya, silahkan lewati langkah ini.

Untuk sementara biarkan window-window tersebut apa adanya, kita beralih ke penulisan script pada menu m_utama, agar jika diklik submenunya akan membuka window yang sesuai.

Memberikan script untuk masing-masing menu pada menu m_utama

Untuk langkah ini, kita wajib menggunakan script OpenSheet, untuk lebih jelasnya mengenai script ini, silahkan anda buka menu Help dari PowerBuilder, sekarang kita akan langsung saja ya untuk memberikan perintah/menuliskan script pada menu m_utama.

Buka m_utama dengan cara klik dua kali pada m_utama di jendela sebelah kiri.

Setelah jendela m_utama terbuka, pada masing-masing submenu, masukkan script berikut ini:

Nama Menu	Event	Script
m_master.m_user	Clicked	OpenSheet(w_user, ParentWindow, 5, Original!)
m_inputdaneditdatakaryawan	Clicked	OpenSheet(w_karyawan, ParentWindow, 5, Original!)
m_laporan.m_datakaryawan	Clicked	OpenSheet(w_laporan, ParentWindow, 5, Original!)
m_pengaturan.m_gantipassword	Clicked	OpenSheet(w_password, ParentWindow, 5, Original!)
m_window.m_about	Clicked	Open(w_about)
m_exit	Clicked	Close(ParentWindow)

Langkah berikutnya adalah membuat script untuk mengkonfirmasi jika user menekan menu m_exit, karena menu m_exit telah kita berikan script untuk menutup window tempat menu tersebut berada, dalam hal ini berarti keluar dari Program. Untuk itu saya rasa perlu adanya pesan konfirmasi, apakah user benar-benar akan keluar dari program atau tidak (bisa aja ada ketidaksengajaan menekan menu Exit tersebut).
Langkahnya adalah sebagai berikut:
Buka window w_utama
Pada tab Event List, klik dua kali pada event closequery()
Masukkan script berikut ini:
IF MessageBox("Konfirmasi", "Anda yakin mau keluar dari program ini ?", Question!, YesNo!, 2) = 2 THEN Return 1

Simpan perubahannya

Ket:
Event closequery akan dieksekusi sebelum event close, dan memiliki nilai return 0 dan 1, dimana 0 berarti mengijinkan window tersebut untuk ditutup, dan 1 berarti mencegah/membatalkan penutupan window tersebut.
Script diatas akan bernilai True jika dalam pesan konfirmasi, user menekan tombol No (Yes = 1, No = 2).

Lalu apa yang akan terjadi jika user menekan tombol Yes, sedangkan sampai saat ini, kita belum memberikan script untuk memutuskan koneksi ke databasenya ?, untuk jawaban ini saya juga masih belum tahu pasti, cuma logikanya diserver databasenya, koneksinya bakalan masih aktif.
Nah untuk memutuskan koneksi ke databasenya, lakukan langkah-langkah berikut ini:
Buka Object Application biokaryawan
Pada tab Event List, klik dua kali pada event close() lalu ketikkan script Disconnect;
Dan simpan perubahannya

Sampai disini, program kita sudah dapat berjalan menggunakan database dan menu-menunya sudah memiliki action masing-masing.

Menyembunyikan Menu User
Langkah ini adalah untuk menyembunyikan menu User jika yang login dalam program bukan merupakan user dengan level Administrator. Dalam pembuatan tabel user sebelumnya, saya sudah jelaskan bahwa penentuan seorang user itu termasuk level Administrator adalah pada kolom user_level, dimana 1 berarti user tersebut memiliki level Administrator, selain 1 maka user tersebut levelnya adalah user biasa.
Langsung saja ke langkah-langkahnya:
Buka kembali window w_utama
Lalu aktifkan/buka event activate() dan ketikkan script berikut ini:
IF gi_level <> 1 THEN
m_utama.m_master.Visible = False
m_utama.m_master.m_user.Visible = False
END IF

Lalu simpan perubahannya

Ket:
gi_level sudah kita deklarasikan sebelumnya, dan sudah terset nilainya pada window w_login
jadi disini kita cuma mengecek, apakah nilai gi_level itu 1 atau bukan.
Untuk dapat melihat hasilnya, maka anda perlu menambahkan data user pada tabel tbl_user dengan user_level = 0.

Untuk Part 3 ini saya cukupkan dulu sampai disin, nanti akan kita lanjutkan dibagian keempat, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 4.

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.

Download tutorial ini dalam format pdf: