home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / REPOERRO.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  6.2 KB  |  237 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93            REPOERRO.SPR               13:44:31 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Steven Hsu, Wayne Lampel                                
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft                            
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. PARAMETERS errtype
  19. DO CASE
  20. CASE _WINDOWS
  21.  
  22.     
  23.     *       *********************************************************
  24.     *       *                                                         
  25.     *       *         REPOERRO/Windows Setup Code - SECTION 1         
  26.     *       *                                                         
  27.     *       *********************************************************
  28.     *
  29.     
  30.     #REGION 1
  31.     PRIVATE errcode, errmesg, errtype
  32.     
  33.     errcode = .F.
  34.     errmesg = .F.
  35.     IF (ckhandle < 0)
  36.         ckhandle = 0
  37.     ENDIF
  38.     IF (errtype == -1)
  39.         errtype = dberror(ckhandle, @errmesg,@errcode)
  40.     ELSE
  41.         IF (errtype == -2)
  42.             errtype = dberror(0,  @errmesg,@errcode)
  43.         ELSE
  44.             errmesg = "Cannot retrieve error message"
  45.         ENDIF
  46.     ENDIF
  47.     errmesg = ALLTRIM(errmesg)
  48.     
  49.     
  50.     #REGION 0
  51.     REGIONAL m.currarea, m.talkstat, m.compstat
  52.     
  53.     IF SET("TALK") = "ON"
  54.         SET TALK OFF
  55.         m.talkstat = "ON"
  56.     ELSE
  57.         m.talkstat = "OFF"
  58.     ENDIF
  59.     m.compstat = SET("COMPATIBLE")
  60.     SET COMPATIBLE FOXPLUS
  61.     
  62.     *       *********************************************************
  63.     *       *                                                         
  64.     *       *               Windows Window definitions                
  65.     *       *                                                         
  66.     *       *********************************************************
  67.     *
  68.     
  69.     IF NOT WEXIST("_qfx0tgcaz")
  70.         DEFINE WINDOW _qfx0tgcaz ;
  71.             AT  0.000, 0.000  ;
  72.             SIZE 14.077,58.167 ;
  73.             FONT "MS Sans Serif", 8 ;
  74.             STYLE "B" ;
  75.             FLOAT ;
  76.             NOCLOSE ;
  77.             SHADOW ;
  78.             NOMINIMIZE ;
  79.             DOUBLE
  80.         MOVE WINDOW _qfx0tgcaz CENTER
  81.     ENDIF
  82.     
  83.     
  84.     *       *********************************************************
  85.     *       *                                                         
  86.     *       *             REPOERRO/Windows Screen Layout              
  87.     *       *                                                         
  88.     *       *********************************************************
  89.     *
  90.     
  91.     #REGION 1
  92.     IF WVISIBLE("_qfx0tgcaz")
  93.         ACTIVATE WINDOW _qfx0tgcaz SAME
  94.     ELSE
  95.         ACTIVATE WINDOW _qfx0tgcaz NOSHOW
  96.     ENDIF
  97.     @ 1.923,1.500 SAY errMesg ;
  98.         SIZE 8.077,65.800 ;
  99.         FONT "MS Sans Serif", 8 ;
  100.         PICTURE "@I"
  101.     @ 10.923,23.500 GET dummy ;
  102.         PICTURE "@*HT \! OK " ;
  103.         SIZE 2.231,11.167,1.000 ;
  104.         DEFAULT 1 ;
  105.         FONT "MS Sans Serif", 8 ;
  106.         STYLE "B"
  107.     @ 0.385,0.833 SAY "Error Code: "  ;
  108.         FONT "MS Sans Serif", 8 ;
  109.         STYLE "BT"
  110.     @ 0.385,13.000 SAY m.errcode ;
  111.         SIZE 1.000,11.167 ;
  112.         FONT "MS Sans Serif", 8 ;
  113.         STYLE "B"
  114.     
  115.     IF NOT WVISIBLE("_qfx0tgcaz")
  116.         ACTIVATE WINDOW _qfx0tgcaz
  117.     ENDIF
  118.     
  119.     READ CYCLE MODAL
  120.     
  121.     RELEASE WINDOW _qfx0tgcaz
  122.     
  123.     #REGION 0
  124.     IF m.talkstat = "ON"
  125.         SET TALK ON
  126.     ENDIF
  127.     IF m.compstat = "ON"
  128.         SET COMPATIBLE ON
  129.     ENDIF
  130.     
  131.  
  132. CASE _DOS
  133.  
  134.     
  135.     *       *********************************************************
  136.     *       *                                                         
  137.     *       *         REPOERRO/MS-DOS Setup Code - SECTION 1          
  138.     *       *                                                         
  139.     *       *********************************************************
  140.     *
  141.     
  142.     #REGION 1
  143.     PRIVATE errCode, errMesg
  144.     
  145.     errCode = .F.
  146.     errMesg = .F.
  147.     IF (ckHandle < 0)
  148.         ckHandle = 0
  149.     ENDIF
  150.     IF (errType == -1)
  151.         errType = DBError(ckHandle, @errCode, @errMesg)
  152.     ELSE
  153.     IF (errType == -2)
  154.         errType = DBError(0, @errCode, @errMesg)
  155.     ELSE
  156.         errMesg = "Cannot retrieve error message"
  157.     ENDIF
  158.     ENDIF
  159.     errMesg = ALLTRIM(errMesg)
  160.     
  161.     
  162.     #REGION 0
  163.     REGIONAL m.currarea, m.talkstat, m.compstat
  164.     
  165.     IF SET("TALK") = "ON"
  166.         SET TALK OFF
  167.         m.talkstat = "ON"
  168.     ELSE
  169.         m.talkstat = "OFF"
  170.     ENDIF
  171.     m.compstat = SET("COMPATIBLE")
  172.     SET COMPATIBLE FOXPLUS
  173.     
  174.     *       *********************************************************
  175.     *       *                                                         
  176.     *       *                MS-DOS Window definitions                
  177.     *       *                                                         
  178.     *       *********************************************************
  179.     *
  180.     
  181.     IF NOT WEXIST("_qfx0tgd7b")
  182.         DEFINE WINDOW _qfx0tgd7b ;
  183.             FROM INT((SROW()-14)/2),INT((SCOL()-59)/2) ;
  184.             TO INT((SROW()-14)/2)+13,INT((SCOL()-59)/2)+58 ;
  185.             FLOAT ;
  186.             NOCLOSE ;
  187.             SHADOW ;
  188.             NOMINIMIZE ;
  189.             DOUBLE ;
  190.             COLOR SCHEME 1
  191.     ENDIF
  192.     
  193.     
  194.     *       *********************************************************
  195.     *       *                                                         
  196.     *       *              REPOERRO/MS-DOS Screen Layout              
  197.     *       *                                                         
  198.     *       *********************************************************
  199.     *
  200.     
  201.     #REGION 1
  202.     IF WVISIBLE("_qfx0tgd7b")
  203.         ACTIVATE WINDOW _qfx0tgd7b SAME
  204.     ELSE
  205.         ACTIVATE WINDOW _qfx0tgd7b NOSHOW
  206.     ENDIF
  207.     @ 2,1 SAY errMesg ;
  208.         SIZE 7,55 ;
  209.         PICTURE "@I"
  210.     @ 10,23 GET dummy ;
  211.         PICTURE "@*HT \! OK " ;
  212.         SIZE 1,11,1 ;
  213.         DEFAULT 1
  214.     @ 0,1 SAY "Error Code: " ;
  215.         SIZE 1,12, 0
  216.     @ 0,13 SAY m.errcode ;
  217.         SIZE 1,11
  218.     
  219.     IF NOT WVISIBLE("_qfx0tgd7b")
  220.         ACTIVATE WINDOW _qfx0tgd7b
  221.     ENDIF
  222.     
  223.     READ CYCLE MODAL
  224.     
  225.     RELEASE WINDOW _qfx0tgd7b
  226.     
  227.     #REGION 0
  228.     IF m.talkstat = "ON"
  229.         SET TALK ON
  230.     ENDIF
  231.     IF m.compstat = "ON"
  232.         SET COMPATIBLE ON
  233.     ENDIF
  234.     
  235.  
  236. ENDCASE
  237.