



            18              

 ⮩  㦤 ६ SQL*Forms.  ,   ᮤ
᫥騥 ࠧ:
     *  ६ PL/SQL
     *  ६
     * ⥬ ६
⢥ ⥬: 㯠 㭪 NAME_IN

          ६ PL/SQL

  ६  - ६ PL/SQL,   ⨢ ⮫쪮 
ண   楤 ஢ ,  ன   ᠫ.

  㪮 짮⥫   ࠢ筨  PL/SQL  ଠ樨 
⮬,     ᫠   ६.

          ६

⠪: GLOBAL.variablename
 variablename -  ,  ᮮ⢥ ᮣ襭, ਭ  ORACLE.

ᠭ:  쭮  ६ SQL*Forms,  ⨢  
  ਣ    ⨢  祭 ᥣ ᥠ ࠡ 
SQL*Forms(Run  Form).    ६ ࠭ 祭 ᨬ쭮 ப
  255 ᨬ.

०,  祬  쭠  ६   ⨢   祭 ᥠ
SQL*Forms(Run Form),  ਣ  樠஢    
६.     SQL*Forms 樠    ६,     
 ᢠ    祭.       㤠   ⨢
 ६ ( ᢮ , 易  ) 楤ன
ERASE.

   ६ ⨢  祭 ᥣ ᥠ SQL*Forms(Run
Form),  쭠 ६,     ଥ  
ᯮ짮    ମ,   뢠  祭 ᥠ.

  ᢠ:        ਣ  V3  ᢮ 祭 쭮
६,   ᨯ  ⠭  ᨭ⠪ PL/SQL  쥪⮢
SQL*Forms:
        :GLOBAL.variableename :=value

㣮 ᯮᮡ - ᯮ짮 楤 DEFAULT_VALUE  ᢮ 祭
                쭮 ६.

⭮ ᯮ짮:  ᯮ  ६   ࠭
祭,      ࠭     ᮢ⭮
ᯮ짮  ଠ    祭 ᥠ SQL*Forms(Run Form).
⢥ ⥬: DEFAULT_VALUE, 㯠 楤16-11
               ERASE, 㯠 楤
                ६, ⠭
               ꥪ, ᠭ  PL/SQL

         ⥬ ६



                                   -- 197 --



⥬   ६   -  ६  SQL*Forms,    ᮤঠ 
ண ७ ﭨ SQL*Forms.   ᭮,      
    祭  ⥬ ६  ⮣,  ⮡ ⢮
   ਪ ணࠬ.

SQL*Forms  ন  祭  ⥬  ६   ᮮ⢥⢨ 
⥪騬  ﭨ.  ⮬  祭   ⥬ ६
ᮮ⢥ ⮫쪮 ⥪饩 ଥ.  騩   ᯨ᮪   ᮤন   
㯭  ⥬ ६:
     * SYSTEM.BLOCK_STATUS
     * SYSTEM.CURRENT_BLOCK
     * SYSTEM.CURRENT_FIELD
     * SYSTEM.CURRENT_FORM
     * SYSTEM.CURRENT_VALUE
     * SYSTEM.CURSOR_BLOCK
     * SYSTEM.CURSOR_FIELD
     * SYSTEM.CURSOR_RECORD
     * SYSTEM.CURSOR_VALUE
     * SYSTEM.FORM_STATUS
     * SYSTEM.LAST_QUERY
     * SYSTEM.LAST_RECORD
     * SYSTEM.MESSAGE_LEVEL
     * SYSTEM.RECORD_STATUS
     * SYSTEM.TRIGGER_BLOCK
     * SYSTEM.TRIGGER_FIELD
     * SYSTEM.TRIGGER_RECORD

  ⥬  ६,  ᪫  SYSTEM.MESSAGE_LEVEL, 㯭 ⮫쪮
   .   SYSTEM.MESSAGE_LEVEL   - ⢥  ⥬ ६,
ன      ᢮ 祭.

SQL*Forms   ⠪  ন    ᯥ樠  ⥬ ६;
$$DATE$$    $$TIME$$,  ᮤঠ ଠ     ६  
ᯥ樠 ࠭祭  ᯮ짮.

         $$DATE$$              ⠪: $$DATE$$

ᠭ:  ⥬ ६ $$DATE$$ 뢠  ⥪   ᫥饬
           ଠ:  DD-MON-YY

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.
   ᯮ짮 $$DATE$$ ⮫쪮   祭 -㬮砭 
  १  ࠪ⨪    Default Value.

ਬ:   ।,        ORDERDATE ᥣ
-㬮砭 ⥪ .    ।  ORDERDATE, 
$$DATE$$   Default Value.
⢥ ⥬: ࠪ⨪  Default Value

         $$TIME$$           ⠪: $$TIME$$

ᠭ:   ⥬ ६ $$TIME$$ 뢠 ⥪饥 ६ 
᫥饬 ଠ:  HH:MI[:SS]

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

   ᯮ짮 $$TIME$$ ⮫쪮   祭 -㬮砭 
  १  ࠪ⨪    Default Value.

                                   -- 198 --



ਬ:   ।,      ६   ࠡ⪨. 
 ᮧ   ,  뢠饥 ORDERTIME,  稭  ࣮
ࠢ ६ ᮧ .    ।  ORDERTIME, 
$$TIME$$   Default Value.
⢥ ⥬: ࠪ⨪  Default Value

         SYSTEM.BLOCK_STATUS       ⠪: SYSTEM.BLOCK_STATUS

ᠭ:       ⥬   ६   SYSTEM.BLOCK_STATUS 뢠
  ,     ஬  室  .  ᠭ  稭  
            ᨬ ப:

CHANGED   :뢠,   ᮤন -ࠩ     
           

NEW        뢠,   ᮤন ⮫쪮    .

QUERY   뢠,   ᮤন ⮫쪮 ஢७   , 
        뫨 祭   .

ਬ:  ।,    ᮧ ਣ,  믮
ᥭ    ।  ⪮ ,  ᫨   ,
ᥭ      ⮣   .  騩 Key-CLRBLK-ਣ 믮
 㭪.

IF:SYSTEM.BLOCK_STATUS='CHANGED'
     THEN COMMIT;
END IF;
CLEAR_BLOCK;

⢥ ⥬: ﭨ ஢ન 


       SYSTEM.CURRENT_BLOCK              ⠪: SYSTEM.CURRENT_BLOCK

ᠭ: 祭,  ஥  뢠  ⥬ ६
SYSTEM.CURRENT_BLOCK          ⥪饣 ࠢ塞 ன⢠.

     ᫨  ⥪騬  ࠢ塞  ன⢮  ,     
   (  Pre-    Post-Field,  Record     Block-      ਣ),
   祭      ६   SYSTEM.CURRENT_BLOCK     ,
      ࠡ뢠   SQL*Forms      ஢  室   .

     ᫨ ⥪饥 ࠢ塞 ன⢮ - ଠ (  Pre-  Post-Form-ਣ-
     ), 祭   SYSTEM.CURRENT_BLOCK ࠢ NULL.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.
砭:    SYSTEM.CURRENT_BLOCK  祭      3.0
SQL*Forms   ᮢ⨬  ।騬 ﬨ.  Oracle
Corporation ४ ᯮ짮     ६
SYSTEM.CURSOR_BLOCK  SYSTEM.TRIGGER_BLOCK.
⢥ ⥬: ࠢ塞 ன⢮


         SYSTEM.CURRENT_FIELD       ⠪: SYSTEM.CURRENT_FIELD

ᠭ:祭, ஥ 뢠 ⥬ ६ SYSTEM.CURRENT_FIELD
           ⥪饣 ࠢ塞 ன⢠.

                                   -- 199 --



᫨ ⥪饥 ࠢ塞 ன⢮ -  (  Pre-  Post-Field-ਣ),
祭 SYSTEM.CURRENT_FIELD -  , ஥ ࠡ뢠  SQL*Forms  
 ஬ 室 .  頥        ᮤন 䨪
 .

᫨ ࠢ塞 ன⢮  ,   ଠ (  Pre- 
Post-Record, Block  Form-ਣ), 祭 SYSTEM.CURRENT_FIELD ࠢ NULL.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

砭:    SYSTEM.CURRENT_FIELD  祭      3.0 SQL*Forms 
ᮢ⨬  ।騬 ﬨ.  Oracle Corporation ४ ᯮ-
   ६ SYSTEM.CURSOR_FIELD  SYSTEM.TRIGGER_FIELD.
⢥ ⥬: ࠢ塞 ன⢮

         SYSTEM.CURRENT_FORM         ⠪: SYSTEM.CURRENT_FORM

ᠭ:  ⥬   ६   SYSTEM.CURRENT_FORM 뢠 
           ,  믮 SQL*Forms.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:    ।,      ,  ⮡ -  맢 
  ஢  ,     뢠.  
      ᫥饩 楤  ஢  । ⥬,  
SQL*Forms ⢨ 맮.     楤  ࠭    ⥪饩   
 쭮 ६   CALLIND_FORM.

PROCEDURE STOR_FORMNAME IS
BEGIN
     :GLOBAL.CALLING_FORM:= :SYSTEM.CURRENT_FORM;
END;

         SYSTEM.CURRENT_VALUE          ⠪: SYSTEM.CURRENT_VALUE

ᠭ: ⥬  ६  SYSTEM.CURRENT_VALUE 뢠  祭
          , ஥   ॣ஢    SYSTEM.CURRENT_FIELD.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.  砭:
SYSTEM.CURRENT_VALUE  祭      3.0 SQL*Forms  ᮢ⨬ 
।騬  ﬨ.  Oracle Corporation  ४  ᯮ짮 
 ६ SYSTEM.CURSOR_FIELD  SYSTEM.CURSOR_VALUE.

         SYSTEM.CURSOR_BLOCK

⠪:  ⥬    ६    SYSTEM.CURSOR_BLOCK 뢠 
            ,  ஬ 室 .
ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ: ।,    ᮧ Key-NXTBLK-ਣୠ ஢ ,
         ࠢ ६饭    ᨬ    ⥪饣 .
騩 ਣ 믮  㭪:

IF:SYSTEM.CURSOR_BLOCK='ORDERS'
     THEN GO_BLOCK('ITEMS');
ELSEIF:SYSTEM.CURSOR_BLOCK='ITEMS'



                                   -- 200 --



     THEN GO_BLOCK('CUSTOMERS');
ELSEIF:SYSTEM.CURSOR_BLOCK='CUSTOMERS'
     THEN GO_BLOCK('ORDERS');


         SYSTEM.CURSOR_FIELD       ⠪: SYSTEM.CURSOR_FIELD

ᠭ:  ⥬   ६    SYSTEM.CURSOR_FIELD 뢠  
               (ਬ  block.field),   ஬ 室 .

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:  ।,     ᮧ 楤 ஢ ,  
  祭 ,   ஬ 室  ᠭ  ⥬
६ SYSTEM.CURSOR_VALUE),  㬭     ⠭  ⠥
஢ 祭       ᠬ  .   楤 ஢
 ᯮ 㯠 楤 COPY  믮 ⮩ 㭪樨.

PROCEDURE CALC_VALUE IS
     NEW_VALUE NUMBER;
BEGIN
     NEW_VALUE := TO_NUMBER (:SYSTEM.CURSOR_VALUE)*.06;
     COPY (TO_CHAR(NEW_VALUE_,:SYSTEM.CURSOR_FIELD);
END;

         SYSTEM.CURSOR_RECORD         ⠪: SYSTEM.CURSOR_RECORD

ᠭ:       ⥬   ६   SYSTEM.CURSOR_RECORD 뢠
祭  ᫥⥫쭮    ,    ன  室  .
    ࠦ  ⥪騩 䨧᪨ 冷   ᯨ᪥ ᥩ
.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:  ।,    ८। [Prefious Field]  ࢮ
  ITEMS ⠪,  ⮡  뢠  ᫥      
ORDERS,  ᫨  ⥪饩   -   ࢠ.   騩
Key-PRVFLD-ਣ       ITEMS.ORDERID 믮  㭪.

IF:SYSTEM.CURSOR_RECORD = '1'
     THEN GO_FIELD ('ORDERS.TOTAL');
     ELSE PREVIOUS_FIELD;
END IF;

         SYSTEM.CURSOR_VALUE      ⠪: SYSTEM.CURSOR_VALUE

ᠭ:   ⥬   ६   SYSTEM.CURSOR_VALUE 뢠
            祭 ,  ஬ 宫 .

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:  ।,    ᮧ 楤 ஢ ,  
  祭  ,    ஬  室 ,  㬭  
⠭  ⠥ ஢ 祭    ᠬ . 
楤 ஢  ᯮ 㯠 楤 COPY    믮
⮩ 㭪樨.



                                   -- 201 --



PROCEDURE CALC_VALUE IS
     NEW_VALUE NUMBER;
BEGIN
     NEW_VALUE := TO_NUMBER (:SYSTEM.CURSOR_VALUE)*.06;
     COPY (TO_CHAR(NEW_VALUE_,:SYSTEM.CURSOR_FIELD);
END;

         SYSTEM.FORM_STATUS

                        ⠪: SYSTEM.FORM_STATUS

ᠭ:  ⥬   ६   SYSTEM.FORM_STATUS 뢠 
           ,  ன  室   .  ᠭ   稭 
                      ᨬ ப:

CHANGED   뢠,  ଠ ᮤন  ࠩ     
          .
NEW       뢠,  ଠ ᮤন ⮫쪮    .

ਬ:  ।,    ᮧ ਣ,  믮
ᥭ    ।  ⪮  ,  ᫨     
⮩  ଥ.  騩 Key-CLRFRM ਣ 믮  㭪.

IF:SYSTEM.FORM_STATUS='CHANGED'
     THEN COMMIT;
END IF;
CLEAR_FORM;

⢥ ⥬:  १⮢ ஢ப


         SYSTEM.LAST_QUERY         ⠪: SYSTEM.LAST_QUERY

ᠭ:  ⥬ ६ SYSTEM.LAST_QUERY 뢠  
SELECT,    SQL*Forms  ᫥  ࠧ ᯮ짮   
 ( ६ ⥪饣 ᥠ SQL*Forms(Run Form)).

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:  ।,     ᣥ஢     SQL*Plus,
 ᮤন ଠ  ,   믮﫨     SQL*Forms.
      Key-EXEQRY ਣ,   ᯮ 㯠
楤 HOST   ।  祭  SYSTEM.LAST_QUERY   SQL*Plus.
SQL*Plus   ஢    ,   ᯮ    SELECT.
⢥ ⥬:   SELECT


         SYSTEM.LAST_RECORD

⠪:     ⥬     ६    SYSTEM.LAST_RECORD 뢠,
  ⥪  ᫥    ᯨ᪥   ᥩ  .
ᠭ  祭  -     ᫥ 㫥 稭:

TRUE   뢠,  ⥪     ᫥  ᯨ᪥ ᥩ
        .

FALSE     뢠,  ⥪   
          ᫥  ᯨ᪥ ᥩ .

                                   -- 202 --



ਬ:  ।,    ᮧ 楤 ஢ ,   
ᢥ稢     ᮮ饭,      室    ᫥
    ᯨ᪥ ᥩ .     楤  ஢  
믮    㭪.

PROCEDURE LAST_RECORD_MESSAGE IS
BEGIN
     IF_SYSTEM.LAST_RECORD='TRUE'
          THEN MESSAGE('This is the last record fetched.');
     END IF;
END;

    ८।  [Down],  [Next Record]  [Scroll Down]  맮
⮩ 楤 ஢       筮 ࠡ⪥.

         SYSTEM.MESSAGE_LEVEL     ⠪: SYSTEM.MESSAGE_LEVEL

ᠭ:  ⥬  ६  SYSTEM.MESSAGE_LEVEL 뢠 
            ᫥ ஢ 쥧 ᮮ饭:  0, 5, 10, 20  25.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

 祭 ᥠ SQL*Forms(Run  Form),  SQL*Forms     ᮮ饭,
஢  쥧       ࠢ( 쥧) 
஢ 쥧.

᢮ 祭 ⥬ ६ SYSTEM.MESSAGE_LEVEL ந 
ᯮ짮 ⠭⭮ ᨭ⠪ PL/SQL:

SYSTEM.MESSAGE_LEVEL := value;

⨬ 祭 SYSTEM.MESSAGE_LEVEL - 0,  5,  10,  20 
砭:SQL*Forms      ਣ襭   
ᮮ饭      訡       ᨬ     ⠭ ஢
쥧.

Default: 0

ਬ:    ।,       ,  ⮡  SQL*Forms ⮡ࠦ
⮫쪮  ᠬ  쥧  訡  (஢   25).  騩 Pre-Form-ਣ
  ᮮ饭  ஢ 20  .

:SYSTEM.MESSAGE_LEVEL:=20;

⢥ ⥬: ஢ 쥧 ᮮ饭


         SYSTEM.RECORD_STATUS         ⠪: SYSTEM.RECORD_STATUS


ᠭ:  ⥬  ६  SYSTEM.RECORD_STATUS 뢠 
,     ன  室  .  ᠭ  稭     
  ⭮   ᨬ ப:

CHANCHED   뢠,   ஢ન ᥩ -   CHANGED.




                                   -- 203 --



INSERT     뢠,   ஢ન ᥩ -   CHANGED   
                 .
NEW        뢠,   ஢ન ᥩ -   NEW.
QUERY      뢠,   ஢ન ᥩ -
           Valid    祭   .

ਬ:  ।,    ᮧ ਣ,  믮
ᥭ    ।   ⪮    . 騩
Key-CLRREC-ਣ 믮  㭪.

IF:SYSTEM.RECORD_STATUS='CHANGED'
     OR :SYSTEM.RECORD_STATUS='INSERT'
     THEN COMMIT;
END IF;
CLEAR_RECORD;

⢥ ⥬:  ஢ન 

         SYSTEM.TRIGGER_BLOCK        ⠪: SYSTEM.TRIGGER_BLOCK

ᠭ:  祭 ⥬ ६ SYSTEM.TRIGGER_BLOCK -   ,
  ஬    ,  ⥪騩 ਣ  ࠡ⠫. 祭
ࠢ NULL, ᫨ ⥪騩 ਣ - Pre-  Post-Form-ਣ.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:    ।,         楤 ஢ ,
 ।    ࠢ  ,   ஬  室  ,
  ⥪騩  ਣ  ࠡ⠫. 騩  믮 
㭪.

GO_BLOCK(NAME_IN('SYSTEM.TRIGGER_BLOCK'));
         SYSTEM.TRIGGER_FIELD        ⠪: SYSTEM.TRIGGER_FIELD

ᠭ: 祭 ⥬ ६ SYSTEM.TRIGGER_FIELD -   
 (ਬ, block.field),   ஬  ,   ⥪騩  ਣ
 ࠡ⠫.  祭 ࠢ NULL, ᫨ ⥪騩 ਣ - Pre- 
Post-Record, Block,  Form-ਣ.

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.

ਬ:   ।,          楤 ஢ ,
 । ࠢ ,  ஬ 室 ,  
⥪騩 ਣ    ࠡ⠫.  騩  믮 
㭪.

GO_FIELD(NAME_IN('SYSTEM.TRIGGER_FIELD'));


         SYSTEM.TRIGGER_RECORD         ⠪: SYSTEM.TRIGGER_RECORD

ᠭ:      ⥬   ६  SYSTEM.TRIGGER_RECORD 뢠
᫥⥫        ,     ࠡ뢠 SQL*Forms.
 ⮡ࠦ ⥪騩 䨧᪨ 冷   ᯨ᪥ ᥩ .

ᠭ 稭 ᥣ  ଠ ᨬ쭮 ப.



                                   -- 204 --



ਬ:      ᫥饬           IF ᯮ
SYSTEM.TRIGGER_RECORD    ।  ⥪饩  । த
ࠡ⪨.

IF:SYSTEM.TRIGGER_RECORD='1'
     THEN MESSAGE ('Firs item in this order.');
END IF;


         19        

짮⥫᪨ 室 - ணࠬ,        
믮塞  䠩 SQL*Forms.     맢  짮⥫᪨
室     ਣ   SQL*Forms, SQL*Forms   ६   ।
ࠢ   ࠡ⪮   짮⥫᪨   室.       
믮 짮⥫᪨  室,    頥 楫 稭 
SQL*Forms,   뢠 ᯥ,  㤠  ⠫ 訡.

짮⥫᪨ 室  믮 ᫥騥 :
     * 믮 ᫮  묨
     * ।   SQL*Forms  ⥪⮢ 䠩 樮 ⥬
     * 㫨஢ 묨 ⨯ LONG RAW
     * ন  PL/SQL
     * ࠢ ன⢠ ॠ쭮 ६, ⠪  ਭ  ஡

    ᯫ짮  짮⥫᪨  室  㣨 ,  ⠪
 ⥬᪠  ࠡ⪠.    Oracle Corporation    ४
믮   ⠪       ᯮ짮 PL/SQL  ਣ.

砭:      ⨯  짮⥫᪨  室    믮   
ᠭ  .       믮 設⢮        
⮫쪮      ᯮ짮 ४ 짮⥫᪨ 室 ORACLE.

"  墠뢠 ᫥騥 ⥬:
     * ⨯ 짮⥫᪨ 室
     * ᮧ 짮⥫᪮ 室
     *  ணࠬ pop-up

      ᮧ  짮⥫᪨  室  墠뢠 ४
짮⥫᪨   室   ORACLE   -   ⨯ 짮⥫᪮  室,
    㤥 ᯮ짮.  ࠧ  墠뢠 
⠫ ⮣,    ⢨⥫쭮  ᮧ    ਬ  짮⥫᪨
室.  ⠫   樮 ⥬,  ன   ࠡ⠥  
 몠,    ࠫ  ᠭ 짮⥫᪮ 室.

⠩     ,   ⮡      ।⠢    짮⥫᪨
室     ᯮ  ᮮ⢥騥 ⠫樨 ORACLE    
㪮⢮  짮⥫    襩 ॠ쭮  ࠡ.  ⨬,   ०,
祬  ⠥ ਬ 짮⥫᪨ 室,   
筮   楯  樮  ⥬.  ।⥫쭮
饭  ४ ORACLE ⠪ 祭 .

          짮⥫᪨ 室

   짮⥫᪨ 室 ᫥ ⨯:
    * 짮⥫᪨ 室 ४ ORACLE   
    * 짮⥫᪨ 室  OCI(ORACLE Call Iterface)   
    *  ⭮騥  ORACLE 짮⥫᪨ 室

                                   -- 205 --



    ⠪   짮⥫᪨ 室,   
䥩 ४ ORACLE  OCI.

         짮⥫᪨ 室  ४ ORACLE

짮⥫᪨  室  ४  ORACLE  ꥤ 䥩
४  ORACLE.   䥩      ணࠬ
      ᫥   몮 ᮪ ஢  ࠨ  SQL:

     * Ada
     * C
     * COBOL
     * FORTRAN
     * Pascal
     * PL/1

ᯮ  ஥    SQL  짮⥫᪨ 室 ४
ORACLE      ORACLE.   짮⥫᪨  室
  ⠪     ६      SQL*Forms.  - 
ᮡ⥩   㤥  設⢮  짮⥫᪨  室  
 짮⥫᪨ 室 ४ ORACLE.

   ஡ ଠ樨  䥩 ४ ORACLE
  㪮 짮⥫  ४ ORACLE      ⮣
몠  ᮪  ஢,      .

砭:    樮  ⥬  ন    ᫥
모.     ⠫ﬨ    㪮   
⠫樨   ORACLE      㪮 짮⥫  襩 ⥬.

         짮⥫᪨ 室   OCI(ORACLE Call Interface)

짮⥫᪨  室  OCI  ꥤ  䥩 맮 ORACLE (ORACLE
Call Interface).  䥩     ணࠬ,  
ᮤঠ  饭       ORACLE.  짮⥫᪨  室,
  ᮤন ⮫쪮 OCI   ᮤন 䥩 ४ ORACLE)
    ६   SQL*Forms.

  ⥫쭮  ଠ樨      OCI       ᮮ⢥饬
㪮  짮⥫  ४ ORACLE.

          ⭮騥  ORACLE  짮⥫᪨ 室

 ⭮騥  ORACLE 짮⥫᪨ 室    䥩
४  ORACLE    OCI.  ਬ,   ⭮騩    ORACLE
짮⥫᪨  室     ᠭ   C.

  ।    ⭮騥    ORACLE 짮⥫᪨ 室  
      ORACLE    ६   SQL*Forms.

          짮⥫᪨ 室

    ࠧ        ᭮    蠣    ᠭ 짮⥫᪨
室  ४  ORACLE    맮 ⮣  짮⥫᪮ 室 
ਣ SQL*Forms.   ࠧ    饭        짮⥫᪨
室 ४  ORACLE  ⠪   㤥   ᯮ짮
   ⨯ ४  Oracle  Corporation  設⢠ .


                                   -- 206 --



         ᠭ 짮⥫᪮ 室

  짮⥫᪨  室  ४  ORACLE   ᯮ짮
 몮 ᮪ ஢  믮 楤  権.  
짮⥫᪨  室   ⠪  ᯮ짮 ᫥騥 ⨯ ஢
 믮 ⥫ 㭪権:

        ᯮ짮
____________________________________________________________
EXEC SQL            믮  SQL
EXEC IAF GET        । 稭  SQL*Forms  짮⥫᪨ 室
EXEC IAF PUT        । 稭  짮- 室  SQL*Forms
EXEC ORACLE         믮 樨 ४ ORACLE

          EXEC SQL

 EXEC SQL -  SQL,  । ன  ⮨  "EXEC SQL".  
EXEC  SQL      믮    SQL  짮⥫᪮
室 ४ ORACLE.   -  ।⢮ 樨 묨  
     짮⥫᪮ 室.

⠪: EXEC SQL sql_statement;

  sql_statement - 㡮 ⨬  ORACLE SQL  ᪫祭
࠭祭  ⢠  ,  ᠭ   ⮬ ࠧ.

⨬,         ந  祭    CONNECT  
짮⥫᪮   室   ४ ORACLE,    ⠪        SQL*Forms
믮   祭 ⮬᪨. ,  ORACLE  ন
騥 祭.      쭥襩   ଠ樨     
ᮮ⢥饬  㪮᢮  짮⥫  ४ ORACLE.

࠭祭  : Oracle Corporation ண ४ 
ਤন ᫥ ࠭祭    ᯮ짮 SQL-   
짮⥫᪨   室  ४ ORACLE:

     *  ᯮ  SQL COMMIT  ROLLBACK  짮⥫᪮
        室, ᫨    ଥ,   뫨 ᫠  
        ,  뢠 짮⥫᪨ 室.

     *  ᯮ  ,   뢠 ᥭ
           , ਬ,  DDL.


         EXEC IAF GET

 EXEC IAF  GET  ।  稭    SQL*Forms   짮⥫᪨
室 ४ ORACLE.   ⭮,   頥  祭    
६  SQL*Forms    ६  몠  ᮪ ஢.  ᫨ SQL*Forms
। 稭  짮⥫᪨  室,  짮⥫᪨  室 
ᯮ짮 祭  ᫥,  権  .

⠪:
EXEC IAF GET form_variable_1[, form_variable2,...]
INTO :host_variable_1[, :host_variable_2,...]




                                   -- 207 --



:
form_variable_1   ।     ६   SQL*Forms,
                  祭 ன     .

host_variable_1   ।  ६ 몠 ᮪   ஢, 
                    ⠥ 祭.

⨬,    form_variable    뫠       ᫥
⮢:

     * 筮 ।   (ਬ name  block.name.
     * ⥬ ६ SQL*Forms
     * 쭠 ६ SQL*Forms
     * ६ 몠 ᮪ ஢ (। ன ⮨ 稥),
        祭 ன -   - ᫥  ਠ⮢.

      ᮮ⢥饬  㪮  짮⥫ 짮⥫᪨
室  ४  ORACLE     ࠢ  ࠭祭 
६ 몠 ᮪ ஢


         EXEC IAF PUT

    EXEC    IAF    PUT   ।   稭      
짮⥫᪮ 室 ४ ORACLE   SQL*Forms.   ⭮,
 頥 祭 ⠭   ६ 몠 ᮪ ஢  
 ६ SQL*Forms.

  祭 ,  ஥  EXEC IAF PUT ।     
⮡ࠦﯮ᫥  ⮣,    짮⥫᪨ 室    ୥  ࠢ
   ,      뢠 짮⥫᪨ 室 ( ࠧ㬥,
筮,     ⠭ ਡ Displayed).

⠪:

EXEC IAF PUT form_variable[, ...]
VALUES :({host_variable | constant} [, ...]);
:

form_variable   ।     ६   SQL*Forms, 
                      祭.

host_variable_1   ।  ६ 몠 ᮪   ஢, 
                  ன  ⠥ 祭.

constant   । ⠭,   ⠥.    । ⠭⮩ 
            ⠢   稥.

砭:
1.  form_variable    뫠        ᫥ ⮢:
     * 筮 ।   (ਬ name  block.name.
     * ⥬ ६ SQL*Forms
     * 쭠 ६ SQL*Forms
     * ६ 몠 ᮪ ஢ (। ன ⮨ 稥),
        祭 ன -   - ᫥  ਠ⮢.




                                   -- 208 --



2.     ᮮ⢥饬 㪮 짮⥫ 짮⥫᪨
   室  ४  ORACLE     ࠢ  ࠭祭 
   ६ 몠 ᮪ ஢

3.   ।⠢ ६ 몠 ᮪ ஢  ⠭  
   ⠭⭮  ଠ  SQL.    ⠡ ᮤন ਬ:

祭       
------------------------------------------------------------
:holder1   ⠢ 祭 ६ 몠 ᮪ ஢ holder1

'Summit Sporting  ⠢ 祭 ப ⠭

Goods'            Summit Sporting Goods

413.60            ⠢ 祭 ᫥ ⠭   423.60.

          EXEC ORACLE

 EXEC ORACLE - ,    ⠭    SQL, ᯮ 
믮 権 ४ ORACLE.  쭥襩   ଠ樨
      ᮮ⢥饬 㪮 짮⥫ ४
ORACLE.

         । 㬥⮢  짮⥫᪮ 室

 맮 짮⥫᪮ 室 ४  ORACLE     
 権 । 㬥 짮⥫᪮ 室.      
,      ।   ப 짮⥫᪮  室    ப
訡    㯠 楤 USER_ESIT.

  ।   ப, SQL*Forms ⮬᪨ ।
᫥騥 㬥  짮⥫᪨ 室:

㬥       ।
-----------------------------------------------------------
Command Line    । ப 짮⥫᪮ 室

Command Line    ।  ( ᨬ) ப -
Lenght          ⥫᪮ 室

Errror Message  । ப 訡

Errror Message  ।  ப 訡
Lenght          exeqry
               । 㫥᪮ 祭, ஥   ࠦ  
               짮⥫᪨ 室   맢,  ଠ 室 
                ०   Enter Query.

    ⠭  㬥⠬,    SQL*Forms ।
⮬᪨,    ।  ⢮ ࠬ஢    
짮⥫᪨    室        ப 짮⥫᪮  室
㯠  楤 USER_EXIT.

ਬ,  ⮡ ।  ࠬ,  PARAM1  PARAM2  짮⥫᪮
室   CALCULATE_VALUES,       । ᫥騩 :

USER_EXIT ('CALCULATE_VALUES PARAM1 PARAM2');

                                   -- 209 --



ᯮ  ᮡ   ।   ଠ樨, ਬ,  .

砭:  易⥫쭮   짮⥫᪮ 室 -    SQL*Forms
-  ஢  ப   짮⥫᪮ 室.

⢥ ⥬: USER_EXIT, 㯠 楤


         饭 祭  짮⥫᪮ 室

᫥ ⮣,  짮⥫᪨  室  믮,    頥 祭,
஥  㯭    SQL*Forms.   祭  뢠, 稫  
짮⥫᪨ 室 ᯥ譮   ⠫쭮 訡.   १
 १⠬,      SQL  ।   SQL*Forms, 
 믮  ਣ.  ਣ,   뢠 짮⥫᪨
室  ।,     饭 祭 ﭨ.  ⢥
⥬: ࠡ⪠ ஢ SQL

         ࠭祭  ᠭ  짮⥫᪨ 室
騥 ࠭祭 ਬ      짮⥫᪨ 室:

        ।  짮⥫᪮ 室 (    ப
   짮⥫᪮ 室 㯠  楤   USER_EXIT),    
    ᮮ⢥⢮ ࠢ   襩 樮 ⥬   몠
   ᮣ  ஢.    ,       ࠢ  뢠  
      砨.

        믮 樨 /뢮   ࠭   
   짮⥫᪮ 室 ४ ORACLE.     ࠭祭
    - ⮣,    ணࠬ,          ᮪
   ஢   ᯮ      믮 /뢮  㯠 
   䫨     ணࠬ,      SQL*Forms  ᯮ  
     /뢮.

     砭:  믮 樨 ,뢮     䠩 
   짮⥫᪮ 室.

         ࠡ⪠  짮⥫᪨ 室

  ࠧࠡ⪨  짮⥫᪮ 室 ᯥ祭   樮-
 ⥬.      ᮮ⢥騬 樨  ⠫樨 ORACLE
  㪮 짮⥫  ᠭ 室 ⢨.

⨬,      ०,   祬      ᬮ  ࠧࠡ뢠 짮⥫᪨
室 (   樮  ⥬),     ணࠬ   
GENXTB.  ⠫樨,  ᤥ      ।⢠   㯭묨
    襩 樨      ⠫樨   ORACLE   
㪮 짮⥫.


         ணࠬ GENXTB

ணࠬ  GENXTB  믮  㭪樨   ᮧ 짮⥫᪮
室.   ⭮,  ᯮ ணࠬ GENXTB  믮 ᫥
⢨:
     *  ⠡   GENXTB   (   ⠡,   ᯮ㥬 



                                   -- 210 --



       ᮧ  GENXTB)
     * ⥭ ଠ樨    ⠡  GENXTB    ᮧ   䠩 窨
       室,  室   襣   짮⥫᪮ 室.

         ଠ GENXTB
      ᯮ짮    GENXTB     ⠢ ᠭ 襣
짮⥫᪮ 室  ⠡ IAPXTB.

          IAPXTB
 IAPXTB ᮤন  짮⥫᪨ 室,    
ਪ  SQL*Forms.   ᮧ ⠡ IAPXTB  믮
ணࠬ GENXTB.      ⠡ ⮫쪮 १ ᥭ
   GENXTB.

 ⠡ 뢠    ⠡ IAPXTB:

   ঠ
-----------------------------------------------------------
NAME          ।    짮⥫᪮   室.  ( 
          易⥫쭮  䠩,     ᮤন  짮⥫᪨
          室.) ⨬,       모  ᮪  ஢  
             ᫮.

TYPE        । ,   ஬ ᠭ   짮⥫᪨
          室.

REMARKS     । ⥪⮢ ப,    뢠 楫
          짮⥫᪮ 室.  ப    ᮤঠ ᨬ 80
          ᨬ.

CREATION      ।  ᮧ      ⠡ IAPXTB.
             ,  ଠ   GENXTB   ⮬᪨  
          祭       .

MODIFY     ।  䨪樨  ⠡ IAPXTB.
                    , ଠ   GENXTB
         ⮬᪨     祭   .

    ப  ⠡  IAPXTB      짮-
⥫᪮ 室.  ( ᫮ ୮   짮⥫᪨ 室
४  ORACLE,    室   䠩,   મ஢
 ஢ ᠬ  ᮡ   㣨  짮⥫᪨ 室.)  
 ঠ  ந 짮⥫᪨ 室  ⥬  
⠡ IAP.

     ᮮ⢥饬  㪮    ⠭ ORACLE 
㪮 짮⥫   ⠫樨  ᮧ ⠡ IAPXTB.


         맮 짮⥫᪮ 室   ਣ

᫥  蠣  ࠧࠡ⪥ 짮⥫᪮ 室 - 맮   
ਣ  SQL*Forms.    ਣ  V3    뢠 짮⥫᪨    室
   ᯮ짮   㯠 楤 USER_EXIT.

 짮⥫᪨ 室 뢠  蠣  ਣ  V2 ࠡ⠥ 
  SQL*Forms ᨨ 3.0.    㭪樮쭮 ,
⭮ 㯠  楤 USER_EXIT.

                                   -- 211 --



⢥ ⥬: USER_EXIT, 㯠 楤

         ணࠬ  ᯫ뢠 

ᯫ뢠騥   ,      ᯮ  SQL*Forms   㤮⢮
㦤  設⢠   ࠧࠡ稪.   , ।    짮⥫
      ᯮ짮 ᯫ뢠騥        㣨   楫.
⮬   Oracle Corporation  ᯥ稫  ᫥騥 ணࠬ ᯫ뢠
     ,            ᯮ짮    짮⥫᪨
室  몥 C  ᮧ ᯫ뢠 :

     * UXVACT
     * UXVADD
     * UXVGXY
     * UXVHID
     * UXVMOV
     * UXVPOP
     * UXVPUC
     * UXVPUS
     * UXVREM
     * UXVSHO

  ࠧ  뢠  ⨯     ணࠬ ᯫ뢠
.  ⨯ 室  䠩  iapuxw.h   ⥫,  ᮤন
  SQL*Forms.

⨬,  ,  ᫨  ᯮ ணࠬ ᯫ뢠 ,  
⢥  ᫥騥 :

     ᯮ짮   ,    頥   ணࠬ,
   ᫨   ஡  ࠢ   . ( iapuxv.h ।
    ).

     ন 㪠⥫  ᯫ뢠騥 ,     ᮧ

     ᯥ稢  ஫  ࠧ襭  㭪権,      
   ᮢ뢠 室 ࠧ ࠭,       ணࠬ
    ࠧ襭 ࠭
     ⢥ : ᯫ뢠騥 

         UXACT

UXWACT     ᯫ뢠饥      ⨢.       ⨢
, UXWACT ⠭   .
砭:  ணࠬ ࠡ⠥ ⮫쪮  ।   ᨬ ०.
 ⨯:
          int uxwact (window_pointer)
               uxwind *window_pointer;

 window_pointer । 㪠⥫  , ஥   ⨢஢


         UXWADD

UXWADD ᮧ ᯫ뢠饥 ,     .  ⨬,  
 ᯫ뢠饥 ,  ஥  ᮧ, ᯮ UXWADD  
 ,     ᯥ樠쭮   㤠        SQL*Forms  
㤠  ,   ஬  뫮 ᮧ; SQL*Forms  㤠

                                   -- 212 --



⮬᪨ ᯫ뢠饥  ,    짮⥫᪨  室,  
ᮧ   .  ᫨  ᮧ ᯫ뢠饥   ଥ   ⥬
뢠    ,  뢠  ଠ   ⢮ 
ᯫ뢠饬 .   ⨢稢 ⠪  뢠 ଠ ⠥
⨢.
⨯:
          uxwind uxwadd(window_pointer, x,y,h,v,
          border, damage_pointer, user_parameter);
               uxwind *window_pointer
               int *x
               int *y
               int *h
               int *v
               bool *border
               char *damage_pointer
               char *user_parameter;

window_pointer  । 㪠⥫  , ஥   ⨢஢.

x               । न x 孥    㣫 ᯫ뢠饣
                

y               । न y 孥  㣫 ᯫ뢠飮 

h               । 䨪஢    ᯫ뢠饣  
                ⢥ ࠭    ᨬ

v               । 䨪஢ ਭ   ᯫ뢠饣  
                ⢥ ࠭    ᨬ

border          ,   ᯫ뢠饥     ࠬ(TRUE) 
                  (FALSE).

damage_pointer  । 㪠⥫  㭪 ஫ ࠧ襭 ⮣ o

user_parameter  । ࠬ,      ।
                ଠ  ⮬,   㭪-     ᮢ.


         UXWGXY

UXWGXY ⠭       ᯫ뢠饬  .  
⮡ࠦ       ,   ᫨   ᯫ뢠饥  ⨢.
᫨ ᯫ뢠饥   ⨢,   ।,    㤥
室 ,    ⠭ ⨢.

砭: UXWGXY  ⮫쪮  ਪ ணࠬ, 
             ᨬ쭮 ० 㦥.

 ⨯:
          int uxwqxy(window_pointer, x, y)
               uxwind *window_pointer
               int *x
               int *y;

window_pointer  । 㪠⥫  ,  ஥ 
                 ⠭ .


                                   -- 213 --



x               । न x (⭮⥫쭮
               ) ।  

y               । न y (⭮⥫쭮
               ) ।  


         UXWHID

UXWHID  .   ਬ UXWHID  ⨢ .  UXWHID
 맢  㭪  ஫  ࠧ襭  㣮 .
⨯:  int uxwhid(window_pointer)   uxwind *window_pointer;
 window_pointer
               । 㪠⥫  , ஥     .


         UXWMOV
UXWMOV  ६頥  ᯫ뢠饥        .
UXVMOV 뢠 㭪 ஫  ࠧ襭       맢 㭪
஫ ࠧ襭 㣮 .

⨯:  int uxwmov(window_pointer, x, y)
               uxwind *window_pointer
               int *x
               int *y;


window_pointer   । 㪠⥫  , ஥   ६.

x                । न x  孥   㧫 , 
                       ६

y                । न y  孥   㣫 , 
                       ६


         UXVPOP

UXWPOP  ६頥 ᯫ뢠饥    ࠦ . ⨬,
 UXWPOP    ⨢.

UXWPOP  맢  㭪  ஫  ࠧ襭     㭪 ஫
ࠧ襭 㣮 .
⨯:
          int uxwpop(window_pointer)
               uxwind *window_pointer;

window_pointer   । 㪠⥫  , ஥   ६.


         UXWPUC

UXWPUC 뢮 ᨬ    ᯫ뢠饣 .
⨯:
          int uxwpuc(window_pointer, window_char, x, y)
               uxwind *window_pointer
               char *window_char


                                   -- 214 --



               int *x
               int *y;


window_pointer
    । 㪠⥫  ,  ஥     뢥 ᨬ.

x   । न x (⭮⥫쭮   )    
    뢥 ᨬ

y   । न y (⭮⥫쭮   )    
    뢥 ᨬ


         UXWPUS
UXWPUS   뢮   ப   ᨬ         ᯫ뢠饣
.   뢥 ப ᨬ   ᯫ뢠饥 , , ᫨
  ⨢  ⠭.

砭:   ப ᨬ  易⥫쭮  稢 ᨬ NULL.
⨯:
          int uxwpus(window_pointer, char_string,x,y,l)
               uxwind *window_pointer
               char *char_string
               int *x
               int *y
               int *l;


window_pointer
               । 㪠⥫  ,  ஥ 
                뢥 ப.

char_string    । ப,   
               ⠢.
x              । न x (⭮⥫쭮
               )     뢥 ப
y
               । न y (⭮⥫쭮
               )     뢥 ப

l              ।  ப  ᨬ.


         UXWREM

UXWREM  㤠  ᯫ뢠饥  .    㤠  ᯫ뢠饥
, , ᫨  ⨢.

UXWREM  뢠 㭪  ஫  ࠧ襭  㣮 .
⨯:
          int uxwrem(window_pointer)
               uxwind *window_pointer;

window_pointer  ।  ᯫ뢠饥  ,   ஥    㤠.


         UXWSHO

                                   -- 215 --



UXWSHO ࠦ .  UXWSHO  뢮  ࠦ    
㣨 ࠭    ࠭,      ⨢.

UXWSHO  뢠 㭪 ஫ ࠧ襭 .
⨯:
          int uxwsho(window_pointer)
               uxwind *window_pointer;


window_pointer  ।  ᯫ뢠饥  ,   ஥  
 ࠧ.


         㭪 ஫  ࠧ襭.

᫨    ᮧ    㫨  ᯫ뢠騬    ணࠬ
짮⥫᪮  室,      ᮧ 㭪  ஫  ࠧ襭,
 㤥 ᮢ뢠 室  ࠭,   ணࠬ
   ࠧ蠥 ࠦ  ᯫ.

  ᢠ  㭪  ஫  ࠧ襭 ᯫ뢠饬 ,   
ᮧ   ணࠬ  UXWADD.   ᯫ뢠饥      
ᮡ⢥ 㭪 ஫ ࠧ襭,   ஥ ⢮
ᯫ뢠   ᯮ짮     㭪 ஫ ࠧ襭.

  SQL*Forms  蠥,      ந  ࠧ襭 ᯫ뢠饣
,   뢠 㭪 ஫  ࠧ襭    ࠧ蠥      
ᯥ稢  ଠ樥   ࠧ蠥 ⪥,  ॡ 㭪樨.

砭: 㭪 ஫ ࠧ襭 ⮫쪮 ᮢ뢠  ,
 㦭 ࠢ.
⨯:
          char *damage_function(window_pointer,x,y,h,v,
          user_parameter)
          uxwind *window_pointer
               int *x
               int *y
               int *h
               int *v
               char *user_parameter;


window_pointer
               । 㪠⥫  , ஥     ࠢ.

x              । न x 孥 
               㣫 ࠧ襭 ⪠

y              । न y 孥 
               㣫 ࠧ襭 ⪠

h              । 䨪஢ 
               ࠧ襭 ⪠  ⢥   ᨬ

v              । 䨪஢ ਭ   ࠧ襭 ⪠ 
               ⢥   ᨬ



                                   -- 216 --



user_parameter
               । ࠬ,      ।
             ଠ  ⮬,   㭪-     ᮢ. 
             ࠬ     ࠢ NULL.


         ਬ ணࠬ  ᯫ뢠饣 

 ணࠬ  몥 C ᮧ  ᯫ뢠  (window_1  
window_2)     㫨   ,   ᯮ ணࠬ    ᯫ뢠
.  ⨬,     ᯮ  㭪  ஫  ࠧ襭,
  뫠 ࠧ ࠬ  㭪.

ਬ:
#include <iapuxw.h>

#define  TRUE 1
#define  FALSE 0

/* 㭪 ਭ ᨬ  .    */
/*    襩 樮 ⥬   */

void a_pause()
{
     getchar();
}
/*  㭪 - 㭪 ஫ ࠧ襭   */
/* ⨬,  ᮮ饭, ஥ ⮡ࠦ  */
/*  ࠬ஢,  । 㭪樨   */

char *on_damag(a_window,x,y,h,v,a_param)
     uxwind a_window;
     int x,y,h,v;
     char *a_param;
{
     char tempstr1[8];
     char tempstr2[8];

     sprintf(tempstr1,"This is");
     sprintf(tempstr2,"window %d",a_param);

     uxwpus(a_window,twmpstr1,7,1,2);
     uxwpus(a_window,temostr2,8,1,4);
}
/*騩  - ⮩ ਬ ᮧ   */
/* 樨 ᯫ뢠騬    */

int win_exam()

{
     uxwin window_1,window_2;
     char a;
     char b;
     /*  window_1   */

     a='1';
     window_1=uxwadd(5,5,10,10,TRUE,on_damag,&a);


                                   -- 217 --



     /*  window_2   */

     b='2';
     window_1=uxwadd(8,8,10,10,TRUE,on_damag,&b);

     /*ᬮ  window_1   */

     xuwsho(window_1);
     a_pause();

     /*ᬮ  window_2   */

     xuwsho(window_2);
     a_pause();

     /*⠭  window_1   */

     uxwpop(window_1);
     a_pause();

     /*  window_1 ⨢   */

     uxwact(window_1);
     a_pause();

     /*  window_1   */

     uxwhid(window_1);

     /*⨬,   ணࠬ 뢠 㭪*/

     /*஫ ࠧ襭   window_2   */
     a_pause();

     /*  window_2   */

     uxwhid(window_2);
     a_pause();
     return(0);
}


               20                

    ᮤন  ଠ    ⮬,     ࠡ   ꥪ⠬
SQL*Forms.   ⭮,   墠뢠 ᫥騥 ࠧ:    * ᮣ襭
     ꥪ⮢   * 뫪  ꥪ

         襭   ꥪ⮢

ࠢ   ꥪ⮢ SQL*Forms   ᠬ,    
  ꥪ⮢  ORACLE.       ꥪ SQL*Forms:
     *     30 ᨬ
     *  稭  㪢
     *  ᮤঠ 㪢,   ᯥ樠 ᨬ $,#,@, and_
     *   㡫஢   㣮 ꥪ ⮣  ⨯( ⨬,



                                   -- 218 --



        SQL*Forms   ࠧ  訬  쪨 㪢
         ꥪ⮢)
     *   㡫஢ १ࢨ஢ ᫮ ORACLE  SQL*Forms

砭: SQL*Forms        ন    ᮣ襭     
           ORACLE    .


          
  ࠭      䠩  樮 ⥬.   㤥 筮
࠭  䠩       ७ (INP    FRM).
⥫쭮,     ᫥騬 ⠭ ᮣ襭  
ꥪ⮢,    ᮮ⢥⢮   ࠢ   
䠩    襩 樮 ⥬.
⢥ ⥬: , ࠪ⨪ 

         १ࢨ஢ ᫮

  ᯮ      ᫥ १ࢨ஢ ᫮ ORACLE, PL/SQL,
 SQL*Forms   ꥪ⮢:

ABORT   BEGIN    COMPRESS  DECLARE

ACCEPT  BETWEEN  CONNECT   DEFAULT

ACCESS  BLOCK    CONSTANT  DEFINITION

ADD     BODY     CONTAIN   DELAY

ALL     BOOLEAN  CONTAINS  DELETE

ALTER   BY       COUNT     DELTA

AND     CASE     CRASH     DESC

ANY     CHAR     CREATE    DIGITS

APPEND   CHAR_BASE   CURRENT   DISPOSE

ARRAY   CHECK   CURSOR   DISTINCT

AS             CLOSE   DATABASE   DO

ASC            CLUSTER   DATA_BASE   DOES

ASSERT         CLUSTERS   DATAPAGES   DROP

ASSIGN         COLAUTH   DATE   EACH

AT             COLUMN   DBA   ELSE

AUDIT          COLUMNS   DEBUGOFF   ELSEIF

AUTHORIZATION  COMMENT   DEBUGON   END

AVG            COMMIT   DECIMAL   ENTRY

ERASE          LEVEL   PRIOR   SUCCESSFUL

                                   -- 219 --



EVALUTE        LIKE   PRIVATE   SUM

EXCEPTION      LIMITED   PRIVILEGES   SYNONYM

EXCEPTION_INIT LIST   PROCEDURE   SYSDATE

EXCLUSIVE      LOCK   PUBLIC   SYSSORT

EXIT           LOOP   RANGE   TABAUTH

FALSE          MAX   RAW   TABLE

FETCH          MAXEXTENTS   RECORD   TABLES

FIELD          MIN   RELASE   TASK

FILE           MINUS   REM   TEMPORARY

FLOAT          MOD   RENAME   TERMINATE

FOR   MODE   RENAMES   THEN

FORM   MODIFY   RESOURCE   TO

FORMAT   MOVE   RETURN   TRIGGER

FROM   NEW   REVERSE   TRUE

FUNCTION   NOAUDIT   REVOKE   TYPE

GENERIC   NOCOMPRESS   ROLLBACK   UID

GLOBAL   NOLIST   ROW   UNION

GOTO   NOSYSSORT   ROWID   UNIQUE

GRANT   NOT   ROWNUM   UPDATE

GRAPHIC   NOWAIT   ROWS   USE

GROUP   NULL   ROWTYPE   USER

HAVING   NUMBER   RUN   USING

IDETIFIED   NUMBER_BASE   SAVEPOINT   VALIDATE

IF   OF   SCHEMA   VALUES

IMAGE   OFFLINE   SELECT   VARCHAR

IMMEDIATE   OLD   SEPARATE   VARGRAPHIC

IN   ON   SESSION   VARIANCE

INCREMENT   ONLINE   SET   VIEW

INDEX   OPEN   SHARE   VIEWS


                                   -- 220 --



INDEXED   OPTIMIZE   SIZE   WHEN

INDEXES   OPTION   SMALLINT   WHENEVER

INDEXPAGES   OR   SPACE   WHERE

INDICATOR   ORDER   SQL   WHILE

INITIAL   OTHERS   SQLCODE   WITH

INSERT   OUT   SQLERRM   WORK

INTEGER   PACKAGE   START   XOR

INTERSECT   PARTITION   STATEMENT

INTO   PCTFREE   STDDEV

IS   PRAGMA   SUBTYPE

         뫪  ꥪ

뫪  ꥪ     ᮧ    ন ꥪ   ଥ
 뫠   ꥪ  㣮 .       ᭮
ꥪ("master"),      뫪   ꥪ, । 
㣨 ଠ.  ଥ,    On-Validate-Field-ਣ,   
 ᯮ짮  ᪮쪨 ଠ,  ন ⮫쪮  .

    뫠    楤  ஢  ,   , ਣ  
,   ᠭ  㣮 ଥ  ⥪饩  .    
뫠    ﭭ  ⥪,   ꥪ,    । 
⥪饩 ଥ   ꥪ,   ।  ଥ,   
  ⥪饩  .

砭: ࠧ  뢠 ᯥ᪨ 蠣 뫪  ꥪ.
⢥ ⥬: ꥪ,    뫪

         䨪 ꥪ⮢,     뫪

    뫠    ꥪ,   SQL*Forms  ࠭稢 䨪樨,
   ᤥ  뫠 ꥪ    ꥪ
ਭ 뫠 ꥪ.

        뫠 

    뫠    ,    ⠪ 뫠  ᫥騥 ꥪ:
     *    ⮬    *    ਣ,  ।    ⮬ 
           ਣ, ।   ⮣ 

     *  ꥪ,     뫪         ꥪ, 
         뫪   

  ,       ᤥ 뫪  । ,  
  ஢  ᫥騥  ࠪ⨪ :
     *  
     * 浪 



                                   -- 221 --



     砭:      뫠   ,  SQL*Forms   ⮬᪨
     浪    뫠       ᫥騩 ᢮
   浪  ,    ⥪饩 .

     *ਨ

 ஦,          뫠 .  
     㭪樮஢ ਪ ணࠬ, ᫨  
 ,   뫠  ਣ  楤 ஢ .

    ஢    ࠪ⨪   ꥪ⮢,  
।      뫪   뫠 .

⨬,  ,   뫠  ,   뫠    
⥪⮢    ⠭,        㠫쭮 樨஢   .
(⮢ ⠭ ਭ ࠭,    ன   ।.) 
 ஢ ⥪⮢ ⠭,     뫠  .

         뫠 
    뫠    ,     ⠪  뫠   ᫥騥
ꥪ:
     *  ਣ, ਭ騥 
     *  ꥪ    뫪  

  ,        ᤥ 뫪  । ,  
  ஢  ᫥騥  ࠪ⨪ :
     *  
     *   ࠭ (X,Y   ࠭)
     * 浪 

     砭:      뫠   ,  SQL*Forms   ⮬᪨
     浪    뫠     ᫥騩 ᢮
   浪  ,    ⥪饩 .

     *ਨ

  ஦,         뫠 .   
    㭪樮஢  ਪ ணࠬ,  ᫨   
,  ஥ 뫠  ਣ  楤 ஢ .  ⨬,  
         ࠭  뫠  ,     
। 뫪    Target Object.

   ஢    ࠪ⨪  ꥪ,  ਭ-
      뫪  뫠 .

⨬, ,   뫠  ,    뫠     
⥪⮢   ⠭,       㠫쭮 樨஢   .
(⮢ ⠭ ਭ ࠭,    ன   ।.) 
 ஢ ⥪⮢ ⠭,     뫠  .

         뫠 ਣ

᫨  ।   뫪    ਣ,   
஢   ⮫쪮   ᫥騥  ࠪ⨪ ਣ:
     *  ਣ
     *  
     *  
     * ਨ

                                   -- 222 --



 ஦,          뫠 ਣ.  
   㭪樮஢ ਪ ணࠬ,  ᫨   
⨯  ਣ    ਣ,   짮⥫,   뫠
 ਣ  楤 ஢ .

         뫠 楤  ஢ 

  ᫨  ।     뫠  楤  ஢ ,    
   ஢       ࠪ⨪.


















































                                   -- 223 --
