home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / EDITQUER.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  7.6 KB  |  255 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93            EDITQUER.SPR               13:44:10 
  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. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       *********************************************************
  35.     *       *                                                         
  36.     *       *               Windows Window definitions                
  37.     *       *                                                         
  38.     *       *********************************************************
  39.     *
  40.     
  41.     IF NOT WEXIST("editquery") ;
  42.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.PJX" ;
  43.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.SCX" ;
  44.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.MNX" ;
  45.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.PRG" ;
  46.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.FRX" ;
  47.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.QPR"
  48.         DEFINE WINDOW editquery ;
  49.             AT  0.000, 0.000  ;
  50.             SIZE 13.692,80.667 ;
  51.             TITLE "Edit Query" ;
  52.             FONT "MS Sans Serif", 8 ;
  53.             STYLE "B" ;
  54.             FLOAT ;
  55.             NOCLOSE ;
  56.             SHADOW ;
  57.             MINIMIZE ;
  58.             DOUBLE
  59.         MOVE WINDOW editquery CENTER
  60.     ENDIF
  61.     
  62.     
  63.     *       *********************************************************
  64.     *       *                                                         
  65.     *       *             EDITQUER/Windows Screen Layout              
  66.     *       *                                                         
  67.     *       *********************************************************
  68.     *
  69.     
  70.     #REGION 1
  71.     IF WVISIBLE("editquery")
  72.         ACTIVATE WINDOW editquery SAME
  73.     ELSE
  74.         ACTIVATE WINDOW editquery NOSHOW
  75.     ENDIF
  76.     @ 0.846,1.833 EDIT sqlSelect ;
  77.         SIZE 12.000,68.000,0.000 ;
  78.         DEFAULT " " ;
  79.         FONT "MS Sans Serif", 8 ;
  80.         SCROLL
  81.     @ 3.077,62.000 GET ExitAction ;
  82.         PICTURE "@*VT \!Execute;Clear;\?Close" ;
  83.         SIZE 1.769,15.000,1.154 ;
  84.         DEFAULT 1 ;
  85.         FONT "MS Sans Serif", 8 ;
  86.         STYLE "B"
  87.     
  88.     IF NOT WVISIBLE("editquery")
  89.         ACTIVATE WINDOW editquery
  90.     ENDIF
  91.     
  92.     READ CYCLE MODAL ;
  93.         VALID _qfx0tfwy0() ;
  94.         WITH Results
  95.     
  96.     RELEASE WINDOW editquery
  97.     
  98.     #REGION 0
  99.     IF m.talkstat = "ON"
  100.         SET TALK ON
  101.     ENDIF
  102.     IF m.compstat = "ON"
  103.         SET COMPATIBLE ON
  104.     ENDIF
  105.     
  106.  
  107. CASE _DOS
  108.  
  109.     
  110.     #REGION 0
  111.     REGIONAL m.currarea, m.talkstat, m.compstat
  112.     
  113.     IF SET("TALK") = "ON"
  114.         SET TALK OFF
  115.         m.talkstat = "ON"
  116.     ELSE
  117.         m.talkstat = "OFF"
  118.     ENDIF
  119.     m.compstat = SET("COMPATIBLE")
  120.     SET COMPATIBLE FOXPLUS
  121.     
  122.     *       *********************************************************
  123.     *       *                                                         
  124.     *       *                MS-DOS Window definitions                
  125.     *       *                                                         
  126.     *       *********************************************************
  127.     *
  128.     
  129.     IF NOT WEXIST("editquery") ;
  130.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.PJX" ;
  131.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.SCX" ;
  132.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.MNX" ;
  133.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.PRG" ;
  134.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.FRX" ;
  135.         OR UPPER(WTITLE("EDITQUERY")) == "EDITQUERY.QPR"
  136.         DEFINE WINDOW editquery ;
  137.             FROM INT((SROW()-15)/2),INT((SCOL()-76)/2) ;
  138.             TO INT((SROW()-15)/2)+14,INT((SCOL()-76)/2)+75 ;
  139.             FLOAT ;
  140.             NOCLOSE ;
  141.             SHADOW ;
  142.             MINIMIZE ;
  143.             DOUBLE ;
  144.             COLOR SCHEME 1
  145.     ENDIF
  146.     
  147.     
  148.     *       *********************************************************
  149.     *       *                                                         
  150.     *       *              EDITQUER/MS-DOS Screen Layout              
  151.     *       *                                                         
  152.     *       *********************************************************
  153.     *
  154.     
  155.     #REGION 1
  156.     IF WVISIBLE("editquery")
  157.         ACTIVATE WINDOW editquery SAME
  158.     ELSE
  159.         ACTIVATE WINDOW editquery NOSHOW
  160.     ENDIF
  161.     @ 0,1 EDIT sqlSelect ;
  162.         SIZE 13,56,0 ;
  163.         DEFAULT " " ;
  164.         SCROLL
  165.     @ 4,58 GET ExitAction ;
  166.         PICTURE "@*VT \!Execute;Clear;\?Close" ;
  167.         SIZE 1,15,1 ;
  168.         DEFAULT 1
  169.     
  170.     IF NOT WVISIBLE("editquery")
  171.         ACTIVATE WINDOW editquery
  172.     ENDIF
  173.     
  174.     READ CYCLE MODAL ;
  175.         VALID _qfx0tfxmq() ;
  176.         WITH Results
  177.     
  178.     RELEASE WINDOW editquery
  179.     
  180.     #REGION 0
  181.     IF m.talkstat = "ON"
  182.         SET TALK ON
  183.     ENDIF
  184.     IF m.compstat = "ON"
  185.         SET COMPATIBLE ON
  186.     ENDIF
  187.     
  188.  
  189. ENDCASE
  190.  
  191.  
  192. *       *********************************************************
  193. *       *                                                         
  194. *       * _QFX0TFWY0           Read Level Valid                   
  195. *       *                                                         
  196. *       * Function Origin:                                        
  197. *       *                                                         
  198. *       *                                                         
  199. *       * From Platform:       Windows                            
  200. *       * From Screen:         EDITQUER                           
  201. *       * Called By:           READ Statement                     
  202. *       * Snippet Number:      1                                  
  203. *       *                                                         
  204. *       *********************************************************
  205. *
  206. FUNCTION _qfx0tfwy0     && Read Level Valid
  207. *
  208. * Valid Code from screen: EDITQUER
  209. *
  210. #REGION 1
  211. IF (exitaction == 1)
  212.     DO xquery WITH sqlselect
  213.     RETURN .F.
  214. ELSE
  215.     IF (exitaction == 2)
  216.         sqlselect = ""
  217.         SHOW GET sqlselect
  218.         RETURN .F.
  219.     ELSE
  220.         RETURN .T.
  221.     ENDIF
  222. ENDIF
  223.  
  224.  
  225. *       *********************************************************
  226. *       *                                                         
  227. *       * _QFX0TFXMQ           Read Level Valid                   
  228. *       *                                                         
  229. *       * Function Origin:                                        
  230. *       *                                                         
  231. *       *                                                         
  232. *       * From Platform:       MS-DOS                             
  233. *       * From Screen:         EDITQUER                           
  234. *       * Called By:           READ Statement                     
  235. *       * Snippet Number:      2                                  
  236. *       *                                                         
  237. *       *********************************************************
  238. *
  239. FUNCTION _qfx0tfxmq     && Read Level Valid
  240. *
  241. * Valid Code from screen: EDITQUER
  242. *
  243. #REGION 1
  244. IF (ExitAction == 1)
  245.     DO xQuery WITH sqlSelect
  246.     RETURN .F.
  247. ELSE
  248. IF (ExitAction == 2)
  249.     sqlSelect = ""
  250.     SHOW GET sqlSelect
  251.     RETURN .F.
  252. ELSE
  253.     RETURN .T.
  254. ENDIF
  255. ENDIF