Oracle : Form/Report Developer
-
Upload
janna-ryan -
Category
Documents
-
view
202 -
download
7
description
Transcript of Oracle : Form/Report Developer
![Page 1: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/1.jpg)
Oracle : Form/Report Developer
Pertemuan 9
Dibuat oleh :
Lis Suryadi, M.Kom
![Page 2: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/2.jpg)
Materi:Membuat Form Entri Pelanggan
![Page 3: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/3.jpg)
Sasaran Belajar
Agar mahasiswa :• Dapat mengerti dan membuat form untuk
membangun sebuah aplikasi dengan menggunakan objek-objek yang ada di Form Builder.
• Dapat mengerti dan memahami penggunakan perintah-perintah PL/SQL dan perintah-perintah Data Manipulation Language(DML) di dalam Form.
![Page 4: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/4.jpg)
Membuat Form Master Pelanggan Dengan Menggunakan Wizard
Berikut ini adalah langkah-langkahnya : Dari Form Builder -> File -> New -> Form. Atau melalui Object Navigator.
![Page 5: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/5.jpg)
Langkah-1: Me-running OC4J Instance
![Page 6: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/6.jpg)
Sebelum Membuka Form Builder Running terlebih dulu OC4J Instance
Caranya:
Dari Oracle Developer Suite --> Forms Developer
--> Start OC4J Instance, sehingga akan tampil kotak dialog seperti berikut :
![Page 7: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/7.jpg)
Langkah ke-2: Memanggil Forms Builder
Dari :
Start -> Program -> Oracle Developer Suite ->
Forms Developer -> Forms Builder.
Sehingga akan tampil kotak dialog sebagai berikut :
![Page 8: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/8.jpg)
Memanggil Form Builder
![Page 9: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/9.jpg)
Langkah ke-3: Login Koneksi
![Page 10: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/10.jpg)
Langkah ke-4: Membuat Form Baru
![Page 11: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/11.jpg)
Membuat Form Baru
1
2
![Page 12: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/12.jpg)
Membuat Object Alert untuk pesan
1
2
![Page 13: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/13.jpg)
Membuat Data Block Menggunakan Wizard
![Page 14: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/14.jpg)
Membuat Data Block Menggunakan Wizard
![Page 15: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/15.jpg)
Membuat Data Block Menggunakan Wizard
![Page 16: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/16.jpg)
Memilih Tipe Data Block
![Page 17: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/17.jpg)
Mencari Tabel atau View di Database
![Page 18: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/18.jpg)
Memilih Tabel atau View dari Database
![Page 19: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/19.jpg)
Memilih Kolom yang akan Ditampilkan di Layout Editor
![Page 20: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/20.jpg)
Memilih Kolom yang akan Ditampilkan di Layout Editor
![Page 21: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/21.jpg)
Memberi Nama Data Block
1
2
![Page 22: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/22.jpg)
Memanggil Layout Wizard
![Page 23: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/23.jpg)
Memilih Canvas yang akan digunakan untuk Layout Data Block
![Page 24: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/24.jpg)
Memilih Item-item yang akan tampil di Frame
![Page 25: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/25.jpg)
Memilih Item-item yang akan tampil di Frame
![Page 26: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/26.jpg)
Menyetting Label, Panjang dan Lebar Item
1
2
![Page 27: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/27.jpg)
Memilih Style Layout untuk Frame
1
2
![Page 28: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/28.jpg)
Menyetting Judul Frame
1
2
![Page 29: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/29.jpg)
Tahap Akhir Membuat Data Block Menggunakan Wizard
![Page 30: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/30.jpg)
Hasil Akhir Layout Menggunakan Wizard
![Page 31: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/31.jpg)
Buatlah Disain Form Seperti Berikut :
![Page 32: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/32.jpg)
DECLARE
judul VARCHAR2(100);
BEGIN
:global.ubah:='T‘;
judul :=‘Form Entri Pelanggan‘;
SET_WINDOW_PROPERTY(WINDOW1, WINDOW_STATE, MAXIMIZE);
SET_WINDOW_PROPERTY(‘WINDOW1’, TITLE, judul);
-- Memanggil prosedur counter kode pelanggan
COUNTER_KDPLG();
GO_ITEM('blokplg.kdplg');
SET_ITEM_PROPERTY(‘blokplg.bkeluar',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_FALSE);
END;
Block PL/SQLketika Trigger When-New-Form-Instance
![Page 33: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/33.jpg)
Membuat Prosedur Counter_KdPlgPROCEDURE COUNTER_KDPLG IS
x NUMBER:=0;
vnomor CHAR(5);
BEGIN
BEGIN
SELECT MAX(TO_NUMBER(SUBSTR(kdplg,2,5)))
INTO x
FROM pelanggan
ORDER BY kdplg;
EXCEPTION WHEN NO_DATA_FOUND THEN
x:=0;
END;
---(***)
![Page 34: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/34.jpg)
---(***) Koding program lanjutan …
x:=NVL(x,0)+1;
IF LENGTH(x) = 1 THEN
vnomor :='P'||'000'||TO_CHAR(x);
ELSIF LENGTH(x) = 2 THEN
vnomor :='P'||'00'||TO_CHAR(x);
ELSIF LENGTH(x) = 3 THEN
vnomor :='P'||'0'||TO_CHAR(x);
ELSE
vnomor :=TO_CHAR(x);
END IF;
:blokplg.kdplg:= vnomor;
END;
Membuat Procedure Counter_KdPlg
![Page 35: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/35.jpg)
DECLARE
ada NUMBER:=0;
BEGIN
BEGIN
SELECT COUNT(*) INTO ada FROM pelanggan
WHERE kdplg=:blokplg.kdplg;
EXCEPTION WHEN NO_DATA_FOUND THEN
ada:=0;
END;
IF ada <> 0 THEN
:global.ubah :='T';
--- (***)
Block PL/SQL pada object TxtKdBrg ketika Trigger Key-Next-Item
![Page 36: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/36.jpg)
--- (***) Koding program lanjutan ….
BEGIN
SELECT nmplg, alamat
INTO :blokplg.nmplg, :blokplgn.alamat
FROM pelanggan
WHERE kdplg=:blokplg.kdplg;
EXCEPTION WHEN NO_DATA_FOUND THEN
:blokplg.nmplg :=‘ ';
:blokplg.alamat :=‘ ';
END;
GO_ITEM('blokplg.nmplg');
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY(‘blokplg.bkeluar',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_TRUE);
Block PL/SQL pada object KdPlg ketika Trigger Key-Next-Item
![Page 37: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/37.jpg)
---(***) Koding program lanjutan
ELSE
:global.ubah:='F';
GO_ITEM('blokplg.nmplg');
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bkeluar',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_FALSE);
END IF;
END;
Block PL/SQL pada object KdPlg ketika Trigger Key-Next-Item
![Page 38: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/38.jpg)
DECLARE
ada NUMBER:=0; psn NUMBER:=0;
BEGIN
BEGIN
SELECT COUNT(*) INTO ada
FROM pelanggan
WHERE kdplg=:blokplg.kdplg;
EXCEPTION WHEN NO_DATA_FOUND THEN
ada:=0;
END;
IF ada <> 0 THEN
UPDATE pelanggan
SET nmplg=:blokplg.nmplg, alamat=:blokplg.alamat
WHERE kdplg=:blokplg.kdplg;
COMMIT;
SET_ALERT_PROPERTY('PESAN',ALERT_MESSAGE_TEXT,'Berhasil diubah....');
psn:=SHOW_ALERT('PESAN');
Block PL/SQL pada object BSimpanketika Trigger When-Button-Pressed
![Page 39: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/39.jpg)
---(***) Lanjutan
ELSE
INSERT INTO pelanggan(kdplg, nmplg, alamat)
VALUES(:blokplg.kdplg, :blokplg.nmplg, :blokplg.alamat);
COMMIT;
SET_ALERT_PROPERTY('PESAN',ALERT_MESSAGE_TEXT,'Berhasil disimpan....');psn:=SHOW_ALERT('PESAN');
END IF;
CLEAR_MESSAGE;
CLEAR_FORM;
COUNTER_KDPLG();
GO_ITEM(‘blokplg.kdplg');
SET_ITEM_PROPERTY('blokplg.bkeluar',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_FALSE);
END;
Block PL/SQL pada object BSimpanketika Trigger When-Button-Pressed
![Page 40: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/40.jpg)
Membuat Alertuntuk Konfirmasi Penghapusan Data
1
2
3
![Page 41: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/41.jpg)
DECLARE
ada NUMBER:=0; psn NUMBER:=0;
BEGIN
psn:= SHOW_ALERT('pesan_hapus');
IF psn= Alert_Button1 THEN
DELETE pelanggan
WHERE kdplg=:blokplg.txtkdplg;
COMMIT;
CLEAR_MESSAGE;
SET_ALERT_PROPERTY('PESAN',ALERT_MESSAGE_TEXT,'Berhasil dihapus....');
psn:=SHOW_ALERT('PESAN');
END IF;
CLEAR_MESSAGE;
CLEAR_FORM;
COUNTER_KDPLG();
GO_ITEM(‘blokplg.kdplg');
Block PL/SQL pada object BHapusketika Trigger When-Button-Pressed
![Page 42: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/42.jpg)
SET_ITEM_PROPERTY('blokplg.bkeluar',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_FALSE);
END;
Block PL/SQL pada object BHapusketika Trigger When-Button-Pressed
![Page 43: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/43.jpg)
BEGIN
CLEAR_MESSAGE;
CLEAR_FORM;
COUNTER_KDPLG();
GO_ITEM(‘blokplg.kdplg');
SET_ITEM_PROPERTY('blokplg.bkeluar',ENABLED,PROPERTY_TRUE);
SET_ITEM_PROPERTY('blokplg.bhapus',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bbatal',ENABLED,PROPERTY_FALSE);
SET_ITEM_PROPERTY('blokplg.bsimpan',ENABLED,PROPERTY_FALSE);
END;
Block PL/SQL pada object BBatalketika Trigger When-Button-Pressed
![Page 44: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/44.jpg)
BEGIN
EXIT_FORM;
END;
Block PL/SQL pada object BKeluarketika Trigger When-Button-Pressed
![Page 45: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/45.jpg)
Langkah ke-4: Menyimpan Modul Form Entry Pelanggan
Dari menu File Save As
Pilih Direktori Penyimpanan (misalkan di E:\Oracle ),
Beri nama FrmEntryPlg, dan
Disimpan dengan tipe .FMB.
Seperti kotak dialog berikut :
![Page 46: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/46.jpg)
1 2
![Page 47: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/47.jpg)
Hasil Setelah Disimpan
![Page 48: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/48.jpg)
Langkah ke-5: Mengkompile PL/SQL
12
![Page 49: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/49.jpg)
Hasil Setelah Dikompile
![Page 50: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/50.jpg)
Program Setelah Dirunning
![Page 51: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/51.jpg)
Lengkapilah Form Entri Pelanggandengan List Of Values (LOV)
Pelanggan.
![Page 52: Oracle : Form/Report Developer](https://reader033.fdocument.pub/reader033/viewer/2022061516/5681327f550346895d991a2d/html5/thumbnails/52.jpg)
Selamat Mencoba