Автоматизація господарської діяльності ВАТ "Коломийський сирзавод", Детальна інформація

@ 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