Форма ss.scx

_screen.ActiveForm.release()

Форма sop.scx

_screen.ActiveForm.release()

Вешняя процедура sp.prg

Do while .t.

c=space (10)

a=space(9)

use password

b=par

DEFINE WINDOW w1 from 10,10 to 17,50 color scheme 23 title 'Смена пароля' DOUBLE

ACTIVATE WINDOW w1

@1,2 say 'Введите старый пароль' get a

@4,5 get k func '*h OK; Cancel' defa 0 size 1,6,6

set BELL on

for I=1 to 1

set bell to I*80,I*3

for f=1 to 2

set bell to f*200,f*5

??chr(7)

endfor

for g=1 to 3

set bell to g*60,g*2

??chr(7)

endfor

??chr(7)

endfor

read cycle

do case

case k=1

if par=allt(a)

@2,2 say 'Введите новый пароль' get c

@4,5 get k func'*h OK; Cancel' defa 0 size 1,6,6

read cycle

do case

case k=1

REPLACE par WITH ALLTRIM(c)

DEACTIVATE WINDOW w1

exit

case k=2

DEACTIVATE WINDOW w1

exit

endcase

else

WAIT WINDOW 'Пароль введен не верно' TIMEOUT 1

clear

endif

case k=2

DEACTIVATE WINDOW w1

exit

endcase

enddo

return

Форма регистрация.scx

APPEND BLANK

_screen.ActiveForm.refresh()

_screen.ActiveForm.release()

Форма перерегистрация.scx

APPEND BLANK

_screen.ActiveForm.refresh()

GO TOP

_SCREEN.ACTIVEFORM.REFRESH()

IF BOF()=.F.

SKIP-1

ENDIF

_SCREEN.ACTIVEFORM.REFRESH()

IF EOF()=.F.

SKIP

ENDIF

_SCREEN.ACTIVEFORM.REFRESH()

GO BOTTOM

_SCREEN.ACTIVEFORM.REFRESH()

_screen.ActiveForm.release()

Форма opr.scx

DO FORM vpr.scx

_screen.ActiveForm.release()

SET FILTER TO Raion=ra

SET FILTER TO

_screen.ActiveForm.release()

Форма opg.scx

DO FORM vpg.scx

_screen.ActiveForm.release()

SET FILTER TO Gorod=go

_screen.ActiveForm.release()

Форма roz.scx

DO FORM vor.scx

_screen.ActiveForm.release()

SET FILTER TO Nd=dv

_screen.ActiveForm.release()

Внешняя процедура sk.prg

CLOSE ALL

DEFINE WINDOW A FROM 10,10 TO 20,64 TITLE 'Страховое копирование'

ACTIVATE WINDOW a

DO WHILE .t.

@3,3 say "Будете делать копию?"

@7,10 get t func "*h OK; No" defa 0 size 1,6,8

READ cycle

DO CASE

CASE t=1

! copy AVTO.dbf.\stran

! copy ROZ.dbf.\stran

! copy password.dbf.\stran

DEFINE WINDOW w4 FROM 10,10 TO 15,70 COLOR SCHEME 22

ACTIVATE WINDOW w4

@1,1 say 'Данные скопированы в директорию /stran'

WAIT '' TIMEOUT 2

DEACTIVATE WINDOW w4

CLEAR WINDOW

CLEAR

RETURN

CASE t=2

DEACTIVATE WINDOW a

CLEAR

RETURN

ENDCASE

ENDDO

Внешняя процедура vd.prg

DEFINE WINDOW A FROM 10,10 TO 20,64 TITLE '' COLOR SCHEME 15

ACTIVATE WINDOW a

DO WHILE .t.

@3,3 say "Восстановить данные?"

@7,10 get t func "*h OK; NO" defa 0 size 1,6,8

READ cycle

DO case

CASE t=1

! copy .\strah\*.* c:\foxpro~1.6

DEFINE WINDOW w4 FROM 10,10 TO 15,70 COLOR SCHEME 22

ACTIVATE WINDOW w4

@1,1 say 'Данные восстановлены из директории /STRAH'

WAIT '' TIMEOUT 2

DEACTIVATE WINDOW w4

CLEAR WINDOW

CLEAR

RETURN

CASE t=2

DEACTIVATE WINDOW a

RETURN

ENDCASE

ENDDO

Внешняя процедура help.prg

SET TALK OFF

USE GBDD

DEFINE WINDOW p FROM 5,5 TO 20,33 TITLE 'Помощь' COLOR SCHEME 14

DEFINE WINDOW r1 FROM 5,33 TO 20,70 TITLE ALLTRIM(dd) COLOR 15

ot=0

g=1

DIMENSION a(8)

i=0

SCAN

i=i+1

a(i)=dd

ENDSCAN

GO 1

MODIFY MEMO help WINDOW r1 NOEDIT NOWAIT SAVE

DO WHILE .t.

ACTIVATE WINDOW p

@1,1 get g from a defa 1

@12,1 get ot func '*h показать;Exit' defa 0

READ cycl

GO g

IF ot=1

GO g

DEFINE WINDOW r1 FROM 5,33 TO 20,70 TITLE ALLTRIM(dd) COLOR 15

ACTIVATE WINDOW r1

MODIFY MEMO hel WINDOW r1 NOEDIT NOWAIT SAVE

ENDIF

IF ot=2

CLEAR WINDOW

DEACTIVATE WINDOW r1

CLOSE memo all

EXIT

ENDIF

ENDDO