home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / database / addqbe24.zip / QBETEST.PRG < prev    next >
Text File  |  1993-06-05  |  15KB  |  560 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 06/05/93             QBETEST.PRG               21:25:10 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Harold Chattaway                                        ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1993 Lightwave Software Engineering       ║
  10. *       ║ 3 Old Northfield Rd                                     ║
  11. *       ║ Ashby, MA  01431                                        ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _DOS
  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.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("sqltest") ;
  42.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
  43.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
  44.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
  45.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
  46.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
  47.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
  48.         DEFINE WINDOW sqltest ;
  49.             FROM INT((SROW()-21)/2),INT((SCOL()-74)/2) ;
  50.             TO INT((SROW()-21)/2)+20,INT((SCOL()-74)/2)+73 ;
  51.             TITLE "┤ Test of the Add On Query By Example  Application ├" ;
  52.             FOOTER "┤  F10=Add On Query By Example ├" ;
  53.             NOFLOAT ;
  54.             NOCLOSE ;
  55.             SHADOW ;
  56.             NOMINIMIZE ;
  57.             COLOR SCHEME 5
  58.     ENDIF
  59.     
  60.     
  61.     *       ╓─────────────────────────────────────────────────────────╖
  62.     *       ║                                                         ║
  63.     *       ║          QBETEST/MS-DOS Setup Code - SECTION 2          ║
  64.     *       ║                                                         ║
  65.     *       ╙─────────────────────────────────────────────────────────╜
  66.     *
  67.     
  68.     #REGION 1
  69.     expopt = ""
  70.     action = ""
  71.     use customer
  72.     scatter memvar memo
  73.     push key
  74.     on key label F10 do addonqbe.app with wontop(), varread()
  75.     on key label F3 do prev
  76.     on key label F4 do next
  77.     =rand(-1)
  78.     
  79.     *       ╓─────────────────────────────────────────────────────────╖
  80.     *       ║                                                         ║
  81.     *       ║              QBETEST/MS-DOS Screen Layout               ║
  82.     *       ║                                                         ║
  83.     *       ╙─────────────────────────────────────────────────────────╜
  84.     *
  85.     
  86.     #REGION 1
  87.     IF WVISIBLE("sqltest")
  88.         ACTIVATE WINDOW sqltest SAME
  89.     ELSE
  90.         ACTIVATE WINDOW sqltest NOSHOW
  91.     ENDIF
  92.     @ 2,14 GET m.custcode ;
  93.         SIZE 1,4 ;
  94.         DEFAULT 0
  95.     @ 2,31 GET custname ;
  96.         SIZE 1,30 ;
  97.         DEFAULT " "
  98.     @ 6,19 GET m.street ;
  99.         SIZE 1,35 ;
  100.         DEFAULT " "
  101.     @ 7,19 GET m.city ;
  102.         SIZE 1,15 ;
  103.         DEFAULT " "
  104.     @ 8,19 GET m.state ;
  105.         SIZE 1,2 ;
  106.         DEFAULT " "
  107.     @ 8,28 GET m.zipcode ;
  108.         SIZE 1,9 ;
  109.         DEFAULT " "
  110.     @ 9,19 GET m.phone ;
  111.         SIZE 1,13 ;
  112.         DEFAULT " " ;
  113.         PICTURE "@R (999)999-9999"
  114.     @ 13,23 GET m.lastpaymnt ;
  115.         SIZE 1,8 ;
  116.         DEFAULT {  /  /  }
  117.     @ 13,50 GET m.stmtdate ;
  118.         SIZE 1,8 ;
  119.         DEFAULT {  /  /  }
  120.     @ 14,23 GET m.stmtbal ;
  121.         SIZE 1,8 ;
  122.         DEFAULT 0
  123.     @ 14,50 GET m.chrgtax ;
  124.         SIZE 1,1 ;
  125.         DEFAULT .F.
  126.     @ 2,5 SAY "Cust #:" ;
  127.         SIZE 1,7, 0
  128.     @ 2,21 SAY "Customer:" ;
  129.         SIZE 1,9, 0
  130.     @ 1,3 TO 3,62
  131.     @ 6,11 SAY "Street:" ;
  132.         SIZE 1,7, 0
  133.     @ 7,13 SAY "City:" ;
  134.         SIZE 1,5, 0
  135.     @ 8,12 SAY "State:" ;
  136.         SIZE 1,6, 0
  137.     @ 8,23 SAY "Zip:" ;
  138.         SIZE 1,4, 0
  139.     @ 9,10 SAY "Phone #:" ;
  140.         SIZE 1,8, 0
  141.     @ 5,8 TO 10,57
  142.     @ 13,8 SAY "Last Payment:" ;
  143.         SIZE 1,13, 0
  144.     @ 13,34 SAY "Statement Date:" ;
  145.         SIZE 1,15, 0
  146.     @ 14,7 SAY "Statement Bal:" ;
  147.         SIZE 1,14, 0
  148.     @ 14,38 SAY "Charge Tax:" ;
  149.         SIZE 1,11, 0
  150.     @ 12,4 TO 15,62
  151.     @ 1,6 SAY "┤" ;
  152.         SIZE 1,1, 0
  153.     @ 1,11 SAY "├" ;
  154.         SIZE 1,1, 0
  155.     @ 5,10 SAY "┤" ;
  156.         SIZE 1,1, 0
  157.     @ 12,7 SAY "┤" ;
  158.         SIZE 1,1, 0
  159.     @ 12,21 SAY "├" ;
  160.         SIZE 1,1, 0
  161.     @ 5,24 SAY "├" ;
  162.         SIZE 1,1, 0
  163.     @ 12,8 SAY "Billing Info " ;
  164.         SIZE 1,13, 0
  165.     @ 1,7 SAY "Keys" ;
  166.         SIZE 1,4, 0
  167.     @ 5,11 SAY "Customer Info" ;
  168.         SIZE 1,13, 0
  169.     @ 17,1 GET action ;
  170.         PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
  171.         SIZE 1,12,2 ;
  172.         DEFAULT 1 ;
  173.         VALID _qgf19wsx5()
  174.     
  175.     IF NOT WVISIBLE("sqltest")
  176.         ACTIVATE WINDOW sqltest
  177.     ENDIF
  178.     
  179.     READ CYCLE
  180.     
  181.     RELEASE WINDOW sqltest
  182.     
  183.     #REGION 0
  184.     IF m.talkstat = "ON"
  185.         SET TALK ON
  186.     ENDIF
  187.     IF m.compstat = "ON"
  188.         SET COMPATIBLE ON
  189.     ENDIF
  190.     
  191.     
  192.     *       ╓─────────────────────────────────────────────────────────╖
  193.     *       ║                                                         ║
  194.     *       ║               QBETEST/MS-DOS Cleanup Code               ║
  195.     *       ║                                                         ║
  196.     *       ╙─────────────────────────────────────────────────────────╜
  197.     *
  198.     
  199.     #REGION 1
  200.     pop key
  201.     close databases
  202.     return
  203.     
  204.  
  205. CASE _WINDOWS
  206.  
  207.     
  208.     #REGION 0
  209.     REGIONAL m.currarea, m.talkstat, m.compstat
  210.     
  211.     IF SET("TALK") = "ON"
  212.         SET TALK OFF
  213.         m.talkstat = "ON"
  214.     ELSE
  215.         m.talkstat = "OFF"
  216.     ENDIF
  217.     m.compstat = SET("COMPATIBLE")
  218.     SET COMPATIBLE FOXPLUS
  219.     
  220.     *       ╓─────────────────────────────────────────────────────────╖
  221.     *       ║                                                         ║
  222.     *       ║               Windows Window definitions                ║
  223.     *       ║                                                         ║
  224.     *       ╙─────────────────────────────────────────────────────────╜
  225.     *
  226.     
  227.     IF NOT WEXIST("sqltest") ;
  228.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
  229.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
  230.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
  231.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
  232.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
  233.         OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
  234.         DEFINE WINDOW sqltest ;
  235.             AT  5.000, 5.000  ;
  236.             SIZE 26.615,93.667 ;
  237.             TITLE " Test of the Add On Query By Example  Application  F10 to Activate ADDONQBE" ;
  238.             FONT "MS Sans Serif", 8 ;
  239.             STYLE "B" ;
  240.             NOFLOAT ;
  241.             NOCLOSE ;
  242.             NOMINIMIZE ;
  243.             COLOR RGB(,,,0,0,255)
  244.         MOVE WINDOW sqltest CENTER
  245.     ENDIF
  246.     
  247.     
  248.     *       ╓─────────────────────────────────────────────────────────╖
  249.     *       ║                                                         ║
  250.     *       ║         QBETEST/Windows Setup Code - SECTION 2          ║
  251.     *       ║                                                         ║
  252.     *       ╙─────────────────────────────────────────────────────────╜
  253.     *
  254.     
  255.     #REGION 1
  256.     expopt = ""
  257.     action = ""
  258.     use customer
  259.     scatter memvar memo
  260.     push key
  261.     on key label F10 do addonqbe.app with wontop(), varread()
  262.     on key label F3 do prev
  263.     on key label F4 do next
  264.     =rand(-1)
  265.     
  266.     *       ╓─────────────────────────────────────────────────────────╖
  267.     *       ║                                                         ║
  268.     *       ║              QBETEST/Windows Screen Layout              ║
  269.     *       ║                                                         ║
  270.     *       ╙─────────────────────────────────────────────────────────╜
  271.     *
  272.     
  273.     #REGION 1
  274.     IF WVISIBLE("sqltest")
  275.         ACTIVATE WINDOW sqltest SAME
  276.     ELSE
  277.         ACTIVATE WINDOW sqltest NOSHOW
  278.     ENDIF
  279.     @ 8.231,8.500 TO 14.846,85.167 ;
  280.         PATTERN 1 ;
  281.         PEN 2, 8 ;
  282.         STYLE "32" ;
  283.         COLOR RGB(,,,0,0,255)
  284.     @ 3.154,28.500 GET m.custcode ;
  285.         SIZE 1.000,2.222 ;
  286.         DEFAULT 0 ;
  287.         FONT "Terminal", 8 ;
  288.         STYLE "B"
  289.     @ 3.231,49.167 GET custname ;
  290.         SIZE 1.000,16.667 ;
  291.         DEFAULT " " ;
  292.         FONT "Terminal", 8 ;
  293.         STYLE "B"
  294.     @ 9.077,32.333 GET m.street ;
  295.         SIZE 1.000,19.444 ;
  296.         DEFAULT " " ;
  297.         FONT "Terminal", 8 ;
  298.         STYLE "B"
  299.     @ 10.385,32.500 GET m.city ;
  300.         SIZE 1.083,14.444 ;
  301.         DEFAULT " " ;
  302.         FONT "Terminal", 8 ;
  303.         STYLE "B"
  304.     @ 11.692,32.500 GET m.state ;
  305.         SIZE 1.167,2.333 ;
  306.         DEFAULT " " ;
  307.         FONT "Terminal", 8 ;
  308.         STYLE "B"
  309.     @ 11.846,49.667 GET m.zipcode ;
  310.         SIZE 1.083,9.778 ;
  311.         DEFAULT " " ;
  312.         FONT "Terminal", 8 ;
  313.         STYLE "B"
  314.     @ 13.231,32.333 GET m.phone ;
  315.         SIZE 1.000,12.444 ;
  316.         DEFAULT " " ;
  317.         FONT "Terminal", 8 ;
  318.         STYLE "B" ;
  319.         PICTURE "@R (999)999-9999"
  320.     @ 18.615,28.667 GET m.lastpaymnt ;
  321.         SIZE 1.000,7.889 ;
  322.         DEFAULT {  /  /  } ;
  323.         FONT "Terminal", 8 ;
  324.         STYLE "B"
  325.     @ 18.385,69.167 GET m.stmtdate ;
  326.         SIZE 1.083,8.556 ;
  327.         DEFAULT {  /  /  } ;
  328.         FONT "Terminal", 8 ;
  329.         STYLE "B"
  330.     @ 20.154,28.833 GET m.stmtbal ;
  331.         SIZE 1.000,7.778 ;
  332.         DEFAULT 0 ;
  333.         FONT "Terminal", 8 ;
  334.         STYLE "B"
  335.     @ 20.000,69.333 GET m.chrgtax ;
  336.         SIZE 1.000,0.667 ;
  337.         DEFAULT .F. ;
  338.         FONT "Terminal", 8 ;
  339.         STYLE "B"
  340.     @ 3.154,16.500 SAY "Cust #:"  ;
  341.         FONT "Terminal", 9 ;
  342.         STYLE "B"
  343.     @ 3.231,34.667 SAY "Customer:"  ;
  344.         FONT "Terminal", 9 ;
  345.         STYLE "B"
  346.     @ 9.231,20.333 SAY "Street:"  ;
  347.         FONT "Terminal", 9 ;
  348.         STYLE "B"
  349.     @ 10.615,23.333 SAY "City:"  ;
  350.         FONT "Terminal", 9 ;
  351.         STYLE "B" ;
  352.         COLOR RGB(0,0,0,0,0,255)
  353.     @ 11.846,21.833 SAY "State:"  ;
  354.         FONT "Terminal", 9 ;
  355.         STYLE "B"
  356.     @ 11.846,42.500 SAY "Zip:"  ;
  357.         FONT "Terminal", 9 ;
  358.         STYLE "B"
  359.     @ 13.308,18.833 SAY "Phone #:"  ;
  360.         FONT "Terminal", 9 ;
  361.         STYLE "B"
  362.     @ 18.538,8.333 SAY "Last Payment:"  ;
  363.         FONT "Terminal", 9 ;
  364.         STYLE "B"
  365.     @ 18.462,45.833 SAY "Statement Date:"  ;
  366.         FONT "Terminal", 9 ;
  367.         STYLE "B"
  368.     @ 20.077,6.833 SAY "Statement Bal:"  ;
  369.         FONT "Terminal", 9 ;
  370.         STYLE "B"
  371.     @ 20.000,51.833 SAY "Charge Tax:"  ;
  372.         FONT "Terminal", 9 ;
  373.         STYLE "B"
  374.     @ 1.538,17.167 SAY " "  ;
  375.         FONT "MS Sans Serif", 8 ;
  376.         STYLE "BT"
  377.     @ 1.538,22.167 SAY " "  ;
  378.         FONT "MS Sans Serif", 8 ;
  379.         STYLE "BT"
  380.     @ 8.769,20.167 SAY " "  ;
  381.         FONT "MS Sans Serif", 8 ;
  382.         STYLE "BT"
  383.     @ 17.385,9.667 SAY " "  ;
  384.         FONT "MS Sans Serif", 8 ;
  385.         STYLE "BT"
  386.     @ 17.385,24.833 SAY " "  ;
  387.         FONT "MS Sans Serif", 8 ;
  388.         STYLE "BT"
  389.     @ 8.154,42.167 SAY " "  ;
  390.         FONT "MS Sans Serif", 8 ;
  391.         STYLE "BT"
  392.     @ 23.615,5.500 GET action ;
  393.         PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
  394.         SIZE 1.917,9.333,2.000 ;
  395.         DEFAULT 1 ;
  396.         FONT "Terminal", 9 ;
  397.         STYLE "B" ;
  398.         VALID _qgf19ww6i()
  399.     @ 1.923,8.667 TO 5.461,85.000 ;
  400.         PEN 2, 8 ;
  401.         STYLE "32"
  402.     @ 17.000,5.667 TO 22.077,88.000 ;
  403.         PEN 2, 8 ;
  404.         STYLE "32"
  405.     @ 1.538,13.000 SAY "Keys"  ;
  406.         FONT "Terminal", 9 ;
  407.         STYLE "B"
  408.     @ 7.692,13.667 SAY "Address" + CHR(13) + ;
  409.         ""  ;
  410.         FONT "Terminal", 9 ;
  411.         STYLE "B"
  412.     @ 16.615,10.000 SAY "Financial Info" + CHR(13) + ;
  413.         ""  ;
  414.         FONT "Terminal", 9 ;
  415.         STYLE "B"
  416.     
  417.     IF NOT WVISIBLE("sqltest")
  418.         ACTIVATE WINDOW sqltest
  419.     ENDIF
  420.     
  421.     READ CYCLE
  422.     
  423.     RELEASE WINDOW sqltest
  424.     
  425.     #REGION 0
  426.     IF m.talkstat = "ON"
  427.         SET TALK ON
  428.     ENDIF
  429.     IF m.compstat = "ON"
  430.         SET COMPATIBLE ON
  431.     ENDIF
  432.     
  433.     
  434.     *       ╓─────────────────────────────────────────────────────────╖
  435.     *       ║                                                         ║
  436.     *       ║              QBETEST/Windows Cleanup Code               ║
  437.     *       ║                                                         ║
  438.     *       ╙─────────────────────────────────────────────────────────╜
  439.     *
  440.     
  441.     #REGION 1
  442.     pop key
  443.     close databases
  444.     return
  445.     
  446.  
  447. ENDCASE
  448.  
  449.  
  450. *       ╓─────────────────────────────────────────────────────────╖
  451. *       ║                                                         ║
  452. *       ║ _QGF19WSX5           action VALID                       ║
  453. *       ║                                                         ║
  454. *       ║ Function Origin:                                        ║
  455. *       ║                                                         ║
  456. *       ║ From Platform:       MS-DOS                             ║
  457. *       ║ From Screen:         QBETEST,     Record Number:   36   ║
  458. *       ║ Variable:            action                             ║
  459. *       ║ Called By:           VALID Clause                       ║
  460. *       ║ Snippet Number:      1                                  ║
  461. *       ║                                                         ║
  462. *       ╙─────────────────────────────────────────────────────────╜
  463. *
  464. FUNCTION _qgf19wsx5     &&  action VALID
  465. #REGION 1
  466. do case
  467.    case action = "Next"
  468.       do next
  469.  
  470.    case action = "Prev"
  471.       do prev
  472.  
  473.    case action = "Top"
  474.       go top
  475.       scatter memvar memo
  476.       show gets
  477.       wait "Top of File..." window nowait
  478.  
  479.    case action = "Bottom"
  480.       go bottom
  481.       scatter memvar memo
  482.       show gets
  483.       wait "Bottom of File..." window nowait
  484.  
  485.    case action = "Quit"
  486.       clear read
  487.  
  488. endcase
  489.  
  490.  
  491. *       ╓─────────────────────────────────────────────────────────╖
  492. *       ║                                                         ║
  493. *       ║ _QGF19WW6I           action VALID                       ║
  494. *       ║                                                         ║
  495. *       ║ Function Origin:                                        ║
  496. *       ║                                                         ║
  497. *       ║ From Platform:       Windows                            ║
  498. *       ║ From Screen:         QBETEST,     Record Number:   67   ║
  499. *       ║ Variable:            action                             ║
  500. *       ║ Called By:           VALID Clause                       ║
  501. *       ║ Snippet Number:      2                                  ║
  502. *       ║                                                         ║
  503. *       ╙─────────────────────────────────────────────────────────╜
  504. *
  505. FUNCTION _qgf19ww6i     &&  action VALID
  506. #REGION 1
  507. do case
  508.    case action = "Next"
  509.       do next
  510.  
  511.    case action = "Prev"
  512.       do prev
  513.  
  514.    case action = "Top"
  515.       go top
  516.       scatter memvar memo
  517.       show gets
  518.       wait "Top of File..." window nowait
  519.  
  520.    case action = "Bottom"
  521.       go bottom
  522.       scatter memvar memo
  523.       show gets
  524.       wait "Bottom of File..." window nowait
  525.  
  526.    case action = "Quit"
  527.       clear read
  528.  
  529. endcase
  530.  
  531.  
  532.  
  533. *       ╓─────────────────────────────────────────────────────────╖
  534. *       ║                                                         ║
  535. *       ║  QBETEST/Windows Supporting Procedures and Functions    ║
  536. *       ║                                                         ║
  537. *       ╙─────────────────────────────────────────────────────────╜
  538. *
  539.  
  540. #REGION 1
  541. procedure next
  542. if !eof()
  543.    skip
  544. else
  545.    go bottom
  546. endif
  547. scatter memvar memo
  548. show gets
  549. return
  550.  
  551. procedure prev
  552. if !bof()
  553.   skip -1
  554. else
  555.   go top
  556. endif
  557. scatter memvar memo
  558. show gets
  559. return
  560.