VPF::Как правильно вызвать программу?

ratex

Дата 4.8.2006, 11:29 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.6.2006

Репутация: нет
Всего: нет

Это у меня записано в Click кнопочки:

Код


DO "c:\documents and settings\maksim\ìîè äîêóìåíòû\visual foxpro projects\2\statist.prg"

при нажании должна выполняться программка.
тоесть когда просто делаешь run формы, то всё работает. А в exe-шнике при нажатии на эту кнопку программа не выполняется. Подозреваю, что неправильно вызываю выполнение программы, как это правильно сделать?

Cashey

Дата 10.8.2006, 14:29 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(ratex @ 4.8.2006, 12:29

)

А в exe-шнике при нажатии на эту кнопку программа не выполняется

разумеется.
файл с расширением *.prg надо сначало откомпилировать, а затем вызывать как

Код


DO "c:\documents and settings\maksim\ìîè äîêóìåíòû\visual foxpro projects\2\statist.fxp"

--------------------

библия учит любить ближнего, а камасутра обучает как именно

ratex

Дата 11.8.2006, 05:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 13.6.2006

Репутация: нет
Всего: нет

Сделал так, но всё же такой же косяк! Не побоюсь выложить код программки smile

Это программка, которая должна выполниться при нажатии кнопки (в основной форме), но не выполняется и вЕсит основную прогу. Таблица Messages и Finger находятся на сетевом диске J: и добавлены в переменные окружения основной формы.
Нажимаем на кнопку:

Код


DO "c:\documents and settings\maksim\ìîè äîêóìåíòû\visual foxpro projects\2\statist.fxp"

Должно выполниться:

Код


 SET TALK OFF
 SET DATE TO GERMAN
 CLOSE DATABASES
 USE IN 0 SHARED j:\DBF\messages.dbf
 USE IN 0 SHARED j:\DBF\finger.dbf
 DO statistic
 RETURN
*
PROC statistic
 SELECT finger
 SET ORDER TO
 SELECT messages
 SET ORDER TO report
 SET RELATION TO oper INTO finger
 IF  .NOT. SEEK(DTOS(DATE()-9))
      IF RECNO(0)<>0
           GOTO RECNO(0)
      *ELSE
           *= merror('Ñîáèðàåòñÿ ñòàòèñòèêà...')
           RETURN
      ENDIF
 ENDIF
 DIME days[ 10], hours[ 10, 24]
 days = 0
 hours = 0
 WAIT WINDOW NOWAIT 'Ñîáèðàåòñÿ ñòàòèñòèêà...'
 SCAN REST FOR BETWEEN(oper, 1, 89) .AND. finger.report WHILE DATE()>=recvdate
      days[ 10-(DATE()-recvdate)] = days(10-(DATE()-recvdate))+1
      hours[ 10-(DATE()-recvdate), VAL(recvtime)+1] = hours(10-(DATE()-recvdate),VAL(recvtime)+1)+1
 ENDS
 max = MAX(days(1), days(2), days(3), days(4), days(5), days(6), days(7), days(8), days(9), days(10))
 norma = 50/MAX(max, 1)
 WAIT CLEAR
 DEFINE WINDOW days FROM 1, 2 TO 23, 78 SHADOW TITLE 'Ñòàòèñòèêà çà 10 ïîñëåäíèõ äíåé * Enter - ïðîñìîòð * Esc - âûõîä *' DOUBLE COLOR SCHEME 10
 ACTIV WINDOW days
 FOR i = 1 TO 10
      @ (i-1)*2+1, 5 SAY DTOC(DATE()-10+i)+' ' COLOR W+/BG 
      DO CASE
           CASE DOW(DATE()-10+i)=1
                @ ROW(), COL() SAY REPLICATE('Û', days(i)*norma) COLOR G+/BG 
           CASE DOW(DATE()-10+i)=7
                @ ROW(), COL() SAY REPLICATE('Û', days(i)*norma) COLOR G+/BG 
           OTHE
                @ ROW(), COL() SAY REPLICATE('Û', days(i)*norma) COLOR G+/BG 
      ENDC
      @ ROW(), COL() SAY STR(days(i),5) COLOR W+/BG 
 ENDF
 day = 10
 old_day = day
 DO WHILE .T.
      @ (old_day-1)*2+1, 5 SAY DTOC(DATE()-10+old_day) COLOR W+/BG 
      @ (day-1)*2+1, 5 SAY DTOC(DATE()-10+day) COLOR W+/R 
      old_day = day
      ch = INKEY(0)
      DO CASE
           CASE ch=27
                EXIT
           CASE ch=13 .OR. ch=32
                DO for_day WITH day
           CASE ch=5
                day = day-1
                day = IIF(day<1, 10, day)
           CASE ch=24 .OR. ch=9
                day = day+1
                day = IIF(day>10, 1, day)
      ENDC
 ENDD
 RELE WINDOW days
 RETURN
*
PROC for_day
 PARA day
 DIME n_day[ 7]
 n_day[ 1] = 'Âîñêðåñåíüå'
 n_day[ 2] = 'Ïîíåäåëüíèê'
 n_day[ 3] = 'Âòîðíèê'
 n_day[ 4] = 'Ñðåäà'
 n_day[ 5] = '×åòâåðã'
 n_day[ 6] = 'Ïÿòíèöà'
 n_day[ 7] = 'Ñóááîòà'
 DEFINE WINDOW hours FROM 1, 2 TO 23, 78 SHADOW TITLE 'Ïðîñìîòð ïî ÷àñàì çà '+DTOC(DATE()-10+day)+' ('+n_day(DOW(DATE()-10+day))+')* Âûõîä-ëþáàÿ êëàâèøà' DOUBLE COLOR SCHEME 10
 ACTI WINDOW hours
 max = 0
 FOR i = 1 TO 24
      max = MAX(max, hours(day,i))
 ENDF
 norma = 18/max
 @ 19, 1 SAY 'ÃÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄÅÄÄ´'
 @ 20, 1 SAY '0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24'
 FOR i = 1 TO 24
      FOR j = 1 TO hours(day,i)*norma
           @ 19-j, (i-1)*3+2 SAY 'ÛÛ'
      ENDF
      @ 19-j, (i-1)*3+1 SAY STR(hours(day,i), 4)
 ENDF
 = INKEY(0)
 RELE WINDOW hours
 RETURN
*

Cashey

Дата 11.8.2006, 13:29 (ссылка)

(нет голосов)

Загрузка ...

Бессмертный

Профиль
Группа: Завсегдатай
Сообщений: 3441
Регистрация: 13.11.2002
Где: в столице

Репутация: 13
Всего: 60

Цитата(ratex @ 11.8.2006, 06:14

)

но не выполняется и вЕсит основную прогу

если вешает основную прогу - значит трабл с циклами. Расставь messagebox перед каждым циклом и посмотри после какого происходит зависание.

--------------------

библия учит любить ближнего, а камасутра обучает как именно

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Foxpro/Clipper/Dbase \| Следующая тема »