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

Text File | 1994-01-12 | 5.6 KB | 170 lines

*⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
*⌐ª      Program: EXP19_2.PRG                                          ⌐ª
*⌐ª     Function: ╩╣╙├▒╕╫ó╫╓╢╬╜°╨╨═╝╧≤┤ª└φ                             ⌐ª
*⌐ª   DBF & File: PERSONAL.DBF     PERSONAL.FPT                        ⌐ª
*⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
SET TALK   OFF
SET SAFETY OFF
CLOSE ALL

* ╢¿╥σ▓╦╡Ñ
DEFINE WINDOW panel2 FROM 0, 63 TO 12,78 ;
       FLOAT SHADOW COLOR SCHEME 5
* ┤≥┐¬╚╦╘▒┐Γ
USE PERSONAL

m.saverecno = RECNO()
GO TOP
m.toprec = RECNO()
GO BOTTOM
m.bottomrec = RECNO()
GO m.saverecno

* ╧╚╧╘╩╛╚╦╘▒┐Γ╡─╩╫╝╟┬╝, ╚╗║≤╞⌠╢» Push Button, ╤í╘±╥¬╧╘╩╛╡─╝╟┬╝
DO SHOW
ACTIVATE WINDOW panel2
@ 1,1 GET act PICTURE "@*VN \<1.╡┌╥╗╧ε;\<2.╟░╥╗╧ε;"+;
                      "\<3.╧┬╥╗╧ε;\<4.╫ε║≤╧ε;\?\<5.═╦  │÷" ;
           SIZE 1,12,1 DEFAULT 0 VALID actvalid()
READ CYCLE SHOW refresh()
RELEASE WINDOWS panel2
SET COLOR TO W/N
CLEAR
CLOSE ALL
CLEAR ALL
RETURN

FUNCTION actvalid
DO CASE
CASE act = 1
     GO TOP
     * ╩╟╩╫╝╟┬╝, ▓╗─▄╘┘╤í 1, 2 ╧ε
     SHOW GET act, 1 DISABLE
     SHOW GET act, 2 DISABLE
     SHOW GET act, 3 ENABLE
     SHOW GET act, 4 ENABLE
     DEACTIVATE WINDOW panel2
     DO SHOW
     ACTIVATE WINDOW panel2
CASE ACT = 2
     SHOW GETS ENABLE
     SKIP -1
     DEACTIVATE WINDOW panel
     DO SHOW
     ACTIVATE WINDOW panel2
     * ┼╨╢╧╚τ╣√╡╜╩╫╝╟┬╝, ╘≥▓╗─▄╘┘╤í 1, 2 ╧ε
     IF RECNO() = m.toprec
        SHOW GET act, 1 DISABLE
        SHOW GET act, 2 DISABLE
        SHOW GET act, 3 ENABLE
        SHOW GET act, 4 ENABLE
        GO TOP
     ENDIF
CASE ACT = 3
     SHOW GETS ENABLE
     SKIP 1
     DEACTIVATE WINDOW panel
     DO SHOW
     ACTIVATE WINDOW panel2
     * ┼╨╢╧╚τ╣√╡╜┴╦╫ε║≤╥╗╕÷╝╟┬╝, ╘≥▓╗─▄╘┘╤í 3, 4 ╧ε
     IF RECNO() = m.bottomrec
        SHOW GET act, 1 ENABLE
        SHOW GET act, 2 ENABLE
        SHOW GET act, 3 DISABLE
        SHOW GET act, 4 DISABLE
        GO BOTTOM
     ENDIF
CASE act = 4
     GO BOTTOM
     * ╫ε║≤╥╗╕÷╝╟┬╝, ▓╗─▄╘┘╤í 3, 4 ╧ε
     SHOW GET act, 1 ENABLE
     SHOW GET act, 2 ENABLE
     SHOW GET act, 3 DISABLE
     SHOW GET act, 4 DISABLE
     DEACTIVATE WINDOW panel
     DO SHOW
     ACTIVATE WINDOW panel2
CASE act = 5
     CLEAR READ
ENDCASE
SHOW GETS
RETURN 0

FUNCTION refresh
STORE WOUTPUT() TO currwind
IF NOT EMPTY(currwind)
   ACTIVATE WINDOW (currwind) SAME
ENDIF
RETURN .T.

PROCEDURE SHOW
DEACTIVATE WINDOW panel2
DO SHELL                  && ╡≈╙├╧╘╩╛═╝┐≥╡─╫╙─ú┐Θ
SET COLOR TO +W/R,+W/R

* ░╤┤ó┤µ═╝╧≤╡─▒╕╫ó╫╓╢╬ PHOTO ┐╜▒┤╡╜╬─╝■ PHOTNAME.IMG ╓╨
COPY MEMO PHOTO TO PHOTNAME.IMG
* ╙├ PHOTO.EXE ╧╘╩╛═╝╧≤
RUN PHOTO D F:PHOTNAME.IMG, X:41, Y:18
N=0
* ╧╘╩╛╡▒╟░╝╟┬╝
@ N+3 ,  2 SAY A1 PICTURE "99999999"
@ N+3 , 12 SAY A2 PICTURE "XXXXXXXXXXXXXXXX"
@ N+3 , 30 SAY A3 PICTURE "XXXXXXXXXX"
@ N+7 ,  2 SAY A4 PICTURE "XXXXXXXXXX"
@ N+7 , 14 SAY A5 PICTURE "XXXXXXXX"
@ N+7 , 24 SAY A6 PICTURE "XX"
@ N+7 , 28 SAY A7 PICTURE "XXXXXX"
@ N+7 , 34 SAY A8 PICTURE "XXXXXX"
@ N+11,  2 SAY A9 PICTURE "@D"
@ N+11, 12 SAY A10 PICTURE "XXXXXXXX"
@ N+11, 22 SAY A11 PICTURE "@D"
@ N+11, 32 SAY A12 PICTURE "999.99"
@ N+15,  2 SAY A13 PICTURE "XXXXXXXXXX"
@ N+15, 14 SAY A14 PICTURE "XXXXXXXXXX"
@ N+15, 26 SAY A15 PICTURE "@D"
@ N+15, 36 SAY A16 PICTURE "XXXXXXXXXX"
@ N+15, 49 SAY A17 PICTURE "XXXXXX"
@ N+19,  3 SAY A18 PICTURE "@D"
@ N+19, 14 SAY A19 PICTURE "XXXXXXXXXX"
@ N+19, 30 SAY A20 PICTURE "XXXXXXXXXX"
@ N+19, 44 SAY A21 PICTURE "XXXXXXXXXX"
@ N+23,  3 SAY A22 PICTURE "XXXXXXXXXX"
@ N+23, 15 SAY A23 PICTURE "XXXXXXXXXX"
@ N+23, 32 SAY A24 PICTURE "L"
@24,62 SAY "╝╟┬╝▒α║┼ #: "
@24,74 SAY RECNO() SIZE 1,6
ACTIVATE WINDOW panel2
RETURN

* ╧╘╩╛═╝┐≥╡──ú┐Θ
PROCEDURE  SHELL
N=0
SET COLOR TO W/B
@ N+0, 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