define window prer from 10,10 to 15,55 double shadow color scheme 7
activate window prer
@ 0,2 say 'ПРИНТЕР НЕ ГОТОВИЙ !'
@ 1,1 say 'Приведіть принтер до стану ON LINE !'
@ 3,3 PROMPT ' ПОВТОРИТИ '
@ 3,18 PROMPT ' ВІДМІНА '
MENU TO X
IF X=2
clear windows
do dtop
RETURN
ELSE
ENDIF
endif
enddo
report form f1 to printer
return
Лістінг модуля Rezerv.prg
use zah
do case
case zax=.t.
define window r1 from 10,10 to 17,69 double shadow color sCheme 5
activate window r1
r=0
@ 0,0 say ' РЕЗЕРВУВАННЯ ДАНИХ'
@ 0,0 say ' Попередній сеанс роботи закінчено коректно !'
@ 1,0 say ' Для створення резервно* копі* натіснить <ЗАРЕЗЕРВУВАТИ> '
@ 2,0 say ' В випадку відмови натисніть <ВІДМІНА>'
@ 4,10 prompt ' ЗАРЕЗЕРВУВАТИ ' shadow
@ 4,32 prompt ' ВІДМІНА ' shadow
menu to r
if r=1
erase c:\amortiz\rezerv\amortiz.dbf
copy file c:\amortiz\amortiz.dbf to c:\amortiz\rezerv\amortiz.dbf
clear window r1
return
else
clear window w1
replace zax with .f.
close database
return
endif
return
case zax=.f.
define window er from 10,5 to 16,73 double shadow color scheme 7
activate window er
@ 0,0 say ' НЕВДАЛЕ ЗАКІНЧЕННЯ СЕАНСУ РОБОТИ !' @ 1,0 say ' Попередній сеанс роботи програми закінчився некоректно !'
@ 3,15 prompt ' Відновити базу ' message 'Дані внесені під час останнього сеансу будуть втрачені'
@ 3,35 prompt ' Не відновлювати ' message 'В випадку якщо база пошкоджена, програма не працюватиме'
menu to r
do case
case r=1
ERASE c:\amortiz\amortiz.dbf
copy file c:\amortiz\rezerv\amortiz.dbf to c:\amortiz\amortiz.dbf
clear window ER
replace zax with .f.
close database
return
case r=2
clear window ER
replace zax with .f.
close database
return
endcase
endcase
replace zax with .f.
close database
return
Лістінг модуля Vixod.prg
CLOSE DATABASES
define popup vp01 from 1,50 shadow
define bar 1 of vp01 prompt 'Вийти з програми'
define bar 2 of vp01 prompt '\-'
define bar 3 of vp01 prompt 'Командний режим'
define bar 4 of vp01 prompt 'Назад в програму'
on selection popup vp01 do p01 with bar() in vixod.prg
activate popup vp01
procedure p01
parameter bar
do case
case bar=1
DEFINE WINDOW EXITW FROM 10,30 TO 13,50 DOUBLE SHADOW COLOR SCHEME 7
ACTIVATE WINDOW EXITW
@ 0,0 SAY 'Вийти з програми ?'
@ 1,3 prompt ' ТАК ' SHADOW
@ 1,9 prompt ' НІ ' SHADOW
MENU TO X
do case
case X=1
USE ZAH
replace zax with .t.
close database
quit
case X=2
clear windows
do dtop
return
otherwise
return
endcase
deactivate popup vp01
case bar=3
clear windows
deactivate popup vp01
case bar=4
DEFINE WINDOW DTOP FROM 0,0 TO 24,79 COLOR SCHEME 1
ACTIVATE WINDOW DTOP
deactivate popup vp01
otherwise
return
endcase
return
RETURN