Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

? name_unit+' '+STR(price_unit)+' '+STR(amount)

ENDSCAN

ENDPROC

ПРИЛОЖЕНИЕ Е

Текст программы страхового копирования и контекстной справки

* ----Использование страхового копирования данных

SET CLEAR OFF

SET SAFETY OFF

* Если файл NORM.MEM есть...

IF FILE('C:MY_WORKSTRANSF~1MYPROJ~1norm.mem')

* ...он загружается в память.

RESTORE FROM('C:MY_WORKSTRANSF~1MYPROJ~1norm.mem')

* Если переменная завершения истинна...

IF normz

* ...копируем все файлы таблиц в страховую директорию

!COPY C:MY_WORKSTRANSF~1MYPROJ~1*.dbf
C:MY_WORKSTRANSF~1MYPROJ~1Insure*.dbf>NUL

* иначе сообщение.

ELSE

WAIT normd+' было аварийное завершение .'+;

'Восстановить (ENTER) данные?' WINDOW

* В случае нажатия Enter файлы восстанавливаются из страховой директории.

IF LASTKEY()=13

!COPY C:MY_WORKSTRANSF~1MYPROJ~1Insure*.dbf
C:MY_WORKSTRANSF~1MYPROJ~1*.dbf>NUL

ENDIF

ENDIF

Рекомендуем скачать другие рефераты по теме: методы дипломной работы, шпаргалки.



Предыдущая страница реферата | 9  10  11  12  13  14  15  16  17  18  19 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки