Pada artikel ini akan dijelaskan fungsi-fungsi buatan yang dapat digunakan dalam pembuatan aplikasi menggunakan power builder. Fungsi-fungsi ini bertujuan untuk lebih mudah dalam coding. Sehingga fungsi ini dibuat untuk event/proses yang paling sering digunakan apabila kita mengembangkan aplikasi menggunakan power builder.

Msalnya kita ingin mengembangkan user interface ( UI ) sebagai berikut.

Dan kita perlu mengembangkan 2 (dua) fungsi yang paling umum dipakai, yaitu:

1. Fungsi delete data
   
   Dengan Powerscript:
   integer Net
   Net = MessageBox(”Result”, l_message, &
   Exclamation!, YesNo!, 2)
   IF Net = 1 THEN
   l_dw.deleterow(l_row)
   f_dw_update(l_dw,”,0)
   return 1
   ELSE
   return 0
   END IF
   return 1
2. Fungsi simpan data
   
   Dengan Powerscript:
   integer Net
   if l_confirm = 1 then
   Net = MessageBox(”Result”, l_message,Exclamation!, YesNo!, 2)
   else
   Net = 1
   end if
   IF Net = 1 THEN
   integer rtn
   rtn = l_dw.Update(true,true)
   IF rtn = 1 THEN
   COMMIT USING SQLCA;
   return 1
   ELSE
   ROLLBACK USING SQLCA;
   return 0
   END IF
   ELSE
   return 0
   END IF
   return 1

Pada event clicked di command button hapus powerscript yang digunakan:
f_dw_delete(dw_1,dw_1.getrow(),”Anda Yakin Ingin Menghapus Data ?”,1)

Pada event clicked di command button simpan powerscript yang digunakan:
f_dw_update(dw_1,”Terdapat Perubahan Data, Yakin Akan Disimpan ?”,0)

Penjelasan:
dw_1 adalah datawindow object yang akan dihapus datanya, dw_1.getrow() adalah parameter yang berisi nomor baris data yang akan hapus pada datawindow object dw_1 . Pada fungsi f_dw_delete digunakan fungsi f_dw_update tetapi menggunakan parameter l_confirm untuk menandai apakah proses update menampilkan ( jika l_confirm = 1 maka tampil, jila l_confirm = 0 maka tidak tampil ) messagebox konfirmasi berikut :

Jika anda ingin mendownload silahkan klik di sini. Selamat mencoba. Semoga bermanfaat.
Inlinks :

473 Views