powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите
9 сообщений из 9, страница 1 из 1
Помогите
    #33907461
Aghasi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет
Как из foxpro 7 проекти компилировать в foxpro 9
Спосибо за ответы
...
Рейтинг: 0 / 0
Помогите
    #33907618
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
А как из ассемблера скомпилировать проект в Паскаль?
...
Рейтинг: 0 / 0
Помогите
    #33908067
Sergey Ch
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
проходящийА как из ассемблера скомпилировать проект в Паскаль?
Ваша реплика непонятна.

В главной программе под VFP 7.0 достаточно прописать несколько строк для совместимости и обычно все работает, например
Код: plaintext
SET ENGINEBEHAVIOR  70 

Good luck!
...
Рейтинг: 0 / 0
Помогите
    #33908425
Aghasi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Птивет
Почему в fox 7 locate работает быстрее а в fox 9 медленнее,
может что-то с настройками?
Спосибо
...
Рейтинг: 0 / 0
Помогите
    #33908509
alex11100
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
seek спасет
...
Рейтинг: 0 / 0
Помогите
    #33908994
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AghasiПтивет
Почему в fox 7 locate работает быстрее а в fox 9 медленнее,
может что-то с настройками?
На основании чего был сделан такой вывод? Проводились тестовые замеры? Причин замедления может быть "вагон и маленькая тележка". Это надо все приложение основательно "трясти"

Общая логика работы с командой LOCATE примерно такая

Код: plaintext
1.
2.
3.
SELECT MyTab
SET ORDER TO  0   && Вот это дает значительное ускорение
LOCATE FOR ...
...
Рейтинг: 0 / 0
Помогите
    #33909600
Aghasi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Привет
Вот код где locate работает медленно

SELECT 1
USE abonent
SCAN
n=RECNO([abonent])
q=0
k=ALLTRIM(abonent.abonhamar)
SELECT 2
USE mkabhv
LOCATE for mkabhv.abonhamar=k ALL
DO WHILE mkabhv.abonhamar=k
IF mkabhv.hashxm=0 then
q=q+1
ELSE
CONTINUE
ENDIF
ENDDO
REPLACE RECORD n abonent.qanak WITH q
ENDSCAN
CLOSE ALL
...
Рейтинг: 0 / 0
Помогите
    #33909816
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
У-y-e как все запущено.
Портируете старую прогу в VFP ?
ведь это можно заменить на один UPDATE
типа так
Код: plaintext
1.
2.
3.
UPDATE abonent;
 SET qanak=(select COUNT(hashxm) from mkabhv;
                          WHERE mkabhv.abonhamar=abonent.abonhamar;
                           AND mkabhv.hashxm= 0  )

А насчет Locate - ваш код ничего не проясняет.
следуйте рекомендации ВладимирМ насчет set order.
Опять-же неизвестно как построены индексы.может просто нет подходящего, для включения оптимизации.
...
Рейтинг: 0 / 0
Помогите
    #33909834
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В частности, надо глянуть установку Set Delete и наличие индекса по Deleted().
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Помогите
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]