проверка существования формы / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / проверка существования формы

6 сообщений из 6, страница 1 из 1

проверка существования формы

#36340683

Gans-255

Гость

Здравствуйте!
Делаю проверку сушествования формы, при первом проходе по условию форма запускается и получает свое, но при последуюшем проходе появляется ошибка Object KRform is not found .
При этом форма находится под активной формой.
И еще если форма KRform ранее запускалась из другого места, то условие отрабатывает как надо и ошибок не возникает.
Я не спец, поэтому прошу помощи

IF TYPE("_VFP.Forms('KRform')")="U"
DO FORM KRform.scx
ELSE
KRform.Grid1.RecordSource='tmp'
KRform.refresh
ENDIF

...

Рейтинг:

0 / 0

01.12.2009, 11:50

| Ответить | Цитировать | Написать

проверка существования формы

#36340861

прошелмимо

Участник

Откуда: Из Курска понаехал

Сообщения: 10 249

Рейтинг: 0 / 0

в инит формы проверка на ее уникальность

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.

if this.lOnlyOne
	FOR EACH cName IN _SCREEN.FORMS
		IF cName.BASECLASS="Form" AND ALLTRIM(UPPER(cName.NAME))==ALLTRIM(UPPER(THISFORM.NAME)) and cName<>this
			IF cName.WINDOWSTATE= 1 
				cName.WINDOWSTATE= 0 
			ENDIF
			
			ACTIVATE WINDOW (cName.NAME)
			
			RETURN .F.
		ENDIF
	ENDFOR
endif

.... дальше какой-то код

алгоритм работает след.образом:
- если такой активной формы еще нет, то выполнение инита не прервется
- если есть форма и будет попытка запустить форму с таким-же Name, то та,
которая уже существует станет активной

...

Рейтинг:

0 / 0

01.12.2009, 12:42

| Ответить | Цитировать | Написать

проверка существования формы

#36341359

Gans-255

Гость

В моем случае если форма ранее запускалась из главного меню программы, то к ней можно обращаться, а если она запушена из другого места, то обращаться я к ней немогу,
поэтому при первом проходе условия форма запускается, а при последуюших форма видна, но ругается на команды стоящие после ELSE таким матом Object KRform is not found.
Как же сделать, чтобы она была доступна из любого уголка программы.

IF TYPE("_VFP.Forms('KRform')")="U"
DO FORM KRform.scx
ELSE
KRform.Grid1.RecordSource='tmp'
KRform.refresh
ENDIF

...

Рейтинг:

0 / 0

01.12.2009, 15:26

| Ответить | Цитировать | Написать

проверка существования формы

#36341473

GoshaS

Участник

Откуда: юг Архангельской обл.

Сообщения: 391

Рейтинг: 0 / 0

Как вариант - это привязка формы к глобальной переменной с тем-же именем. Не знаю, насколько это правильно или нет, но сможешь по имени переменной из любого места проги обращаться к форме и ее свойствам. Скажем убить форму: relase f_otcheti

Код: plaintext

1.
2.

PUBLIC f_otcheti
DO FORM f_otcheti NAME f_otcheti LINKED

Тогда

...

Рейтинг:

0 / 0

01.12.2009, 16:17

| Ответить | Цитировать | Написать

проверка существования формы

#36341880

ВладимирМ

Участник

Откуда: г. Москва

Сообщения: 7 937

Рейтинг: 0 / 0

Gans-255В моем случае если форма ранее запускалась из главного меню программы, то к ней можно обращаться, а если она запушена из другого места, то обращаться я к ней немогу, поэтому при первом проходе условия форма запускается, а при последуюших форма видна, но ругается на команды стоящие после ELSE таким матом Object KRform is not found.

Как же сделать, чтобы она была доступна из любого уголка программы.

Код: plaintext

1.
2.
3.
4.
5.
6.

IF TYPE("_VFP.Forms('KRform')")="U"
    DO FORM KRform.scx
ELSE
    KRform.Grid1.RecordSource='tmp'
    KRform.refresh
ENDIF

Перепишите код вот так:

Код: plaintext

1.
2.
3.
4.
5.
6.

IF TYPE("_VFP.Forms('KRform')")="U"
    DO FORM KRform.scx
ELSE
    _VFP.Forms('KRform').Grid1.RecordSource='tmp'
    _VFP.Forms('KRform').refresh()
ENDIF

...

Рейтинг:

0 / 0

01.12.2009, 18:38

| Ответить | Цитировать | Написать

проверка существования формы

#36342096

Gans-255

Гость

2 ВладимирМ

Именно так я и сделал уже, Заработало!!
Но все равно спасибо!

...

Рейтинг:

0 / 0

01.12.2009, 21:27

| Ответить | Цитировать | Написать

6 сообщений из 6, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / проверка существования формы

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=41&msg=36341473&tid=1585816]:	0ms
get settings:	9ms
get forum list:	16ms
check forum access:	3ms
check topic access:	3ms
track hit:	38ms
get topic data:	8ms
get forum data:	2ms
get page messages:	42ms
get tp. blocked users:	1ms
others:	14ms

total:	136ms