


          5          ।    

       ,  ⮣ ⮡    
 ⭮  䥪⨢, ᪮쪮  .

 ᬠਢ ᫥騥  :
     -   ᯮ짮 ⠡ ࠬ஢
     -   ᯮ짮 
     -   ITEMS
     - ᮧ  CUSTOMERS  ᯫ뢠饩 (pop-up)  ࠭
     - ஢ 

           ᯮ ⠡ ࠬ஢

    4  﫨 ।    ᫥⥫쭮 
  ⨯   ࠪ⨪ .   5   ࠬ 
஫쭮   ஥ ⭮襭 ᭮-⠫.

   ⠫  ᠬ⥫ ࠧ㬥,     
। ࠧࠡ⪨.  5  6    ப   , 
᪫ 樨,     묨 蠬  浪 
 .

 5 ।,   ᯥ譮 稫  4     . 
᫨  ࠫ ᫥  4 , १ SQL*Forms, 롥  
Open   Action,  ORDER_ENTRY   Name,   [Accept].  
  㧨 ਬ   4.

                  ࠦ 5-1   ⮬
          ITEMS       ᫮ ᫥⥫쭮⥩  SQL*Forms.
         ࠦ 5-1:  ⮬᪠  ᥫ 浪

1. । ⥪   ORDERS.
2.  F ⮡   Field.
3.      Return, ⮡ ⮡ࠧ ⠡ ࠬ஢
   DEFINITION FIELD.

4. ᯮ [Change Display Type] ⮡ ३  ଥ Field Definition
  ORDID   ORDERS   ᫥騩 ⥪   Default Value:

:SEQUENCE.ORDID.NEXTVAL

 ⢥ত  SQL*Forms    ORDID ᫥
᫥⥫쭮 ᥫ, ஢  .

              ࠦ 5-2  ᤥ  STATE 
                 㬮砭 California  ।  
         CUSTOMERS     CREDITLIMIT  $1000  $20,000.

         ࠦ 5-2:

  ⠭  祭   砭   

1.  [Zoom Out] ⮡   Blok
   Definition   ORDID.
    [Zoom Out]     ஢    ।⭮
   娨.   [Zoom Out]   ⠥  ஢ । 
   砥 ᢮  ਣ,    ମ,, .

                                    -- 46 --



2. ३  ⠡ ࠬ஢ Blok Definition.

3. ᯮ [Next Record], ⮡ ६    CUSTOMERS 
    Blok Name.

4.  [Zoom In].  ३   ।⭮ 娨  ⠡
   ࠬ஢ Field Definition   CUSTOMERS.

5. । ਡ   STATE.
    a. 롥 Uppercase, Fixed, Length   ਡ   STATE.

     ਡ Uppercase ⮬᪨ 砥    륢  
   㪢.

     Fixed Length  뢠,   ࠤ   ᮤঠ
   䨪஢ ᫮ ᨬ.      ᨬ  
     ⮣  㤥   ࠧ襭 த ࠡ.

   utomatic Skip  ६ .       
   ன ᨬ  ,    ३  ᫥饬 .

6. ⠭ 㬮砭   STATE.
     a.  CA   Default Value.
        ॢ  ୨   祭 㬮砭 ⮣
        .    祭    祭
        㬮砭  ⮫쪮    ।஢  ਭ
        .

     b.  㢨 ᫥饥 ᮮ饭 㬮砭  
        Hint:

        Enter value for: STATE

         ᮮ饭  㬮砭 ।⢮ :
        To change value of STATE,    CA.
         ᮮ饭 ⮡ࠦ    [Help]. ⨬,
          Hint ⮬᪨ ஫  ⮫쪮    .

   ਬ砭: ᫨  ᯮ ନ     ०,  
    ஫஢,  ⠪    ᮮ饭  . ⥬
    [Scroll   Right] ⮡ ஫஢  Hint Text,  
   ⠫쭮 ⥪.

7. ⠭    CREDITLIMITED.
   a.  [Next Record], ⥬ [Next Field], ⮡   ६  
       Valid Range Low      1000.
        $,    ࠧ    뢠 .

   b.  20000   Valid Range Hint.
        । ,        ᫨ 
       訡, ⮬᪨    ᯮ⥫쭮 ᮮ饭:

     FRM-40207: Must be in range <low value> to <high value>.

     ६ <low value>  <high value>  襥    襥 祭
    ᠭ.



                                    -- 47 --



     㭮 5-1 뢠  ⠡ ࠬ஢ Field   Definition, 
   ன  ᠫ      CREDITLIMITED.

         㭮 5-1:   Field Definition S.T.     CUSTOMERS

   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Field Definition   
 
                        Valid Range     Enforce Foreign   List of Values  
 Ĵ    Field Name           High               Key              Title      
  
   CUSTID                                                                 
   NAME                                                                   
   ADDRESS                                                                
   CITY                                                                   
   STATE                                                                  
   ZIP                                                                    
   AREA                                                                   
   PHONE                                                                  
   REPID                                                                  
   CREDITLIMIT                                                            
   COMMENTS          20000                                          
 Ĵ                                                                        
                                                                          
 
  <                                                          
 
 Enterthemaximumvalueallowedforthisfield.
 Frm: ORDER_ENTR  Blk: CUSTOMERS   Fld: COMMENTS    Trg:                   <Rep


8. ୨   . (  ᯮ짮  [Accept].



























                                    -- 48 --




            ᯮ 

   ࠦ 5-1  5-2  ᯮ짮 ⠡ ࠬ஢ ( 易
    ⨭  ࠭), ⮡    .
ࠦ 5-3 뢠    ᯮ짮  . 
 த,  㤥    ६ १ 䥩
SQL*Forms(Design).


           ORDERS

   ࠦ 5-3    ⮡ ⮡ࠧ ⥪騥 ,
'  ६  .  ⠪  ।⠢  ᯨ᮪
祭,   ਭ  CUSTID,    ⭮
஢  .

         ࠦ 5-3:    Default  Date  List Value

1.     , ⥬  ⮡ ३  ⠡ ࠬ஢
    Blok Definition.

2. 롥  ORDERS .
3. ३  ଥ Field Definition   ORDERDATE.

4.  祭  㬮砭   ORDERDATE  
   室 ᪠.
  a.   Format Mask  mm/dd/yy
         ।    ࠧ襭  
     樨      ⮡ࠧ.

      ஫ SQL*Forms ᮯ⠢  ࠡ⮩  ଠ⮬
     ᪨. ࠢ筨 ࠧࠡ稪  SQL*Forms   ᮡ.

  b. ३   Default Value   ORDERDATE  :

     $$DATE$$

     祭 㬮砭 $$DATE$$   ⥪騬   ⮡ࠦ묨
     ⮬᪨   ORDERDATE.  ᬮ ࠢ筨 ࠧࠡ稪 
     SQL*Forms  襩 ନ஢  ६ ⥬ $$DATE$$
     ⠪     ⠭ ⥪饣 ६  㬮砭.

   c. ।    Hint. ,    ᨬ .
       ᮮ饭 Hint  㬮砭    ᫥饥:

     To change ORDERDATE, type a new date.

5.  ଠ ᪨   TOTAL.
   a.   ப ᯫ 8
   b. : $99999.99   Format Mask.

6. ३  CUSTID   ᪠뢠騩 ⥪  ⮣ .
   a.  ᫥饥 ᮮ饭   Hint Text:

     Press [List] to see valid CUSTID numbers.



                                    -- 49 --



   ਬ砭:  ᪮  ०  ନ  ,
   ⮬ ᯮ - 㣨  ᪮.

   b. ⮡ ᤥ ⠪  ᪠뢠饥 ᮮ饭   
   ⮬᪨,       CUSTID, 롥 "Yes" 
   ஫쭮  Automatic   Hint  ᯨ᪥ Select Attributes.

7. । ᯨ᮪ 祭 室   CUSTID.
   a. ३  List Value-  Title   CUSTID.
   b.  ᫥饥   Title:

     CUSTOMERS

   c.  20   POS:    POS:Y ⮡   । ᠬ 
     ᯨ᪠ 祭   ᯫ뢠饣 .

   d.  ᫥饥 ⢥ত SQL   List Value-
      ஫஢ ⥪:

     Select Name, CUSTID
     INTO : ORDERS.CUSTNAME, : ORDERS.CUSTID
     FROM CUSTOMERS
     ORDER BY NAME

㭮 5-2 뢠 ⥫ ᯨ᮪  祭  SQL
⢥ত.

         㭮 5-2:  ᮪ 祭    ORDERS

   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Field Definition   
  
   Field Name:         CUSTID                                                 
   Sequence Number:    7    Data Type:    NUMBER      ( Select Attributes )   
   Field Length:       8    Query Length: 8           Display Length: 8       
   Screen Position: X: 35   Y: 6    Page: 1           ( Editor Attributes )   
   Format Mask:                                                               
   Default Value:                                                             
   Hint: Press [List] to see valid CUSTID numbers.                            
   Valid Range: Low:                            High:                         
   Enforce Key:                                                               
   List of Values: Title: CUSTOMER                         Pos: X: 20   Y: 7  
  
   ------------------------ List of Values SQL Text ------------------------- 
   FROMCUSTOMER 
   ORDERBYNAME 
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              
  
 Enterthequerycriteriaforthelistofvalues.
 Frm: ORDED_ENTR Blk: ORDERS      Fld: CUSTID      Trg:                   <Rep>


      8. ୨   .

           ITEMS

                                    -- 50 --



     ⮫쪮  㠠 . 
ࠦ 5-4  ᤥ ,  ਢ   .
-,  㢥 ꥬ ᨢ  ᫮ ᥩ    ITEMS. 
祭,   ⢥ত SQL WHERE/ORDER BY,  ண 
 ࠧ  ⮡ࠦ १  .

     ࠦ 5-4:  ࠪ⨪  

1. ३  ଥ Blok Definition   ITEMS.
         
2.  ᫮ ᥩ  , 祭  Record Buffered 
   20  SQL*Forms(RunForm)   १ࢨ ࠭⢮  20
   祥 , c 㣨 ப   ᪥.

 ⠭ ⮣ 祭  㤥     饩  
襭 䥪⨢. ࠢ筨 ࠧࠡ稪  SQL*Forms  
ࠢ쭮 祭   Record Buffered.

3. ।  ꥬ ᨢ  10, 祭  Array Size.

SQL*Forms(Run Form) 롥 10 ப    , ᫨ 
  ᫥ ⮡   ⥪饬 .  ( ࠢ筨
ࠧࠡ稪  SQL*Forms  ᭥ ஡⥩)

4.  ஫㥬  Default Where/Order By  ᫥騩 ⥪:

   ORDER BY ITEMID

 । 㬮砭 ORDER BY ⠪,     ORDERS  
⮡ࠦ  浪 ⠭  ᮮ⢥⢥  㭪.

ᬮ ࠢ筨 ࠧࠡ稪  SQL*Forms  襣  
⥬,  ᯮ짮 WHERE    WHERE  ORDER BY.

⥫쭠 ଠ Blok Definition   㭪 5-3.

         㭮 5-3:    ଠ  Blok Definition - ITEMS 


   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Block Definition   
  
   Block: ITEMS                           -- Records --   Array Size: 10    
   Table: ITEM                            Displayed: 4    [   ] Prim Key    
   Sequence Number: 2                     Buffered:  20   [ X ] In Menu     
                                          Lines per: 1    [   ] Column Sec  
  
   Description: ITEMS                                                         
  
   ------------------------- Default Where/Order By ------------------------- 
   ORDER BY ITEMID  
     
     
     
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              

                                    -- 51 --



  
 Enterthedefaultwhereandorderbyclausesforqueriesinthisblock.
 Frm: ORDER_ENTR  Blk: ITEMS       Fld: ORDID       Trg:                   <Rep


                          6. ୨   .

           CUSTOMERS  ᯫ뢠饩 ୨

   ࠦ 5-5  ᤥ  CUSTOMERS ᯫ뢠饩 ࠭楩, 
뫠饥  ⠪   㤥 뢠   ࠭  
࠭ ନ.  ⮬  । ࠪ⨪  易  ⥬
  ୨  ࠭.

    ࠦ 5-5: o   CUSTOMERS  ᯫ뢠饩 ࠭

1.  I  ⥬  ⮡ ३  ⠡ ࠬ஢  Page Definition.
2.  ࠧ  Page Definition.
3.  [Next Record] ⮡ ३  ࠭ 2.
4. ᯮ ᫥ ⠡   祭  :

ࠪ⨪           祭
_________________________________________
pop-Up                   X
Pg Sz X                  80
Pg Sz Y                  16
Vw Sz X                  70
Vw Sz Y                  14
Vw Lc X                  5
Vw Lc Y                  2
Vw Pg X                  6
Vw Pg Y                  3
Border                   X
Vertical Scroll Bar      X
Horizontal Scroll Bar   (blank)
Remove on Exit           X
Title                   (blank)

Page Size  ᪨ ꥬ ࠭;   ꥬ ࠭  
 ᬮ   ࠧ.(᪨ ꥬ ࠭   
  ꥬ ࠭)

⮬  祭 View Size   ᨬ쭮 ⢮ ࠭,
஥   ᬮ७, view size     祬 
⮡ࠦ  ࠭.

View Loc(ation) -  ,y-न ࠭,।騥 ᠬ 孨 
㣮 ᯫ뢠饩 ࠭.

View Page- ,y-न  ᠬ 孥  㣫 
᪮ ࠭.( ࠢ筨 ࠧࠡ稪  SQL*Forms 
⥫ ஡⥩  ᯫ뢠騬 ࠭栬.)

 ⠭  뤠 ᯫ뢠饥   祬 ભ
࠭,    ,  業. ᯫ뢠饥  㤥  ࠭,
  ⨪쭮 ஫㥬 .  ᯫ뢠饥  㤥
祧,    CUSTOMERS.  ⮣ ࠦ
 祢    .

                                    -- 52 --



ਣ ( ।⠢   6)     ࠭
ନ    ᪨  ६ 믮.

5. ୨   .























































                                    -- 53 --




         ஢ 

  㦨  ࠦ 5-6, ଠ ⠭ 
᫮ ᫨ ᤥ .

ࠦ 5-6:   1. ࠭, ᣥ  믮 . ⨬ 
஢          ORDERDATE   ORDERS ⮬᪨ 뢠
                ᥣ譥 ᫮  ᫮ , 祭 ⥬.

2. ।    CUSTOMERS(  [Previous Blok]). 
襩 ᯫ뢠饩 ࠭   業 ࢮ ࠭  (.
.5-4). ᯫ뢠 ࠭  ,ᠭ   ࠭.
⨬  ⨪쭮 ஫㥬    ⮬ , 
⢨⥫쭮   祬 ⮡ࠦ.

         ᯫ뢠 ࠭ CUSTOMERS

                                                                               
    Ŀ     
    ^                 ========= CUSTOMERS ============                      
    Ĵ                                                                       
            CUSTID                                                 
                                                                            
              NAME             
                                                                            
           ADDRESS                 
                                                                            
              CITY                           
 ORD                                                                        
 Ĵ        STATE                                 ZIP          
 v                                                                       
      
                                     
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               
                                                                               

Count: *0                                                             <Replace>


3.  [Execute Query]; ⮡ࠧ  ࢮ 㯠⥫.

4.   STATE.
   a. ⠭   STATE   [Clear Field].
   b.     [Next Field].  㢨   ᮮ饭:

      FRM-40203: Field must be entered completely.

      । 䨪஢  2  ⠡ ࠬ஢ , 
   ॡ 2 .

   c.  OR  ⮦ ᠬ .  ६     Zip, ⮬
         ਡ Autoskip.


                                    -- 54 --



5.  [Next Field] ⮡ ᨣ  REPID.  ⮫쪮  
   [Next Field], ஫   ᯫ뢠饩 ࠭, ⮡ 
      USTOMERS.

6.  100   REPID.

7.    CREDITLIMIT.
   a. ६    CREDITLIMIT.
   b. :30000
   .  [Next Field].  㢨 ᮮ饭:

   FRM-40207: Must be range 1000 to 20000.

   d.  30000  3000   [Commit]. ⮡   ᮢ 
   ⥫ ,०    ⢥    ⮬,
   ⢨⥫쭮     ᤥ  . 롥 No.

8.  [Next Blok], ⮡ ३   ORDERS .  ᯫ뢠 ࠭
   祧  ࠭.

9.  ᯨ᮪ 祭   CUSTID.
   a.  [Enter Query].
   b. ६   CUSTID.  ⮫쪮     ,  㢨
      ᮮ饭:

    Press [List] to see valid CUSTID numbers.

     ᮮ饭    [Help], ⮬   ।
    ਡ Automatic Hint  ⮣ .

   c.  [List].  ᯨ᮪ (.5-5).

         㭮 5-5:  ᮪ 祭   CUSTID

                              SUMMIT SPORTING GOODS                            
                            ========  ORDERS  ========                         
         Ŀ   
             ORDID 716                       ORDERDATE 05/15/89          
                                                                             
          COMMPLAN        CUSTID       CUSTNAME      
                 
          SHIPDAT                           CUSTOMER                         
         ĳ                                                            
                      Find: 
                  
    ITEM  PROD      EVERY MOUNTAIN                                     104   
    ID    ID      Ĵ JOCKSPORTS                                         100   
          JUST TENNIS                                        103   
          K + T SPORTS                                       105   
          NORTH WOODS HEALTH AND FITNESS SUPPLY CENTER       108   
          SHAPE UP                                           106   
        Ĵ TKB SPORT SHOP                                     101   
                  v VOLLYRITE                                          102   
                  
                                                                               
                                                                               
 PressF4topickselection,F12tocancel.


                                    -- 55 --



 Count: *0                         ENTER QUERY                   <List><Replace
                                                                               


   d.  [Next Record] ⮡ ஫஢  ᯨ᪠  104  롥
      ⨥ [Select]. 104    CUSTID. [Previous Record]
     ஫  ᯨ .

10. ஢ , ࠭   ODERDATE.
  a.  [Execute Query].  㢨     㯠⥫
      104.

  b.  [Next Record].  㢨 ᫥騩   
     㯠⥫  104. ᯮ [Next Record]  [Previous  Record]
     ⮡ ᬮ   㯠⥫  104.

      ORDER BY ⢥ত ࠡ⠥.

11.  [Cancel] ⮡       .
     ᥡ ᢮ ⮡ ᯥਬ஢  ⮩ ମ   6.
      ⥫ ,     ⮩ .

    ᫨      砫  6,  [Cancel] ᭮
    ⮡   ᪠ 樮 ⥬.

         ⪮ ᮤঠ: ।   

騩 ᯨ᮪  ⮣ ⮬, 祬  稫   5:
.  ⠭ 㬮砭 
.  ।  Display Mask
.  ।  
.  ᯥ祭 ᯨ᪠ 祭
.   ᪠뢠饣 ⥪  
.  ॡ  ⮡ ᯥ稢 ᮮ⢥⢨ ᫠ ᨬ 
   
.  室  ⮬᪨  ᫥饬 
.  ⠭  
.   ஫  १⮢  ࠭
.  । ᯫ뢠饩 ࠭




















                                    -- 56 --



                         6              ਣ


       ਣࠬ SQL*Forms.  ன 
ᮧ ਣ஢.

     ᫥騥 :
     - 뢮 "易" 
     - ⮬᪮ ᫥ 饣 ⢠ ப ⮢
     -  ⥬ ᮮ饭
     - ᬮ ⭮襭 -⠫

 த ஥ ,  ன  ࠡ⠫   5.

         ᭮ ਣ஢

 ਣ 砥 ன⢮(楤), ஥ 믮 
। 堭. ਣ ਧ 砩 ᮡ⨩  ᯮ
 믮 । ⢨.

ਣ  ,᪨ ꥤ,  窠 室  殮
ᥩ .  믮  ᪠ ਣ, "⠫" 
, १    , ,஢ .  
砥,ਣ ᮤঠ騩 ᯥ樠 ࠢ  樨,ᠭ
ࠧࠡ稪, ⨢  믮.

ਬ,    ⮣ ,  ॢ蠥 㯠⥫᪨
. ਣ ।  窮 室  ⨢  
ࠧ   ⮣  ᫥  祭. ᪨ ਣ 
஢  ⮣, ॢ騩 㯠⥫᪨   ⪫  .
஥ 祭, ஥ ॢ蠥 㯠⥫᪨ , 㤥 ⪫
.

SQL*Forms । ப  ஥ ᪨ ᢮. 
ਣନ       㬥 , 襭  ,
ਫ,  㪮 ᫥騬 ﬨ:
 . ᪮쪮 ⥩  ஫ 
 .     訡 , ⠪    ᥩ 
   㤠 㦭 ᥩ.

 . ࠭祭 㯠   । ଠ
 . ⮡ࠦ 易   ᯮ짮 ⠡
   ८ࠧ
 . ࠢ 祭   ଥ
 . ᫨ 祭    १ ᫥   㣮 
 .   㭪樮 
 . 믮 ᫮ ⢨ ⠪   ⮢

  ࠢ筨 ࠧࠡ稪  SQL*Forms ᮤন  ᠭ ਣ஢,
 ⨯ ਣ஢.


         ⢨
  ᮤন ⠤ ࠧࠡ⪨  ஥ ਣ஢.   ᭮, 
蠣 ਬ⥫  ᥬ ਣࠬ,  ᮧ;  
।⠢   ࠧࠡ 襩 .



                                    -- 57 --



  ᮧ ᢮ ᮡ⢥ ਣ,     1  4 蠣, 
ॡ ६  ࣨ   票 ஢ .  
饥 -ࠢ 롮 ⨯ ਣ,   ࠢ쭮 ᠭ ⥪
ਣ.

1. 筨  .  㤥 믮 ਣ?  ਬ,  
   ⮬᪨ ॢ᫨ 㭪  ⮣ , 直 ࠧ 
     QTY  PRICE,     ஢ 㭪 
   짮⥫ ࠢ ப  ᮡ ⠡.

2. ।   ᮡ⨥  ⢨ 㤥 易. ਬ, 
    易 ᮡ⨥  ⥬  짮⥫  ᮡ , 
    SQL*Forms ⮡ 믮  ,   ࠧ蠥
   ᮡ .

3. 롥 ਣ,  믮  ᮡ⨥. ਬ,  
   Pre-Insert, Pre-Update,Pre-Delete ਣ, ⮡  , 
   ᮢ ࠡ ᮡ.  ᫨      ᯮ짮
   ਣ Pre-Commit, ⥬    㤥 室 ࠡ⮩.

   ᥣ ࠩ ᯮ짮 襥 ᫮ ਣ஢.  ᮡ
     ਣ,     롨.

4. ८᫨  楫.   १ ⢨⥫쭮
   ᮢ   祬  ᮡ⨨?  ᫨ ⠪,   室
    ਣ஢, ⮡ 㪮⮢  ꥬ . ਬ,
   ᫥ 㭪 ⮣ ॡ ਣ   ,    , ⮬
    楫-  㭪 ⮣    .

5. ஫   ᪮쪨 ﬨ. 묨  ਣ,
      易⥫쭮.   anything 짮⥫ 
   ᤥ  ଥ,  殮 . ⮡ 㡥,  ஥ 
   砨  믮 㭪,  㤥 稭 ᮡ 
   ࠭.

           뢮 易 

  ᬮ    ⥪   ORDER_ENTRY 祭 ,  
   .     ,  ᥣ  .
ਬ,   㯠⥫ ࠭  ⠡ CUSTOMERS,  
  㯠⥫    .  ⪨ 讣 
६  祭 ண ࠡ뢠 .


         祭 ਣ  CUSTOMER ID
        
   । ਣ,  ⮬᪨ ⮡ࠧ  㯠⥫ ᫥
 ஬  㯠⥫ ID    CUSTID.

ࠢ쭮 ࠧࠡ⠭ ਣ Customer ID 㢥 ந⥫쭮
 ᫥騬 ࠧ:
     .   ᪮ ஫  㯠⥫, 
       ᮮ⢥  㯠⥫    .

     . ।।   ࠢ쭮  㯠⥫ ( customer ID)
       믮 ஢ ஫ customer ID ᮯ⠢  ⥬  
       .


                                    -- 58 --



     . ⢥ত customer ID ⮬᪨ ⮡ࠦ 易  
        㯠⥫.


        । ਣ  Customers ID
         
   ࠦ 6-1 ।   ᯥ譮 稫  5  ⥯ 
 . ᫨  ࠫ  ᫥ 5  १ SQL*Forms,
롥  Open   Action  ORDER_ENTRY   Name  
[Accept].  㧨 ਬ  5 .

1.   ⮡ ६ ਣ  ⠡ ࠬ஢ SQL*Forms 
    ਣ ⥪饩 .

2.    ࢮ ਣ    Trigger Name,  [Insert
   Record] ⮡ ᮧ쫨 ஡ ()  ⠡ ࠬ஢.
3.   Trigger Name ⮩    POST-CHANGE.
4.  ORDERS   Blok Name.
5.  CUSTID   Field Name.
6. 롥 V3  ⨫ ਣ ( 㬮砭 ⨫).
   ਬ砭:  SQL*Forms ᥣ ন ਣ  ⨫ V2 (
   ᬮ  ࠢ筨 ࠧࠡ稪  SQL*Forms  ᭥ ),  ண
   ४ ⥬,  ᯮ ⨫ ਣ V3( ᯮ짮 PL/SQL)
      ਣ.

7. ३  ଥ Trigger Definition;  ஫㥬  Trigger
   Definition,  ᫥騥 ,  稭 PL/SQL ⢥ত:

   BEGIN
     SELECT NAME
     INTO : ORDERS.CUSTNAME
     FROM CUSTOMER
     WHERE CUSTID =  :ORDERS.CUSTNAME ;

  EXCEPTION

  WHEN NO_DATA_FOUND THEN

     MESSAGE (' INVALID CUSTOMER. USE [LIST].');
     RAISE FORM_TRIGGER FAILUE;

  WHEN TOO_MANY_ROWS THEN

     MESSAGE ('INVALID CUSTOMER. USE [LIST].');
     RAISE FORM_TRIGGER_FAILUE;

  END;

饭 뫠   5,  ன  ᠫ ᯨ᮪ 祭  
CUSTID.

 ਣ ⮬᪨ ஫    ப   ࠧ,
⠪  ⮫쪮 ᫥ ப  ⥪   ࠧ  
⥪.

  ஫  । ࠡ  ஫㥬 .( 
⪨ ࠢ筨  SQL*Forms  ⠫ﬨ.)


                                    -- 59 --



                        ஫㥬  Trigger Text  㭪 6-1.

         㭮 6-1:   ਣ  Customer ID

   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Trigger Definition   
  
   Trigger: POST-CHANGE                     ---- For Key Triggers Only ----  
   Block:   ORDERS                          [   ] Show Keys                  
   Field:   CUSTID                          Descrip:                         
   Trigger Style:  V3                                                        
  
   ------------------------------- Trigger Text ----------------------------- 
   WHEN NO_DATA_FOUND THEN 
     MESSAGE ('INVALID CUSTOMER.  USE [LIST].'); 
     RAISE FORM_TRIGGER_FAILURE; 
   WHEN TOO_MANY_ROWS THEN 
     MESSAGE ('INVALID CUSTOMER.  USE [LIST].'); 
     RAISE FORM_TRIGGER_FAILURE; 
   END;                                                                       
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              
                                                                              
  
 Enterthetriggertext.
 Frm: CHAPTER6    Blk: ORDERS      Fld:             Trg:                   <Rep


   㬮砭 SQL*Forms 모뢠 ਣ   䠩 ( 砩
뢠  ᪫⥫쭮 樨,    FORM_FAILUE), 
 筮  .   ,   㯠⥫    ⠭-
      ஫쭮 祭  室  .

10. ࠭ .


         PL/SQL-

  㪮⢮ 짮⥫  PL/SQL  ࠢ筨 ᯥ稢 SQL*Forms
ᬠਢ  ᯮ짮 PL/SQL  ਣ SQL*Forms.  
  SQL   楤 ,  PL/SQL 楤.   SQL
  믮  㫨஢ 묨, ⠪  ⠢,
㤠  롮 . PL/SQL ।⠢  楤୮ 몠,
⠪  ᫮ ஫  믮 横, ࠡ .

         PL/SQL  SQL*Forms

  PL/SQL ᯮ   ࠧ ਠ  SQL*Forms.   ਠ
ᯮ   ௥  (ﭭ) . ଠ쭮
 PL/SQL 稭  ᫮ "BEGIN"  稢 "END;". ,
  ᮧ ਣ ⠪  Post-Change ਣ  ࠦ 6-1,
 뢠     

"BEGIN","END;" PL/SQL, ᪫ । ⥫⢠.  (
ࠦ 6-7   ⠪ ਬ)


                                    -- 60 --



ன ਠ ᯮ짮 PL/SQL  - ᠭ -஢ 楤.
ਬ 㬠  -஢ 楤   쭮 ꥪ, 
   ਣ஬  ଥ,  ன -஢ 楤
।.  -஢ 楤      
 㭨. -஢ 楤 ॡ  ᨭ⠪ PL/SQL.
ࠦ 6-6 뢠     -஢ 楤,
  뫠  ਣ.

ᠬ⥫,  뫨 ᢥ  ⮬  ᮧ ।  
易 ⭮襭  ⠡楩 ,  祭 .  CUSTNAME
ᬠਢ  ⮬ ᠬ⥫   ⠪ ,  뢠 
஫ .

 ஫   , ࠭饬 ६ 祭 
࠭,ந  - 㣨 筨 ⠡  , 
⠡   ᠬ ᥡ.  ࠡ稪  饭 ᯮ  ,
ঠ ᫥ 祭  ᮮ饭.

         祭 ਣ  Product ID
         
    ஬ ਠ 業  । த⮢ ⠪  
   ࠢ묨  த⮢.

 ﭨ   뢠  ࠡ  .  
। ਣ,  ᯥ稢 ⮫쪮 ஫ ᯮ㥬 
த.


         p ਣ  Product ID

। ਣ Product ID.  ਣ ஢   த
⮡ࠦ ᠭ த  ⠭⭮ 業  ⮣ த.

  易  த⮬ ଠ  ࠭  ⢥ ⠡,
ਣ  ᪠  ⤥ ⠡ ( ⠡ ᬮ).

२⢠ ⮣ ਣ 祢. த⨢ 㢥稢 
᫥騬 稭:

.  㤥    蠭 ࠢ쭮   
. ଠ  த  樨 業 ஢  ⮬᪨.

. 易  த⮬ ᠭ  ⠭⭠ 業 ⮡ࠦ, 
     ᮮ⢥⢨ - 業   ஡
  .

         ࠦ 6-2:    ஫  ⮡ࠦ 易 

1. 롥  Trigger   Blok ⮡   ⠡ ࠬ஢
   Trigger Definition   ORDERS.
2.  [Next Record]      ᫥  ਣ
    ⠡ ࠬ஢.   ਣ Post-Change, ।  
   ࠦ 6-1.

 3.  [Insert Record]  ३   .

 4.  Post-Change   ਣ Name   ப  POST-CHANGE
    ᥣ ⠬. ⥬ । ITEMS     PRODID   .

                                    -- 61 --



 5. ३  ଥ Trigger Definition  ⮣  ਣ.

 6.  ᫥饥  ஫㥬  Trigger Text:
    BEGIN
     Select DESCRIP,STDPRICE
     INTO :ITEMS.PRODUCTDESCRIPTION,:ITEMS.STDPRICE
     FROM PRODUCT,PRICE
     WHERE PRODUCT.PRODID = :ITEMS.PRODID
     AND PRICE.PRODID = :ITEMS.PRODID
     AND STARTDATE = (SELECT MAX (STARTDATE)
          FROM PRICE

 ଠ Trigger Definition 㤥  ⮩,   㭪 6-2.

         㭮 6-2:      ਣ Product ID -    1.

   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Trigger Definition   
  
   Trigger: POST-CHANGE                     ---- For Key Triggers Only ----  
   Block:   ITEMS                           [   ] Show Keys                  
   Field:   PRODID                          Descrip:                         
   Trigger Style:  V3                                                        
  
   ------------------------------- Trigger Text ----------------------------- 
   SELECTDESCRIP,STDPRICE
   INTO:ITEMS.PRODUCTDESCRIPTION,:ITEMS.STDPRICE
   FROMPRODUCT,PRICE
   WHEREPRODUCT.PRODID = :ITEMS.PRODID
   ANDPRICE.PRODID = :ITEMS.PRODID
   ANDSTARTDATE = (SELECT MAX (STARTDATE)
   FROMPRICE
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              
                                                                              
  
 Enterthetriggertext.
 Frm: ORDER_ENTRY   Blk: ORDERS      Fld:          Trg:                    <Rep


7.  ᫥  ਣ  ஫㥬 :
        WHERE PRICE.PRODID = :ITEMS.PRODID;
   EXCEPTION

   WHEN NO_DATE_FOUND THEN
      MESSAGE ('INVALID PRODUCT ID. PLEAS RE-ENTER.');
      RAISE FORM_TRIGGER FAILURE;
   END;

᫥   Trigger Definition 㤥  㭪 6-3.

         㭮 6-3:  ਣ Product ID-  2.


   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Trigger Definition   

                                    -- 62 --



  
   Trigger: POST-CHANGE                     ---- For Key Triggers Only ----  
   Block:   ITEMS                           [   ] Show Keys                  
   Field:   PRODID                          Descrip:                         
   Trigger Style:  V3                                                        
  
   ------------------------------- Trigger Text ----------------------------- 
   FROM PRICE 
   WHERE PRICE.PRODID = :ITEMS.PRODID); 
   EXCEPTION 
   WHENNO_DATA_FOUND THEN 
   MESSAGE ('INVALID PRODUCT ID.PLEASE RE-ENTER.'); 
   RAISE FORM_TRIGGER_FAILURE; 
   END;                                                                       
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              
  
 Enterthetriggertext.
 Frm: ORDER_ENTRY Blk: ORDERS      Fld:             Trg:                   <Rep


    ᫨   ᬮ   ⥪ ਣ,  [Scroll
  Down] ⮡ ᤢ ஫㥬     [Scroll Up], ⮡
  ஫஢   .

  ਣ ४ ࠡ ᫨  ஦   PRODID  
   ⨬  ⮢ ( product ID),   室 
  .

8. ୨   .
         뢮 ⥪饩 業

 PRICE ᮤন ⥪ 業   த, ⠪   
ଠ  樨 業   த   .  
⠡ PRICE ⫨ 業  砫쭮 ⮩,     ⮩, 
१.

㭪 STARTDATE, 祭  襬 ਣ Product ID, ᯥ稢 ,
  ⠡ PRICE 롨ࠥ ⠭⭠ 業.  ⮣ 㭪 ਣ
㤥 롨  , ⮡ ᯥ ᮯ⠢   த
(product ID),  ஬,  易⥫쭮  ந
⥪ 業.

ਣ Product ID 뢠  易 륯ந  ⠡
PRODUCT  PRICE. ᯮ  ⢥ত Select, 㭪 STARTDATE
 ࠭稢   ⠡ PRICE , ⭮  
砫쭮 ⮩.


        p pp Customers ID  Product ID

   ஢ ਣ஢    ஫ ⮣   ࠡ; 
  ⢮  ᫥ ਣ   ᪨
⭮襭  易묨 ਣࠬ. 쪮 ⮬   稭
⨪  ਬ       襭.


                                    -- 63 --



   p 6-3:  p pp Customers ID  Product ID

1. ࠭, ᣥ  믮 .
    ଠ ,      ORDERS.

2.  ਣ Customer ID.
   a.    COMMPLAN.   ID 砥   ⥬   ᥣ
       ⥪     ORDERDATE  㬮砭.

   b. ᫥  106   CUSTID,  [Next Field].    ⨬ 
       "SHAP UP" ⮬᪨      CUSTNAME.  ਣ
      Customer ID ࠡ⠥.

3.  ਣ Product ID.
   a.  [Clear Blok]. : N  ⢥  ᮢ襭  ਣ襭.
   b.  [Entry Query].
   c.  610   ORDID.
   d.  [Execute Query].
      ᠭ த  ⠭⭠ 業  ᥩ 㭪⮢   ᮮ-
       .
4.  [Cancel].


         ⮬᪮ ᫥ ⮣

 ⮬᪮ ᫥ ⮣  ⥫쭮 㬥 訡 -
   ⭮.

         祭 ਣ -   Quantity

   । ਣ,  ⮬᪨  ⮣  
,    QTY  ACTUALPRICE.

         । ਣ    Quantity
   ⮬  ਣ 㤥  ⮣, - ⢮  䠪-
 業 । ஢  ᮮ⢥騬 ਣ஬.


         ࠦ 6-4:  । ਣ

1.     F ⥬ M.
2. ३   QTY   [Zoom In] ⮡ 

    Trigger Definition.

3.  ON-VALIDATE-FIELD   Trigger Name.  Blok Name  Field Name
   ࠢ 㬠稢.

4.   室   ஫㥬  Trigger Text 
    ⠡ ࠬ஢ ᫥騬 :

  :ITEMTOT := :* :ACTUALPRICE;

5. ୨   .


஢       ਣ Quantity ⮡ ᬮ  
ਣ          ।祭.

                                    -- 64 --



ࠦ 6-5:   1. ࠭, ᣥ  믮 .
஢
ਣ          2.  ࠭ 㤮  ३   ITEMS.
Quantity

3.  ਣ Quantity.
   a.  3   ITEMID.
   b.  100861   PRODID.
   c.  42  䠪 業.
   d.  [Next Field].

4.  㣮 .
   a. ୨   ACTUALPRICE   30    室 ᫠.
   b.  [Next Field] . ⨬  ⮣    .

       ਣ Quantity ࠡ⠥  ⤥쭮 砥,    祢 
    蠥  ஡.  室   㬠  ࠢ ਣ
    Quantity    । .

 5.  [Cancel] ⮡    .


         祭 pp Quantity Revised

   ॢ  ⠪   ᠭ  ਣ
 ࠦ 6-4 楤 ஢  PL/SQL, ⠭ ,
   믮  ,   祬  ਣ.

⥬   ᯮ짮  楤  ஬ 㣮 ਣ  ଥ


         ४஢ pp Quantity
  ⤥   ⮬ ࠦ.  - ८ࠧ
ਣ Quantity  楤 y஢ . ஥   
ਣ, ᠭ   ࠦ 6-4, ⮡ ନ  楤ன
஢ .    ᪮஢  ਣ   ACTUALPRICE.

        ࠦ 6-6:  ४஢ pp Quantity

1.   ⮡ 뢥 ⠡ ࠬ஢ Procedure
     Definition.

2.  [Change Display Type] ⮡   Procedure Definition
     CALCULATE_ITEM_TOTAL   Procedure Name.

3.  ஫㥬  Procedure Text  ᫥饥:

   PROCEDURE CALCULATE_ITEM_TOTAL IS
   BEGIN
     : ITEMTOT := : QTY* ACTUALPRICE;
   END;

      । 楤 ஢  PL/SQL,  
    ᯮ짮  - 㣮 ਣ, ࠢ 
   ⠪




                                    -- 65 --



4.  [Navigate] ⮡ 뢥 ࠬ  Edit Object.  ࠬ
      ६  ⠡ ࠬ஢  ଥ 
   । ꥪ⮢ (⠪  ࠭, ,   ਣ)  ଥ.
    室 ࠬ  Edit Object ᫥饩 ଠ樥:

   FIELD      ENTRY
   _________________

   Blok       ITEMS

   Field      QTY

   Trigger    On-Validate-Field

5.  [Select].  ⥯  ⠡ ࠬ஢ Trigger Definition.
   ⨬,  ⥪騩 ⥪       裡  ⥬
     ।.

6. ३  ଥ Trigger Definition   ⥪ ਣ 
   ਣ On-Validate-Field   QTY ⮡ :

   CALCULATE_ITEM_TOTAL;


         । pp Actual Price

7.   QTY ਣ   ACTUALPRICE.
  a.      ଥ Trigger Definition,    [Insert Record],
     ⮡ ᮧ      ਣ Actual Price.
   b.  ACTUALPRICE   Field Name.
   c.  [Copy Object] ⮡ 맢 ࠬ 

      Source Object.

   d. 롥 Copy   Copy Or Reference Object.      
      ᯨ᪠ 롮    COPY
   e.    ࠬ  ᫥騬:

     Field     Entry
    _____________________
     Owner     <your username>
     Form      ORDER_ENTRY
     Blok      ITEMS
     Field     QTY
     Trigger   On-Validate-Field

      ࠬ  Target Object ⥪騬   ⥪⮬ .

8. ୨   .  ਣ QTY 뫨 ᪮஢  
   ACTUALPRICE ⠪  ਣ Quantity  Actual Price 뢠 
   楤ன ஢ .


         ஢ pp Quantity    Actual Price





                                    -- 66 --



ਣ Quantity ࠡ⠥ ᫨ ⮣  ⮬᪨,  
  QTY. ਣ Actual Price ࠡ⠥ ᫨ ⮣  
 ,    䠪 業 ।   
ACTUALPRICE.

         ࠦ 6-7:  ஢ pp Quantity    Actual Price

1. ࠭, ᣥ  믮 .
2.  ࠭ 㤮  ३   ITEMS.
3.  ਣ Quantity.
   a.  1   ITEMID.
   b.  100890   PRODID.
   c.  35.00  䠪 業  2  ⢮.
   d.  [Next Field]. ⮣  । 70  
       ITEMTOT- ࢠ  ࠡ ਣ.

4.  ਣ Actual Price.
   a.  祭  Actual Price ⮡   37.50.
   b.  [Next Field].

      祭 ITEMTOT 75 -   ࠡ  ਣ.

5.  [Cancel];   ᭮    ࠢ쭮.


         H祭 pp  Actual Price

 ᪨  ।  ࠢ.  ࠧ襭 த 
।⮢  ࠧ襭 業,    SQL*Forms ஢ 
業 ⮡ ᬮ ࠧ襭  .


           pp  Actual Price

। ਣ,   䠪᪠ 業 ।  
쭮 業 ⠭  ⠡ PRICE.

ᯮ PL/SQL  SQL ஬,    ਣ ᠭ 
 ࠦ 6-5 ⮡    ࠬ. ᫨  
業  祬 쭠 ࠧ襭,  ப ᮮ饭 
ᮮ饭:

 Actual price must be greater than <minimum price>.

᫨,  ⮫쪮 ᫨, 業  祬 쭠 業, ਣ Actual Price
   ࠦ 6-5, 믮 맮 楤 ஢ 
CALCULATE_ITEM_TOTAL.


         ࠦ 6-8:       pp  Actual Price

1. ३  ଥ Trigger Definition  ਣ On-Validate-Field, 
    ACTUALPRICE.

2.  ⥪   Trigger Text ⮡ :

DECLARE
   MINIMUM NUMBER;

                                    -- 67 --



BEGIN
  SELECT MINPRICE INTO MINIMUM
  FROM PRICE
  WHERE PRICE.PRODID = :PRODID
  AND SYSDATE BETWEEN STARTDATE AND NVL(ENDDATE,SYSDATE);

  IF :ACTUALPRICE < MINIMUM
  THEN
     MESSAGE ('ACTUAL PRICE MUST BE GREATER THEN'*****
     TO_CHAR (MINIMUM)*****************
     '.');
     RAISE FORM_TRIGGER_FAILURE;
  ELSE
      CALCULATE_ITEM_TOTAL;
  END IF;

EXCEPTION

  WHEN NO_DATA_FOUND THEN
       CALCULATE_ITEM_TOTAL;
END;

3. ୨   .

         ஢  pp  Actual Price

Actual Price ਣ ࠡ⠥ ᫨ 頥 ᮮ饭
 訡,   䠪 業 
쭮.

         ࠦ 6-9:  pp  Actual Price
1. ࠭, ᣥ  믮 .
2.    610.
3. ३   ITEMS   ACTUALPRICE  SB Vita
   Snack-6 Pack (PRODID 200380)   3.00
4.  [Next Field]
     㢨 ᮮ饭, ஥  ।  ࠦ 6-7:
   ACTUAL PRICE MUST BE GREATER THAN 3.20.

   ਣ Actual Price ࠡ⠥.

5.   業 ।   [Next Field] ᭮.

   ਣ Actual Price ⥯  ᯥ譮,     
    ACTUALPRICE.

6.  [Cancel];   ᭮    ࠢ쭮.












                                    -- 68 --



 ⥬ ᮮ饭

                ᫥ ⠥ 믮  ᮡ. 
               ⮩ , 쭮 ਢ  SQL*Forms, 
               - ஥ ᮮ饭 , ⠭
               易⥫묨.

祭        । ਣ,   ⥬ ᮮ饭
ਣ            ᮪ ஢ (஢ 5)   ⮬᪨
Key-STARTUP       믮     .

।       । ਣ Key-STARTUP,  㤥 뢠
ਣ          ஬ packaged procedure (楤  
Key-STARTUP       SQL*Forms   ⢨  믮 ), ⮡
                ਣ,  ଠ 믮. (
               ࠢ筨 ࠧࠡ稪  SQL*Forms   ஡
                 ࠬ 楤   ᮮ饭
               ஢ 㤭.)

ࠦ 6-10:  1.  ⠡ ࠬ஢ Trigger Definition ᮧ 
।             ਣ .
ਣ
Key-STARTUP       2.  Key-STARTUP   Trigger Name.    
                  ਣ ஢ ,    ।  
                   .

               3.  ஫㥬  Trigger Text  Trigger
                  Definition  ᫥饥:

                  :SYSTEM.MESSAGE_LEVEL :=5;
                  EXECUTE_QUERY;
                  EXECUTE_TRIGGER('CLEAR_DETAILS');
                  EXECUTE_QUERY;
                  EXECUTE_TRIGGER('QUERY_DETAILS');

                  ᫥  ப ⮣ ਣ ᯮ
                  ਣ஬, । ⭮襭ﬨ "᭮-⠫"
                   믮 ஫ .

               4. ୨   .

஢     㤥 ஢ ਣ Key-STARTUP, ⮡
ਣ          ᬮ ⠪    ᥡ  .  ਣ
Key-STARTUP       㤠, ᫨    ⮬᪨  
                   ,  ᫨   ᮮ饭 5 ஢.


ࠦ 6-11:  1. ࠭, ᣥ  믮 .  
஢         ⮬᪨ 롥.
ਣ
Key-STARTUP       2.  [Previous Record].
                   㤥  ⥬ ᮮ饭, 뢠饥 
                   ,  ᮮ饭 .  ਣ
                  Key-STARTUP ࠡ稩.

               3. ୨    SQL*Forms.
               4. ३  ଥ Trigger Definition  ⠡ ࠬ஢
                    [Delete Record], ⮡ 㤠 ਣ 

                                    -- 69 --



                  ஢.
               5. ࠭, ᣥ  믮 .
               6.  [Execute Query], ⥬ [Previous Record]. 
                  㢨 ᮮ饭,

                  FRM-40100: At first record.

                  ஥     蠣 3.   ⥫⢮
                  ⮣,  ਣ Key-STARTUP ࠡ稩.
               7. ୨   .


         ᬮ ⭮襭 "᭮-⠫"

  । ᫮ ਣ஢,  ᬮ ਣ,
⮬᪨ ᣥ஢    ।﫨 ⭮襭
"᭮-⠫".    ᬮ  ਣ஢ 
 ࠡ⠥  ⠡ ࠬ஢ Trigger Definition.   室
믮  ⮡  ⥫ ᯨ᮪ ਣ஢  ଥ
ORDER_ENTRY.

         ࠦ 6-12:  1.   Action ३  樨 Print Doc.

              ⨬    Action  Print Doc  ࠢ
 㬥樨         ᫥  㣫 ᪮(>). ">" ᫥ - 㭪
 ਫ            뢠    㣮 ,

   ।祭 ᪫⥫쭮  ⮣ 㭪. 
    㤥    ३  㭪 
   롥 .

2. 롥  Print Doc.  .
3.   ⮡   Trigger  .
4.   File  ࠬ  Print to File   䠩,  ஬
      .  [Accept].

5. ⠩  祭 Send ஫⭮  Printer. 
   [Accept].

⠭    㢨  ଠ ᮤন  ਣ஢,
   ।﫨. 饥 ࠦ      
ਣ஢, ⮡    ࠡ.  ࠦ 6-14 뢠
 쫪 ਣ Key-STARTUP,   ᯮ짮 ⮤  ⮬
ࠦ ⮡ ᬮ  ⨯ ਣ஢  襩 ଥ.

 襣 த, ⥬  , ᤥ  襩 . ᫥
襭  ⠫ ࠦ ᠬ⥫    ஢
१, , 㤠  २ ਣ, ⮡  
  ᢮⢠ SQL*Forms.      ⢥ 
襩 ࠡ ⥯. ᫨  ।⠥,   ᯮ짮 
ਬ  6  ஢ 襩 .

ࠦ 6-13:  1. 롥 㭪 Copy   Action.
஢
             2.  From   Copy Form ᯮ  㬮砭
ORDER_ENTRY          ⥪ ,   砥, ORDER_ENTRY.



                                    -- 70 --



               3.   To     ࠧ  
                     祬 30 ᨬ,  ᮤঠ騥 ஡.

                  ⨬,   ⥪ ⥪饩  
                  ORDER_ENTRY   ᪮஢ .  ᫨  
                  ࠭  , 롥 Save   Action.

                    襩 , ⠪   
               ஢ ᪮஢ , ⮡ ᬮ 
                 ࠡ.


ࠦ 6-14:  ਣ [Next Record] key ८। [Next

ᬮ          Record] ⠪       ᫥
ਣ             ORDERS,  ⮬᪨ ६頥
[Next Record]      ࢮ     ITEMS.
Key

               1. ३  ਣ Key-NXTREC   ORDERS .
               2. ᬮ ਣ.

         㭮 6-4:     ਣ  Key-NXTREC

   Action  foRm  Block  Field  Trigger  Procedure  Image  Help  Options        
    Trigger Definition   
  
   Trigger: KEY-NXTREC  ---- For Key Triggers Only ----  
   Block:   ORDERS                          [ X ] Show Keys                  
   Field:                                   Descrip:                         
   Trigger Style:  V3                                                        
  
   ------------------------------- Trigger Text ----------------------------- 
   execute_trigger('clear_details');                                          
   next_record;                                                               
   execute_trigger('query_details');                                          
                                                                              
                                                                              
                                                                              
  
   --------------------------------- Comment -------------------------------- 
                                                                              
                                                                              
  
 Enterthetriggertext.
 Frm: CHAPTER6    Blk: ORDERS      Fld:             Trg: KEY-NXTREC        <Rep


    ᠭ  ᪮ 몥  ⮬  ਣ :

   ਣ 稫, SQL*Forms ६頥  ⠫쭮  
頥  . ⥬ SQL*Forms 頥 ⭮  ᭮  
롨ࠥ ᫥   ᭮ .  祭, SQL*Forms
६頥 ⭮  ⠫쭮   롨ࠥ  , 易 
 ᭮ .




                                    -- 71 --



  稫 ᠨ⥫,  ᥡ  ࠢ筨 ࠧࠡ稪
 SQL*Forms.  ࠢ筨,  㡮 㪮⢮  ⠭
㬥樨  SQL*Forms, ᯥ稢 뢠 ଠ  SQL*Forms,
।⠢  ⪨ .


         ⪮ ᮤঠ: ਣ

 騩 ᯨ᮪ 㬬 ⢨,   稫   6:
   . 뢮 易 
   . ஫   ।⢮ 뢮 易 
   . ᫥ 祭    祭  㣨 
   . ஫ ଠ樨  樨 業
   . 뢮 易 ,  祭   
   . ஫  뢮 易 
   . 믮 ᬮ ⠡ -
   .  楤 ஢  PL/SQL
   . ஫ ଠ樨
   . ᯮ짮  SQL*Forms  ଫ ஬
     楤  ਣ







































                                    -- 72 --
