home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
database
/
addqbe24.zip
/
QBETEST.PRG
< prev
next >
Wrap
Text File
|
1993-06-05
|
15KB
|
560 lines
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ 06/05/93 QBETEST.PRG 21:25:10 ║
* ║ ║
* ╟─────────────────────────────────────────────────────────╢
* ║ ║
* ║ Harold Chattaway ║
* ║ ║
* ║ Copyright (c) 1993 Lightwave Software Engineering ║
* ║ 3 Old Northfield Rd ║
* ║ Ashby, MA 01431 ║
* ║ ║
* ║ Description: ║
* ║ This program was automatically generated by GENSCRN. ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
DO CASE
CASE _DOS
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ MS-DOS Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("sqltest") ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
DEFINE WINDOW sqltest ;
FROM INT((SROW()-21)/2),INT((SCOL()-74)/2) ;
TO INT((SROW()-21)/2)+20,INT((SCOL()-74)/2)+73 ;
TITLE "┤ Test of the Add On Query By Example Application ├" ;
FOOTER "┤ F10=Add On Query By Example ├" ;
NOFLOAT ;
NOCLOSE ;
SHADOW ;
NOMINIMIZE ;
COLOR SCHEME 5
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Setup Code - SECTION 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
expopt = ""
action = ""
use customer
scatter memvar memo
push key
on key label F10 do addonqbe.app with wontop(), varread()
on key label F3 do prev
on key label F4 do next
=rand(-1)
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest SAME
ELSE
ACTIVATE WINDOW sqltest NOSHOW
ENDIF
@ 2,14 GET m.custcode ;
SIZE 1,4 ;
DEFAULT 0
@ 2,31 GET custname ;
SIZE 1,30 ;
DEFAULT " "
@ 6,19 GET m.street ;
SIZE 1,35 ;
DEFAULT " "
@ 7,19 GET m.city ;
SIZE 1,15 ;
DEFAULT " "
@ 8,19 GET m.state ;
SIZE 1,2 ;
DEFAULT " "
@ 8,28 GET m.zipcode ;
SIZE 1,9 ;
DEFAULT " "
@ 9,19 GET m.phone ;
SIZE 1,13 ;
DEFAULT " " ;
PICTURE "@R (999)999-9999"
@ 13,23 GET m.lastpaymnt ;
SIZE 1,8 ;
DEFAULT { / / }
@ 13,50 GET m.stmtdate ;
SIZE 1,8 ;
DEFAULT { / / }
@ 14,23 GET m.stmtbal ;
SIZE 1,8 ;
DEFAULT 0
@ 14,50 GET m.chrgtax ;
SIZE 1,1 ;
DEFAULT .F.
@ 2,5 SAY "Cust #:" ;
SIZE 1,7, 0
@ 2,21 SAY "Customer:" ;
SIZE 1,9, 0
@ 1,3 TO 3,62
@ 6,11 SAY "Street:" ;
SIZE 1,7, 0
@ 7,13 SAY "City:" ;
SIZE 1,5, 0
@ 8,12 SAY "State:" ;
SIZE 1,6, 0
@ 8,23 SAY "Zip:" ;
SIZE 1,4, 0
@ 9,10 SAY "Phone #:" ;
SIZE 1,8, 0
@ 5,8 TO 10,57
@ 13,8 SAY "Last Payment:" ;
SIZE 1,13, 0
@ 13,34 SAY "Statement Date:" ;
SIZE 1,15, 0
@ 14,7 SAY "Statement Bal:" ;
SIZE 1,14, 0
@ 14,38 SAY "Charge Tax:" ;
SIZE 1,11, 0
@ 12,4 TO 15,62
@ 1,6 SAY "┤" ;
SIZE 1,1, 0
@ 1,11 SAY "├" ;
SIZE 1,1, 0
@ 5,10 SAY "┤" ;
SIZE 1,1, 0
@ 12,7 SAY "┤" ;
SIZE 1,1, 0
@ 12,21 SAY "├" ;
SIZE 1,1, 0
@ 5,24 SAY "├" ;
SIZE 1,1, 0
@ 12,8 SAY "Billing Info " ;
SIZE 1,13, 0
@ 1,7 SAY "Keys" ;
SIZE 1,4, 0
@ 5,11 SAY "Customer Info" ;
SIZE 1,13, 0
@ 17,1 GET action ;
PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
SIZE 1,12,2 ;
DEFAULT 1 ;
VALID _qgf19wsx5()
IF NOT WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest
ENDIF
READ CYCLE
RELEASE WINDOW sqltest
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/MS-DOS Cleanup Code ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
pop key
close databases
return
CASE _WINDOWS
#REGION 0
REGIONAL m.currarea, m.talkstat, m.compstat
IF SET("TALK") = "ON"
SET TALK OFF
m.talkstat = "ON"
ELSE
m.talkstat = "OFF"
ENDIF
m.compstat = SET("COMPATIBLE")
SET COMPATIBLE FOXPLUS
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ Windows Window definitions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
IF NOT WEXIST("sqltest") ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PJX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.SCX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.MNX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.PRG" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.FRX" ;
OR UPPER(WTITLE("SQLTEST")) == "SQLTEST.QPR"
DEFINE WINDOW sqltest ;
AT 5.000, 5.000 ;
SIZE 26.615,93.667 ;
TITLE " Test of the Add On Query By Example Application F10 to Activate ADDONQBE" ;
FONT "MS Sans Serif", 8 ;
STYLE "B" ;
NOFLOAT ;
NOCLOSE ;
NOMINIMIZE ;
COLOR RGB(,,,0,0,255)
MOVE WINDOW sqltest CENTER
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Setup Code - SECTION 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
expopt = ""
action = ""
use customer
scatter memvar memo
push key
on key label F10 do addonqbe.app with wontop(), varread()
on key label F3 do prev
on key label F4 do next
=rand(-1)
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Screen Layout ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
IF WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest SAME
ELSE
ACTIVATE WINDOW sqltest NOSHOW
ENDIF
@ 8.231,8.500 TO 14.846,85.167 ;
PATTERN 1 ;
PEN 2, 8 ;
STYLE "32" ;
COLOR RGB(,,,0,0,255)
@ 3.154,28.500 GET m.custcode ;
SIZE 1.000,2.222 ;
DEFAULT 0 ;
FONT "Terminal", 8 ;
STYLE "B"
@ 3.231,49.167 GET custname ;
SIZE 1.000,16.667 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B"
@ 9.077,32.333 GET m.street ;
SIZE 1.000,19.444 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B"
@ 10.385,32.500 GET m.city ;
SIZE 1.083,14.444 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B"
@ 11.692,32.500 GET m.state ;
SIZE 1.167,2.333 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B"
@ 11.846,49.667 GET m.zipcode ;
SIZE 1.083,9.778 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B"
@ 13.231,32.333 GET m.phone ;
SIZE 1.000,12.444 ;
DEFAULT " " ;
FONT "Terminal", 8 ;
STYLE "B" ;
PICTURE "@R (999)999-9999"
@ 18.615,28.667 GET m.lastpaymnt ;
SIZE 1.000,7.889 ;
DEFAULT { / / } ;
FONT "Terminal", 8 ;
STYLE "B"
@ 18.385,69.167 GET m.stmtdate ;
SIZE 1.083,8.556 ;
DEFAULT { / / } ;
FONT "Terminal", 8 ;
STYLE "B"
@ 20.154,28.833 GET m.stmtbal ;
SIZE 1.000,7.778 ;
DEFAULT 0 ;
FONT "Terminal", 8 ;
STYLE "B"
@ 20.000,69.333 GET m.chrgtax ;
SIZE 1.000,0.667 ;
DEFAULT .F. ;
FONT "Terminal", 8 ;
STYLE "B"
@ 3.154,16.500 SAY "Cust #:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 3.231,34.667 SAY "Customer:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 9.231,20.333 SAY "Street:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 10.615,23.333 SAY "City:" ;
FONT "Terminal", 9 ;
STYLE "B" ;
COLOR RGB(0,0,0,0,0,255)
@ 11.846,21.833 SAY "State:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 11.846,42.500 SAY "Zip:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 13.308,18.833 SAY "Phone #:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 18.538,8.333 SAY "Last Payment:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 18.462,45.833 SAY "Statement Date:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 20.077,6.833 SAY "Statement Bal:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 20.000,51.833 SAY "Charge Tax:" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 1.538,17.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 1.538,22.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 8.769,20.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 17.385,9.667 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 17.385,24.833 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 8.154,42.167 SAY " " ;
FONT "MS Sans Serif", 8 ;
STYLE "BT"
@ 23.615,5.500 GET action ;
PICTURE "@*HN \<Next;\<Prev;\<Top ;\<Bottom;\<Quit" ;
SIZE 1.917,9.333,2.000 ;
DEFAULT 1 ;
FONT "Terminal", 9 ;
STYLE "B" ;
VALID _qgf19ww6i()
@ 1.923,8.667 TO 5.461,85.000 ;
PEN 2, 8 ;
STYLE "32"
@ 17.000,5.667 TO 22.077,88.000 ;
PEN 2, 8 ;
STYLE "32"
@ 1.538,13.000 SAY "Keys" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 7.692,13.667 SAY "Address" + CHR(13) + ;
"" ;
FONT "Terminal", 9 ;
STYLE "B"
@ 16.615,10.000 SAY "Financial Info" + CHR(13) + ;
"" ;
FONT "Terminal", 9 ;
STYLE "B"
IF NOT WVISIBLE("sqltest")
ACTIVATE WINDOW sqltest
ENDIF
READ CYCLE
RELEASE WINDOW sqltest
#REGION 0
IF m.talkstat = "ON"
SET TALK ON
ENDIF
IF m.compstat = "ON"
SET COMPATIBLE ON
ENDIF
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Cleanup Code ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
pop key
close databases
return
ENDCASE
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _QGF19WSX5 action VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Platform: MS-DOS ║
* ║ From Screen: QBETEST, Record Number: 36 ║
* ║ Variable: action ║
* ║ Called By: VALID Clause ║
* ║ Snippet Number: 1 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _qgf19wsx5 && action VALID
#REGION 1
do case
case action = "Next"
do next
case action = "Prev"
do prev
case action = "Top"
go top
scatter memvar memo
show gets
wait "Top of File..." window nowait
case action = "Bottom"
go bottom
scatter memvar memo
show gets
wait "Bottom of File..." window nowait
case action = "Quit"
clear read
endcase
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ _QGF19WW6I action VALID ║
* ║ ║
* ║ Function Origin: ║
* ║ ║
* ║ From Platform: Windows ║
* ║ From Screen: QBETEST, Record Number: 67 ║
* ║ Variable: action ║
* ║ Called By: VALID Clause ║
* ║ Snippet Number: 2 ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
FUNCTION _qgf19ww6i && action VALID
#REGION 1
do case
case action = "Next"
do next
case action = "Prev"
do prev
case action = "Top"
go top
scatter memvar memo
show gets
wait "Top of File..." window nowait
case action = "Bottom"
go bottom
scatter memvar memo
show gets
wait "Bottom of File..." window nowait
case action = "Quit"
clear read
endcase
* ╓─────────────────────────────────────────────────────────╖
* ║ ║
* ║ QBETEST/Windows Supporting Procedures and Functions ║
* ║ ║
* ╙─────────────────────────────────────────────────────────╜
*
#REGION 1
procedure next
if !eof()
skip
else
go bottom
endif
scatter memvar memo
show gets
return
procedure prev
if !bof()
skip -1
else
go top
endif
scatter memvar memo
show gets
return