ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / OpenFile
25 сообщений из 26, страница 1 из 2
  1  все
OpenFile
    #38214244
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Помогите разобрать этот код, я новичек в фокспро и некоторые функции не нахожу в Help

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
thisform.openfile(1,1)='cab.dbf'
thisform.openfile(2,1)='OgrExt.dbf'
thisform.openfile(1,2)=vdbf+'cab.dbf'
thisform.openfile(2,2)=vdbf+'OgrExt.dbf'
contropen = 0
for n1=1 to 2  && цикл открытия файлов формы
  if.not.file(thisform.openfile(n1,2)) 
     contropen=1
     WAIT WINDOW 'Не найден файл '+thisform.openfile(n1,2)+'  или индексный файл ' TIMEOUT 3
     exit
  endif
  on error contropen=2
  select 0
  use (thisform.openfile(n1,2)) share
  if contropen=2
     WAIT WINDOW 'Файл '+thisform.openfile(n1,2)+' занят другим пользователем' TIMEOUT 3
     exit
  else
     set order to 1
  endif
endfor
thisform.openfilenom=n1-1
...
Рейтинг: 0 / 0
05.04.2013, 12:55
| Ответить | Цитировать | Написать  
OpenFile
    #38214273
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Программа давно написана на VFP6 и мне дали сделать такое же в другой программе, но что-то не могу разобраться.. Все скопировал тупо в новую форму когда пытаюсь открыть эту форму пишет свойство openfile не найдено
...
Рейтинг: 0 / 0
05.04.2013, 13:09
| Ответить | Цитировать | Написать  
OpenFile
    #38214297
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Новый2013,

Потому что openfile и openfilenom - это добавленные свойства формы.
По умолчанию их нет, работай руками через Form Designer . И см. 14139404
...
Рейтинг: 0 / 0
05.04.2013, 13:18
| Ответить | Цитировать | Написать  
OpenFile
    #38214305
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, Теперь понял почему так пишет, А где нужно добавлять свойство? В самой форме нигде нету добавления
...
Рейтинг: 0 / 0
05.04.2013, 13:22
| Ответить | Цитировать | Написать  
OpenFile
    #38214311
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Помогите добавить такое свойство. Впервые узнал что можно свои свойства добавлять. Нужно добавить свойство.. Это я так думаю матрица 2х2 или может ошибаюсь
...
Рейтинг: 0 / 0
05.04.2013, 13:25
| Ответить | Цитировать | Написать  
OpenFile
    #38214321
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
написал так: AddProperty(thisform,"openfile[2,2]")
ошибку выдал: AddProperty.prg не найдено
...
Рейтинг: 0 / 0
05.04.2013, 13:27
| Ответить | Цитировать | Написать  
OpenFile
    #38214337
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
ThisForm.AddProperty("openfile[2,2]")
...
Рейтинг: 0 / 0
05.04.2013, 13:33
| Ответить | Цитировать | Написать  
OpenFile
    #38214340
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dag
Участник
Или в FormDesigner
Меню Form -> New Property
...
Рейтинг: 0 / 0
05.04.2013, 13:35
| Ответить | Цитировать | Написать  
OpenFile
    #38214341
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Dag, Баркал :-)
...
Рейтинг: 0 / 0
05.04.2013, 13:36
| Ответить | Цитировать | Написать  
OpenFile
    #38214650
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Добавил вручную но что-то не то кажется. Подскажите как добавить свойство если бывает такое матрицу openfile[2,2]

в коде есть такое свойство thisform.openfile[2,2] чтобы добавить новое свойство в VFP6 выбрал меню Class - New Property а что там писать не знаю
...
Рейтинг: 0 / 0
05.04.2013, 16:03
| Ответить | Цитировать | Написать  
OpenFile
    #38214686
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
разобрался
...
Рейтинг: 0 / 0
05.04.2013, 16:19
| Ответить | Цитировать | Написать  
OpenFile
    #38214731
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
В этой программе есть Пункт меню "Кабинеты и расписание" там подменю "Просмотр расписания" ,который запускает форму "rasp_cab"
Я пытаюсь точно также открыть через меню свою форму добавленную в классе. Т.е. сделал пункт меню "ДЕЛАЮ", который запускать должен форму "udop" и прописал аналогичный код, но форма не открывается. Почему так? Прикрепляю проект подскажите как исправить?

ВОТ ССЫЛКА ССЫЛКА прошу помочь
...
Рейтинг: 0 / 0
05.04.2013, 16:39
| Ответить | Цитировать | Написать  
OpenFile
    #38215899
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Новый2013,

Скопируй прикрепленные программки и таблицы cab.*, ogrext.* в корень проекта и запусти test.prg
Надеюсь, поймешь, в чем дело.
...
Рейтинг: 0 / 0
07.04.2013, 11:48
| Ответить | Цитировать | Написать  
OpenFile
    #38216507
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, Что-то я не понял. Смотрите, тут есть меню и другие пункты открываются таким образом.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
vmenu=2
contropen=0
rasp_cab1=createobject('rasp_cab')
if contropen=0
   rasp_cab1.show(1)
else
   rasp_cab1.release
endif
vmenu=1

Я создал класс, сделал все точно также как в другом проекте и точно также пытаюсь открыть эту форму через меню

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
vmenu=2
contropen=0
ff=createobject('udop')
if contropen=0
   ff.show(1)
else
   ff.release
endif
vmenu=1

Но не открывается.
...
Рейтинг: 0 / 0
08.04.2013, 08:09
| Ответить | Цитировать | Написать  
OpenFile
    #38216548
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
UDOP это класс форма. чтобы его открыть через меню нужно создать экземпляр класса? и как его создать где прописать?
...
Рейтинг: 0 / 0
08.04.2013, 09:13
| Ответить | Цитировать | Написать  
OpenFile
    #38216556
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
вроде через createobject написано делается но так не запускается класс форма
...
Рейтинг: 0 / 0
08.04.2013, 09:17
| Ответить | Цитировать | Написать  
OpenFile
    #38216676
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Новый2013,

Сравни свойства классов rab_cab и udop. И команда SET STEP ON еще никому не мешала.
Кроме того, процедура p_err должна тебе выдать информацию об ошибке. Продублируй ее здесь.
...
Рейтинг: 0 / 0
08.04.2013, 10:37
| Ответить | Цитировать | Написать  
OpenFile
    #38216713
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, свойства одинаковые вроде как..

А SET STEP ON где надо писать не подскажете? В меню прям можно так?:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
SET STEP ON
vmenu=2
contropen=0
ff=createobject('udop')
if contropen=0
   ff.show(1)
else
   ff.release
endif
vmenu=1
...
Рейтинг: 0 / 0
08.04.2013, 10:54
| Ответить | Цитировать | Написать  
OpenFile
    #38216720
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
написал так открывает дебагер и вот тут vmenu=2 почему-то показывает стрелку, а для других таких же классов все нормально
...
Рейтинг: 0 / 0
08.04.2013, 10:58
| Ответить | Цитировать | Написать  
OpenFile
    #38216726
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Новый2013Jonny540, свойства одинаковые вроде как.. Не совсем.

Новый2013А SET STEP ON где надо писать не подскажете? В меню прям можно так?:
Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
SET STEP ON
vmenu=2
contropen=0
ff=createobject('udop')
if contropen=0
   ff.show(1)
else
   ff.release
endif
vmenu=1

Можно. Но не путай само меню и процедуру, которую оно вызывает.
Да, еще: что у тебя означает переменная vmenu ?
...
Рейтинг: 0 / 0
08.04.2013, 11:01
| Ответить | Цитировать | Написать  
OpenFile
    #38216749
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, я плохо себе представляю что это означает, это не я писал проект.. до меня писали разные люди, поэтому сижу разбираюсь.
...
Рейтинг: 0 / 0
08.04.2013, 11:10
| Ответить | Цитировать | Написать  
OpenFile
    #38216756
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
vmenu это просто переменная, сделанная для того чтобы скрывать некоторые пункты меню.. это мне не нужно даже походу...
...
Рейтинг: 0 / 0
08.04.2013, 11:14
| Ответить | Цитировать | Написать  
OpenFile
    #38216758
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, но я писал так тоже, все равно не открывает

contropen=0
ff=createobject('udop')
if contropen=0
ff.show(1)
else
ff.release
endif
...
Рейтинг: 0 / 0
08.04.2013, 11:14
| Ответить | Цитировать | Написать  
OpenFile
    #38216769
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
Новый2013,

Вот и погоняй покомандно, там все сразу видно.
...
Рейтинг: 0 / 0
08.04.2013, 11:17
| Ответить | Цитировать | Написать  
OpenFile
    #38216772
Новый2013
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Новый2013
Гость
Jonny540, Некоторые свойства может и не одинаковые потому что на форме udop размещены одни элементы, на rasp_cab такие же или еще другие.. например на одном 1 листбокс и 1 тексэдит, на другом 2 листбокса.. из-за этого же не может быть наверное? Есть два свойства добавленных, пользовательские, они идентичны
...
Рейтинг: 0 / 0
08.04.2013, 11:18
| Ответить | Цитировать | Написать  
25 сообщений из 26, страница 1 из 2
  1  все
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / OpenFile
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?desktop=1&fid=41&tid=1583085]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 47ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 66ms
get tp. blocked users:
 2ms
others: 273ms
total:  436ms
созд. / загр.: 436ms
x
x
Закрыть


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