&& Спец. команды, выполняющиеся && после выхода из Visual FoxPro && Удалить из памяти переменные && Монопольный доступ && Удаленные записи видимы && Выводить результаты && выполнения команд на экран && Отображать предупреждающее сообщение && перед перезаписью файла && Отображать нижнюю строку экрана && Вернуть стандартную процедуру && обработки ошибок && Вернуть системное меню FoxPro && Закрыть базы данных && Закрыть свободные таблицы &&
Если вас незаконно лишили водительских прав, http://kollegia.info/advokat-po-grazhdanskim-delam/ вам всегда поможет отстоять свои права.
Завершение выполнения Fox-программы
PROCEDURE REALQUIT && Подтверждение выхода из FoxPro
LOCAL lnMsgResult
lnMsgResult=;
MESSAGEBOX(,Вы действительно хотите выйти из программы?’,; 20,’ Выход из программы ’)
IF lnMsgResult=6 && Кнопка Да
QUIT && Завершение работы среды Visual FoxPro
ENDIF RETURN
PROCEDURE ERRORHND && Процедура обработки ошибок
ERRORCODE=ERROR() && Определение кода ошибки
ON KEY LABEL F10 && Отмена действовавших назначений F10
* Это сообщение повторяется при многих ошибках MsgLevel=’Через три секунды запрос будет повторен.’+CHR(13) + ,• CHR(13)+,Если это сообщение быстро не исчеЗло,’+CHR(13) + ,• ’обратитесь к системному администратору.’+CHR(13)+;
’Возможно нарушена связь с сервером.’
DO CASE
CASE ERRORCODE=108
ON KEY LABEL F10 DO CANCELWAIT
WAIT 'Ждите! Нет доступа к внешней памяти.’+CHR(13) + ,•
’Или установлен статус только для чтения!’ + ; CHR(13)+MsgLevel+CHR(13) WINDOW NOWAIT DO NETDELAY && Ожидание
ON KEY LABEL F10
* Возвращает управление и выполняет вызов повторно RETRY
CASE ERRORCODE=109
Опубликовал vovan666
April 29 2013 09:30:27 ·
0 Комментариев ·
4059 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
