Anda dapat mengunduh formulir ini dari tautan berikut: Modal_Msgt.fmbUntuk contoh ini saya telah membuat tiga lansiran dengan berikut ini nama:1. Bagus_Msg2. Error_Msg3. Ask_AlertKode berikut ditulis untuk tombol "Show Good Message" untuk menampilkan pesan normal, Anda dapat menggunakan kode ini di blok PLSQL apa pun:Declare-- buat variabel numerik untuk menahan show_alert return valuenalertbutton number;Mulai-- atur pesan untuk alertset_alert_property('good_msg', alert_message_text, 'Catatan berhasil disimpan.');-- setelah pernyataan di bawah ini, eksekusi akan bertahan sampai Anda mengklik ok.. karena ini adalah modal windownalertbutton :=show_alert('good_msg');:alertblock.result :='Itu adalah pesan yang bagus.';-- setelah ini Anda dapat melakukan tugas apa pun...End; Kode berikut ditulis untuk tombol "Show Error Message" untuk menampilkan pesan Error:Declare-- create a numeric variable to hold show_alert return valuenalertbutton number;Begin-- set the message for alertset_alert_property('error_msg', alert_message_text, 'Terjadi kesalahan.');-- setelah pernyataan di bawah ini, eksekusi akan ditahan sampai Anda mengklik ok.. karena itu adalah tombol jendela modal :=show_alert('error_msg');:alertblock.result :='Itu adalah ERROR message.';-- setelah ini Anda dapat melakukan tugas apa pun...End; Kode berikut ditulis untuk tombol "Tanya Konfirmasi" untuk meminta konfirmasi:Declare-- buat variabel numerik untuk menahan show_alert return valuenalertbutton number;Mulai-- atur pesan untuk alertset_alert_property('ask_alert', alert_message_text, ' Konfirmasi Ya atau Tidak?');-- setelah pernyataan di bawah ini, eksekusi akan ditahan sampai Anda mengklik ok.. karena ini adalah tombol modal windownalert :=show_alert('ask_alert');-- sekarang periksa tombol atau jawaban mana yang telah dipilih jika nalertbutton =alert_button1 then:alertblock.result :='Anda memilih Ya.';else:alertblock.result :='Anda memilih Tidak.';end if;-- setelah ini Anda dapat melakukan tugas apa pun...End;
Berlangganan Untuk Mendapatkan Notifikasi Email Untuk Update Terbaru Seperti Ini:
Masukkan alamat email Anda:
-
Bagaimana Anda bisa tahu jika Paket, Prosedur, atau Fungsi PL/SQL sedang digunakan?
-
Gaji maks ke-n di Oracle
-
Panduan Langkah-demi-Langkah untuk Menginstal MySQL di Windows
-
Bagaimana saya bisa mendapatkan jumlah catatan yang terpengaruh oleh prosedur tersimpan?
-
Menyiapkan lingkungan pengembangan untuk mempelajari PL/SQL