Du kan ladda ner det här formuläret från följande länk: Modal_Msgt.fmbFör det här exemplet har jag skapat tre varningar med följande namn:1. Bra_Msg2. Error_Msg3. Ask_AlertFöljande kod är skriven för "Visa bra meddelande"-knappen för att visa ett normalt meddelande, du kan använda den här koden i vilket PLSQL-block som helst:Declare-- skapa en numerisk variabel för att hålla show_alert return valuenalertbutton number;Börja-- ställ in meddelande för alertset_alert_property('good_msg', alert_message_text, 'Records saved framgångsrikt.');-- efter nedan uttalande kommer exekveringen att hålla tills du klickar på ok.. eftersom det är en modal fönsternalertknapp :=show_alert('good_msg');:alertblock.result :='Det var ett bra meddelande.';-- efter detta kan du utföra vilken uppgift som helst...Slut; Följande kod är skriven för "Visa felmeddelande"-knappen för att visa ett felmeddelande:Deklarera-- skapa en numerisk variabel för att hålla show_alert return valuenalertbutton number;Börja-- ställ in meddelandet för alertset_alert_property('error_msg', alert_message_text, 'Ett fel inträffade.');-- efter nedanstående uttalande kommer exekveringen att hålla tills du klickar på ok.. eftersom det är en modal fönsternalertknapp :=show_alert('error_msg');:alertblock.result :='Det var ett FEL meddelande.';-- efter detta kan du utföra vilken uppgift som helst...End; Följande kod är skriven för knappen "Fråga bekräftelse" för att be om en bekräftelse:Deklarera-- skapa en numerisk variabel för att hålla show_alert return valuenalertbutton number;Börja-- ställ in meddelandet för alertset_alert_property('ask_alert', alert_message_text, ' Bekräfta Ja eller Nej?');-- efter nedanstående uttalande kommer exekveringen att hålla tills du klickar på ok.. eftersom det är en modal fönsternalertknapp :=show_alert('ask_alert');-- kontrollera nu vilken knapp eller svar som har valts om nalertbutton =alert_button1 then:alertblock.result :='Du väljer Ja.';else:alertblock.result :='Du väljer Nej.';slut om;-- efter detta kan du utföra vilken uppgift som helst...Sluta;
Prenumerera för att få e-postaviseringar för de senaste uppdateringarna som denna:
Ange din e-postadress: