|
|
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Делаю все по инструкции. Есть файл с кодом: SET DEFAULT TO JustPath(SYS(16,0))+"\" &&SYS(5)+SYS(2003) SET DELETED ON DO FORM login READ EVENTS ON SHUTDOWN do exit_pr В другом файле код процедуры exit_pr PROCEDURE exit_pr v_ans = MESSAGEBOX("Вы хотите закончить работу с программой?", 36, "АвтоСервис") IF v_ans = 7 RETURN ENDIF SELECT MAX(logid) FROM stat into ARRAY arl && CURSOR curlog_l nofilter SELECT stat replace stat.endtime WITH DATETIME() FOR stat.logid = arl(1) && curlog_l.max_logid * SET STEP ON CLOSE all SET EXCLUSIVE ON OPEN DATABASE data1 && Open the database PACK DATABASE MESSAGEBOX("Have a good day!", 64, "АвтоСервис") CLEAR EVENTS RETURN При срабатывании поцедуры мессаджбокс не отображается, просто молча закрывается приложение. При нажатии на кнопку в углу окна "закрыть" появляется сообщение: "Cannot quit Visual FoxPro" В чем омжет быть проблема? Спасибо. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 09:44:07 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Тут почитай ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 10:11:39 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
ON SHUTDOWN do exit_pr перед read even и вот это CLOSE all SET EXCLUSIVE ON OPEN DATABASE data1 && Open the database PACK DATABASE так низя это что за приложение для одного стола???? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 10:16:04 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Совершенно согласен после Read Events код программы не исполняется до получения команды Clear Events так что On shutdown - надо поставить перед read events а еще лучше и перед Do form - вдруг форма модальная. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 11:57:04 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Спасибо! alex11100 >так низя А как надо? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 13:10:14 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
в сети такое не пройдет эксклюзив пак реинд и т.д. в сетке нельзя пользовать ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 13:47:05 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Это локальная БД. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:03:28 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
ЗАкрытие приложения не срабатывает, хотя строки местами переставил. Циклит его на процедуре выхода. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:13:12 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
а я бы не отважился так лихо паковать и смысла не вижу там что постоянно таблицы вынимаются и кладутся?? или связи меняются??? во время пака создаются новые файлы и затираются старые ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:23:38 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
100gramЗАкрытие приложения не срабатывает, хотя строки местами переставил. Циклит его на процедуре выхода. В процедуре повешанной на ON SHUTDOWN первой должна быть строк пустая строка ON SHUTDOWN ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:32:19 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
alex11100 Хм, возможно, Вы и правы. А если я _вообще_ не буду паковать, это как-нибудь отразится негативно на работе базы? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:52:27 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
никак Вас волнует размер .dct??? он изменяется если вы часто делаете свободными и добавляете таблицы и меняете и удаляете и добавляете связи я думаю Вы этого не делаете, поэтому смысла паковать БД нет посмотрите появляются удаленные записи в БД после нескольких дней работы приложения??? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 16:59:19 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
alex11100 Большое спасибо. Паковку убрал. Думаю, записи появляться не будут, БД довольно простая. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 17:03:35 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
да и в конце PROCEDURE exit_pr return ??? наверное flush cancel Или quit ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 17:07:56 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
alex11100да и в конце PROCEDURE exit_pr return ??? наверное flush cancel Или quit Без разницы. После CLEAR EVENTS управление передаётся на строку, следующую за READ EVENTS. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 09.11.2005, 17:18:33 |
|
||
|
Выход из приложения
|
|||
|---|---|---|---|
|
#18+
Hi Commander Хэлл! > После CLEAR EVENTS управление передаётся на строку, следующую за READ > EVENTS. На самом деле нет - процедура в которой написано CLEAR EVENTS отрабатывает до конца. А вот QUIT в ON SHUTDOWN процедуре к сожалению обязателен - иначе не срабатывает Shutdown системы - наша прога его прерывает... Posted via ActualForum NNTP Server 1.3 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 10.11.2005, 02:28:33 |
|
||
|
|
start [/forum/topic.php?fid=41&msg=33368741&tid=1593103]: |
0ms |
get settings: |
7ms |
get forum list: |
14ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
297ms |
get topic data: |
11ms |
get forum data: |
3ms |
get page messages: |
50ms |
get tp. blocked users: |
1ms |
| others: | 231ms |
| total: | 620ms |
| 0 / 0 |
