home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / WHERE.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  9.5 KB  |  343 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93              WHERE.SPR                13:44:03 
  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("_qfx0tfqno")
  42.         DEFINE WINDOW _qfx0tfqno ;
  43.             AT  0.000, 0.000  ;
  44.             SIZE 8.385,68.000 ;
  45.             TITLE " Where " ;
  46.             FONT "MS Sans Serif", 8 ;
  47.             STYLE "B" ;
  48.             FLOAT ;
  49.             NOCLOSE ;
  50.             SHADOW ;
  51.             NOMINIMIZE ;
  52.             DOUBLE
  53.         MOVE WINDOW _qfx0tfqno CENTER
  54.     ENDIF
  55.     
  56.     
  57.     *       *********************************************************
  58.     *       *                                                         
  59.     *       *          WHERE/Windows Setup Code - SECTION 2           
  60.     *       *                                                         
  61.     *       *********************************************************
  62.     *
  63.     
  64.     #REGION 1
  65.     EXTERNAL ARRAY ColumnList
  66.     
  67.     IF (ALEN(FromList) < 2)
  68.         WAIT WINDOW "No query tables in FROM list"
  69.         RETURN
  70.     ENDIF
  71.     
  72.     DIMENSION RelOps[5]
  73.     RelOps[1] = "="
  74.     RelOps[2] = "<="
  75.     RelOps[3] = ">="
  76.     RelOps[4] = "<"
  77.     RelOps[5] = ">"
  78.     
  79.     
  80.     
  81.     *       *********************************************************
  82.     *       *                                                         
  83.     *       *               WHERE/Windows Screen Layout               
  84.     *       *                                                         
  85.     *       *********************************************************
  86.     *
  87.     
  88.     #REGION 1
  89.     IF WVISIBLE("_qfx0tfqno")
  90.         ACTIVATE WINDOW _qfx0tfqno SAME
  91.     ELSE
  92.         ACTIVATE WINDOW _qfx0tfqno NOSHOW
  93.     ENDIF
  94.     @ 2.000,1.000 GET LHS ;
  95.         PICTURE "@^" ;
  96.         FROM ColumnList ;
  97.         SIZE 1.538,29.200 ;
  98.         RANGE , ALEN(ColumnList) - 1 ;
  99.         DEFAULT 1 ;
  100.         FONT "MS Sans Serif", 8
  101.     @ 2.077,34.167 GET iRelOp ;
  102.         PICTURE "@^" ;
  103.         FROM RelOps ;
  104.         SIZE 1.538,8.000 ;
  105.         DEFAULT 1 ;
  106.         FONT "MS Sans Serif", 8
  107.     @ 2.077,26.333 GET Negate ;
  108.         PICTURE "@*C NOT" ;
  109.         SIZE 1.308,8.833 ;
  110.         DEFAULT 0 ;
  111.         FONT "MS Sans Serif", 8 ;
  112.         STYLE "B"
  113.     @ 5.615,12.833 GET ExitAction ;
  114.         PICTURE "@*HT \!OK;\?Cancel" ;
  115.         SIZE 1.769,19.000,4.000 ;
  116.         DEFAULT 1 ;
  117.         FONT "MS Sans Serif", 8 ;
  118.         STYLE "B" ;
  119.         VALID _qfx0tfr9a()
  120.     @ 2.308,42.667 GET m.r_value ;
  121.         SIZE 1.000,23.500 ;
  122.         DEFAULT " " ;
  123.         FONT "MS Sans Serif", 8 ;
  124.         STYLE "B" ;
  125.         PICTURE "@K"
  126.     
  127.     IF NOT WVISIBLE("_qfx0tfqno")
  128.         ACTIVATE WINDOW _qfx0tfqno
  129.     ENDIF
  130.     
  131.     READ CYCLE MODAL
  132.     
  133.     RELEASE WINDOW _qfx0tfqno
  134.     
  135.     #REGION 0
  136.     IF m.talkstat = "ON"
  137.         SET TALK ON
  138.     ENDIF
  139.     IF m.compstat = "ON"
  140.         SET COMPATIBLE ON
  141.     ENDIF
  142.     
  143.  
  144. CASE _DOS
  145.  
  146.     
  147.     #REGION 0
  148.     REGIONAL m.currarea, m.talkstat, m.compstat
  149.     
  150.     IF SET("TALK") = "ON"
  151.         SET TALK OFF
  152.         m.talkstat = "ON"
  153.     ELSE
  154.         m.talkstat = "OFF"
  155.     ENDIF
  156.     m.compstat = SET("COMPATIBLE")
  157.     SET COMPATIBLE FOXPLUS
  158.     
  159.     *       *********************************************************
  160.     *       *                                                         
  161.     *       *                MS-DOS Window definitions                
  162.     *       *                                                         
  163.     *       *********************************************************
  164.     *
  165.     
  166.     IF NOT WEXIST("_qfx0tfrlt")
  167.         DEFINE WINDOW _qfx0tfrlt ;
  168.             FROM INT((SROW()-9)/2),INT((SCOL()-72)/2) ;
  169.             TO INT((SROW()-9)/2)+8,INT((SCOL()-72)/2)+71 ;
  170.             TITLE " WHERE " ;
  171.             FLOAT ;
  172.             NOCLOSE ;
  173.             SHADOW ;
  174.             NOMINIMIZE ;
  175.             DOUBLE ;
  176.             COLOR SCHEME 1
  177.     ENDIF
  178.     
  179.     
  180.     *       *********************************************************
  181.     *       *                                                         
  182.     *       *           WHERE/MS-DOS Setup Code - SECTION 2           
  183.     *       *                                                         
  184.     *       *********************************************************
  185.     *
  186.     
  187.     #REGION 1
  188.     EXTERNAL ARRAY ColumnList
  189.     
  190.     IF (ALEN(FromList) < 2)
  191.         WAIT WINDOW "No query tables in FROM list"
  192.         RETURN
  193.     ENDIF
  194.     
  195.     DIMENSION RelOps[5]
  196.     RelOps[1] = "="
  197.     RelOps[2] = "<="
  198.     RelOps[3] = ">="
  199.     RelOps[4] = "<"
  200.     RelOps[5] = ">"
  201.     
  202.     
  203.     
  204.     *       *********************************************************
  205.     *       *                                                         
  206.     *       *               WHERE/MS-DOS Screen Layout                
  207.     *       *                                                         
  208.     *       *********************************************************
  209.     *
  210.     
  211.     #REGION 1
  212.     IF WVISIBLE("_qfx0tfrlt")
  213.         ACTIVATE WINDOW _qfx0tfrlt SAME
  214.     ELSE
  215.         ACTIVATE WINDOW _qfx0tfrlt NOSHOW
  216.     ENDIF
  217.     @ 1,1 GET LHS ;
  218.         PICTURE "@^" ;
  219.         FROM ColumnList ;
  220.         SIZE 3,29 ;
  221.         RANGE , ALEN(ColumnList) - 1 ;
  222.         DEFAULT 1 ;
  223.         COLOR SCHEME 1, 2
  224.     @ 1,39 GET iRelOp ;
  225.         PICTURE "@^" ;
  226.         FROM RelOps ;
  227.         SIZE 3,6 ;
  228.         DEFAULT 1 ;
  229.         COLOR SCHEME 1, 2
  230.     @ 2,31 GET Negate ;
  231.         PICTURE "@*C NOT" ;
  232.         SIZE 1,7 ;
  233.         DEFAULT 0
  234.     @ 5,14 GET ExitAction ;
  235.         PICTURE "@*HT \!OK;\?Cancel" ;
  236.         SIZE 1,19,4 ;
  237.         DEFAULT 1 ;
  238.         VALID _qfx0tfs0h()
  239.     @ 2,46 GET m.r_value ;
  240.         SIZE 1,23 ;
  241.         DEFAULT " " ;
  242.         PICTURE "@K"
  243.     
  244.     IF NOT WVISIBLE("_qfx0tfrlt")
  245.         ACTIVATE WINDOW _qfx0tfrlt
  246.     ENDIF
  247.     
  248.     READ CYCLE MODAL
  249.     
  250.     RELEASE WINDOW _qfx0tfrlt
  251.     
  252.     #REGION 0
  253.     IF m.talkstat = "ON"
  254.         SET TALK ON
  255.     ENDIF
  256.     IF m.compstat = "ON"
  257.         SET COMPATIBLE ON
  258.     ENDIF
  259.     
  260.  
  261. ENDCASE
  262.  
  263.  
  264. *       *********************************************************
  265. *       *                                                         
  266. *       * _QFX0TFR9A           ExitAction VALID                   
  267. *       *                                                         
  268. *       * Function Origin:                                        
  269. *       *                                                         
  270. *       * From Platform:       Windows                            
  271. *       * From Screen:         WHERE,     Record Number:    5     
  272. *       * Variable:            ExitAction                         
  273. *       * Called By:           VALID Clause                       
  274. *       * Object Type:         Push Button                        
  275. *       * Snippet Number:      1                                  
  276. *       *                                                         
  277. *       *********************************************************
  278. *
  279.  
  280. FUNCTION _qfx0tfr9a     &&  ExitAction VALID
  281. #REGION 1
  282. IF (exitaction == 1)
  283.     now = ALEN(wherelist)
  284.     IF (now > 1)
  285.         wherelist[now] = "AND"
  286.         DIMENSION wherelist[now + 1]
  287.     ENDIF
  288.  
  289.     now = ALEN(wherelist)
  290.     IF (negate == 1)
  291.         wherelist[now] = "NOT ("
  292.     ELSE
  293.         wherelist[now] = ""
  294.     ENDIF
  295.     wherelist[now] = wherelist[now] + columnlist[LHS];
  296.         + " " + relops[iRelOp] + " " + ALLTRIM(m.r_value)
  297.     IF (negate == 1)
  298.         wherelist[now] =  wherelist[now] + ")"
  299.     ENDIF
  300.     DIMENSION wherelist[now + 1]
  301.     wherelist[now + 1] = ""
  302. ENDIF
  303.  
  304.  
  305. *       *********************************************************
  306. *       *                                                         
  307. *       * _QFX0TFS0H           ExitAction VALID                   
  308. *       *                                                         
  309. *       * Function Origin:                                        
  310. *       *                                                         
  311. *       * From Platform:       MS-DOS                             
  312. *       * From Screen:         WHERE,     Record Number:   13     
  313. *       * Variable:            ExitAction                         
  314. *       * Called By:           VALID Clause                       
  315. *       * Object Type:         Push Button                        
  316. *       * Snippet Number:      2                                  
  317. *       *                                                         
  318. *       *********************************************************
  319. *
  320.  
  321. FUNCTION _qfx0tfs0h     &&  ExitAction VALID
  322. #REGION 1
  323. IF (ExitAction == 1)
  324.     now = ALEN(WhereList)
  325.     IF (now > 1)
  326.         WhereList[now] = "AND"
  327.         DIMENSION WhereList[now + 1]
  328.     ENDIF
  329.  
  330.     now = ALEN(WhereList)
  331.     IF (Negate == 1)
  332.         WhereList[now] = "NOT ("
  333.     ELSE
  334.         WhereList[now] = ""
  335.     ENDIF
  336.     WhereList[now] = WhereList[now] + ColumnList[LHS];
  337.         + " " + RelOps[iRelOp] + " " + alltrim(m.r_value)
  338.     IF (Negate == 1)
  339.         WhereList[now] =  WhereList[now] + ")"
  340.     ENDIF
  341.     DIMENSION WhereList[now + 1]
  342.     WhereList[now + 1] = ""
  343. ENDIF