powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание окна предупреждения в проге на FoxPro..?
36 сообщений из 36, показаны все 2 страниц
Создание окна предупреждения в проге на FoxPro..?
    #36109020
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем доброго времени суток!)
Для практики попросили сделать простенькую программку для учета катриджей, мол заправленные и не заправленные. Сделал два всплывающих оконца: 1 "Заправленные" с полями Id, Марка, Колич.Штук; и "На заправку" с полями Id, Марка, Колич.Штук... Но застопорился на вопросе как сделать всплывающее окошко предупреждения для "Заправленные", то есть когда в поле Колич.Штук остается 1 катридж должно появиться то самое окошко предупреждения.
P.S. в FoxPro я еще разбираюсь не особо хорошо, по этому, просьба если будете помогать, то пишите подробно:))
Заранее Спасибо!
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109108
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В тот момент когда изменяется количество заправленных проверять значение в поле Колич.Штук
и если оно равно 1 выдавать сообщение через messagebox()
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109111
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

а как задать эту проверку?
...
окна "Заправленные" и "На заправку", сделаны при помощи Форм, которые и ссылаются на изначальные таблицы zapravlen и nazapravky...
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109134
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Запакуй проект в архив и сбрось сюда, иначе гадания будут долгими.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109240
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

вот:) приложил проект в архиве.
прошу строго не судить, только начинаю работать в FoxPro.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109293
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VASABI,
Проще всего в методе ProgrammaticChange текстбокса FIDKOLICHESTVO1 написать что-нибудь типа
Код: plaintext
1.
2.
if this.value= 1 
  messagebox('Адинадин!!', 0 ,'Внимание!')
endif
Ну или в Buttonset1 в методах navigate/navrefresh что-нибудь аналогичное.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109308
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Обрати внимание на Stored Procedures базы данных и триггер на обновление в таблице tablezapravlenue
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109311
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Известна поговорка "Если в Фоксе можно что-либо сделать - то это можно сделать не менее чем тремя путями." Предложение tanglir'а также решает предложенную задачу другим путем. К его сообщению я бы добавил, что тот код который он предложил неплохо бы использовать параллельно и в методе InterActiveChange
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109320
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,

воспользовался вашим методом, и окошко с предупреждением появляется:) НО! только при нажатии на текстбокс с количеством ^_^ а как сделать появление автоматическим?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109323
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
DagОбрати внимание на Stored Procedures базы данных и триггер на обновление в таблице tablezapravlenue

ок, обратил:) только не могу понять почему при запуске формы Заправленные не срабатывает MESSAGEBOX("Achtung!"), судя по вставке он должен выскакивать, так?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109328
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VASABI только не могу понять почему при запуске формы Заправленные не срабатывает MESSAGEBOX("Achtung!"), судя по вставке он должен выскакивать, так?

Нет, этот триггер срабатывает только при обновлении поля. При желании в Init формы formzapravlenue
можно добавить что-то вроде
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
SELECT tablezapravlenue
SCAN 
IF fidkolichestvo<= 1 
	MESSAGEBOX(tablezapravlenue.fidmarka+ "один или меньше !")
ENDIF 

ENDSCAN 
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109329
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

сглупил:) все срабатывает MESSAGEBOX("Achtung!"), при изменении значения <=1.:)
===
У мя к вам еще один вопрос, как все это сделать цельной программой?
пытаюсь скомпилировать, выделил все файлы в проекте и жму Compile, но выдает ошибку:

"Cannot create file c:\users\alexander\desktop\compile\formnazapravku.scx."

что я опять не так делаю?)
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109331
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно жать кнопочку Build d ProjectMenagere'е
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109334
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

а "Init" формы, это просмотр ее sql кода?) как его открыть?))
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109337
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag и Tangril, большое спасибо за помощь предоставленную ранее:)

но на этом вопросы не закончились ^_^
попробовал сохранить то что имею одним .exe, но вот проблемка при запуске эгзешника, на секунду выскакивает оконце программки и сразу же исчезает О_О
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109338
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Открой форму в конструкторе, щелкни правой кнопки мыша, выбери Code..выбери Init.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109340
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36109343
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

ок:) Спасибо еще раз!) Буду пытаться разобраться по вашей ссылке как прекратить мелькание программки:)
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36111911
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

у меня опять к вам вопросы:)

1.сделал менюшку для программы, проблемы возникли с выводом текстовых файлов О_О он почему-то показывает их только через "MODIFY FILE", но тогда сообщение открыто для изменения, а необходимо лишь для прочтения :( пытался через "DO FILE" ругается, что не так?
2. Проблемы с кнопкой Exit в меню, что видно напутал с кодом ^_^
3. По проблеме с мелькающим запуском готового exe, честно говоря так и не разобрался куда именно необходимо добавить точку остаyjds (DO MainMenu.mpr READ EVENTS)...

Подскажите:)

P.S. сразу приложил архив с попыткой добавить мною меню:)
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36111973
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Ещё не скачав архива...
1.
Код: plaintext
MODIFY FILE [FileName | ?]  [NOEDIT]  [NOMENU] [NOWAIT]
2. М.б., Clear events. Сам поначалу на этом подкалывался. Счас архив посмотрю.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112012
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
upd. Проще сделать отдельную программку типа
Код: plaintext
1.
2.
DO mainmenu.mpr
DO FORM formzapravlenue.scx
READ EVENTS
и поставить её главным файлом
А в кнопке экзит написать
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
IF MESSAGEBOX("Выходить из формы?",  4 + 32 + 256 , "Выход")= 6  
_screen.ActiveForm.Release() 
*!!!
CLEAR EVENTS
*!!!
ELSE 
_screen.ActiveForm.Refresh() 
ENDIF 
Кстати, сейчас можно открыть миллион копий каждого окна - стоит это учесть ;)
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112017
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,

ок, сейчас гляну что выйдет:)
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112020
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Собственно tanglir на все вопросы ответил.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112021
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,

а можно подрбнее:) сделать отдельную программку: то бишь она будет стартовым файлом? и как указать, что она главный файл:) ?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112028
tanglir
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
VASABI,
Окно проекта - закладка Code, выбираем Program, жмём New. Пишем вышеприведённый текст, сохраняем как main.prg. Правомышк на появившемся файле - Set Main. Потом правим экзит в меню, потом билд, и всё. У меня заработало.
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112030
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
И еще вопрос: запускаю меню, все ок, выбираю открыть к примеру форму, и вылазит окошко для поиска открываемой формы, но последующие открываемые формы такого вопроса не задают,. так и должно быть?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112034
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
tanglir,

Гуд Спасибо! Сейчас попробую!))
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112077
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
В main.prg добавь код типа
Код: plaintext
1.
gcPathHome=ALLTRIM(SUBSTR(SYS( 16 ), 1 ,RAT("\",SYS( 16 ))))
SET DEFAULT TO (gcPathHome)

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

DO FORM c:\users\alexander\desktop\compile\formnazapravku.scx

переписать как

DO FORM formnazapravku.scx
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112123
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

а как открыть полный код меню? и добавить выше написанный тобою код в начале?

P.S. все менюшки я делал просто через Визард, и код открывался только при синтаксических ошибках, и при добавке к примеру кода точки остановы в самом начале появлялся вопрос о сохранении кода, но даж после сохранения, он не изменялся О_О
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36112405
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1.Меню это обычный процедурный(программный файл) с расширением .mpr. Посмотри в своем проекте файлик mainmenu.mpr.

2.Нужно как пишет tanglir создать главный файл проекта с кодом типа

Код: plaintext
1.
2.
3.
4.
gcPathHome=ALLTRIM(SUBSTR(SYS( 16 ), 1 ,RAT("\",SYS( 16 ))))
SET DEFAULT TO (gcPathHome)
DO mainmenu.mpr
READ EVENTS

Делается это так как уже написал tanglir
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36113906
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

Угу:) я так и сделал:) просто вопрос раньше времени задал ^_^
вот все отлично запускается и работает, кроме кнопки выход, она синтаксическую ошибку выдает О_О то есть, когда нажимаю кнопку ВЫХОД, появляеться окошко запроса на выход, выбираю выйти, и вот тут-то и выскакивает ошибка ...
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36113912
VASABI и вот тут-то и выскакивает ошибка ...Которую мы должны угадать?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36113993
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код для выхода из программы должен содержать
Код: plaintext
CLEAR EVENTS
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36116288
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

СпасибО! по твоему совету переделал код кнопки на:

IF MESSAGEBOX("Выходить из формы?", 4+32+256, "Выход")=6
*!!!
CLEAR EVENTS
QUIT
*!!!
ELSE
ENDIF

и все норм заработало:)
---
но есть еще вопрос, в форме "formzapravlenue" хотел сделать для удобства поиска маркировки картриджей развертывающееся окошко "Combo Box"(то есть при развертке выпадал бы список из маркировок картриджей и при нажатии можно выбрать нужный), которое в панели "Properties" через "ControlSouce" привязал к tablezapravlenue.fidmarka, но при запуске формы ничего стоящего не вышло... Чего может не хватать для нормальной работы этого элемента?
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36116332
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нужно указать для этого комбобокса в дизайнере свойства

RowSourceType - Alias
RowSource - tablezapravlenue.fidmarka

Очистить св-во ControlSource

В метод InterActiveChange комбобокса вписать

ThisForm.Refresh()
...
Рейтинг: 0 / 0
Создание окна предупреждения в проге на FoxPro..?
    #36116394
VASABI
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Dag,

Огромное спасибо за помощь:) заработало!
...
Рейтинг: 0 / 0
36 сообщений из 36, показаны все 2 страниц
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Создание окна предупреждения в проге на FoxPro..?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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