Programming With PB 12

Mengakses Properti Kontrol Dalam Datawindow

noreply@blogger.com (Unknown) — Thu, 23 Apr 2015 15:51:00 +0000

Untuk trik kali ini adalah tentang bagaimana caranya mengakses properti dari objek/control yang ada dalam datawindow. Sebelum saya mulai, saya akan berikan sedikit gambaran tentang bagaimana caranya mengakses properti dari objek/control yang ada dalam datawindow. Untuk mengakses/merubah properti sebuah objek/control dalam datawindow, ada dua cara, yaitu dengan menggunakan syntax dot notation atau menggunakan syntax describe/modify. Misalnya jika ingin merubah properti Visible dari control yang bernama kolom1 dari True Menjadi False, maka kita akan menuliskan script berikut ini:

Dengan Dot Notation: dw_1.Object.kolom1.Visible = 0
Dengan Modify: dw_1.Modify("kolom1.Visible = 0")

Sedangkan jika hanya ingin mengetahui nilai properti Visible dari kolom1, kita akan menuliskan script berikut ini:

Dengan Dot Notation: li_visible = dw_1.Object.kolom1.Visible
Dengan Describe: ls_visible = dw_1.Describe("kolom1.Visible")

Begitupun jika kita ingin mengetahui/merubah properti yang lainnya, nah sedikit masalah akan muncul ketika jumlah objek/control yang ingin kita rubah propertinya itu jumlahnya lumayan banyak, misalnya ada 20 kolom, jika menggunakan cara standar seperti diatas, maka kita sudah pasti harus menuliskan script diatas sebanyak 20 kali juga (dengan nama object/control yang berbeda-beda). Kalau buat saya sih sebenarnya hal ini tidak masalah, cuma agak kurang sedap dipandang aja jadinya kodingan kita. Untuk itulah kali ini saya ingin bagikan sebuah trik untuk mengantisipasi masalah seperti ini. Untuk triknya saya gunakan metode looping (untungnya Datawindow punya properti Objects dan ada metode Describe dan Modify). Sehingga script/kodingan kita akan terlihat "agak" professional daripada jika menggunakan cara standar yang harus menuliskan ulang metode yang sama untuk banyak objek/control.

Sebelum saya mulai lebih jauh lagi, sedikit mengingatkan, jika Properti Objects dari Datawindow itu berupa string kumpulan objek/control dalam datawindow tersebut dengan pemisahnya berupa karakter Tab (dalam powerbuilder dapat diidentifikasi dengan simbol ~t) untuk setiap objek/control., contohnya: kolom1 kolom2 teks1 teks2 kolom3 kolom4 teks3 teks4

Oke, sekarang saya langsung ke triknya, dan berikut adalah contoh ketika saya ingin merubah properti Visible menjadi False (0) dari setiap kolom dalam datawindow yang bernama dw_1, syntaxnya adalah sebagai berikut:

String ls_objek, ls_tipe
Integer li_len, li_pos, li_start, li_end
String ls_kontrol

ls_objek = dw_1.Describe("Datawindow.Objects") + "~t"
li_len = Len(ls_objek)
li_start = 1
li_pos = PosA(ls_objek, "~t", li_start)

DO WHILE li_pos > 0
li_end = li_pos - li_start
ls_kontrol = MidA(ls_objek, li_start, li_end )
IF Not IsNull(ls_kontrol) THEN
ls_tipe = dw_1.Describe(ls_kontrol + ".Type")
IF ls_tipe = "column" THEN
dw_1.Modify(ls_kontrol + ".Visible=0")
END IF
END IF
li_start = li_pos + 1
li_pos = PosA(ls_objek, "~t", li_start )
LOOP

atau jika ingin menggunakan kriteria (dalam powerbuilder menggunakan expression) yang berarti Visiblenya situasional/kondisional, misalnya tergantung nilai dikolom tersebut, maka tinggal diganti baris ke-16 dari script diatas, menjadi seperti ini:

String ls_objek, ls_tipe
Integer li_len, li_pos, li_start, li_end
String ls_kontrol

ls_objek = dw_1.Describe("Datawindow.Objects") + "~t"
li_len = Len(ls_objek)
li_start = 1
li_pos = PosA(ls_objek, "~t", li_start)

DO WHILE li_pos > 0
li_end = li_pos - li_start
ls_kontrol = MidA(ls_objek, li_start, li_end )
IF Not IsNull(ls_kontrol) THEN
ls_tipe = dw_1.Describe(ls_kontrol + ".Type")
IF ls_tipe = "column" THEN
dw_1.Modify(ls_kontrol + ".Visible='0~tIf(" + ls_kolom + ">0,1,0)'")
END IF
END IF
li_start = li_pos + 1
li_pos = PosA(ls_objek, "~t", li_start )
LOOP

Script diatas, jika nilai/data pada kolom tersebut lebih dari 0 maka kolom tersebut ditampilkan, selain itu disembunyikan.

Kalau dihitung jumlah barisnya, memang script diatas jadi lebih banyak daripada jika menggunakan script standar (untuk jumlah objek/control yang ingin diubah propertinya kurang dari 20), namun meski begitu, seperti yang sudah saya katakan sebelumnya, menurut pendapat saya metode looping ini akan sedikit "menaikkan" level programming kita, he he he. Namun jika jumlah objek/kontrolnya diatas 30, tentu metode looping diatas lebih efisien, apalagi jika ternyata ada perubahan dalam desain datawindownya, dimana ada penambahan/pengurangan objek/control dalam datawindow, maka kita tidak perlu lagi merubah script yang telah kita buat, lain halnya jika kita menggunakan metode standar, tentunya jika ada pengurangan/penambahan objek/kontrol dalam datawindownya maka kita juga harus menghapus/menambahkan script sesuai dengan perubahan datawindow tersebut.

Demikianlah trik ini, semoga bermanfaat.
Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.

Mengetahui Jumlah Hari Dalam Bulan

noreply@blogger.com (Unknown) — Tue, 14 Apr 2015 11:07:00 +0000

Pada postingan sebelumnya yang berjudul Menghitung Umur, saya sudah pernah memberikan trik untuk mendapatkan jumlah hari dalam satu bulan, dimana pada postingan tersebut inti dari triknya adalah dengan membuat sebuah tanggal temporer berupa tanggal 1 dari bulan berikutnya lalu menguranginya dengan 1 hari sehingga didapatkan tanggal terakhir dari bulan yang ingin kita ketahui jumlah harinya (dalam hal ini tanggal terakhir tersebut merupakan jumlah hari dalam bulan tersebut).

Pada postingan kali ini saya akan berikan trik lainnya(alternatif) untuk mengetahui jumlah hari dalam satu bulan. pada trik kali ini kita akan menggunakan array dan pengecekan tahun kabisat. Sedikit penjelasan, untuk mengecek apakah sebuah tahun itu merupakan tahun kabisat, bisa dilakukan dengan kriteria sebagai berikut:

Jika tahun dibagi dengan 400 hasilnya bulat maka sudah pasti tahun tersebut adalah tahun kabisat
Jika tahun dibagi 400 hasilnya tidak bulat, tetapi jika dibagi 100 hasilnya bulat maka tahun tersebut bukanlah tahun kabisat
Jika tahun dibagi 400 dan dibagi 100 hasilnya tidak bulat, tetapi jika dibagi 4 hasilnya bulat maka tahun tersebut adalah tahun kabisat
Jika tahun dibagi 400 dan dibagi 100 hasilnya tidak bulat, dan jika dibagi 4 hasilnya tidak bulat maka tahun tersebut bukanlah tahun kabisat

(sumber: wikipedia)

Kriteria diatas akan digunakan jika bulan yang sedang ingin kita ketahui jumlah harinya adalah bulan 2 (Februari), selain bulan Februari maka kriteria diatas akan dilewati.

Untuk lebih mudahnya trik ini akan saya buat dalam sebuah Global Function dengan strukturnya sebagai berikut:

Nama Function: gf_jumlah_hari

Return Value: Integer

Argument1: ai_bulan (Integer)

Argument2: ai_tahun (Integer)

Dan berikut adalah script codingnya:

integer li_hari[12] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31}

integer li_return

li_return = li_hari[ai_bulan]

IF ai_bulan = 2 THEN

IF Mod(ai_tahun, 400) = 0 THEN

// jika tahun habis dibagi 400 berarti tahun kabisat

li_return = 29

ELSEIF Mod(ai_tahun, 100) = 0 THEN

// jika tahun tidak habis dibagi 400 tetapi habis dibagi 100 berarti bukan tahun kabisat

li_return = li_return

ELSEIF Mod(ai_tahun, 4) = 0 THEN

// jika tahun tidak habis dibagi 400 dan tidak habis dibagi 100 tetapi habis jika dibagi 4 berarti tahun kabisat

li_return = 29

ELSE

// jika tahun tidak habis dibagi 400 dan tidak habis dibagi 100 dan tidak habis dibagi 4 berarti bukan tahun kabisat

li_return = li_return

END IF

Return li_return

Simpan function diatas, untuk memanggilnya bisa dengan cara sebagai berikut:

integer li_hari

li_hari = gf_jumlah_hari(Month(Today()), Year(Today())

atau

li_hari = gf_jumlah_hari(1, 2015) (Jumlah hari dalam bulan Januari 2015)

atau

li_hari = gf_jumlah_hari(2, 2014) (Jumlah hari dalam bulan Februari 2014)

dan seterusnya.

Demikianlah trik ini, semoga bermanfaat.

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

Merubah Properti Control Dalam Datawindow

noreply@blogger.com (Unknown) — Wed, 22 Oct 2014 10:42:00 +0000

Pada Tutorial Membuat Program Biodata Karyawan yang lalu, ada script code yang bertujuan untuk memodifikasi properti Protect dari beberapa Column dalam datawindow, misalnya pada Tutorial Membuat Program Biodata Karyawan Part 7, disana ada script pada Event Clicked dari Command Button cb_tambah yg seperti ini (dibagian terakhirnya):

dw_karyawan.Modify("nama_karyawan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("jenis_kelamin.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tempat_lahir.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tanggal_lahir.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("status_nikah.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("pendidikan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("alamat_lengkap.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nomor_telepon.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nomor_handphone.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("alamat_email.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nama_bagian.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nama_jabatan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("status_kerja.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tanggal_masuk.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("keterangan.Protect ='1~tIf(IsRowNew(),0,1)'")

Script code diatas adalah script untuk memProtect Column dalam datawindow kecuali column dibaris baru (Penambahan Data). Dengan model script diatas maka kita tentunya harus mengetikkan satu persatu dari semua column yang ingin diprotect, masalahnya adalah, bagaimana jika column yang harus diatur itu ada banyak dan datawindow yang lain juga harus dilakukan hal yang sama ? tentunya akan tidak efisien jika harus mengetikkan secara berulang-ulang, atau yang paling mudahnya mengcopy paste script diatas lalu mengganti nama datawindow dan nama masing-masing columnnya, namun hal itu juga menurut saya agak kurang efisien, maka solusi dari saya adalah dengan membuat Function dengan metode Looping untuk setiap column, sehingga script codenya bisa dirampingkan.

Analisa

Sebelum membuat Function, maka kita pasti harus melakukan analisa terlebih dahulu, hal ini perlu karena dengan analisa, maka kita akan dapat menentukan Return value dan argument-argument yang dibutuhkan, sehingga Function yang kita buat dapat dipanggil dimana saja. Dari script code diatas dapat saya simpulkan jika Function yang akan kita buat tidak memerlukan Return Value, dan argument yang dibutuhkan adalah Datawindow dan String, dimana argument Datawindow untuk mendefinisikan datawindow yang akan diakses dan String adalah Properti dan nilai dari propertinya.

Setelah analisa selesai, langsung saja kita buat Function tersebut, berikut adalah langkah-langkahnya:

Buat Function baru dengan struktur sebagai berikut:

Nama Function: f_set_column
Return Type: (None)
Access: Public
Arguments:

Pass By	Argument Type	Argument Name
Value	datawindow	adw_name
Value	string	as_property

Pada Code Painter, masukkan script berikut ini:
String ls_object, ls_control, ls_delimiter = "~t", ls_type
Integer li_pos, li_start, li_end

ls_object = adw_name.Describe("Datawindow.Objects") + "~t"
li_start = 1
li_pos = PosA(ls_object, ls_delimiter, li_start)

DO WHILE li_pos > 0
li_end = li_pos - li_start
ls_control = MidA(ls_object, li_start, li_end)
IF Not Isnull(ls_control) THEN
ls_type = adw_name.Describe(ls_control + ".Type")
IF ls_type = "column" THEN
adw_name.Modify(ls_control + "." + as_property)
END IF
END IF
li_start = li_pos + 1
li_pos = PosA(ls_object, ls_delimiter, li_start)
LOOP

Simpan Function ini.

Untuk menggunakan Function diatas, maka kita perlu memasukkan 2 argument, yakni datawindow dan string propertinya, misalnya:

f_set_column(dw_1, "Protect ='1~tIf(IsRowNew(),0,1)'")
f_set_column(dw_1, "Protect = 1")
f_set_column(dw_1, "Protect = 0")
f_set_column(dw_1, "Visible = 1")
f_set_column(dw_1, "Visible = 0")

Demikianlah trik singkat ini, semoga bermanfaat untuk anda.
Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.

Membuat Tombol Enter Seperti Tombol Tab

noreply@blogger.com (Unknown) — Fri, 17 Oct 2014 11:37:00 +0000

Dari sekian banyak yang memberikan trik tentang cara untuk membuat Tombol Enter menjadi seperti tombol Tab dalam datawindow, saya menemukan satu trik yang paling simple, yaitu disini: Make the Enter key act as TAB Key.

Memang sih untuk trik dari yang lain ada penambahan kondisi lainnya, misalnya kombinasi tombol Ctrl/Shift dengan tombol Enter, namun tentunya dengan adanya penambahan kondisi tersebut, script codenya akan bertambah panjang, walaupun ada yang tinggal di copy-paste script codenya, sehingga anda tidak perlu repot-repot mengetik ulang script code tersebut, dan jika anda melakukan itu (tinggal copy-paste scriptnya) sebenarnya hal itu akan membuat anda tidak mengetahui alur dari script code tersebut, belum lagi jika yang memberikan script code tersebut tidak sengaja lupa untuk memasukkan variable atau yang lainnya yang dibutuhkan dalam script code tersebut, sehingga ketika anda coba untuk menyimpannya, sudah pasti akan terjadi error, kalau cuma variable error sih, kita tinggal mendeklarasikan variable tersebut, namun jika yang terjadi adalah Syntax Error, tentunya hal ini akan membuat anda "sedikit" kebingungan, karena yang merancang script code tersebut bukanlah anda sendiri. Hal lain yang membuat saya sangat tidak menyarankan anda untuk hanya mengcopy-paste script code adalah, biasanya gaya penulisan script code dari masing-masing orang itu berbeda-beda, dan belum tentu gaya penulisan script code dari sumber yang anda copy-paste itu sama dengan gaya penulisan script code anda, tentunya hal ini akan semakin "memperjelas" jika program yang anda buat tidak murni buatan anda sendiri. Namun itu semua hanya pendapat saya pribadi dan bukan untuk diperdebatkan.

Balik lagi ke tulisan Membuat Tombol Enter Seperti Tombol Tab, trik yang saya dapatkan hanya membuat penekanan tombol Enter akan seperti penekanan tombol Tab dan tanpa adanya kombinasi denagn tombol yang lain, dimana defaultnya pada datawindow jika kita menejan tombol Enter maka data akan berpindah ke baris berikutnya, sedangkan jika kita menekan tombol Tab maka kursor akan berpindah ke kolom berikutnya dalam baris yang sama.

Untuk langkah-langkahnya adalah sebagai berikut:

Buat sebuah Event baru pada Datawindow yang anda inginkan, misalnya dengan nama dw_ue_enter
Pada pilihan Event ID pilih pbm_dwnprocessenter (untuk properti yang lain diabaikan saja karena secara otomatis Powerbuilder akan memasukkan properti lain yang dibutuhkan sesuai dengan Event ID tersebut).
Pada Code Painter masukkan script berikut ini:

Send(Handle(This), 256, 9, Long(0, 0))

Return 1

Simpan Event tersebut, lalu tes hasilnya apakah sudah sesuai atau belum (Penekanan tombol Enter akan membuat kursor berpindah kolom dan bukan berpindah data/baris)

Demikianlah trik sederhana kali ini, semoga bermanfaat untuk anda.

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

Menghitung Umur

noreply@blogger.com (Unknown) — Wed, 15 Oct 2014 14:43:00 +0000

Membuat Function Untuk Menghitung Umur

Kali ini saya akan memberikan sebuah Function yang dapat digunakan untuk menghitung umur/usia seseorang secara detail (tahun, bulan dan harinya), selain untuk menghitung umur/usia, Function ini juga dapat diterapkan untuk menghitung selisih waktu diantara dua tanggal (tanggal dalam argument dan tanggal dalam system komputer).

Anda tidak perlu khawatir, karena dalam Function yang akan saya berikan ini akan menggunakan Function-Function standar yang saya yakin anda telah mengetahuinya, disini mungkin yang lebih berperan adalah logikanya, karena untuk menghitung umur/usia, butuh sedikit pemikiran yang lebih dalam, agar hasil yang didapatkan sesuai dengan hitungan yang sebenarnya (versi saya tentunya).

Sebelum saya mulai, sebagai gambaran, ada baiknya saya berikan konsep dari Function ini, yaitu sebagai berikut:

Misalnya tanggal lahir adalah 15 Oktober 2000

Pada tanggal 14 Oktober 2014, umur/usia belum genap 14 tahun, karena masih kurang 1 hari lagi, yang berarti umur/usia adalah 13 tahun 11 bulan pada tanggal 15 September 2014, ditambah selisih hari antara tanggal 15 September 2014 dan 14 Oktober 2014 sebanyak 29 hari
Pada tanggal 15 Oktober 2014, umur/usia telah genap 14 Tahun
Pada tanggal 16 Oktober 2014, umur/usia telah genap 14 Tahun ditambah 1 hari

Hasil output dari Function yang akan saya berikan untuk contoh diatas adalah sebagai berikut:

13 Tahun 11 Bulan 29 Hari
14 Tahun 0 Bulan 0 Hari
14 Tahun 0 Bulan 1 Hari

Hal ini juga berlaku untuk bulan-bulan sebelum/sesudah bulan lahirnya.

Dari contoh diatas, jika tanggal lahirnya belum tercapai, maka akan ada jumlah hari yang ditambahkan, jumlah hari tersebut bisa kita dapatkan dengan cara kita harus terlebih dahulu mengetahui jumlah hari dalam bulan sebelumnya, jumlah hari ini kita butuhkan agar kita bisa membuat tanggal sesuai dengan tanggal lahir namun dibulan sebelumnya, hal ini untuk mengantisipasi jika tanggal lahir lebih besar dari tanggal terakhir dibulan sebelumnya, misalnya tanggal lahir adalah 31 Maret, kita tahu jika tanggal terakhir dibulan sebelumnya(dalam hal ini Pebruari) maksimal adalah 29 (jika tahun kabisat, jika bukan tahun kabisat maka tanggal terakhir dari bulan Pebruari adalah 28).

Sedangkan jika tanggal lahirnya telah lewat, maka kita tinggal menghitung jumlah harinya saja.

Sekarang kita lanjut ke pembuatan function, sesuai judul artikel ini yaitu Function menghitung umur, berikut adalah langkah-langkahnya:

Buat dahulu Function untuk menghitung jumlah hari dibulan sebelumnya atau bisa juga disebut sebagai Function untuk mengetahui tanggal terakhir dari bulan sebelumnya, berikut adalah langkah-langkahnya:

Dalam workspace anda, buat sebuah Function baru dengan struktur sebagai berikut:

Property	Keterangan
Access	Public
Return Type	Integer
Function Name	f_jumlah_hari_bulan_lalu
Pass By	Value
Argument Type	Date
Argument Name	ad_tanggal_sekarang

Pada painter code, masukkan script berikut ini:

// Kegunaan: untuk mendapatkan jumlah hari/tanggal terakhir dibulan sebelumnya

Integer fi_bulan, fi_tahun

Date fd_tanggal_terakhir

fi_bulan = Month(ad_tanggal_sekarang)

fi_tahun = Year(ad_tanggal_sekarang)

fd_tanggal_terakhir = RelativeDate(Date(fi_tahun, fi_bulan, 1), -1)

Return Day(fd_tanggal_terakhir)

Simpan Function tersebut.

Langkah selanjutnya adalah pembuatan Function untuk menghitung umur, berikut langkah-langkahnya:

Buat Function baru dengan struktur sebagai berikut:

Property	Keterangan
Access	Public
Return Type	String
Function Name	f_detail_umur
Pass By	Value
Argument Type	Date
Argument Name	ad_tanggal_lahir

Pada jendela code painter, masukkan script kode berikut ini:

String fs_ret

Integer fi_tahun_lahir, fi_tahun_sekarang, fi_bulan_lahir, fi_bulan_sekarang, fi_tanggal_lahir, fi_tanggal_sekarang

Integer fi_selisih_tahun, fi_selisih_bulan, fi_selisih_hari, fi_jumlah_hari

Date fd_tanggal_lahir_bulan_lalu

SetNull(fs_ret) // set null untuk return-nya

// cek argument, null atau tidak

IF IsNull(ad_tanggal_lahir) THEN Return fs_ret

// Cek tanggal lahir melewati tanggal sekarang atau tidak

IF ad_tanggal_lahir > Today() THEN Return "Belum Lahir"

// Ambil Tahun, Bulan dan Tanggal dari tanggal lahir

fi_tahun_lahir = Year(ad_tanggal_lahir)

fi_bulan_lahir = Month(ad_tanggal_lahir)

fi_tanggal_lahir = Day(ad_tanggal_lahir)

// Ambil Tahun, Bulan dan Tanggal dari tanggal sekrang

fi_tahun_sekarang = Year(Today())

fi_bulan_sekarang = Month(Today())

fi_tanggal_sekarang = Day(Today())

// Set nilai dengan asumsi tanggal dan bulan sekarang adalah tanggal dan bulan lahirnya

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir

fi_selisih_bulan = 0

fi_selisih_hari = 0

// kode berikut akan dieksekusi jika tanggal sekarang umur/usia belum genap atau sudah lewat tanggal, bulan dan tahunnya

IF fi_bulan_lahir = fi_bulan_sekarang THEN // bulannya sama

IF fi_tanggal_lahir > fi_tanggal_sekarang THEN // tanggal lahir belum waktunya

fi_jumlah_hari = f_jumlah_hari_bulan_lalu (Today())

fi_selisih_bulan = 11

fd_tanggal_lahir_bulan_lalu = RelativeDate(Date(fi_tahun_sekarang, fi_bulan_sekarang, fi_tanggal_lahir), 0 - fi_jumlah_hari)

fi_selisih_hari = DaysAfter(fd_tanggal_lahir_bulan_lalu, Today())

fi_selisih_tahun = (fi_tahun_sekarang - fi_tahun_lahir) - 1

ELSEIF fi_tanggal_lahir < fi_tanggal_sekarang THEN // tanggal lahir sudah lewat

fi_selisih_hari = fi_tanggal_sekarang - fi_tanggal_lahir

fi_selisih_bulan = 0

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir

END IF

ELSEIF fi_bulan_lahir > fi_bulan_sekarang THEN // bulan lahir belum waktunya

IF fi_tanggal_lahir = fi_tanggal_sekarang THEN // tanggal lahirnya sama dengan tanggal sekarang

fi_selisih_hari = 0

fi_selisih_bulan = 12 - (fi_bulan_lahir - fi_bulan_sekarang)

fi_selisih_tahun = (fi_tahun_sekarang - fi_tahun_lahir) - 1

ELSEIF fi_tanggal_lahir > fi_tanggal_sekarang THEN // tanggal lahir belum waktunya

fi_jumlah_hari = f_jumlah_hari_bulan_lalu(Today())

fi_selisih_bulan = 12 - (fi_bulan_lahir - fi_bulan_sekarang) - 1

fd_tanggal_lahir_bulan_lalu = RelativeDate(Date(fi_tahun_sekarang, fi_bulan_sekarang, fi_tanggal_lahir), 0 - fi_jumlah_hari)

fi_selisih_hari = DaysAfter(fd_tanggal_lahir_bulan_lalu, Today())

fi_selisih_tahun = (fi_tahun_sekarang - fi_tahun_lahir) - 1

ELSE // tanggal lahir sudah lewat

fi_selisih_hari = fi_tanggal_sekarang - fi_tanggal_lahir

fi_selisih_bulan = 12 - (fi_bulan_lahir - fi_bulan_sekarang)

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir - 1

END IF

ELSEIF fi_bulan_lahir < fi_bulan_sekarang THEN // bulan lahir sudah lewat

IF fi_tanggal_lahir = fi_tanggal_sekarang THEN // tanggal lahir sama dengan tanggal sekarang

fi_selisih_hari = 0

fi_selisih_bulan = fi_bulan_sekarang - fi_bulan_lahir

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir

ELSEIF fi_tanggal_lahir > fi_tanggal_sekarang THEN // tanggal lahir belum waktunya

fi_jumlah_hari = f_jumlah_hari_bulan_lalu(Today())

fi_selisih_bulan = fi_bulan_sekarang - fi_bulan_lahir - 1

fd_tanggal_lahir_bulan_lalu = RelativeDate(Date(fi_tahun_sekarang, fi_bulan_sekarang, fi_tanggal_lahir), 0 - fi_jumlah_hari)

fi_selisih_hari = DaysAfter(fd_tanggal_lahir_bulan_lalu, Today())

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir

ELSE // tanggal lahir sudah lewat

fi_selisih_hari = fi_tanggal_sekarang - fi_tanggal_lahir

fi_selisih_bulan = fi_bulan_sekarang - fi_bulan_lahir

fi_selisih_tahun = fi_tahun_sekarang - fi_tahun_lahir

END IF

// buat string untuk hasilnya

fs_ret = String(fi_selisih_tahun) + " Tahun " + String(fi_selisih_bulan) + " Bulan " + String(fi_selisih_hari) + " Hari"

Return fs_ret

Simpan Function tersebut.

Untuk memanggil Function tersebut, kita tinggal memasukkan argument dengan tipe data date, misalnya:

Date ld_lahir

String ls_msg

em_1.GetData(ld_lahir)

ls_msg = "Untuk Tanggal Lahir " + String(ld_birth, "dd mmmm yyyy") + " detail umur pada~n"
ls_msg = ls_msg + "tanggal " + String(Today(), "dd mmmm yyyy") + " adalah sebagai berikut:~n~n"
ls_msg = ls_msg + f_detail_umur(ld_birth, lb_1.SelectedIndex())

MessageBox("Function Detail Umur", ls_msg, Information!)

Berikut adalah contoh hasil outputnya:

Demikianlah pembuatan Function untuk menghitung umur versi saya yang simple ini, untuk contoh filenya dapat anda download di laman Sample.

Akhir kata, semoga artikel ini berguna untuk anda.

Memaksimalkan Fitur MDI

noreply@blogger.com (Unknown) — Sat, 11 Oct 2014 09:17:00 +0000

Pada Tutorial Membuat Program Biodata Karyawan Part 10 kita telah selesai membuat program pendataan karyawan, dalam program tersebut window utama yang digunakan merupakan window dengan jenis MDI (Multiple Document Interface), sekedar flashback saja, window dengan jenis MDI berarti window-window yang dibuka berada dalam lingkup window utama, yang dalam Powerbuilder dikenal dengan sebutan Sheet (mungkin dibahasa pemrograman yang lain sebutannya bisa sama atau berbeda).

Untuk kali ini kita akan memaksimalkan fitur dari window yang berjenis MDI, dimana salah satu fiturnya adalah mengatur tata letak dari masing-masing Sheet yang sedang dibuka.

Dalam Powerbuilder, untuk mengatur tata letak dari Sheet yang sedang dibuka dapat dilakukan dengan menggunakan Function ArrangeSheets, dengan tipe-tipe layout yang disediakan adalah:

Cascade

Mengatur tata letak Sheet (kecuali yang diminimize) yang saling bertumpuk, namun TitleBar dari masing-masing Sheet terlihat, contohnya:

Layer

Mengatur tata letak Sheet (kecuali yang diminimize) dengan memenuhi area Sheet dari window utama, dimana Sheet-Sheet tersebut saling bertumpuk, dengan sheet terdepan adalah Sheet yang sedang aktif, contohnya:

Tile

Mengatur tata letak Sheet (kecuali yang diminimize)dengan format Sheet-Sheet tersebut menjadi seperti kolom, contohnya:

TileHorizontal

Sama seperti tipe Tile, namun formatnya seperti baris, contohnya:

Icons

Mengatur penempatan Sheet-Sheet yang sedang diminimize (seperti jika Sheet-Sheet yang sedang dibuka diminimize secara manual), contohnya:

Nah untuk tutorial kali ini saya akan coba untuk memaksimalkan program biokaryawan dengan menggunakan fitur MDI tersebut, berikut adalah langkah-langkahnya

Buka kembali workspace biokaryawan

Buke painter dari m_utama, lalu tambahkan menu-menu dibawah ini pada menu m_utama.m_window :

Text	Menu Name
-	m_0
Cascade	m_cascade
Layer	m_layer
Tile Vertical	m_tilevertical
Tile Horizontal	m_tilehorizontal
Icons	m_icons

Menu dengan teks tanda strip/min (-) itu untuk membuat menu garis, sehingga menu m_utama akan menjadi seperti ini:

Lihat dibawah menu Window->About, ada garisnya(dalam keadaan terseleksi oleh saya), itulah maksud dari menu dengan Text tanda strip/min (-).

Masukkan script code pada masing-masing menu yang baru ditambahkan diatas kecuali menu dengan Text tanda strip/Min (-) berikut ini:

Menu	Script Code
Cascade	ParentWindow.ArrangeSheets(Cascade!)
Layer	ParentWindow.ArrangeSheets(Layer!)
Tile Vertical	ParentWindow.ArrangeSheets(Tile!)
Tile Horizontal	ParentWindow.ArrangeSheets(TileHorizontal!)
Icons	ParentWindow.ArrangeSheets(Icons!)

Simpan perubahan pada m_utama, dan coba jalankan program biokaryawan.

Setelah semua sesuai, jangan lupa untuk mem-build dan men-deploy ulang workspace biokaryawan, dan replace file biokaryawan.exe dan biokaryawan.pbd di folder instalasi program biokaryawan pada komputer server dengan file biokaryawan.exe dan biokaryawan.pbd hasil perubahan pada langkah ini.

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

File Runtime Powerbuilder

noreply@blogger.com (Unknown) — Thu, 09 Oct 2014 13:16:00 +0000

Setelah pada bagian kesepuluh (Tutorial Membuat Program Biodata Karyawan Part 10), berarti program biodata karyawan ini telah benar-benar selesai kita buat dan siap untuk diimplementasikan, baik itu dikomputer server, ataupun dikomputer client. Untuk file-file runtime yang dibutuhkan oleh program yang dibuat dalam powerbuilder classic 12 agar dapat berjalan dikomputer yang tidak terinstal Powerbuilder 12, sangat tergantung dari program yang kita buat, hal ini karena ada file yang hanya dibutuhkan jika program tersebut menggunakan control-control tertentu (lihat dimenu Help HTML Book, bagian Application Techniques->Deployment Techniques->Chapter 36 ->Powerbuilder Runtime Files).

Pada dasarnya setiap program yang dibuat dalam Powerbuilder itu membutuhkan file-file berikut ini:

pbvm120.dll
pbshr120.dll
libjcc.dll
libjutils.dll
pbdwe120.dll (untuk .NET gunakan pbdwm120.dll)
pbodb120.DLL (jika koneksi database yang digunakan menggunakan ODBC)

Dan juga file-file dari Microsoft berikut ini:

msvcr71.dll
msvcp71.dll
atl71.dll

Untuk file-file runtime powerbuilder bisa anda lihat di folder Shared->Powerbuilder pada path folder instalasi Powerbuilder 12, defaultnya path folder instalasi powerbuilder 12 adalah:
C:\Program Files\Sybase\PowerBuilder 12.0
Jadi, folder shared tersebut akan berada pada path berikut ini:
C:\Program Files\Sybase\Shared\PowerBuilder

Untuk file-file Microsoft, jika anda tidak dapat menemukannya dikomputer anda, anda bisa cari disitus atau website yang menyediakan file-file tersebut secara gratis, misalnya di DllDump (silahkan cari sendiri lewat google ya).

Jika semua file diatas sudah anda miliki, berarti waktunya untuk mengatur agar program biokaryawan dapat dijalankan pada komputer lain. Untuk tutorial ini kita akan buat agar program biokaryawan itu berjalan sebagai program Client-Server Untuk cara mudahnya, file-file diatas diletakkan pada satu folder yang sama dengan file executable dari biokaryawan, untuk cara termudah berikut adalah langkah-langkahnya:

Buat sebuah folder baru dikomputer yang akan dijadikan sebagai server, misalnya di drive D dengan nama Bio Karyawan
Dalam folder Bio Karyawan buat lagi sebuah folder dengan nama Photos
Salin file-file runtime diatas kedalam folder D:\Bio Karyawan
Buka folder workspace, salin file-file berikut ini ke folder D:\Bio Karyawan:

biokaryawan.exe
biokaryawan.pbd
Default.jpg
logo.ICO

Sehingga struktur folder Bio Karyawan seperti gambar ini:

Share folder D:\Bio Karyawan, dan tandai kotak Allow network users to change my files
Maka kita pun selesai

Untuk langkah selanjutnya adalah pengaturan koneksi databasenya, untuk hal ini ada sedikit perbedaan konfigurasi namun langkah-langkahnya sama, baik untuk Server maupun untuk Client, dan berikut adalah langkah-langkahnya:

Instal psqlodbc versi 9.3 dikomputer yang akan diinstal program biokaryawan
Buat ODBC dengan cara:
Klik Start->Control Panel->Administrative Tools lalu klik dua kali pada Data Sources (ODBC)
Pada tab System DSN klik Add lalu pilih PostgreSQL ANSI dan klik Finish
Dalam jendela ODBC Setupnya masukkan:

Data Source = PostgreSQL 93
Database = postgres
SSL Mode = disable
Port = 5432
Server:

Dikomputer Server, masukkan: localhost
Dikomputer Client, masukkan IP Address dari komputer server atau nama network komputer server
Klik Save lalu klik OK untuk menutup jendela ODBC

Dan kita pun selesai dalam Tutorial Membuat Program Biodata Karyawan ini.

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

Membuat Program Biodata Karyawan Part 10

noreply@blogger.com (Unknown) — Wed, 08 Oct 2014 12:03:00 +0000

Setelah kita selesai membuat window ganti password pada Tutorial Membuat Program Biodata Karyawan Part 9, ada satu window opsional lagi yang harus ditambahkan, setelah itu kita lanjutkan dengan membuat file executablenya.

Pada bagian kesepuluh dari Tutorial Membuat Program Biodata Karyawan ini, hanya merupakan “pelengkap” dari seluruh tutorial pembuatan program biodata karyawan, karena pada bagian ini kita hanya akan membuat window atau jendela yang hanya berisi informasi mengenai program ini. Tujuan pembuatan window ini adalah seperti pada umumnya program-program lain yang dibuat, baik itu yang berbayar maupun yang gratisan. Pada setiap program kita akan melihat sebuah menu yang bila diakses akan menampilkan jendela yang berisi informasi mengenai program tersebut, misalnya informasi mengenai:

Nama program dan versinya
Deskripsi tentang program
Nama-nama atau Tim pembuat program
Copyright dari program tersebut
Keterangan lainnya

Untuk membuat window ini, tidak ada keahlian khusus dalam bidang coding, karena window ini hanya bersifat informasi, dan informasi yang ditampilkan hanya dalam bentuk teks yang terintegrasi langsung ke control yang bersangkutan. Namun pada window ini “sedikit” dibutuhkan keahlian mendesain layout window menjadi semenarik mungkin, anda bisa mencontoh desain layout window about dari program-program yang lain (ingat ya mencontoh bukan menjiplak). Walaupun sebenarnya dalam pembuatan window ini tidak dibutuhkan keahlian yang mumpuni, namun dalam beberapa kasus untuk layout yang “wah” bisa juga dibutuhkan keahlian yang lebih dari biasanya.

Untuk pembuatan window tentang program dalam tutorial ini, saya hanya akan buat yang sesederhana mungkin, dan berikut adalah langkah-langkahnya:

Jalankan Powerbuilder Classic 12 dan buka workspace biokaryawan
Buka window w_about lalu masukkan control StaticText, StaticHyperLink dan CommandButton, atur Teks dan layoutnya seperti berikut ini:

Untuk background color window w_about, saya pilih sky
Untuk BackColor control selain CommandButton saya pilih Transparent
Hilangkan tanda pada properti Enabled dari semua control kecuali control Command Button
Pada tab General di jendela Properties, hilangkan tanda pada properti TitleBar dan ControlMenu
Masih di tab General, scroll kebawah hingga anda temukan OpenAnimation dan CloseAnimation
Pilih animasi yang anda inginkan, kalau saya saya pilih fadeanimation! untuk keduanya, pengaturan ini gunanya adalah agar saat window ini dibuka atau ditutup maka akan dilakukan animasi fade in dan fade out, yang kurang lebih artinya dari transparan hingga tampil seutuhnya atau sebaliknya.
Atur Animation Time sesuai dengan kebutuhan anda (semakin besar maka akan semakin lama animasinya).
Pada event Clicked dari CommandButton, masukkan script kode: Close(Parent)
Simpan perubahan pada window w_about dan kita pun selesai membuat program Biodata Karyawan ini.

Membuat File Executable

Untuk dapat didistribusikan dikomputer yang lain atau di folder lain dikomputer yang membuat program ini, maka perlu kita buat file exe-nya, saya rasa mengapa kita harus membuat file exe-nya, tidak perlu dijelaskan lebih lanjut lagi, karena anda pasti sudah tau dan mengerti bukan ?

Untuk membuat file executable dalam Powerbuilder Classic, maka langkah pertama adalah membuat Project terlebih dahulu, berikut adalah langkah-langkahnya menggunkan Wizard dari Powerbuilder:

Klik File->New lalu pilih tab Project, seperti gambar dibawah ini:

Klik OK, lalu akan tampil jendela Wizard berikut ini:

Klik Next, akan tampil jendela berikut ini:

Klik Next, dan tampillah jendela berikut ini:

Beri nama projectnya atau biarkan default seperti yang saya lakukan lalu klik Next, maka akan tampil jendela berikut ini:

Jika anda menginginkan nama yang lain, silahkan diutak-atik, kalau saya, saya biarkan secara default aja, klik Next dan akan tampil jendela ini:

Biarkan secara default, atau atur sesuai kebutuhan anda, Full Build artinya semua object akan di built ulang, sedangkan Incremental Build artinya hanya object yang diubah yang akan dibuilt ulang., setelah anda selesai mengaturnya klik Next dan akan tampil jendela ini:

Biarkan saja seperti defaultnya, kecuali anda tahu dengan resiko dari penggunaan machine code dan dll pada program yang dibuat dalam Powerbuilder (silahkan dilihat di User Guidenya), klik Next dan akan tampil jendela ini:

Beri tanda pada kotak Build Dynamic Libraries (.PBD) jika kotaknya belum ditandai lalu klik Next, dan akan tampil jendela ini:

Defaultnya kotak-kotak tersebut sudah otomatis terisi (kecuali dikotak Copyright), anda masukkan saja sesuai keinginan anda, misalnya seperti ini:

Klik Next dan akan tampil jendela terakhir dari wizard ini:

Klik Finish untk menyelesaikan Wizard pembuatan Project, dan akan tampil painter Project tersebut:

Tutup painter Project tersebut

Sampai disini kita telah selesai membuat Project untuk keperluan pembuatan file executable dari program yang telah kita buat.

Sebelum kita membuat file executablenya, alangkah lebih baik jika kita tentukan ikon dari program yang kita buat, sehingga nantinya file exe dari program kita akan memiliki ikon tersendiri, berikut adalah langkah-langkahnya:

Letakkan file ikon (.ICO) yang anda inginkan didalam folder yang sama dengan file workspace, ganti namanya menjadi logo.ICO, anda bisa cari di website-website yang memberikan icon-icon secara gratis.

Klik dua kali pada Target Application biokaryawan, maka akan tampil painter dari target tersebut seperti ini:

Disebelah kanan klik tombol Additional Properties, lalu pilih tab Icon dan ketikkan logo.ICO pada kotaknya, seperti gambar dibawah ini:

Klik OK lalu simpan perubahannya dan tutup painter Target Application

Sebelum membuat file executable, pastikan tidak ada satupun painter yang terbuka

Untuk pertama kalinya klik menu Run lalu pilih Full Build Workspace, jika sudah yang kesekian kalinya cukup pilih Incremental Build Workspace.

Dibagian bawah akan ada status prosesnya, tunggu sampai ada notifikasi Finished Full Build Workspace biokaryawan…. Seperti gambar ini (lihat dibagian paling bawah gambar):

Setelah ada notifikasi tersebut lanjutkan dengan klik Run lalu pilih Deploy Workspace dan tunggu sampai ada notifikasi Finished Deploy of workspace biokaryawan… seperti gambar ini (lihat dibagian paling bawah gambar):

Setelah selesai, lihat di folder tempat workspace biokaryawan berada, maka akan tercipta beberapa file hasil deploy tersebut, seperti gambar ini:

Untuk file-file runtime-nya akan kita bahas pada bagian File Runtime Powerbuilder, untuk sementara sampai disini dahulu.

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

Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 9

noreply@blogger.com (Unknown) — Tue, 07 Oct 2014 12:40:00 +0000

Sampai pada bagian kedelapan (Tutorial MembuatProgram Biodata Karyawan Part 8) sebenarnya program biodata karyawan ini telah selesai, dimana hingga bagian kedelapan tutorial ini kita telah dapat menjalankan program biodata karyawan ini, mulai dari login, penginputan atau pengeditan data user dan data karyawan, hingga pencetakan laporan tentang daftar nama-nama karyawan yang telah diinput. Jika anda rasa menu Ganti Password dan menu Tentang Program tidaklah penting untuk ada dalam program ini, maka anda bisa langsung menghapus menu tersebut dan langsung melakukan Build dan Deploy Workspace lalu mendistribusikan file-file yang dibutuhkan pada komputer server/client. Untuk pembahasan mengenai cara Build dan Deploy Workspace serta cara mendistribusikan file-file runtime akan kita bahas nanti.

Pada bagian kesembilan dari Tutorial Membuat Program Biodata Karyawan ini, kita akan membuat window yang akan dapat digunakan sebagai sarana oleh user yang sedang login atau membuka program ini untuk mengganti password loginnya. Sebenarnya untuk pembuatan window ganti password ini dapat dilakukan dengan setidaknya dua cara, yaitu dengan datawindow atau tanpa datawindow dalam windownya.

Karena program yang kita buat menggunakan Powerbuilder, maka untuk saat ini saya akan fokuskan pada cara pertama yaitu dengan menggunakan datawindow, karena datawindow bisa dibilang merupakan fitur utama dari Powerbuilder, oleh karena itu akan sangat “sia-sia” jika kita menggunakan Powerbuilder tetapi datawindownya tidak atau kurang maksimal digunakan.

Untuk langkah-langkahnya adalah sebagai berikut:

Buka workspace biokaryawan pada Powerbuilder Classic 12

Klik File->New lalu pilih tab Datawindow dan pilih Freeform seperti gambar dibawah ini:

Klik OK

Pilih SQL Select, seperti gambar ini:

Klik Next

Pada jendela Select Tables, pilih karyawan.tbl_user, seperti gambar dibawah ini:

Klik Open

Pada jendela Table Layout, pilih kolom user_id, user_name dan user_password, seperti gambar ini:

Klik menu Design lalu pilih Retrieval Arguments…

Pada kotak Name, ketikkan: ra_uid, pada kotak Type pilih Number, seperti gambar ini:

Klik OK

Pilih tab Where dibawah Table Layout, pada kotak Column pilih: karyawan.tbl_user.user_id, pada kotak Operator pilih =, pada kotak Value ketikkan :ra_uid, sehingga seperti ini:

Klik menu Design lalu pilih Convert To Syntax, sehingga tampilan Table Layout akan seperti ini:

Tambahkan syntx sql berikut ini diantara karyawan.tbl_user.user_password dan FROM karyawan.tbl_user:

karyawan.tbl_user.user_password AS password_lama,

karyawan.tbl_user.user_password AS password_baru,

karyawan.tbl_user.user_password AS password_konfirm

Jangan lupa untuk menambahkan tanda koma (,) diakhir syntax karyawan.tbl_user.user_password

Sehingga syntax sql akan seperti ini:

Tutup jendela syntx sql ini, pilih Yes pada pesan konfirmasi perubahannya

Pilih White pada Background Color, seperti gambar ini:

Klik Next, maka akan tampil jendela berikut ini:

Klik Finish untuk membuat datawindownya

Hapus kolom user_id dan Text user_id_t

Atur properti Case menjadi Upper (1) untuk semua kolom (Buka tab Edit pada jendela propertiesnya)

Berikan tanda pada properti Password pada kolom: user_password, password_lama, password_baru dan password_konfirm (Pada tab Edit di jendela propertiesnya)

Atur properti Protect pada kolom user_name dan user_password, dengan memasukkan nilai 1 pada Expressionnya (pada tab General di jendela propertiesnya)

Hilangkan tanda pada properti Visible dari kolom user_password dan Text user_password_t

Atur layout dan backgroundnya, hingga jika diretrieve akan seperti ini:

Atur Tab Ordernya menjadi seperti ini:

Nama Kolom	Tab Order
user_name	0
password_lama	10
password_baru	20
password_konfirm	30
user_password	0

Klik Menu Rows lalu pilih Update Properties…

Pastikan Allow Updates sudah ditandai, dan table to update sudah benar (karyawan.tbl_user)

Hilangkan pemilihan pada password_lama, password_baru dan password_konfirm, pastikan pengaturannya seperti gambar dibawah ini:

Jika sudah sesuai dengan gambar diatas, klik OK

Simpan datawindow ini dengan nama d_ganti_password

Buka window w_password, lalu masukkan control-control berikut ini:

Control	Nama Control	Keterangan
Datawindow	dw_password	DataObject = d_ganti_password
Command Button	cb_simpan	Text = &Simpan
Command Button	cb_batal	Text = &Batal

Atur layoutnya hingga seperti ini:

Sampai disini kita telah selesai mendesain layout dari w_password, langkah selanjutnya adalah penulisan script kodenya, silahkan lakukan berikut ini:

Buka event Open dari w_password, lalu masukkan script berikut ini (dibawah This.Move(5,5)):

String ls_password

// atur objek transaksi ke SQLCA

dw_password.SetTransObject(SQLCA)

// retrieve data berdasarkan user ID user yang sedang login

IF dw_password.Retrieve(gl_user_id) > 0 THEN // data berhasil diretrieve

// atur ls_password menjadi null

SetNull(ls_password)

// atur nilai kolom "dummy" menjadi null

dw_password.SetItem(dw_password.GetRow(), "password_lama", ls_password)

dw_password.SetItem(dw_password.GetRow(), "password_baru", ls_password)

dw_password.SetItem(dw_password.GetRow(), "password_konfirm", ls_password)

// aktifkan dw_password

dw_password.SetFocus()

ELSE // data tidak berhasil diretrieve karena terjadi kesalahan atau user id tidak ditemukan

// tampilkan pesan error

MessageBox("Error", "Data error, harap hubungi administrator.", StopSign!)

END IF

Buka event Clicked dari cb_simpan, lalu masukkan script kode berikut ini:

String ls_password, ls_passwordlama, ls_passwordbaru, ls_passwordkonfirm

String ls_valid = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

Char lc_karakter

Integer li_loop, li_ok = 0

// terima data yang dimasukkan oleh user

dw_password.AcceptText()

ls_password = dw_password.GetItemString(dw_password.GetRow(), "user_password")

ls_passwordlama = dw_password.GetItemString(dw_password.GetRow(), "password_lama")

ls_passwordbaru = dw_password.GetItemString(dw_password.GetRow(), "password_baru")

ls_passwordkonfirm = dw_password.GetItemString(dw_password.GetRow(), "password_konfirm")

// cek null atau string kosong

IF IsNull(ls_passwordlama) OR Trim(ls_passwordlama, True) = "" THEN

MessageBox("Warning", "Masukkan password lama anda.", Exclamation!)

dw_password.SetColumn("password_lama")

dw_password.SetFocus()

Return

ELSEIF IsNull(ls_passwordbaru) OR Trim(ls_passwordbaru, True) = "" THEN

MessageBox("Warning", "Masukkan password baru anda.", Exclamation!)

dw_password.SetColumn("password_baru")

dw_password.SetFocus()

Return

ELSEIF IsNull(ls_passwordkonfirm) OR Trim(ls_passwordkonfirm, True) = "" THEN

MessageBox("Warning", "Masukkan konfirmasi password baru anda.", Exclamation!)

dw_password.SetColumn("password_konfirm")

dw_password.SetFocus()

Return

END IF

// cek kesesuaian password baru dan konfirmasinya

IF ls_passwordbaru <> ls_passwordkonfirm THEN

MessageBox("Warning", "Password baru anda tidak sama dengan konfirmasinya.", Exclamation!)

dw_password.SetColumn("password_baru")

dw_password.SetFocus()

Return

END IF

// cek kesesuaian password lama

IF ls_passwordlama <> ls_password THEN

MessageBox("Warning", "Password lama anda salah.", Exclamation!)

dw_password.SetColumn("password_lama")

dw_password.SetFocus()

Return

END IF

// cek panjang karakter pada password baru

IF LenA(ls_passwordbaru) < 5 THEN

Messagebox("Warning", "Password minimal 5 karakter.", Exclamation!)

dw_password.SetColumn("password_baru")

dw_password.SetFocus()

Return

END IF

// cek karakter yang dimasukkan pada password baru

FOR li_loop = 1 TO LenA(ls_passwordbaru)

lc_karakter = Char(MidA(ls_passwordbaru, li_loop, 1))

IF PosA(ls_valid, lc_karakter) = 0 THEN

li_ok ++

MessageBox("Warning", "Password hanya boleh diisi dengan karakter AlfaNumeric.", Exclamation!)

dw_password.SetColumn("password_baru")

dw_password.SetFocus()

Exit

END IF

NEXT

IF li_ok > 0 THEN Return

// sepertinya semua syarat penggantian password sudah sesuai

// set data password baru ke datawindow

dw_password.SetItem(dw_password.GetRow(), "user_password", ls_passwordbaru)

dw_password.SetItem(dw_password.GetRow(), "password_lama", ls_passwordbaru)

// update databasenya

IF dw_password.Update() = 1 THEN

Commit;

MessageBox("Sukses", "Password anda berhasil diganti.", Information!)

ELSE

Rollback;

MessageBox("Gagal", "Gagal mengubah password anda, coba lagi atau hubungi administrator.", Exclamation!)

Return

END IF

// atur ls_password menjadi null

SetNull(ls_password)

// atur kembali kolom-kolom "dummy" menjadi null

dw_password.SetItem(dw_password.GetRow(), "password_lama", ls_password)

dw_password.SetItem(dw_password.GetRow(), "password_baru", ls_password)

dw_password.SetItem(dw_password.GetRow(), "password_konfirm", ls_password)

dw_password.SetColumn("password_lama")

// aktifkan dw_password

dw_password.SetFocus()

Buka event Clicked dari cb_batal, lalu masukkan script kode berikut ini:

Close(Parent)

Simpan perubahan pada w_password dan kita pun selesai membuat window penggantian password

Coba jalankan program dan coba untuk mengganti password untuk loginnya dengan mengakses menu Pengaturan->Ganti Password.

Tes apakah semua script kodenya sudah berjalan dengan benar atau tidak.

Untuk bagian kesembilan ini saya cukupkan dulu sampai disini, silahkan lanjutkan kebagian kesepuluh untuk membuat window tentang program dan membuat file exe dari program ini, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 10.

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

Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 8

noreply@blogger.com (Unknown) — Mon, 06 Oct 2014 14:06:00 +0000

Pada bagian kedelapan ini kita akan buat sebuah laporan yang berisi daftar nama karyawan yang telah diinput, karena pada Tutorial Membuat Program Biodata Karyawan Part 7 kita telah menyelesaikan pembuatan window w_karyawan, dimana window w_karyawan tersebut merupakan sarana bagi user untuk menambah atau mengedit data karyawan.

Langsung saja, berikut adalah langkah-langkahnya:

Jalankan Powerbuilder Classic 12 lalu buka kembali workspace biokaryawan
Buat datawindow baru dengan cara klik File->New->pilih tab Datawindow lalu pilih Tabular dan klik OK
Pilih Quick Select lalu klik Next
Pilih tabel karyawan.tbl_karyawan
Pada kotak Columns, pilih kolom-kolom sesuai dengan kebutuhan anda, untuk gampangya, pilih saja semuanya terlebih dahulu, nanti kalau ada kolom yang tidak dibutuhkan anda bisa hapus kolom tersebut pada painter datawindownya, untuk memilih semua kolom klik Add All lalu klik OK
Atur Background Color menjadi White lalu klik OK
Klik Finish untuk membuat datawindownya

Atur layout datawindownya sesuai dengan keinginan anda, kalau saya hasil akhir desain datawindownya menjadi seperti ini:

Untuk membuat layout datawindow seperti yang saya lakukan adalah sebagai berikut:

Hapus kolom-kolom berikut ini: tempat_lahir, tanggal_lahir, alamat_lengkap, nomor_telepon, nomor_handphone, alamat_email, nama_bagian, nama_jabatan.
Hapus control Text header berikut ini: tanggal_lahir_t, nomor_telepon_t, nomor_handphone_t, alamat_email_t, nama_jabatan_t

Masukkan control Computed Field berikut ini:

Name	Expression Value
compute_1	getrow()

Letakkan compute_1 dipaling kiri, compute ini adalah sebagai nomor urutnya
Masukkan control Computed Field berikut ini (sebagai pengganti dari kolom-kolom yang telah kita hapus sebelumnya)

Name	Expression Value
compute_2	tempat_lahir + ", " + string( tanggal_lahir , "dd/mm/yyyy")
compute_3	alamat_lengkap + ", Telp: " + nomor_telepon + ", HP: " + nomor_handphone + ", Email: " + alamat_email
compute_4	nama_bagian + "-" + nama_jabatan

Ganti teks pada control-control berikut ini:

Name	Text Value
tempat_lahir_t	Tempat, Tgl Lahir
alamat_lengkap_t	Alamat, Telp, HP, Email
nama_bagian_t	Bagian-Jabatan:

Masukkan control Text berikut ini:

Name	Text Value
t_1	NAMA PERUSAHAAN
t_2	Alamat, Telp, Fax, Email, Website Perusahaan
t_3	Laporan Data Karyawan

Untuk Font yang saya gunakan adalah font Times New Roman dengan size 10, untuk headernya saya Bold

Atur Properti Print Specifications berikut ini:

Document Name : Laporan Data Karyawan
Paper Orientation : Landscape (1)

Beri tanda pada Properti Autosize Height dari kolom nama_karyawan, pendidikan, compute_3 dan keterangan, serta pada detail band

(Opsional) Masukkan satu buah control computed field dengan expression:
"Tgl Cetak: " + String(Today(), "dd mmm yyyy")

Atur Tab Order menjadi 0 untuk semua kolom
(Opsional) Atur penempatan semua control agar muat di 1 halaman Landscape A4

Simpan datawindow ini dengan nama d_laporan_karyawan

Langkah selanjutnya adalah:

Buka window w_laporan, lalu masukkan control-control berikut ini:
3 buah Command Button dengan nama: cb_refresh, cb_cetak, dan cb_tutup
1 buah Datawindow dengan nama dw_laporan, dan Data Object : d_laporan_karyawan

Atur Properti Width dan Heightnya:

Control/Object	Width	Height
Window w_laporan	4754	2464
dw_laporan	4686	2212
cb_refresh	402	168
cb_cetak	402	168
cb_tutup	402	168

Atur posisinya menjadi seperti ini:

Beri tanda pada properti HScrollBar dan VScrollBar dari dw_laporan
Sampai disini, kita telah selesai mendesain layout dari w_laporan, langkah berikutnya adalah memberikan script kode yang diperlukan, langsung saja, berikut langkah-langkah dan script codenya:
Buka event Open dari window w_laporan, lalu masukkan script kode berikut ini dibawah script This.Move(5,5):
dw_laporan.SetTransObject(SQLCA)
dw_laporan.Retrieve()
dw_laporan.Object.Datawindow.Print.Preview = "Yes"

Buka event Clicked dari cb_refresh dan masukkan script berikut ini:
dw_laporan.Retrieve()

Buka event Clicked dari cb_cetak, lalu masukkan script berikut ini:
// buka pengaturan printer, jika nilai return bukan 1, akhiri event ini
IF PrintSetup() <> 1 THEN Return
// cetak datawindownya, jika nilai return 1 tampilkan pesan sukses, jika bukan 1 tampilkan pesan gagal mencetak
IF dw_laporan.Print() = 1 THEN
MessageBox("Sukses", "Data laporan berhasil dicetak.", Information!)
ELSE
MessageBox("Gagal", "Gagal mencetak data laporan.", Exclamation!)
END IF

Buka event Clicked dari cb_tutup lalu masukkan script berikut ini:
Close(Parent)

(Opsional) langkah berikut ini untuk meresize ulang properti Width dan Height dari dw_laporan agar tetap proporsional mengikuti ukuran Width dan Height dari window w_laporan, caranya adalah buka event resize dari w_laporan, lalu masukkan script code berikut ini:
dw_laporan.Width = newwidth - (4754 - 4686)
dw_laporan.Height = newheight - (2464 - 2212)

Ket:
newwidth = Argument yang disediakan oleh event resize untuk Width terbaru dari windownya
newheight = Argument yang disediakan oleh event resize untuk Height terbaru dari windownya
4754 = Ukuran asli Width w_laporan*
4686 = Ukuran asli Width dw_laporan*
2464 = Ukuran asli Height w_laporan*
2212 = Ukuran asli Height dw_laporan*
(* Lihat tabel diatas)
Simpan perubahan untuk w_laporan, dan coba jalankan programnya lalu lihat hasilnya.

Dengan demikian bagian kedelapan ini telah selesai, dan untuk sementara, program ini sudah bisa digunakan dari login hingga mencetak data laporan, untuk bagian selanjutnya kita akan membuat window penggantian password untuk user yang sedang login, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 9.

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.
Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 7

noreply@blogger.com (Unknown) — Fri, 03 Oct 2014 14:28:00 +0000

Pada bagian sebelumnya (Tutorial Membuat Program Biodata Karyawan Part 6) kita telah selesai mendesain window w_karyawan, pada bagian ketujuh ini kita akan sempurnakan window w_karyawan agar dapat digunakan untuk menginput atau mengedit data karyawan.

Namun sebelumnya saya mohon maaf terlebih dahulu, karena ada sedikit perubahan baik itu di desainnya maupun didatabasenya. Perubahan ini terpaksa saya lakukan karena jika tidak diubah maka akan membuat script kodenya bertambah banyak dan berputar-putar, yang nantinya malah akan membuat anda menjadi bingung.

Perubahannya adalah sebagai berikut:

Database

Dalam skema database karyawan kita telah membuat sebuah tabel dengan nama tbl_karyawan, namun pada tabel tersebut tidak ada kolom yang mendefinisikan status karyawan tersebut masih bekerja pada perusahaan atau tidak, oleh karena itu perubahan yang harus dilakukan adalah menambah sebuah kolom baru pada tabel tbl_karyawan untuk mendefinisikan status karyawan. Untuk menambah kolom tersebut silahkan lakukan langkah-langkah berikut ini:

Buka pgAdmin III dengan cara klik Start->All Program->PostgreSQL 9.3->pgAdmin III
Klik dua kali pada Server PostgreSQL 9.3 (localhost:5432) lalu masukkan passwordnya
Expand Databases, postgres, Schemas, karyawan, Tables
Klik kanan pada tbl_karyawan lalu pilih New Object->New Column
Isikan Name: keterangan, Data type: character varying, Length: 50
Klik OK, dan kita pun selesai melakukan perubahan pada tabel tbl_karyawan

Datawindow d_karyawan

Pada langkah sebelumnya kita telah menambahkan sebuah kolom baru pada tabel tbl_karyawan, namun kolom tersebut tidak akan otomatis masuk dalam datawindow d_karyawan yang telah kita buat sebelumnya, untuk menambahkan kolom tersebut langkah-langkahnya adalah sebagai berikut:

Jalankan Powerbuilder Classic 12
Buka workspace biokaryawan
Klik dua kali pada d_karyawan hingga jendela datawindow painternya terbuka
Klik menu Design->Data Source…
Pada table layout scroll kebawah ditabel karyawan.tbl_karyawan hingga anda menemukan kolom keterangan yang dalam posisi tidak terpilih/terseleksi
Klik kolom keterangan untuk menyeleksinya lalu tutup jendela data source
Pilih Yes pada pesan yang tampil untuk mengkonfirmasi perubahan yang baru saja dilakukan
Pada datawindownya secara otomatis kolom keterangan akan ada pada band detailnya
Tambahkan 1 control Text kedalam datawindownya atur namanya menjadi t_foto dan Textnya dikosongkan, serta bordernya diganti menjadi No Border dan backgroundnya transparent
Hilangkan tanda pada kotak property visible dari command button b_foto
Pilih kolom nik_karyawan lalu pilih tab Format pada propertiesnya lalu masukkan pada kotak Format: @@.@@-@@@@@ anda juga bisa menggunakan format yang lain yang penting jumlah karakter @ ada 9 buah (sesuai dengan format penginputan NIK).
Atur sedemikian rupa layoutnya hingga menjadi seperti ini:

Klik menu Design->Data Source...
Klik lagi Menu Design lalu pilih Retrieval Arguments
Pada kotak Name, masukkan: ra_nik, lalu pada Type, pilih String, lalu klik OK
Pilih tab Where (dibawah table layout) lalu pada kotak Column pilih karyawan.tbl_karyawan.nik_karyawan
Pada kotak Operator pilih =
Pada kotak Value ketikkan :ra_nik
Tutup jendela data source lalu pilih Yes untuk mengkonfirmasi perubahan yang dilakukan
Simpan perubahan untuk datawindow d_karyawan

Sampai disini kita telah selesai membuat perubahan yang diperlukan, langkah selanjutnya adalah membuat sebuah datawindow dari tabel tbl_karyawan juga, datawindow ini adalah sebagai daftar dari NIK yang telah diinput dan juga sebagai sarana untuk navigasi dari data karyawan. Langkah-langkahnya adalah sebegai berikut:

Buat datawindow baru dengan cara klik File->New->pilih tab Datawindow, pilih tabular lalu klik OK
Pada jendela berikutnya pilih Quick Select
Pada kotak sebelah kiri pilih tabel karyawan.tbl_karyawan
Pada kotak sebelah kanan pilih kolom nik_karyawan lalu klik OK
Atur Property Background Color menjadi Mint lalu klik Next
Klik Finish untuk membuat datawindownya
Atur Tab Order menjadi 0 untuk kolom nik_karyawan

Atur control nik_karyawan_t seperti berikut ini:

Property	Value
Text	N.I.K.
Border	Raised
Alignment	Center
Background	Maroon
Font	Times New Roman
Font Size	10, Bold
Font Color	Yellow

Atur Kolom nik_karyawan seperti ini:

Property	Value
Alignement	Center
Border	Box
Protect	1
Background	White
Format	@@.@@-@@@@@
Font	Times New Roman
Font Size	10, Bold
Font Color	Black

Atur layoutnya hingga seperti ini:

Simpan dengan nama d_list_karyawan
Buka kembali window w_karyawan
Lebarkan lagi window w_karyawan lalu geser semua control yang ada kesebelah kanan
Masukkan 1 control datawindow disebelah kiri, ganti namanya menjadi dw_list lalu pilih data objectnya d_list_karyawan

Atur layoutnya seperti ini:

Simpan perubahan pada window w_karyawan

Sampai disini semua perubahan telah kita lakukan, maka langkah selanjutnya adalah memasukkan script code agar window w_karyawan dapat digunakan untuk menginput data, langkah-langkahnya adalah sebagai berikut:

Deklarasikan variabel berikut ini pada Instance Variables:

string is_pathfoto, is_namafoto, is_nik

integer ii_mode

Tambahkan 1 buah variabel string gs_folder pada Global Variables

Pada Event Constructor dari nvo_apps, masukkan script kode berikut ini:

gs_folder = GetCurrentDirectory()

Buat sebuah function dengan detail berikut ini:

Access: Public

Return Type: String

Function Name: wf_nik

Pass by: Value

Argument Type: Date

Argument Name: ad_masuk

Masukkan script berikut ini:

/*
Function untuk membuat NIK berdasarkan tanggal masuk kerja
Return Value: String
Argument: ad_masuk (Date) -> Tanggal masuk kerja
Variable: 1. ll_count (Long) -> Jumlah karyawan yang telah terdaftar dalam Tahun yang sama
2. ls_nik (String) -> Nomor Induk Karyawan
Methode: 1. Mengambil nilai dua digit tahun dan dua digit bulan dari ad_masuk
2. Nilai tersebut lalu dikalikan dengan 100000, untuk menyesuaikan dengan format 9 karakter dari nik_karyawan
3. Hasil dari perkalian tersebut lalu ditambahkan dengan jumlah karyawan yang telah ada plus 1
4. Hasil akhirnya dikonvert menjadi tipe data String
*/
Long ll_count
Integer li_year
String ls_nik

li_year = Year(ad_masuk)
SELECT COUNT(*)
INTO :ll_count
FROM karyawan.tbl_karyawan
WHERE date_part('year', tanggal_masuk) = :li_year
USING SQLCA;
IF IsNull(ll_count) THEN ll_count = 0
ll_count ++

ls_nik = String((Integer(String(ad_masuk, "yymm")) * 100000) + ll_count)
Return ls_nik

Buka event Open dari w_karyawan, lalu masukkan scipt berikut dibawah This.Move(5,5):

// atur nilai variabel is_nik agar tidak menjadi null
is_nik = ""
// atur properti object transaksi dw_list dan dw_karyawan ke SQLCA
dw_list.SetTransObject(SQLCA)
dw_karyawan.SetTransObject(SQLCA)
/* retrieve data di dw_list, dan jika ada datanya aktifkan baris pertama
lalu atur nilai variabel is_nik menjadi data nik pada baris pertama dw_list */
IF dw_list.Retrieve() > 0 THEN
dw_list.ScrollToRow(1)
dw_list.SelectRow(1, True)
is_nik = dw_list.GetItemString(1, "nik_karyawan")
END IF
// retrieve data di dw_karyawan berdasarkan nilai variabel is_nik
dw_karyawan.Retrieve(is_nik)
Masukkan script berikut pada masing-masing controlnya:
Control: pb_pertama, Event:: Clicked
// jika tidak ada data dalam dw_list jangan lakukan apa-apa
IF dw_list.RowCount() = 0 THEN Return
// jika baris aktif adalah 1 jangan lakukan apa-apa
IF dw_list.GetRow() = 1 THEN Return
// aktifkan baris pertama dalam dw_user
dw_list.ScrollToRow(1)
// seleksi hanya baris pertama dalam dw_user
dw_list.SelectRow(0, False)
dw_list.SelectRow(dw_list.GetRow(), True)
Control: pb_sebelum, Event:: Clicked
// jika tidak ada data dalam dw_list jangan lakukan apa-apa
IF dw_list.RowCount() = 0 THEN Return
// jika baris aktif adalah 1 jangan lakukan apa-apa
IF dw_list.GetRow() = 1 THEN Return
// aktifkan baris sebelum baris yang aktif dalam dw_user
dw_list.ScrollPriorRow()
// seleksi hanya baris yang aktif dalam dw_user
dw_list.SelectRow(0, False)
dw_list.SelectRow(dw_list.GetRow(), True)
Control: pb_berikut, Event:: Clicked
// jika tidak ada data dalam dw_list jangan lakukan apa-apa
IF dw_list.RowCount() = 0 THEN Return
// jika baris aktif adalah baris terakhir jangan lakukan apa-apa
IF dw_list.GetRow() = dw_list.RowCount() THEN Return
// aktifkan baris selanjutnya dari baris yang aktif dalam dw_user
dw_list.ScrollNextRow()
// seleksi hanya baris yang aktif dalam dw_user
dw_list.SelectRow(0, False)
dw_list.SelectRow(dw_list.GetRow(), True)
Control: pb_terakhir, Event:: Clicked
// jika tidak ada data dalam dw_list jangan lakukan apa-apa
IF dw_list.RowCount() = 0 THEN Return
// jika baris aktif adalah baris terakhir jangan lakukan apa-apa
IF dw_list.GetRow() = dw_list.RowCount() THEN Return
// aktifkan baris terakhir dalam dw_user
dw_list.ScrollToRow(dw_list.RowCount())
// seleksi hanya baris yang aktif dalam dw_user
dw_list.SelectRow(0, False)
dw_list.SelectRow(dw_list.GetRow(), True)
Control: dw_list, Event:: Clicked
IF row = 0 THEN Return
This.SelectRow(0, False)
This.SelectRow(row, True)
Control: dw_list, Event:: rowfocuschanged
is_nik = This.GetItemString(currentrow, "nik_karyawan")
dw_karyawan.Retrieve(is_nik)
This.SelectRow(0, False)
This.SelectRow(currentrow, True)
Control: dw_karyawan, Event:: ButtonClicked
IF GetFileOpenName("Pilih Gambar", is_pathfoto, is_namafoto, "JPG", "JPEG Files (*.JPG),*.JPG" ) = 1 THEN
This.Object.p_foto.FileName = is_pathfoto
This.Object.t_foto.Text = is_pathfoto
This.SetItem(row, "file_foto", This.GetItemString(row, "nik_karyawan") + ".jpg")
END IF
Control: dw_karyawan, Event:: ItemChanged
IF dwo.Name <> "tanggal_masuk" THEN Return
This.SetItem(row, "nik_karyawan", wf_nik(Date(data)))
This.SetItem(row, "file_foto", wf_nik(Date(data)) + ".jpg")
Control: dw_karyawan, Event:: RetrieveEnd
string ls_foto

// kosongkan nilai path foto
This.Object.t_foto.Text = ""
IF rowcount = 0 THEN
cb_edit.Enabled = False
ELSE
ls_foto = This.GetItemString(This.GetRow(), "file_foto")
IF IsNull(ls_foto) OR Trim(ls_foto, True) = "" THEN
This.Object.p_foto.FileName = gs_folder + "\" + "Default.jpg"
ELSE
This.Object.p_foto.FileName = gs_folder + "\Photos\" + ls_foto
END IF
END IF
Control: cb_tambah, Event:: Clicked
ii_mode = 0 // mode Tambah Data
// atur variabel is_pathfoto dan is_namafoto menjadi null
SetNull(is_pathfoto)
SetNull(is_namafoto)
// buat baris baru dan jaga-jaga jika baris baru tidak terlihat karena ada dibawah jendela datawindownya
dw_list.ScrollToRow(dw_list.InsertRow(0))
dw_list.SelectRow(0, False)
dw_list.SelectRow(dw_list.GetRow(), True)
dw_karyawan.ScrollToRow(dw_karyawan.InsertRow(0))
// memasukkan nilai default pada beberapa kolom dan object
dw_karyawan.SetItem(dw_karyawan.GetRow(), "jenis_kelamin", "Laki-Laki")
dw_karyawan.SetItem(dw_karyawan.GetRow(), "tanggal_lahir", Today())
dw_karyawan.SetItem(dw_karyawan.GetRow(), "status_nikah", "Belum Menikah")
dw_karyawan.SetItem(dw_karyawan.GetRow(), "status_kerja", "Kontrak")
dw_karyawan.SetItem(dw_karyawan.GetRow(), "tanggal_masuk", Today())
dw_karyawan.SetItem(dw_karyawan.GetRow(), "nik_karyawan", wf_nik(Today()))
dw_karyawan.Object.p_foto.FileName = gs_folder + "\" + "Default.jpg"
dw_karyawan.SetItem(dw_karyawan.GetRow(), "keterangan", "Karyawan ini masih bekerja disini")
dw_karyawan.Object.t_foto.Text = ""
// mengaktifkan kolom Tanggal Masuk
dw_karyawan.SetColumn("tanggal_masuk")
// mengaktifkan dw_karyawan
dw_karyawan.SetFocus()
// pengaturan properti enabled dari beberapa control yang ada
dw_list.Enabled = False
This.Enabled = False
cb_edit.Enabled = False
cb_simpan.Enabled = True
cb_batal.Enabled = True
cb_refresh.Enabled = False
pb_pertama.Enabled = False
pb_sebelum.Enabled = False
pb_berikut.Enabled = False
pb_terakhir.Enabled = False
// pengaturan Protect kolom dalam dw_karyawan
// If(IsRowNew(),0,1) berarti jika baris merupakan baris baru, maka kolom bisa diakses, jika tidak kolom tidak bisa diakses
dw_karyawan.Modify("nama_karyawan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("jenis_kelamin.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tempat_lahir.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tanggal_lahir.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("status_nikah.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("pendidikan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("alamat_lengkap.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nomor_telepon.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nomor_handphone.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("alamat_email.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nama_bagian.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("nama_jabatan.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("status_kerja.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("tanggal_masuk.Protect ='1~tIf(IsRowNew(),0,1)'")
dw_karyawan.Modify("keterangan.Protect ='1~tIf(IsRowNew(),0,1)'")
// menampilkan tombol Pilih Foto
dw_karyawan.Object.b_foto.Visible = True

Control: cb_edit, Event:: Clicked

Long ll_row // deklarasi untuk baris yang sedang aktif

ii_mode = 1 // mode Edit Data
// mengambil baris yang sedang aktif
ll_row = dw_karyawan.GetRow()
// mengambil nilai dari kolom file_foto
is_pathfoto = dw_karyawan.GetItemString(dw_karyawan.GetRow(), "file_foto")
// pengaturan Protect kolom dalam dw_karyawan
// If(GetRow() = " + String(ll_row) + ",0,1) berarti jika baris merupakan baris yang aktif saat tombol edit ditekan, maka kolom bisa diakses, jika tidak kolom tidak bisa diakses
dw_karyawan.Modify("nama_karyawan.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("jenis_kelamin.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("tempat_lahir.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("tanggal_lahir.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("status_nikah.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("pendidikan.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("alamat_lengkap.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("nomor_telepon.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("nomor_handphone.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("alamat_email.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("nama_bagian.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("nama_jabatan.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("status_kerja.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("keterangan.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")
dw_karyawan.Modify("tanggal_masuk.Protect =1")
// menampilkan tombol Pilih Foto
dw_karyawan.Object.b_foto.Visible = True
// mengaktifkan kolom nama karyawan
dw_karyawan.SetColumn("nama_karyawan")
// mengaktifkan dw_karyawan
dw_karyawan.SetFocus()
// pengaturan properti enabled dari beberapa control
dw_list.Enabled = False
This.Enabled = False
cb_tambah.Enabled = False
cb_simpan.Enabled = True
cb_batal.Enabled = True
cb_refresh.Enabled = False
pb_pertama.Enabled = False
pb_sebelum.Enabled = False
pb_berikut.Enabled = False
pb_terakhir.Enabled = False
Control: cb_simpan, Event:: Clicked
String ls_nik, ls_nama, ls_salinfoto
Long ll_row

dw_karyawan.AcceptText()
ll_row = dw_karyawan.GetRow()
ls_nama = dw_karyawan.GetItemString(dw_karyawan.GetRow(), "nama_karyawan")
ls_nik = dw_karyawan.GetItemString(dw_karyawan.GetRow(), "nik_karyawan")
IF IsNull(ls_nama) OR Trim(ls_nama, True) = "" THEN
MessageBox("Warning", "Nama Karyawan tidak boleh kosong.", Exclamation!)
dw_karyawan.SetColumn("nama_karyawan")
dw_karyawan.SetFocus()
Return
END IF

IF dw_karyawan.Update() = 1 THEN
IF Not IsNull(is_pathfoto) AND LenA(is_pathfoto) > 0 THEN
IF is_pathfoto <> dw_karyawan.GetItemString(dw_karyawan.GetRow(), "file_foto") THEN
IF FileCopy(is_pathfoto, gs_folder + "\Photos\" + ls_nik + ".jpg", True) <> 1 THEN
Rollback;
MessageBox("Error", "Data tidak berhasil disimpan (tidak dapat menyalin file foto).", StopSign!)
Return
END IF
END IF
END IF
Commit;
MessageBox("Sukses", "Data karyawan berhasil disimpan.", Information!)
ELSE
Rollback;
MessageBox("Error", "Tidak dapat menyimpan data karyawan.", StopSign!)
Return
END IF
IF ii_mode = 0 THEN
dw_list.Retrieve()
ll_row = dw_list.Find("nik_karyawan = '" + ls_nik + "'", 1, dw_list.RowCount())
dw_list.ScrollToRow(ll_row)
dw_list.SelectRow(0, False)
dw_list.SelectRow(ll_row, True)
END IF
// pengaturan Protect kolom dalam dw_karyawan menjadi 1
dw_karyawan.Modify("nama_karyawan.Protect =1")
dw_karyawan.Modify("jenis_kelamin.Protect =1")
dw_karyawan.Modify("tempat_lahir.Protect =1")
dw_karyawan.Modify("tanggal_lahir.Protect =1")
dw_karyawan.Modify("status_nikah.Protect =1")
dw_karyawan.Modify("pendidikan.Protect =1")
dw_karyawan.Modify("alamat_lengkap.Protect =1")
dw_karyawan.Modify("nomor_telepon.Protect =1")
dw_karyawan.Modify("nomor_handphone.Protect =1")
dw_karyawan.Modify("alamat_email.Protect =1")
dw_karyawan.Modify("nama_bagian.Protect =1")
dw_karyawan.Modify("nama_jabatan.Protect =1")
dw_karyawan.Modify("status_kerja.Protect =1")
dw_karyawan.Modify("keterangan.Protect =1")
dw_karyawan.Modify("tanggal_masuk.Protect =1")

// menyembunyikan tombol Pilih Foto
dw_karyawan.Object.b_foto.Visible = False
// pengaturan properti enabled command button
dw_list.Enabled = True
This.Enabled = False
cb_tambah.Enabled = True
cb_edit.Enabled = True
cb_batal.Enabled = False
cb_refresh.Enabled = True
pb_pertama.Enabled = True
pb_sebelum.Enabled = True
pb_berikut.Enabled = True
pb_terakhir.Enabled = True
Control: cb_batal, Event:: Clicked
long ll_row

IF MessageBox("Konfirmasi", "Batalkan semua perubahan ?", Question!, YesNo!, 2) = 2 THEN Return
IF ii_mode = 0 THEN
ll_row = 1
ELSE
ll_row = dw_list.GetRow()
END IF
Rollback;
is_nik = ""
IF dw_list.Retrieve() > 0 THEN
dw_list.ScrollToRow(ll_row)
dw_list.SelectRow(0, False)
dw_list.SelectRow(ll_row, True)
is_nik = dw_list.GetItemString(ll_row, "nik_karyawan")
END IF
dw_karyawan.Retrieve(is_nik)

// pengaturan Protect kolom dalam dw_karyawan menjadi 1
dw_karyawan.Modify("nama_karyawan.Protect =1")
dw_karyawan.Modify("jenis_kelamin.Protect =1")
dw_karyawan.Modify("tempat_lahir.Protect =1")
dw_karyawan.Modify("tanggal_lahir.Protect =1")
dw_karyawan.Modify("status_nikah.Protect =1")
dw_karyawan.Modify("pendidikan.Protect =1")
dw_karyawan.Modify("alamat_lengkap.Protect =1")
dw_karyawan.Modify("nomor_telepon.Protect =1")
dw_karyawan.Modify("nomor_handphone.Protect =1")
dw_karyawan.Modify("alamat_email.Protect =1")
dw_karyawan.Modify("nama_bagian.Protect =1")
dw_karyawan.Modify("nama_jabatan.Protect =1")
dw_karyawan.Modify("status_kerja.Protect =1")
dw_karyawan.Modify("keterangan.Protect =1")
dw_karyawan.Modify("tanggal_masuk.Protect =1")
// menyembunyikan tombol Pilih Foto
dw_karyawan.Object.b_foto.Visible = False
// pengaturan properti enabled command button
dw_list.Enabled = True
This.Enabled = False
cb_tambah.Enabled = True
cb_edit.Enabled = True
cb_simpan.Enabled = False
cb_refresh.Enabled = True
pb_pertama.Enabled = True
pb_sebelum.Enabled = True
pb_berikut.Enabled = True
pb_terakhir.Enabled = True
Control: cb_refresh, Event:: Clicked
// retrieve ulang dw_list dan dw_karyawan
is_nik = ""
IF dw_list.Retrieve() > 0 THEN
dw_list.ScrollToRow(1)
dw_list.SelectRow(1, True)
is_nik = dw_list.GetItemString(1, "nik_karyawan")
END IF
dw_karyawan.Retrieve(is_nik)
Control: cb_tutup, Event:: Clicked
Close(Parent)

Simpan perubahannya dan lakukan pengetesan semua controlnya, dari input, edit, simpan, batal, refresh dan juga event-event yang lainnya.

Akhirnya selesailah kita membuat window w_karyawan untuk dapat digunakan sebagai sarana menginput atau mengedit data karyawan.

Pada bagian selanjutnya kita akan membuat laporan daftar nama karyawan yang telah diinput, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 8.

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.
Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 6

noreply@blogger.com (Unknown) — Tue, 30 Sep 2014 09:40:00 +0000

Pada bagian sebelumnya (Tutorial Membuat Program BiodataKaryawan Part 5) kita telah selesai membuat window w_user sebagai sarana untuk menginput atau mengedit data user yang akan menggunakan program ini, tentunya window w_user hanya bisa diakses oleh user dengan level administrator, untuk pencegahan user dengan level bukan administrator mengakses window w_user, kita telah menuliskan kode yang akan menyembunyikan menu Master dan menu User jika user yang login bukanlah user dengan level Administrator (lihat pada bagian ketiga: Tutorial Membuat Program Biodata Karyawan Part 3).

Window w_user yang telah kita buat, tentunya masih dapat anda kembangkan agar menjadi lebih baik lagi, misalnya pada bagian code untuk menyimpan data, disana aturannya hanya pengecekan jumlah karakter yang diinput pada beberapa kolom, anda bisa kembangkan lebih lanjut lagi, misalnya dengan menambahkan code yang mencegah user menginput data dengan string yang karakternya sama semua (misalnya AAA, BBBB, CCCCC, 00000, 11111 dan seterusnya).

Pada tutorial bagian keenam ini, kita akan membuat window w_karyawan untuk dapat digunakan sebagai sarana menambah atau mengedit data karyawan. Untuk menu ini, semua User dapat mengaksesnya, karena pada dasarnya menu inilah yang menjadi menu utama dalam tutorial ini.

Untuk window w_karyawan ini, akan kita buat dengan datawindow yang berjenis Freeform, hal ini karena pada window w_user kita telah membuat datawindow dengan jenis Tabular, dan menurut saya pribadi program akan terasa “monoton”, jika window w_karyawan dibuat dengan jenis Tabular juga, makanya untuk datawindow kali ini akan kita buat dengan jenis Freeform, selain karena hal yang baru saja saya sebutkan, untuk data karyawan ini, akan saya buat ada inputan foto karyawan. Namun inputan foto ini hanyalah berupa path dari file foto, dan bukan file fotonya yang dimasukkan kedalam database, pertimbangan saya, selain akan “membesarkan” ukuran databasenya, juga nantinya akan “sedikit” menambah kode/script untuk memanggil/melihat foto karyawan jika file fotonya yang dimasukkan kedalam databasenya.

Sebelum kita membuka dan meneruskan langkah pembuatan datawindow karyawan, ada baiknya kita buat terlebih dahulu folder tempat menyimpan file foto dari karyawan. Ini karena nantinya file asli dari foto karyawan akan disalin kedalam folder tersebut dan akan kita namai ulang sesuai dengan NIK (Nomor Induk Karyawan).

Untuk langkah pembuatan folder ini adalah sebagai berikut:

Buka direktori workspace biokaryawan, kalau disaya direktorinya adalah E:\Sample
Buat folder baru dengan nama Photos dalam direktori tersebut, lihat gambar dibawah ini sebagai ilustrasi hasil dari yang saya lakukan:

Tutorial 1 - Struktur Folder Photos

Buat lagi sebuah file jpg, dengan nama default lalu letakan file tersebut dalam folder yang sama dengan file workspace biokaryawan, file ini akan kita gunakan sebagai default picture (gambar default) dari datawindownya. File ini jika anda tidak mau membuatnya, anda bisa cari di google, sebisa mungkin resolusinya tidak melebihi 600x800 pixel, hal ini untuk menghindari loading yang lama jika file gambarnya terlalu besar, kalau disaya, saya buat menggunakan Photoshop dengan resolusi 240x320 pixels, seperti ini:

Tutorial 1 - Gambar Default

Sehingga struktur dalam folder direktori biokaryawan akan seperti ini:

Tutorial 1 - Struktur File Dan Folder

Langkah selanjutnya adalah membuat database karyawannya, silahkan buat table baru dalam PostgreSQL pada schema karyawan dengan struktur seperti ini:

Nama Tabel: tbl_karyawan

Nama Kolom	Tipe Data	Keterangan
nik_karyawan*	character varying(9)	2 digit Tahun dan bulan serta nomor urut, misalnya 140900001
nama_karyawan*	character varying(30)	Nama lengkap karyawan
jenis_kelamin*	character varying(9)	Laki-Laki atau Perempuan
tempat_lahir	character varying(20)	Nama Kota tempat lahir
tanggal_lahir	date	Tanggal lahir karyawan
status_nikah	character varying(15)	Status pernikahan: Belum Menikah, Menikah, Janda atau Duda
pendidikan	character varying(50)	Pendidikan terakhir
alamat_lengkap	character varying(100)	Alamat lengkap karyawan
nomor_telepon	character varying(15)	Nomor telepon rumah
nomor_handphone	character varying(30)	Nomor handphone karyawan
alamat_email	character varying(30)	Alamat email karyawan
nama_bagian*	character varying(30)	Nama departemen/ bagian
nama_jabatan*	character varying(30)	Nama jabatan pekerjaan karyawan
status_kerja	character varying(10)	Tetap atau Kontrak
tanggal_masuk*	date	Tanggal masuk kerja
file_foto*	character varying(13)	path file foto (NIK + .JPG)

Untuk tabel ini kolom Primary Key adalah kolom nik_karyawan. Anda juga bisa menambahkan kolom yang lainnya sesuai dengan kebutuhan anda, atau anda juga bisa mengurangi kolom-kolom yang tidak anda butuhkan diatas, namun kolom yang wajib ada adalah kolom dengan tanda *.

Sekarang jalankan PowerBuilder Classic 12, lalu buka kembali workspace biokaryawan.

Buat datawindow baru dengan cara klik File->New->pilih tab Datawindow lalu pilih Freeform dan klik OK.
Pilih Quick Select lalu klik Next
Disebelah kiri pilih tabel karyawan.tbl_karyawan
Klik Add All lalu klik OK.
Pada jendela berikutnya, atur sesuai dengan keinginan anda lalu klik Next dan klik Finish untuk membuat datawindownya.
Simpan datawindow ini dengan nama d_karyawan

Atur properti datawindownya seperti berikut ini:
Tandai kotak Show Backcolor On XP (di tab General)
Background Color: Sky

Nama Kolom	Properti	Keterangan
nik_karyawan	Background	Color: Yellow
jenis_kelamin	Edit Style	DropDownListBox, Code Table: Laki-Laki dan Perempuan
tanggal_lahir	Edit Style	Edit Mask, Date, dd/mm/yyyy, Drop-down calendar
status_nikah	Edit Style	DropDownListBox, Code Table: Belum Menikah, Menikah, Duda, Janda
status_kerja	Edit Style	DropDownListBox, Code Table: Tetap dan Kontrak
tanggal_masuk	Edit Style	Edit Mask, Date, dd/mm/yyyy, Drop-down calendar

Atur properti Protect untuk semua kolom dengan nilai 1
Pindahkan kolom tanggal_masuk kebawah kolom nik_karyawan
Atur Tab Order nik_karyawan menjadi 0 dan kolom tanggal_masuk menjadi 1 atau 10
Masukkan 1 buah Picture Object, piilh file Default.JPG dan ganti nama Picture Objectnya menjadi p_foto, dalam Properti p_foto, dalam kotak File Name, ubah namanya menjadi hanya "Default.jpg" (tanpa tanda kutip). Ini agar ketika dirunning dalam folder yang berbeda atau dirunning dikomputer client, file Default.jpg akan tetap bisa terbaca.
Masukkan 1 buah Command Button dan ganti namanya menjadi b_foto dengan Text: Pilih Foto
(Opsional) Tambahkan 1 buah Static Text pada Header, beri teks: DETAIL DATA KARYAWAN, Border: Raised, Background Color: Maroon, Font Color: Yellow

Atur tata letak/layout dari datawindownya sesuai dengan keinginan anda, kalau saya hasilnya seperti ini layoutnya:

Tutorial 1 - Layout Datawindow dw_karyawan

Sampai disini, kita telah selesai membuat datawindow untuk keperluan menginput dan mengedit data karyawan.

Langkah berikutnya adalah sebagai berikut:
Buka window w_karyawan, dan masukkan control-control seperti dalam window w_user, bahkan propertinya pun sama, disini saya tidak akan terlalu menjelaskan lebih detail mengenai caranya, namun jika anda lupa atau ingin memastikan lagi, silahkan dilihat di bagian keempat dan kelima tutorial ini, silahkan klik Tutorial Membuat Program BiodataKaryawan Part 4 dan Tutorial Membuat Program Biodata Karyawan Part 5. Untuk datawindownya ganti namanya menjadi dw_karyawan dan DataObjectnya adalah d_karyawan.

Masukkan 4 Picture Button dengan detail seperti berikut ini:

Name	PictureName	DisabledName	PowerTipText
pb_pertama	VCRFirst!	Custom043!	Data Pertama
pb_sebelum	VCRPrior!	Custom043!	Sebelumnya
pb_berikut	VCRNext!	Custom043!	Berikutnya
pb_terakhir	VCRLast!	Custom043!	Data Terakhis

Atur letaknya sesuai keinginan anda, kalau saya, layoutnya seperti ini:

Simpan perubahan pada w_karyawan.

Untuk sementara bagian keenam ini saya cukupkan sampai disini dulu, untuk coding/scriptnya akan saya lanjutkan dibagian ketujuh, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 7.

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.
Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 5

noreply@blogger.com (Unknown) — Sat, 27 Sep 2014 18:36:00 +0000

Pada tutorial bagian kelima ini, kita akan menyempurnakan window w_user untuk dapat digunakan menambah atau mengedit data user yang menggunakan program ini.

Sebelumnya, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 4 terlebih dahulu, jika anda baru mengikuti tutorial ini.

Sebelum melangkah lebih jauh lagi, pastikan terlebih dahulu, desain window w_user sudah seperti ini:

Tutorial 1 - Layout Jendela w_user

Jika window w_user sudah seperti gambar diatas, berikut adalah langkah-langkah menyempurnakan window w_user:

Buka jendela editor window w_user

Buka Event Open dari Window w_user, lalu masukkan script berikut ini dibawah script This.Move(5,5):

dw_user.SetTransObject(SQLCA)

dw_user.Retrieve()

dw_user.SetRowFocusIndicator(Hand!)

dan ketikkan script berikut ini di event retrieveend dari dw_user

IF rowcount = 0 THEN cb_edit.Enabled = False

Gunanya adalah jika belum ada data dalam table tbl_user, maka tombol edit akan didisable.

Simpan perubahan ini.

Jika dirunning maka kurang lebih hasilnya akan seperti ini:

Tutorial 1 - Jendela w_user saat dirunning

Untuk langkah berikutnya dalam bagian kelima ini, kita atur terlebih dahulu properti Protect dan Text Case untuk semua kolom dalam datawindow dw_user dengan nilai 1 dan Uppercase, caranya:

Buka jendela editor datawindow dw_user

Pilih semua kolom

Pada tab General, dibagian Protect, klik tombol Build Expression (disebelah kanan kotaknya) lalu masukkan angka 1, contohnya lihat gambar dibawah ini:

Tutorial 1 - Jendela pengaturan expression properti Protect

Sekarang pilih hanya kolom-kolom berikut ini: user_name, user_password dan user_full_name

Pada tab Edit, atur Case menjadi Upper (1)

Simpan perubahan untuk dw_user

Lanjut lagi, sekarang deklarasikan variabel Integer pada Instance Variables window w_user berikut ini:

Integer ii_mode

(ini adalah integer yang mengindikasikan proses yang sedang dilakukan oleh user, dimana jika user sedang melakukan proses tambah data maka nilai ii_mode akan kita set menjadi 0, sedangkan jika user sedang melakukan proses pengeditan data maka nilai ii_mode akan kita set menjadi 1). Hal ini diperlukan untuk menentukan action pada saat menyimpan data.

Masukkan script berikut ini pada event Clicked dari cb_tambah

ii_mode = 0

// buat baris baru dan jaga-jaga jika baris baru tidak terlihat karena ada dibawah jendela datawindownya

dw_user.ScrollToRow(dw_user.InsertRow(0))

// mengaktifkan kolom Nama User

dw_user.SetColumn("user_name")

// mengaktifkan dw_user

dw_user.SetFocus()

// mengatur nilai level dan status secara otomatis

dw_user.SetItem(dw_user.GetRow(), "user_level", 0)

dw_user.SetItem(dw_user.GetRow(), "user_status", 1)

// pengaturan properti enabled command button

This.Enabled = False

cb_edit.Enabled = False

cb_simpan.Enabled = True

cb_batal.Enabled = True

cb_refresh.Enabled = False

// pengaturan Protect kolom dalam dw_user

// If(IsRowNew(),0,1) berarti jika baris merupakan baris baru, maka kolom bisa diakses, jika bukan kolom tidak bisa diakses

dw_user.Modify("user_name.Protect ='1~tIf(IsRowNew(),0,1)'")

dw_user.Modify("user_password.Protect ='1~tIf(IsRowNew(),0,1)'")

dw_user.Modify("user_full_name.Protect ='1~tIf(IsRowNew(),0,1)'")

dw_user.Modify("user_level.Protect ='1~tIf(IsRowNew(),0,1)'")

dw_user.Modify("user_status.Protect ='1~tIf(IsRowNew(),0,1)'")

Masukkan script berikut ini pada event Clicked dari cb_edit

Long ll_row

ii_mode = 1

ll_row = dw_user.GetRow()

// pengaturan Protect kolom dalam dw_user

// If(GetRow() = " + String(ll_row) + ",0,1) berarti jika baris merupakan baris yang aktif saat tombol edit ditekan, maka kolom bisa diakses, jika bukan kolom tidak bisa diakses

dw_user.Modify("user_name.Protect =1")

dw_user.Modify("user_password.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")

dw_user.Modify("user_full_name.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")

dw_user.Modify("user_level.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")

dw_user.Modify("user_status.Protect ='1~tIf(GetRow() = " + String(ll_row) + ",0,1)'")

// mengaktifkan kolom password

dw_user.SetColumn("user_password")

// mengaktifkan dw_user

dw_user.SetFocus()

// pengaturan properti enabled command button

This.Enabled = False

cb_tambah.Enabled = False

cb_simpan.Enabled = True

cb_batal.Enabled = True

cb_refresh.Enabled = False

Masukkan script berikut ini pada event Clicked dari cb_simpan:

String ls_nama, ls_password, ls_nama_lengkap

String ls_valid1 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890"

String ls_valid2 = "ABCDEFGHIJKLMNOPQRSTUVWXYZ "

Char lc_karakter

Integer li_loop, li_valid = 0

Long ll_user_id, ll_count

// cek data yang dimasukkan oleh user

dw_user.AcceptText()

ls_nama = dw_user.GetItemString(dw_user.GetRow(), "user_name")

ls_password = dw_user.GetItemString(dw_user.GetRow(), "user_password")

ls_nama_lengkap = dw_user.GetItemString(dw_user.GetRow(), "user_full_name")

// cek null atau string kosong

IF IsNull(ls_nama) OR TRIM(ls_nama, True) = "" THEN

MessageBox("Warning", "Nama user tidak boleh kosong.", Exclamation!)

dw_user.SetColumn("user_name")

dw_user.SetFocus()

Return

ELSEIF IsNull(ls_password) OR TRIM(ls_password, True) = "" THEN

MessageBox("Warning", "Password tidak boleh kosong.", Exclamation!)

dw_user.SetColumn("user_password")

dw_user.SetFocus()

Return

ELSEIF IsNull(ls_nama_lengkap) OR TRIM(ls_nama_lengkap, True) = "" THEN

MessageBox("Warning", "Nama lengkap user tidak boleh kosong.", Exclamation!)

dw_user.SetColumn("user_full_name")

dw_user.SetFocus()

Return

END IF

// cek karakter yang diinput pada Nama, Password dan Nama Lengkap

// cek pada nama user

FOR li_loop = 1 TO LenA(ls_nama)

lc_karakter = Char(MidA(ls_nama, li_loop, 1))

IF PosA(ls_valid1, lc_karakter) = 0 THEN

li_valid ++

MessageBox("Warning", "Nama User hanya boleh diisi dengan karakter AlfaNumeric.", Exclamation!)

Exit

END IF

NEXT

IF li_valid > 0 THEN Return

li_valid = 0

// cek pada password

FOR li_loop = 1 TO LenA(ls_password)

lc_karakter = Char(MidA(ls_password, li_loop, 1))

IF PosA(ls_valid1, lc_karakter) = 0 THEN

li_valid ++

MessageBox("Warning", "Password hanya boleh diisi dengan karakter AlfaNumeric.", Exclamation!)

Exit

END IF

NEXT

IF li_valid > 0 THEN Return

li_valid = 0

// cek pada nama lengkap

FOR li_loop = 1 TO LenA(ls_nama_lengkap)

lc_karakter = Char(MidA(ls_nama_lengkap, li_loop, 1))

IF PosA(ls_valid2, lc_karakter) = 0 THEN

li_valid ++

MessageBox("Warning", "Nama lengkap user hanya boleh berupa karakter Huruf dan Spasi.", Exclamation!)

Exit

END IF

NEXT

IF li_valid > 0 THEN Return

// cek panjang karakter yang diinput

IF LenA(ls_nama) < 3 THEN

MessageBox("Warning", "Nama user minimal 3 karakter.", Exclamation!)

dw_user.SetColumn("user_name")

dw_user.SetFocus()

Return

ELSEIF LenA(ls_password) < 5 THEN

Messagebox("Warning", "Password minimal 5 karakter.", Exclamation!)

dw_user.SetColumn("user_password")

dw_user.SetFocus()

Return

ELSEIF LenA(Trim(ls_nama_lengkap, True)) < 4 THEN

MessageBox("Warning", "Nama lengkap user minimal 4 karakter.", Exclamation!)

dw_user.SetColumn("user_full_name")

dw_user.SetFocus()

Return

END IF

// jika ini merupakan proses tambah user, cek apakah nama user yang dimasukkan sudah ada atau belum

// jika belum ada, lanjutkan dengan memasukkan user ID

IF ii_mode = 0 THEN

SELECT COUNT(*)

INTO :ll_count

FROM karyawan.tbl_user

WHERE user_name = :ls_nama

USING SQLCA;

IF IsNull(ll_count) THEN ll_count = 0

IF ll_count > 0 THEN

MessageBox("Warning", "Nama user yang anda masukkan sudah ada..", Exclamation!)

dw_user.SetColumn("user_name")

dw_user.SetFocus()

Return

END IF

SELECT MAX(user_id)

INTO :ll_user_id

FROM karyawan.tbl_user

USING SQLCA;

IF IsNull(ll_user_id) THEN ll_user_id = 0

ll_user_id ++

dw_user.SetItem(dw_user.GetRow(), "user_id", ll_user_id)

END IF

// data yang dimasukkan user tidak ada masalah, lanjutkan dengan mengupdate database

IF dw_user.Update() = 1 THEN // sukses

Commit;

MessageBox("Sukses", "Data user berhasil disimpan/diupdate.", Information!)

ELSE // gagal

Rollback;

MessageBox("Gagal", "Gagal menyimpan/mengupdate data.", StopSign!)

Return

END IF

// atur properti command button

This.Enabled = False

cb_tambah.Enabled = True

cb_edit.Enabled = True

cb_batal.Enabled = False

cb_refresh.Enabled = True

// atur properti Protect kolom datawindow

dw_user.Modify("user_name.Protect = 1")

dw_user.Modify("user_password.Protect = 1")

dw_user.Modify("user_full_name.Protect = 1")

dw_user.Modify("user_level.Protect = 1")

dw_user.Modify("user_status.Protect = 1")

Masukkan script berikut pada event Clicked dari cb_batal

IF MessageBox("Konfirmasi", "Batalkan semua perubahan ?", Question!, YesNo!, 2) = 2 THEN Return

Rollback;

dw_user.Retrieve()

// atur properti command button

This.Enabled = False

cb_tambah.Enabled = True

cb_edit.Enabled = True

cb_simpan.Enabled = False

cb_refresh.Enabled = True

//atur properti Protect kolom dw_user

dw_user.Modify("user_name.Protect = 1")

dw_user.Modify("user_password.Protect = 1")

dw_user.Modify("user_full_name.Protect = 1")

dw_user.Modify("user_level.Protect = 1")

dw_user.Modify("user_status.Protect = 1")

Untuk event Clicked dari cb_refresh, masukkan script berikut:

dw_user.Retrieve()

Sedangkan untuk event Clicked dari cb_tutup, masukkan script ini:

Close(Parent)

Simpan perubahannya, dan coba jalankan program, lalu masukkan data-datanya, coba juga dengan menginput data yang “tidak sesuai” dengan flownya.

Sampai disini kita telah menyelesaikan window w_user untuk keperluan menginput atau mengedit data user pengguna program.

Untuk sementara, bagian kelima ini cukup sampai disini dulu, nanti kita lanjutkan pada Tutorial Membuat Program Biodata Part 6.

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.
Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 4

noreply@blogger.com (Unknown) — Fri, 26 Sep 2014 09:14:00 +0000

Sebelum anda mengikuti tutorial keempat ini, mungkin anda ingin melihat tutorial yang sebelumnya, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 3.

Untuk bagian keempat dari tutorial Membuat Program Biodata Karyawan ini, kita akan membuat datawindow untuk w_user dan mengatur layout dalam w_user. Window w_user ini digunakan sebagai sarana bagi user dengan level Administrator untuk menambah user baru atau mengedit data user yang telah ada.

Flow dari window w_user adalah:

A. Input User Baru

Untuk Kolom User ID akan diprotect, untuk nilainya akan kita berikan secara otomatis dengan bantuan Function (itulah sebabnya pada saat pembuatan tabel tbl_user saya minta kolom user_id jangan dibuat autonumber/counter).
Semua data wajib diisi, untuk Nama User, Password dan Nama lengkap user ada jumlah minimal karakter yang wajib dipenuhi. Berikut adalah aturan penginputannya:

Kolom	Jumlah Karakter	Keterangan
Nama User	3 - 20	Hanya karakter AlfaNumerik dan tidak boleh ada spasi
Password	5 - 20	Hanya karakter AlfaNumerik dan tidak boleh ada spasi
Nama Lengkap User	4 - 50	Hanya karakter Huruf dan boleh ada spasi

Untuk kolom Nama User, harus unik dan tidak boleh sama dengan Nama User yang telah diinput sebelumnya.

B. Edit data User yang telah ada

Kolom ID User dan Nama User tidak dapat diubah, untuk keperluan ini nanti akan kita Protect kolom tersebut.
Untuk flow lainnya sama dengan flow input data baru.

Untuk langkah-langkah pembuatan datawindownya adalah sebagai berikut:

Buat datawindow dari tabel tbl_user dengan jenis Tabular, langkah-langkahnya adalah sebagai berikut:

Klik File->New, lalu pilih tab datawindow dan pilih Tabular seperti gambar dibawah ini lalu klik OK:

Setelah anda klik OK maka akan tampil jendela pemilihan sumber datanya, pilih yang Quick Select seperti gambar ini:

Klik Next, lalu disebelah kiri pilih tabel tbl_user (disaya namanya karyawan.tbl_user) lalu klik Add All, seperti gambat ini:

Klik OK, maka akan tampil jendela pengaturan warna, atur sesuai dengan yang anda mau, kalau saya, saya biarkan default terlebih dahulu seperti gambar ini:

Klik Next, dan akan tampil jendela terakhir dari wizard pembuatan datawindow seperti ini:

Klik Finish untuk membuat datawindownya.

Atur sedemikian rupa layoutnya, kalau saya menjadi seperti ini:

Detail Pengaturan datawindownya:

Jenis Font: Times New Roman, Size: 10 Bold

Border: Box(2), untuk kolom user_status bordernya: NoBorder(0)

Untuk Static Text yang berada pada header Backgroundnya: sky, untuk kolom pada detail backgroundnya: White

Untuk kolom user_level, ganti Style Type menjadi DropDownListBox dengan ketentuan:

Sorted dan Always Show Arrow ditandai, dan pada code table, masukkan:

Display Value	Data Value
Administrator	1
User	0

Untuk kolom user_status, ganti Style Type menjadi CheckBox, dengan ketentuan:

3-D Look dan Scale ditandai, dan ketikkan "Aktif" (tanpa tanda kutip) di kotak Text
Masukkan 1 pada kotak Data Value for On, dan 0 pada Data Value for Off.

Atur Alignmentnya, untuk user_id: Center, dan kolom yang lainnya: Left

Untuk kolom user_password, beri tanda pada kotak Password di tab Edit pada propertiesnya.

Simpan datawindow ini dengan nama d_user

Buka window w_user dan masukkan beberapa control dengan detail berikut ini:

1 datawindow dengan nama dw_user dan Data Objectnya: d_user
6 Command Button dengan detail:

Nama	Text	Enabled
cb_tambah	Tambah	Ya
cb_edit	Edit	Ya
cb_simpan	Simpan	Tidak
cb_batal	Batal	Tidak
cb_refresh	Refresh	Ya
cb_tutup	Tutup	Ya

Untuk window w_user yang saya buat akan seperti ini:

Simpan perubahan untuk window w_user, jika diperlukan silahkan dijalankan programnya dengan mngklik toolbar Run.

Biar anda tidak terlalu pusing, bagian keempat ini saya sudahi dulu sampai disini, kita akan lanjutkan dibagian kelima Tutorial Membuat Program Biodata Karyawan Part 5, dimana kita akan sempurnakan window w_user ini agar bisa digunakan untuk menginput atau mengedit data user.

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

Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 3

noreply@blogger.com (Unknown) — Thu, 25 Sep 2014 13:19:00 +0000

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:

Membuat Program Biodata Karyawan Part 2

noreply@blogger.com (Unknown) — Wed, 24 Sep 2014 12:41:00 +0000

Untuk bagian ini, kita akan "menyempurnakan" window login yang telah kita buat pada bagian sebelumnya, jika anda baru mengikuti tutorial ini atau ingin melihat kembali bagian pertama tutorial ini, silahkan klik Tutorial Membuat Program Biodata Karyawan Part 1.

Namun sebelum "menyempurnakan" window login, yang harus kita lakukan adalah membuat databasenya terlebih dahulu. Seperti yang telah saya katakan sebelumnya, untuk tutorial ini database yang saya gunakan adalah PostgreSQL versi 9.3, jika anda menggunakan database yang lain, silahkan buat tabel baru dengan struktur berikut ini:

Nama Tabel: tbl_user

Kolom/Field yang harus dibuat:

user_id, Tipe Data: integer, Primary Key

user_name, Tipe Data: String/Text dengan maksimal panjang karakter: 20

user_password, Tipe Data: String/Text dengan maksimal panjang karakter: 20

user_full_name, Tipe Data: String/Text dengan maksimal panjang karakter: 50

user_level, Tipe Data: integer

user_status, Tipe Data: integer

Sedangkan jika anda menggunakan database yang sama dengan yang saya gunakan, silahkan ikuti langkah-langkah berikut ini:

Jalankan pgAdmin III, lalu klik dua kali pada nama servernya lalu masukkan passwordnya, biasanya kalau saat instal anda biarkan dengan nilai defaultnya, maka nama servernya adalah PostgreSQL 9.3 (localhost:5432)

1. Expand PostgreSQL 9.3 (localhost:5432) -> Databases -> postgres -> Schemas
2. Buat skema baru dengan nama karyawan dan owner postgres lalu klik OK
3. Expand skema karyawan, lalu buat tabel baru dengan cara klik kanan di skema karyawan lalu pilih New Object dan pilih New Table
4. Pada jendela pembuatan tabel masukkan nama tbl_user pada kotak Name, Owner: postgres
5. Pada tab Columns, buat kolom-kolom berikut ini:

user_id, Tipe Data: integer, pada tab Definition, beri tanda pada kotak Not NULL
user_name, Tipe Data: character varying, Length: 20
user_password, Tipe Data: character varying, Length: 20
user_full_name, Tipe Data: character varying, Length: 50
user_level, Tipe Data: integer
user_status, Tipe Data: integer

6. Pada tab Constraint, buat Primary Key, dengan cara klik Add, lalu masukkan namanya (bebas) disini saya beri nama tbl_user_pk
7. Pada tab Columns (jendela New Primary Key), pilih user_id dikotak pilihan Column lalu klik Add, setelah itu klik OK dan klik OK lagi untuk menyelesaikan pembuatan tabel user.

Ket:

Untuk kolom/field user_id jangan dibuat autonumber/counter (nanti anda akan tahu sebabnya).

Untuk maksimal panjang karakter bisa anda sesuaikan dengan kebutuhan anda.

Untuk kolom/field user_level, nantinya hanya akan bernilai 0 atau 1, dimana 0 berarti user tersebut berada pada level pengguna, sedangkan 1 berarti user tersebut berada pada level administrator.

Untuk kolom/field user_status juga sama, hanya akan bernilai 0 atau 1, dimana 0 berarti user tersebut statusnya sudah tidak aktif atau tidak berhak menjalankan program, sedangkan 1 berarti user tersebut statusnya aktif dan berhak menjalankan program.

Setelah membuat tabel diatas, masukkan data-data berikut ini:

user_id = 1

user_name = ADMIN

user_password = 123456

user_full_name = ADMINISTRATOR

user_level = 1

user_status = 1

Sampai disini kita telah selesai membuat database dan tabel user untuk keperluan login pada program.

Sekarang buka PowerBuilder 12 Classic dan buka workspace yang telah kita buat sebelumnya yang bernama biokaryawan (atau dengan nama workspace milik anda). Sebelumnya pastikan dahulu anda telah membuat koneksi databasenya pada ODBC, jika anda belum membuatnya silahkan lihat disini terlebih dahulu: Persiapan Tutorial.

Kembali lagi ke PowerBuilder 12 Classic, klik menu Tools->Database Painter untuk membuka jendela database dan membuat profile databasenya.

Expand dan klik kanan pada bagian ODBC lalu pilih New Profile, atur konfigurasinya seperti berikut ini:

Profile Name: Data Karyawan
Data Source: PostgreSQL 93
User ID: postgres
Password: sample
Hilangkan tanda pada kotak Commit on Disconnect

Pada tab Preview klik Copy, dan klik Test Connection, hasilnya harus Connection Succesfull.

Klik Apply lalu klik OK untuk menyimpan profile tersebut.

Klik kanan pada profile Data Karyawan lalu pilih Connect

Sampai disini kita telah selesai membuat koneksi databasenya dalam PowerBuilder, langkah diatas diperlukan agar kita bisa mempreview data yang ada dalam database, jadi bukan untuk koneksi program yang kita buat ke databasenya, karena untuk hal tersebut ada langkah lain (itulah mengapa saya suruh anda untuk klik Copy pada tab preview diatas.

Membuat Custom Class

Custom Class yang akan kita buat adalah untuk keperluan koneksi dan membuka program, sebenarnya langkah ini bersifat opsional, karena kita juga bisa membuatnya langsung di Object Applicationnya, namun kalau menurut saya pribadi, dengan membuat Custom Class ini, akan sedikit menaikan level Programming kita hehehehe.

Lanjut lagi ke tutorialnya, tutup Database Painter, lalu klik File->New->Pilih tab PB Object, lalu pilih Custom Class dan klik OK

Pada tab Function List, klik kanan di area kosong lalu pilih Add, atur seperti dibawah ini:

Access: Public
Return Type: boolean
Function Name: of_logon

Function ini tidak membutuhkan Parameter, jadi hapus parameter default yang otomatis ada, dengan cara klik kanan dikotak Argument Name dan pilih Delete Parameter

Klik kanan pada area script lalu pilih Paste untuk mempaste syntax yang telah kita Copy sebelumnya, sehingga diarea script akan menjadi seperti ini:

// Profile Data Karyawan

SQLCA.DBMS = "ODBC"

SQLCA.AutoCommit = False

SQLCA.DBParm = "ConnectString='DSN=PostgreSQL 93;UID=postgres;PWD=<******>',CommitOnDisconnect='No'"

Ganti karakter <******> dengan password untuk konek ke databasenya, dalam hal ini saya ganti dengan "sample" (tanpa tanda kutip), sehingga menjadi seperti ini:

// Profile Data Karyawan

SQLCA.DBMS = "ODBC"

SQLCA.AutoCommit = False

SQLCA.DBParm = "ConnectString='DSN=PostgreSQL 93;UID=postgres;PWD=sample',CommitOnDisconnect='No'"

Tambahkan script berikut ini dibawahnya:

Connect;

IF SQLCA.SQLCode <> 0 THEN

MessageBox("Error", SQLCA.SQLErrText, StopSign!)

Return False

END IF

Return True

Sehingga scriptnya akan menjadi seperti ini:

// Profile Data Karyawan

SQLCA.DBMS = "ODBC"

SQLCA.AutoCommit = False

SQLCA.DBParm = "ConnectString='DSN=PostgreSQL 93;UID=postgres;PWD=sample',CommitOnDisconnect='No'"

Connect;

IF SQLCA.SQLCode <> 0 THEN

MessageBox("Error", SQLCA.SQLErrText, StopSign!)

Return False

END IF

Return True

Buka lagi tab Function List dan tambahkan Function baru dengan parameter berikut ini:

Access: Public
Return Type: boolean
Function Name: of_open

Function ini juga tidak membutuhkan parameter, jadi hapus kembali parameter yang otomatis ada.

Masukkan script berikut ini pada area scriptnya:

Integer li_ret

IF Not This.of_logon() THEN Return False

Open(w_login)

li_ret = Message.DoubleParm

IF li_ret <> 1 THEN Return False

Return True

Simpan dengan nama: nvo_apps

Sampai disini kita telah selesai membuat Custom Class untuk keperluan koneksi database dan membuka programnya.

Tutup jendela Custom Class nvo_apps, lalu buka Object Application, dengan cara klik dua kali pada Object biokaryawan.

Pada Event Open, hapus script yang telah kita buat sebelumnya lalu masukkan script berikut ini:

nvo_apps lnvo_apps

lnvo_apps = Create Using "nvo_apps"

IF Not lnvo_apps.of_open() THEN

Halt

ELSE

Open(w_utama)

END IF

Klik toolbar Save untuk menyimpan perubahannya, lalu tutup jendela Object Application.

Langkah selanjutnya adalah mengganti semua script pada window w_login, untuk itu buka window w_login.

lalu buka tab Declare Instance Variables, masukkan deklarasi variabel berikut ini:

integer ii_ret

Ganti Instance Variables menjadi Global Variables (dibagian atas area script), lalu deklarasikan variabel-variabel berikut ini:

String gs_nama_user, gs_nama_lengkap

Integer gi_level

Long gl_user_id

Buka Event Open w_login, dan masukkan script ini:

ii_ret = 0

Buka Event Close w_login, dan masukkan script ini:

IF ii_ret = 1 THEN Return

ii_ret = 0

CloseWithReturn(This, ii_ret)

Buka Event Clicked cb_batal, hapus script yang telah ada dan masukkan script ini:

ii_ret = 0

CloseWithReturn(Parent, ii_ret)

Buka Event Clicked cb_ok, hapus script yang telah ada sebelumnya dan masukkan script berikut ini:

String ls_password

Integer li_status

// check null atau string kosong pada sle_nama dan sle_password

IF IsNull(sle_nama.Text) OR Trim(sle_nama.Text, True) = "" THEN

MessageBox("Login", "Masukkan Nama User anda.", Exclamation!)

sle_nama.SetFocus()

Return

ELSEIF IsNull(sle_password.Text) OR Trim(sle_password.Text, True) = "" THEN

MessageBox("Login", "Masukkan password anda.", Exclamation!)

sle_password.SetFocus()

Return

END IF

// set variabel gs_nama_user berdasarkan teks dalam sle_nama

gs_nama_user = sle_nama.Text

// cek data dalam database berdasarkan nama user yang dimasukkan di sle_nama

SELECT user_id, user_password, user_full_name, user_level, user_status

INTO :gl_user_id, :ls_password, :gs_nama_lengkap, :gi_level, :li_status

FROM karyawan.tbl_user

WHERE user_name = :gs_nama_user

USING SQLCA;

// nama user yang dimasukkan tidak ada dalam database

IF SQLCA.SQLCode = 100 THEN

MessageBox("Login", "Nama User tidak ada dalam database.", Exclamation!)

sle_nama.SetFocus()

Return

END IF

// Database error

IF SQLCA.SQLCode <> 0 THEN

MessageBox("Error", "Database error, coba lagi atau hubungi administrator.", StopSign!)

Return

END IF

// data ada dan database tidak error

// cek password yang dimasukkan dalam sle_password

// password tidak sama dengan database

IF UPPER(ls_password) <> sle_password.Text THEN

MessageBox("Login", "Password yang anda masukkan salah.", Exclamation!)

sle_password.SetFocus()

Return

END IF

// password sesuai dengan database, sekarang cek status user, 1 = Aktif, selain 1 maka dianggap tidak aktif

// status user bukan 1 atau tidak aktif

IF li_status <> 1 THEN

MessageBox("Login", "Status user sudah tidak aktif, hubungi administrator.", Exclamation!)

sle_nama.SetFocus()

Return

END IF

// semua data ok

ii_ret = 1

CloseWithReturn(Parent, ii_ret)

Atur TextCase untuk sle_nama dan sle_password menjadi upper!

Tandai kotak Password untuk sle_password

Atur cb_ok menjadi Default, dengan menandai kotak Default di Propertiesnya, setelah itu simpan perubahannya.

Sekarang coba jalankan dengan mengklik toolbar Run, dan coba login dengan benar ataupun dicoba dengan yang salah, misalnya nama usernya diganti atau salah memasukkan passwordnya. Jika memungkinkan coba juga diubah didatabasenya: statusnya diganti dengan 0, lalu coba login dengan user yang statusnya diganti menjadi 0.

Selesailah tutorial membuat program biodata karyawan part 2 ini, nanti akan kita lanjutkan di bagian ketiga, silahkan klik Membuat Program Biodata Karyawan Part 3.

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

Download tutorial ini dalam format pdf:

Membuat Program Biodata Karyawan Part 1

noreply@blogger.com (Unknown) — Tue, 23 Sep 2014 11:18:00 +0000

Untuk tutorial pertama saya akan memberikan contoh bagaimana membuat program biodata karyawan. Dalam program yang akan kita buat, nantinya akan memiliki detail berikut ini:

Tipe MDI
Window Login
Window Input dan Edit Data Karyawan
Window Laporan
Window Ganti Password
Window About
Window Cetak

Penjelasan:

Tipe MDI : Kita akan membuat window utama berupa window dengan tipe MDI, dimana nanti anda akan membuat menu untuk window utama.
Window Login : Window yang digunakan untuk verifikasi user yang menggunakan.
Window Input dan Edit Data Karyawan : Window ini untuk menginput dan mengedit data-data karyawan.
Window Laporan : Window untuk mencetak Data Karyawan yang telah diinput.
Window Ganti Password : Window untuk mengganti password bagi user yang login.
Window About : Window yang menginformasikan Tentang Program.
Window Cetak : Window yang digunakan untuk memilih Printer dan jumlah pencetakannya.

Dalam tutorial ini, nantinya anda akan membuat:

Custom Class
Structure
Function

Untuk database yang digunakan adalah PostgreSQL 9.3, jika anda belum memilikinya, anda bisa download di PostgreSQL atau jika anda ingin menggunakan database lain, silahkan, yang penting jika ada perbedaan syntax SQL anda dapat mengconvertnya.

Untuk langkah pertama, buat workspace baru dengan nama biokaryawan atau dengan nama lain yang anda inginkan. Caranya buka PowerBuilder 12 Classic, lalu klik File->New->Pilih tab Workspace, lalu klik Workspace dan klik OK. browse ke directory yang anda inginkan, lalu beri nama biokaryawan atau nama yang sesuai dengan pilihan anda, lalu klik Save.

Langkah kedua adalah membuat targetnya, caranya klik menu File->New->Pilih tab Target, lalu pilih Application dan klik OK, masukkan nama aplikasinya, untuk gampangnya samakan saja dengan nama workspacenya, karena nama workspace yang saya buat itu biokaryawan, maka saya masukan biokaryawan dalam Application Name, sehingga dikotak library dan target akan muncul nama yang sama dengan ekstensi .pbl dan .pbt, seperti ini:

Tutorial 1 - Setting Target Dan Library

Klik Finish untuk membuatnya.

Langkah ketiga adalah membuat Menu untuk window utama, Klik menu File->New->Pilih tab PB Object, pilih/klik Menu lalu klik OK. Maka akan tampil jendela berikut ini:

Tutorial 1 - Membuat Menu

Klik kanan di untitled0 lalu pilih Insert Submenu Item, lalu ketikkan: &Master, dan buat 5 menu lagi:

&Input Dan Edit Data Karyawan
&Laporan
&Pengaturan
Window
E&xit

Tips: Untuk mempercepat saat membuat menu, setiap setelah selesai mengetik Teks untuk menunya, tekan tombol Tab untuk langsung membuat menu yang berikutnya, jadi urutan yang anda ketik adalah seperti ini:

&Master (tekan Tab) &Input Dan Edit Data Karyawan (tekan Tab) &Laporan (tekan Tab) &Pengaturan (tekan Tab) Window (tekan Tab) E&xit lalu tekan Enter

Ket: Karakter (&) mengindikasikan shortcut keyboard untuk menunya, jadi nantinya saat dirunning, user bisa menggunakan kombinasi tombol Alt dan karakter setelah karakter (&), misalnya untuk mengakses menu Master, user bisa menekan tombol Alt dan M secara bersamaan.

Buat Submenu untuk Menu Master, caranya klik kanan di menu Master lalu pilih Insert Submenu Item, lalu ketikkan: &User. Lakukan hal yang sama pada menu Laporan, Pengaturan dan Window dan ketikkan:

Submenu Laporan: &Data Karyawan
Submenu Pengaturan: &Ganti Password
Submenu Window: &About

Buat Toolbar untuk beberapa menu:

Klik menu Input Dan Edit Data Karyawan, pada Propertiesnya pilih tab Toolbar, lalu pada ToolbarItemName, pilih icon yang anda inginkan, kalau saya memilih icon gambar orang dengan nama Custom076!, lalu masukkan tooltipnya di kotak ToolbarItemText, misalnya: Input/Edit Data Karyawan.

Lakukan hal yang sama untuk menu Laporan->Data Karyawan, Pengaturan->Ganti Password dan Exit, untuk versi saya, berikut detailnya:

Laporan->Data Karyawan: ToolbarItemName: Custom092!, ToolbarItemText: Laporan data karyawan
Pengaturan->Ganti Password: ToolbarItemName: Custom016!, ToolbarItemText: Ganti password
Exit: ToolbarItemName: Exit!, ToolbarItemText: Keluar dari aplikasi

Berikan separator dengan cara mengubah nilai ToolbarItemSpace menjadi 1 untuk:

Laporan->Data Karyawan
Pengaturan->Ganti Password
Exit

Untuk menu yang saya buat hasilnya seperti ini:

Tutorial 1 - Membuat Menu Dan Toolbar

Simpan Menu yang telah anda buat dengan nama m_utama.

Langkah keempat adalah membuat Window utama, caranya Klik File->New->Pilih tab PB Object, lalu pilih Window lalu klik OK. Akan muncul jendela desain windownya.

Di jendela Propertiesnya, pada kotak Title ganti Untitled menjadi Program Biodata Karyawan (atau apapun yang anda inginkan).
Pada bagian WindowType, ganti menjadi mdi!
Pada bagian MenuName, klik tombol [...] lalu pilih m_utama dan klik OK.
Pada bagian WindowState ganti menjadi maximized!
Simpan window ini dengan nama w_utama

Langkah kelima adalah membuat window login, caranya Klik File->New->Pilih tab PB Object, lalu pilih Window lalu klik OK. Akan muncul jendela desain windownya.

Di jendela Propertiesnya, ganti WindowType menjadi Response, lalu masukkan control-control berikut ini:
Static text: 2 buah, Teksnya: Nama User: dan Password:
Single Line Edit: 2 Buah
Ubah nama sle_1 menjadi sle_nama dan sle_2 menjadi sle_password, cb_1 menjadi cb_ok, cb_2 menjadi cb_batal.
Untuk Teksnya: sle_nama dan sle_password dikosongkan, untuk cb_ok Teksnya: OK, untuk cb_batal Teksnya: Batal

Atur properties yang lainnya untuk window ini, kalau versi saya pengaturan windownya:

ControlMenu dan TitleBar saya hilangkan tandanya, sehingga windownya akan tampak seperti ini:

Tutorial 1 - Window Login

Untuk sementara (biar hasilnya bisa dilihat), masukkan script berikut ini ke event Clicked() pada cb_ok:

Open(w_utama)

Close(Parent)

dan script berikut ini untuk event Clicked() pada cb_batal:

Halt

Simpan window ini dengan nama w_login

Ket: Parent itu mengindikasikan w_login, karena w_login merupakan Parent dari cb_ok.

Langkah keenam adalah memasukkan script pada event Open di applicationnya, caranya klik dua kali pada applicationnya, kalau disaya namanya biokaryawan (dibawah biokaryawan.pbl), lalu ketikkan script:

Open(w_login)

Lalu klik Save pada menubar.

(Ini untuk sementara dulu, biar kita bisa running aplikasinya.)

Penjelasan:

Script di event Open Application (Open(w_login)) akan dieksekusi pertama kali oleh PowerBuilder, dan dalam alur program yang sedang kita buat, window yang pertama kali tampil/dibuka haruslah window login, jika sukses login barulah window utamanya dibuka/ditampilkan, jadi di event Open Applicationnya harus dimasukkan script Open(w_login) bukan Open(w_utama).

Untuk melihat hasilnya, klik Menu Run->Run biokaryawan atau klik toolbar dengan gambar orang berlari, kira-kira seperti ini gambarnya:

Tutorial 1 - Toolbar Run

Klik tombol OK untuk membuka window utama atau klik tombol Batal untuk menutupnya.

Demikianlah tutorial membuat program biodata karyawan bagian pertama ini, untuk bagian kedua akan saya lanjutkan nanti pada Tutorial Membuat Program Biodata Karyawan Part 2.

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

Download tutorial ini dalam format pdf:

Comment Script

noreply@blogger.com (Unknown) — Sat, 20 Sep 2014 06:06:00 +0000

Tips kali ini, mengenai comment pada script yang kita tulis. Sering kali saya melihat source code program para programmer baik yang masih pemula ataupun yang sudah pro, tidak menyertakan comment dalam scriptnya, hal ini sebenarnya bukanlah masalah yang besar atau harus dibesar-besarkan, terlebih lagi untuk pembuatnya. Namun jika ada suatu case khusus yang terjadi maka pemecahan masalahnyapun jadi tidak semudah membalikan telapak tangan, kita semua tahu Lupa adalah hal yang sangat manusiawi, dan kadang kala kita sebagai manusia juga suka melewatkan sesuatu secara tidak sengaja karena faktor-faktor tertentu.

Balik lagi ke masalah comment, menurut saya pribadi, comment itu dibutuhkan agar jika suatu saat terjadi error atau ada perubahan dalam script, ktia bisa langsung mengetahui langkah apa yang harus dilakukan untuk memecahkan persoalannya (error atau perubahannya). Jadi bisa dikatakan untuk saya pribadi Comment itu merupakan sebuah petunjuk atau clue untuk script yang akan dijalankan.

Comment tidak akan dieksekusi oleh PowerBuilder, alias akan langsung dilewati (sepertinya hal ini juga berlaku untuk bahasa pemrograman yang lain).

Sudah banyak yang membahas masalah comment dalam script di internet, diantaranya ada yang menyebutkan bahwa comment itu merupakan salah satu hal yang membuat cara menulis script seorang programmer dikatakan rapi, namun di sisi lain ada pula yang beranggapan jika kita terlalu jelas menulis comment dalam script, maka hasil kerja kita akan dengan mudah diubah-ubah oleh programmer lain (mungkin ini salah satu penyebab secara umum seorang programmer akan agak susah untuk diminta memodifikasi program yang bukan buatannya sendiri).

Comment dalam PowerBuilder itu diawali dengan karakter 2 garis miring ( // ) atau jika comment ingin dibuat lebih dari 1 baris maka karakternya menjadi garis miring dan karakter asterik ( /* ) dan diakhir Comment dengan karakter asterik dan garis miring ( */ ), dan biasanya akan langsung berubah warna menjadi biru (lihat gambar diatas).

Contohnya:

Comment dengan 1 baris

// cek nilai yang dimasukkan dalam sle_1

codingan anda...

Comment dengan lebih dari 1 baris

/* cek nilai dalam dropdownlistbox

lalu masukkan hasilnya ke singlelineedit

codingan anda...

Nah, jika memang anda tidak dikejar-kejar waktu tenggat, maka tidak ada salahnya jika anda memberikan comment dalam setiap script yang anda tulis, atau setidaknya berikan Comment pada script yang agak panjang, hal ini agar jika suatu saat terjadi masalah, anda bisa langsung mendeteksi dan bisa langsung mendapatkan solusinya.

Ini hanyalah salah satu tips untuk anda, simple memang, tapi kadang kala hal yang simple juga bisa menjadi masalah yang besar.

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

Prefiks Variabel

noreply@blogger.com (Unknown) — Fri, 19 Sep 2014 13:14:00 +0000

Masih postingan dalam hal tips, untuk kali ini saya ingin memberikan/mengingatkan sebuah tips untuk anda, dimana tips ini sedikit banyak akan membantu kita dalam membuat variabel-variabel yang unik alias tidak bentrok dengan variabel lainnya, maksudnya setiap kali membuat variabel, kita tidak akan membuat variabel yang sama.

Untuk itu maka perlu kita tetapkan dari awal sekali, tentang prefiks variabel-variabel yang akan kita tentukan dalam setiap program yang kita buat. Hal ini juga akan membuat cara mengkoding kita akan lebih tertata rapi serta terstruktur dan jadi mudah diingat (untuk yang terakhir ini menurut saya pribadi).

Untuk lebih jelasnya dengan apa yang saya maksudkan, silahkan anda buka menu Design -> Options. Lalu anda buka Tab Prefixes 1 dan Prefixes 2.

Disana anda akan lihat prefiks-prefiks yang secara default telah ditentukan oleh PowerBuilder untuk masing-masing objek, sehingga setiap kali kita insert objek, maka namanya akan dimulai oleh prefiks yang telah ditentukan dalam menu tersebut.

Saya ambil contoh untuk Command Button, maka default prefiksnya adalah cb_ jika kita insert control Command Button kedalam window atau datawindow, maka nama command button tersebut akan menjadi cb_ ditambah angka urutan insertnya, misalnya cb_1, cb_2, cb_3 dan seterusnya.

Hal ini secara tidak kita sadari, sebenarnya telah membantu kita untuk mengingat bahwa control command button yang ada dalam window itu namanya diawali dengan cb_, sehingga kita tinggal mengingat nama lanutannya untuk keperluan coding kita, misalnya memanggil event Clickednya.

Disini alangkah lebih baik lagi jika, nama object atau control tersebut disesuaikan dengan actionnya, misalnya actionnya adalah mencetak, maka namanya lebih baik diganti, misalnya dari cb_1 menjadi cb_cetak, jika actionnya adalah menyimpan data, maka namanya menjadi cb_simpan.

Lanjut lagi ke tipsnya, dalam PowerBuilder untuk variabel itu terbagi menjadi 4:

1. Global Variable

2. Instance Variable

3. Shared Variable

4. Local Variable

Untuk pengertian masing-masing, silahkan anda buka menu Help pada PowerBuilder lalu ketikkan variable, lalu klik where to declare.

Kalau saya pribadi, untuk masing-masing variabel, saya pasti akan menggunakan prefiks-prefiks seperti dibawah ini:

1. Global Variabel: g

2. Instance Variable: i

3. Shared Variable: sh

4. Local Variable: l

Contoh deklarasi variabelnya:

Tipe data String:

1. Global Variabel: gs_

2. Instance Variable: is_

3. Shared Variable: shs_

4. Local Variable: ls_

Tipe data Integer

1. Global Variabel: gi_

2. Instance Variable: ii_

3. Shared Variable: shi_

4. Local Variable: li_

Tipe Data Long

1. Global Variabel: gl_

2. Instance Variable: il_

3. Shared Variable: shl_

4. Local Variable: ll_

dan lain sebagainya.

Dengan ditentukannya prefiks untuk masing-masing variabel, maka saat kita akan menentukan variabel local, maka kita akan yakin kalau variabel tersebut tidak ada di Global, Shared atau Instance Variabel, karena prefiksnya sudah berbeda.

Contohnya kita membutuhkan 2 variabel untuk user ID dengan tipe data string, namun variabel tersebut berbeda level aksesnya, yang satu untuk dapat diakses dalam keseluruhan program, alias dapat dipanggil oleh semua Objek atau kontrol, sedangkan variabel yang satu lagi (misalnya) untuk mendapatkan user ID yang lain dan hanya untuk keperluan satu Objek atau Kontrol.

Dalam hal ini berarti akan ada dua variabel dengan nama yang sama, namun dibedakan oleh prefiksnya, contohnya:

Untuk Global Variabel bernama gs_nama_user sedangkan untuk yang Local Variabel bernama ls_nama_user

Ini hanyalah salah satu tips untuk anda, anda boleh lakukan atau tidak, karena hal tersebut sangat tergantung pada anda secara pribadi, maksudnya kalau anda telah terbiasa dengan metode yang lain dan tidak pernah ada masalah, silahkan dilanjutkan.

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

Cek Null Atau String Kosong

noreply@blogger.com (Unknown) — Fri, 19 Sep 2014 06:40:00 +0000

Untuk kali ini, saya akan memberikan tips yang mungkin anda sudah mengetahuinya, bahkan telah atau selalu melakukannya, namun tidak sedikit juga ada diantara anda yang sudah mengetahuinya, namun tidak selalu melakukannya. Jadi mungkin tips kali ini lebih tepat untuk dikatakan sebagai pengingat untuk anda.

Alasan yang paling utama untuk saya memposting tips ini adalah, karena sering kali saya temukan ada user yang komplain atau kebingungan karena program error atau inputan yang ia masukkan tidak sesuai dengan hasilnya. Seringnya sih ternyata masalah yang timbul dikarenakan hal yang sepele, seperti user lupa menginput data sebuah kolom, namun hal yang sepele ini bisa jadi masalah yang agak besar jika kolom yang user tersebut lupa untuk diinput adalah kolom yang wajib diisi, misalnya karena kolom tersebut adalah merupakan Primary Key dari tablenya.

Nah, kembali lagi ke tips yang akan saya berikan/ingatkan, tips kali ini adalah "Selalu cek untuk null atau string kosong pada kolom yang wajib diisi".

Pertanyaannya adalah, mengapa hal tersebut harus dilakukan ?

Jawabannya simple (seperti yang telah saya uraikan diatas), hal tersebut adalah untuk menghindari error untuk script selanjutnya, apalagi script selanjutnya itu membutuhkan nilai dari kolom tersebut untuk keperluan yang lainnya.

Syntax untuk tips ini adalah menggunakan statement IF, anda bisa gunakan statement IF tunggal ataupun multi line, statement IF tunggal digunakan jika nilai suatu kondisi True tapi tidak ada yang harus dilakukan, sedangkan statement IF multi line digunakan jika nilai suatu kondisi True ada action yang dilakukan, misalnya sebuah pesan peringatan atau action yang lainnya.

Contohnya sebagai berikut (cek null atau string kosong pada singlelineedit yang bernama sle_1):

1. Statement IF tunggal
1a. Hanya cek null atau string kosong pada sle_1
IF IsNull(sle_1.Text) OR Trim(sle_1.Text, True) = "" THEN Return
1b. Nilai data dalam sle_1 itu minimal 5 karakter
IF IsNull(sle_1.Text) OR LenA(Trim(sle_1.Text, True)) < 5 THEN Return

2. Statement IF multi line
2a. Hanya cek null atau string kosong pada sle_1
IF IsNull(sle_1.Text) OR Trim(sle_1.Text, True) = "" THEN
MessageBox("Required", "Data tidak boleh kosong.", Exclamation!)
sle_1.SetFocus()
Return
END IF
2b. Nilai data dalam sle_1 itu minimal 3 karakter
IF IsNull(sle_1.Text) OR LenA(Trim(sle_1.Text, True)) < 3 THEN
MessageBox("Required", "Data tidak boleh kurang dari 3 karakter.", Exclamation!)
sle_1.SetFocus()
Return
END IF

Penjelasan:

Trim(sle_1.Text, True) -> Menghilangkan karakter spasi diawal dan diakhir string, True mengindikasikan semua karakter yang dianggap spasi oleh PowerBuilder, misalnya Tab
LenA(Trim(sle_1.Text, True)) -> Menghitung jumlah karakter dalam string, dengan terlebih dahulu menghilangkan karakter spasi diawal dan diakhir string
Return -> Menghentikan eksekusi script, sehingga script dibawah statement IF ini tidak akan dieksekusi.
1a -> Script tersebut hanya mengecek nilai null atau string kosong, jika True maka tidak akan ada action apa-apa.
1b -> Script tersebut mengecek nilai null atau string dalam sle_1 itu ada berapa karakter, jika True (null atau jumlah karakter yang diinput kurang dari 5) maka tidak akan ada action apa-apa.
2a -> Script tersebut hanya mengecek nilai null atau string kosong, jika True maka akan ditampilkan pesan peringatan "Data tidak boleh kosong."
2b -> Script tersebut mengecek nilai null atau string dalam sle_1 itu ada berapa karakter, jika True (null atau jumlah karakter yang diinput kurang dari 3) maka akan ditampilkan pesan peringatan "Data tidak boleh kurang dari 3 karakter."
Jika kondisinya bernilai False (tidak null atau kosong atau jumlah karakternya sesuai dengan yang kita inginkan), maka statement IF ini akan dilewati oleh PowerBuilder, dan langsung mengeksekusi script dibawah statement IF ini.

Untuk contoh samplenya bisa anda download di halaman Sample

Ini hanyalah salah satu tips untuk anda, yang mungkin anda sudah mengetahuinya, simple memang, tapi kalau ada yang simple mengapa harus susah payah membuat yang ribet ?

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

Validasi Karakter

noreply@blogger.com (Unknown) — Thu, 18 Sep 2014 14:48:00 +0000

Dalam postingan ini, sebelum saya mulai memposting tutorial membuat program, saya ingin memberikan trik mengenai cara memvalidasi karakter yang diinput dalam SingleLineEdit.

Maksud dari trik ini adalah agar User yang menggunakan program mengetik atau memasukkan karakter yang sesuai dengan kebutuhan, misalnya untuk keperluan penginputan Username, yang biasanya username itu hanya boleh berupa Huruf dan/atau Angka saja, atau mungkin jika kita ingin disebuah kolom tidak boleh ada spasi dan lain sebagainya.

Trik ini (sesuai dengan judulnya Validasi Karakter) akan dieksekusi bukan pada saat User mengetik pada keyboardnya, melainkan pada event lainnya, misalnya pada event Clicked di command button.

Di lain kesempatan saya akan jabarkan trik yang langsung memvalidasi karakter pada saat User mengetik di keyboardnya.

Trik ini menggunakan Looping FOR... NEXT

berikut ini adalah contoh codingnya untuk validasi hanya karakter Huruf yang diperbolehkan dalam sle_1:

string ls_valid = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" // validasi karakter
integer li_pos // looping
integer li_ok = 0 // 0 = OK, >0 = ada karakter yang tidak sesuai validasi karakter
char lc_test // karakter yang akan dicek

// cek null atau string kosong, jika true jangan lakukan apa-apa
IF IsNull(sle_1.Text) OR Trim(sle_1.Text, True) = "" THEN Return
// looping untuk mendapatkan karakter yang akan dicek
FOR li_pos = 1 TO LenA(sle_1.Text)
lc_test = Char(MidA(sle_1.Text, li_pos, LenA(sle_1.Text)))
IF PosA(ls_valid, lc_test) = 0 THEN // ada karakter yang tidak sesuai dengan validasi
li_ok ++
Exit
END IF
NEXT

IF li_ok > 0 THEN
MessageBox("Ilegal", "Ada karakter yang tidak diperbolehkan.", Exclamation!)
ELSE
MessageBox("OK", "Semua karakter sesuai dengan validasinya.")
END IF

ls_valid = Karakter yang diperbolehkan

li_pos = Untuk keperluan loop

li_ok = Status karakter, dimana selain 0 berarti ada karakter yang tidak termasuk didalam ls_valid

lc_test = Karakter-karakter yang diinput

Untuk contoh samplenya bisa anda download di halaman Sample

Ini hanyalah salah satu trik untuk anda, simple memang, tapi kalau ada yang simple mengapa harus susah payah membuat yang ribet ?

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

Mengapa Dan Persiapan

noreply@blogger.com (Unknown) — Thu, 18 Sep 2014 11:17:00 +0000

Mungkin pernah dipikiran anda terlintas pertanyaan seperti ini "apakah masih layak untuk saya mempelajari PowerBuilder ?", atau bisa juga "apakah PowerBuilder itu masih layak untuk dipelajari ?".

Saya akan menganggap pertanyaan tersebut wajar dan dapat dimaklumi, karena (mungkin ini yang paling menegaskan) PowerBuilder sempat "ditentukan" untuk di discontinued alias mau dihentikan oleh pihak SAP. Walaupun sempat ada aksi petisi online oleh banyak programmer PowerBuilder yang intinya jika memang akan dihentikan, para programmer PowerBuilder tersebut meminta PowerBuilder dijadikan Open Source, namun hingga kini saya sendiri belum tahu kelanjutannya, namun saya pernah mendengar jika SAP akan segera merilis PowerBuilder Versi 15, jadi sepertinya para programmer PowerBuilder bisa sedikit bernafas lega.

Hal lainnya yang menyebabkan saya menganggap bahwa pertanyaan diatas adalah wajar dan dapat dimaklumi adalah soal harga lisensi yang bisa dibilang termasuk "Wah", dan cara mendapatkan lisensinya. Berdasarkan hasil pencarian saya melalui google, saya temukan lisensi untuk PowerBuilder 12 seharga lebih dari 2000 US Dollar.

Namun terlepas dari semua itu, jawaban pertanyaan diatas adalah relatif, jadi tergantung banyak faktor untuk menjawab pertanyaan "masih layakkan PowerBuilder untuk dipelajari ?".

Sebenarnya jika anda pernah mempelajari MS Access, maka akan anda dapati jika PowerBuilder itu 11-12 dengan MS Access. Hal yang menyebabkan saya mengatakan itu adalah fitur utama dari PowerBuilder yang bernama DataWindow.

Menurut pendapat saya, DataWindow itu adalah salah satu hal yang membuat pertanyaan diatas dapat dijawab dengan kata "Masih Layak". Karena dengan adanya DataWindow, maka kita tidak perlu lagi menambahkan software atau plugins untuk keperluan reporting(laporan), yang lebih enaknya lagi DataWindow itu juga bisa sebagai interface penginputan data yang bisa dimodifikasi layout ataupun stylenya.

Untuk alasan lain yang membuat PowerBuilder masih layak untuk dipelajari, anda bisa cari diinternet menggunakan google.

Dalam blog ini, saya akan mencoba membuat tutorial secara berkesinambungan, dari awal sampai proses deploying applikasinya.

Untuk Software yang akan digunakan adalah:

PowerBuilder Versi 12
Database menggunakan PostgreSQL versi 9.3
Tool untuk koneksi ke database: psqlodbc versi 9.3

Untuk pengaturan PostgreSQL, silahkan disesuaikan dengan kebutuhan anda, disini yang perlu diingat adalah user dan password untuk koneksinya, saya membuat passwordnya dengan kata "sample" (tanpa tanda kutip), sedangkan untuk yang lainnya saya biarkan default..

Silahkan anda instal terlebih dahulu tiga program diatas.
Setelah menginstal ketiga program diatas, lanjutkan dengan membuat koneksi ODBC lewat menu Administrative Tools pada Control Panel Windows anda (jika anda menggunakan OS selain window, silahkan buat ODBCnya menurut OS anda). Namai Koneksi ODBC tersebut dengan PostgreSQL 93 dengan driver PostgreSQL ANSI, berikut ini adalah ODBC yang telah saya buat:

Persiapan - Konfigurasi ODBC

Sesuaikan konfigurasinya dengan pengaturan yang telah anda lakukan pada saat menginstal PostgreSQL, untuk server, localhost berarti databasenya ada dikomputer tersebut, jika databasenya berada dikomputer yang lain, anda bisa masukkan alamat IP Address atau nama komputer tempat diinstalnya PostgreSQL.

Jika nantinya dibutuhkan software lain, maka akan saya beritahukan lewat postingan dalam tutorial yang membutuhkan software lain tersebut.

Jika anda mengalami kebingungan atau ketidaksesuaian antara tutorial dan yang anda praktekkan, silahkan berikan komentar anda di post tutorial yang bersangkutan atau bisa kirim email melalui halaman Contact Me dengan menyertakan judul tutorial dan masalah yang anda alami.

Selamat mengikuti tutorialnya ya.