Liren Large Software Subsidy 5/05.iso/a/a085/1.ddi/EXP6_3.PRG

Text File | 1994-01-10 | 7.4 KB | 269 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP6_3.PRG                                           ⌐ª
*⌐ª     Function: ╩╣╙├╧┬└¡▒φ┴╨╫≈║║╫╓╕¿╓·╩Σ╚δ┤░┐┌╡─╩²╛▌┬╝╚δ╖╢└²╚²       ⌐ª
*⌐ª   DBF & File: PERSONAL.DBF    PERSONAL.FPT                         ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET TALK OFF
SET SAFETY OFF
SET DATE ANSI
SET SCOREBOARD OFF
SET ESCAPE ON

PUBLIC MYWORD
PRIVATE ADD_MEM
STORE SPACE(1) TO ADD_MEM
STORE SPACE(8) TO MYWORD

ON ERROR DO ERR_2 WITH PROGRAM(),LINENO(),ERROR(),MESSAGE(1),MESSAGE()
* │÷┤φ╩▒, ╡≈╙├┤φ╬≤┤ª└φ│╠╨≥:ERR_2.PRG.

SELECT 1
USE PERSONAL
COPY TO PERSADD STRUCTURE
USE
DO WHILE .T.
   SELECT 1
   USE PERSADD
   SET COLOR TO W/N
   CLEAR
   APPEND BLANK
   STORE RECNO() TO SS
   N = 0
   STORE " " TO ANSWER_1
   SET COLOR TO W/B,W/R
   DO BOX
   SET COLOR TO W/R

   @ N+3,   2  GET  A1  PICTURE "99999999"
   READ
   DBNAME="DICFIL02"
   DO GETLIST
   REPLACE A2 WITH MYWORD
   @ N+3,  12  SAY  A2  PICTURE "XXXXXXXXXXXXXXXX"

   DBNAME="DICFIL03"
   DO GETLIST
   REPLACE A3 WITH MYWORD
   @ N+3,  30  SAY  A3  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL04"
   DO GETLIST
   REPLACE A4 WITH MYWORD
   @ N+3,  42  SAY  A4  PICTURE "XXXXXXXXXX"
   @ N+7,   2  GET  A5  PICTURE "XXXXXXXX"
   READ

   DBNAME="DICFIL06"
   DO GETLIST
   REPLACE A6 WITH MYWORD
   @ N+7,  13  SAY  A6  PICTURE "XX"

   DBNAME="DICFIL07"
   DO GETLIST
   REPLACE A7 WITH MYWORD
   @ N+7,  18  SAY  A7  PICTURE "XXXXXX"

   DBNAME="DICFIL08"
   DO GETLIST
   REPLACE A8 WITH MYWORD
   @ N+7,  26  SAY  A8  PICTURE "XXXXXX"
   @ N+7,  34  GET  A9  PICTURE "@D"
   READ

   DBNAME="DICFIL10"
   DO GETLIST
   REPLACE A10 WITH MYWORD
   @ N+7,  44  SAY A10  PICTURE "XXXXXXXX"
   @ N+11,  2  GET A11  PICTURE "@D"
   @ N+11, 12  GET A12  PICTURE "999.99"
   READ

   DBNAME="DICFIL13"
   DO GETLIST
   REPLACE A13 WITH MYWORD
   @ N+11, 20  SAY A13  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL14"
   DO GETLIST
   REPLACE A14 WITH MYWORD
   @ N+11, 32  SAY A14  PICTURE "XXXXXXXXXX"
   @ N+11, 44  GET A15  PICTURE "@D"
   READ

   DBNAME="DICFIL16"
   DO GETLIST
   REPLACE A16 WITH MYWORD
   @ N+15,  2  SAY A16  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL17"
   DO GETLIST
   REPLACE A17 WITH MYWORD
   @ N+15, 15  SAY A17  PICTURE "XXXXXX"

   @ N+15, 24  GET A18  PICTURE "@D"
   READ

   DBNAME="DICFIL19"
   DO GETLIST
   REPLACE A19 WITH MYWORD
   @ N+15, 38  SAY A19  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL20"
   DO GETLIST
   REPLACE A20 WITH MYWORD
   @ N+19,  2  SAY A20  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL21"
   DO GETLIST
   REPLACE A21 WITH MYWORD
   @ N+19, 14  SAY A21  PICTURE "XXXXXXXXXX"

   DBNAME="DICFIL22"
   DO GETLIST
   REPLACE A22 WITH MYWORD
   @ N+19, 26  SAY A22  PICTURE "XXXXXX"

   DBNAME="DICFIL23"
   DO GETLIST
   REPLACE A23 WITH MYWORD
   @ N+19, 38  SAY A23  PICTURE "XXXXXXXXXX"
   @ N+23,  7  GET A24  PICTURE "L"
   READ

   SET COLOR TO +W/R
   @ 24, 56 SAY "╩╟╖±╩Σ╚δ╣ñ╫≈╛¡└·?(Y/N)"
   @ 24, 78 GET ADD_MEM PICTURE "!"
   READ
   SET COLOR TO +W/R
   IF ADD_MEM="Y"
      CLEAR
      CHANGE FOR RECNO()=SS FIELDS NOTE
   ENDIF
   @ 24, 56 SAY "╩╟╖±╝╠╨°╘÷╝╙╝╟┬╝?(Y/N)" GET ANSWER_1 PICTURE "L"
   READ
   CLEAR
   SET COLOR TO W
   IF UPPER(ANSWER_1)="Y"
      LOOP
   ELSE
      EXIT
   ENDIF
ENDDO

USE PERSADD
DO WHILE .NOT.EOF()
   CLEAR
   N = 0
   SET COLOR TO W/B,W/5
   DO BOX
   @ N+3 ,  2 GET A1   PICTURE "99999999"
   @ N+3 , 12 GET A2   PICTURE "XXXXXXXXXXXXXXXX"
   @ N+3 , 30 GET A3   PICTURE "XXXXXXXXXX"
   @ N+3 , 42 GET A4   PICTURE "XXXXXXXXXX"
   @ N+7 ,  2 GET A5   PICTURE "XXXXXXXX"
   @ N+7 , 13 GET A6   PICTURE "XX"
   @ N+7 , 18 GET A7   PICTURE "XXXXXX"
   @ N+7 , 26 GET A8   PICTURE "XXXXXX"
   @ N+7 , 34 GET A9   PICTURE "@D"
   @ N+7 , 44 GET A10  PICTURE "XXXXXXXX"
   @ N+11,  2 GET A11  PICTURE "@D"
   @ N+11, 12 GET A12  PICTURE "999.99"
   @ N+11, 20 GET A13  PICTURE "XXXXXXXXXX"
   @ N+11, 32 GET A14  PICTURE "XXXXXXXXXX"
   @ N+11, 44 GET A15  PICTURE "@D"
   @ N+15,  2 GET A16  PICTURE "XXXXXXXXXX"
   @ N+15, 15 GET A17  PICTURE "XXXXXX"
   @ N+15, 24 GET A18  PICTURE "@D"
   @ N+15, 38 GET A19  PICTURE "XXXXXXXXXX"
   @ N+19,  2 GET A20  PICTURE "XXXXXXXXXX"
   @ N+19, 14 GET A21  PICTURE "XXXXXXXXXX"
   @ N+19, 26 GET A22  PICTURE "XXXXXX"
   @ N+19, 38 GET A23  PICTURE "XXXXXXXXXX"
   @ N+23,  7 GET A24  PICTURE "L"
   READ
   @ 24 , 56 SAY "╝╠╨°▓Θíó╕─╝╟┬╝?(Y/N)  " GET ANSWER_1 PICTURE "L"
   READ
   CLEAR
   SET COLOR TO W
   IF UPPER(ANSWER_1)="Y"
      SKIP
      LOOP
   ELSE
      EXIT
   ENDIF
ENDDO
CLEAR
STORE " " TO ANSWER_2
SET COLOR TO +W/R
@  9, 13 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
@ 10, 13 SAY "⌐ª                                              ⌐ª"
@ 11, 13 SAY "⌐ª    ╨┬╩Σ╚δ╡─╝╟┬╝╩╟╖±╥¬╝╙╡╜╩²╛▌┐Γ╓╨ ?(Y/N):    ⌐ª"
@ 12, 13 SAY "⌐ª                                              ⌐ª"
@ 13, 13 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
@ 11, 60 GET ANSWER_2 PICTURE "L"
READ
CLEAR
IF UPPER(ANSWER_2)="Y"
   SET COLOR TO W/R
   @ 11 , 13 SAY "  ╒² ╘┌ ╢╘ ╩² ╛▌ ┐Γ ╫╖ ╝╙ ╝╟ ┬╝, ╟δ ╡╚ ┤² !  "
   USE PERSONAL
   APPEND FROM PERSADD
ENDIF
CLOSE DATABASE
ERASE PERSADD.DBF
ERASE PERSADD.FPT
SET COLOR TO W
CLEAR
ON ERROR
RETURN

PROCEDURE BOX
@ N   , 0 SAY "⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤"
@ N+1 , 0 SAY "⌐ª ▒α  ║┼ ⌐ª   ╡Ñ     ╬╗    ⌐ª  ▓┐  ├┼  ⌐ª  ┤ª  ╩╥  ⌐ª"
@ N+2 , 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+3 , 0 SAY "⌐ª        ⌐ª                ⌐ª          ⌐ª          ⌐ª"
@ N+4 , 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╨⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+5 , 0 SAY "⌐ª ╨╒  ├√ ⌐ª╨╘▒≡⌐ª ├±╫σ ⌐ª ╝«╣ß ⌐ª│÷╔·╚╒╞┌⌐ª╒■╓╬├µ├▓⌐ª"
@ N+6 , 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+7 , 0 SAY "⌐ª        ⌐ª    ⌐ª      ⌐ª      ⌐ª        ⌐ª        ⌐ª"
@ N+8 , 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐╨⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+9 , 0 SAY "⌐ª╣ñ╫≈╩▒╝Σ⌐ª╣ñ╫╩╝╢⌐ª ╨╨╒■╓░╬± ⌐ª ╫¿╥╡╓░╬± ⌐ª╞└╢¿╩▒╝Σ⌐ª"
@ N+10, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+11, 0 SAY "⌐ª        ⌐ª      ⌐ª          ⌐ª          ⌐ª        ⌐ª"
@ N+12, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐╪⌐ñ⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+13, 0 SAY "⌐ª ╞└╢¿╡Ñ╬╗ ⌐ª╬─╗»│╠╢╚⌐ª▒╧╥╡╩▒╝Σ⌐ª   ▒╧ ╥╡ ╘║ ╨ú    ⌐ª"
@ N+14, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+15, 0 SAY "⌐ª          ⌐ª        ⌐ª        ⌐ª                  ⌐ª"
@ N+16, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐╪⌐╨⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+17, 0 SAY "⌐ª ╦∙╤º╫¿╥╡ ⌐ª ┤╙╩┬╣ñ╫≈ ⌐ª╦∙╤º═Γ╙∩⌐ª  ═Γ ╙∩ │╠ ╢╚   ⌐ª"
@ N+18, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+19, 0 SAY "⌐ª          ⌐ª          ⌐ª        ⌐ª                ⌐ª"
@ N+20, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+21, 0 SAY "⌐ª ╘°╖±│÷╣· ⌐ª            ▒╕     ╫ó                 ⌐ª"
@ N+22, 0 SAY "⌐└⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐α⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╚"
@ N+23, 0 SAY "⌐ª          ⌐ª                                      ⌐ª"
@ N+24, 0 SAY "⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╪⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝"
RETURN

PROCEDURE CHEC_NU
XH=NU1
SELECT 2
USE PERSONAL
DO WHILE .NOT. EOF()
   IF XH = NU1
      RETURN .F.
   ENDIF
   SKIP
ENDDO
USE
SELECT 1
RETURN .T.

PROCEDURE STOP
CLOSE DATABASE
ERASE PERSADD.DBF
ERASE PERSADD.FPT
SET COLOR TO W
CLEAR
RETURN