ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / кнопочные формы
41 сообщений из 41, показаны все 2 страниц
  все  
кнопочные формы
    #32514615
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Пишу:DO FORM 'c:\devstudio\vfp\texn_praktika\иии.scx'
не получается
Подскажите пожалуйста, а как еще можно, нажав на кнопку в одной форме открыть вторую?
...
Рейтинг: 0 / 0
12.05.2004, 12:52
| Ответить | Цитировать | Написать  
кнопочные формы
    #32514681
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Очень подробно это написано здесь

http://www.foxclub.ru/kb/index.php?sid=40248&aktion=artikel&rubrik=004&id=4&lang=ru
...
Рейтинг: 0 / 0
12.05.2004, 13:20
| Ответить | Цитировать | Написать  
кнопочные формы
    #32515747
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, большое спасибо тебе!!!
У меня получилось.
Всего тебе наилучшего!!!
...
Рейтинг: 0 / 0
13.05.2004, 10:16
| Ответить | Цитировать | Написать  
кнопочные формы
    #32516106
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Умные люди!!! Ау!!! Подскажите пожалуйста!
Есть таблицы с названиями "Педагогический совет", "Методический совет", "Редакционный совет"; в каждой из которых представлены следующие поля:

-номер совета (тип:целое)
-дата заседания (тип:дата)
-тема заседания (тип:символьный)
-перечень вопросов (тип:мемо)
-ФИО выступающих (тип:мемо)
Таблицы связаны с таблицей "Перечень советов" с полями:
-номер совета (тип:целое)
-название совета (тип:символьный)

Необходимо составить запросы:

-появляется диалоговое окно "введите дату совета" , пользователь вводит дату, а затем выводится вся информация из всех
этих таблиц, т.е. информация о советах(номере, теме,перечне вопросов, введенной дате), которые проходили именно в этот день, месяц, год
(типа как в ACCESS запрос с параметром)

-появляется диалоговое окно "введите ФИО выступающего" , пользователь вводит ФИО в диалоговое окно , а затем выводится вся информация из всех таблиц, где он встречается, по всем советам.
Заранее всем СПАСИБО!!!
...
Рейтинг: 0 / 0
13.05.2004, 12:39
| Ответить | Цитировать | Написать  
кнопочные формы
    #32518016
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Подскажите, пожалуйста, какую команду надо применить, чтобы щелкнув на кнопке в форме открылся отчет, созданный на таблицу.
...
Рейтинг: 0 / 0
14.05.2004, 13:29
| Ответить | Цитировать | Написать  
кнопочные формы
    #32518346
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Отчет запускается командой вида:

REPORT FORM MyReport.frx TO PRINTER PROMPT PREVIEW

Разумеется, отчет MyReport.frx должен быть создан заранее. Впрочем, если предполагается выполнить отчет только по одной таблице, то можно создать отчет "на лету"

CREATE REPORT MyReport FROM MyTable.dbf
REPORT FORM MyReport.frx TO PRINTER PROMPT PREVIEW

При этом таблица MyTable.dbf должна быть закрыта перед подачей команды CREATE REPORT

Для ввода параметра, начиная с версии VFP7 используется функция (если не ошибаюсь)

INPUTBOX()
...
Рейтинг: 0 / 0
14.05.2004, 15:01
| Ответить | Цитировать | Написать  
кнопочные формы
    #32519134
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
БОЛЬШОЕ СПАСИБО ЗА ВСЕ, ВладимирМ !!!
Этот вопрос исчерпан.
Была бы очень рада, если бы Вы помогли мне с запросами (см. выше)
...
Рейтинг: 0 / 0
15.05.2004, 13:10
| Ответить | Цитировать | Написать  
кнопочные формы
    #32519796
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Запрос, вобщем-то элементарный. Делается 3 отдельных запроса объединенный по UNION ALL. Примерно так:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
LOCAL ldFromDate
ldFromDate = INPUTBOX()
IF EMPTY(ldFromDate)
ldFromDate = Date()
ENDIF

SELECT a.[дата заседания], b.[название совета], a.[тема заседания] ;
FROM [Педагогический совет] a ;
INNER JOIN [Перечень советов] b ON a.[номер совета]=b.[номер совета] ;
WHERE a.[дата заседания]>=m.ldFromDate ;
UNION ALL ;
SELECT a.[дата заседания], b.[название совета], a.[тема заседания] ;
FROM [Методический совет] a ;
INNER JOIN [Перечень советов] b ON a.[номер совета]=b.[номер совета] ;
WHERE a.[дата заседания]>=m.ldFromDate ;
UNION ALL ;
SELECT a.[дата заседания], b.[название совета], a.[тема заседания] ;
FROM [Редакционный совет] a ;
INNER JOIN [Перечень советов] b ON a.[номер совета]=b.[номер совета] ;
WHERE a.[дата заседания]>=m.ldFromDate

С INPUTBOX() я мог и напутать. У меня VFP6SP5. Но общий принцип именно такой. Если в итоговой таблице нужно больше полей, то "добавь по вкусу"
...
Рейтинг: 0 / 0
17.05.2004, 10:37
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520586
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ !
Действительно у нас не понимает INPUTBOX; выходит сообщение, что файл с таким именем не существует. Подскажи, что можно сделать, может можно обойтись без этого слова или заменить его другим? У нас foxpro v.5.0.
...
Рейтинг: 0 / 0
17.05.2004, 15:21
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520634
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Ну так сделайте простую модальную формочку с единственным TextBox. Для особо непонятливых пользователей можно добавить на эту формочку 2 кнопки "Ok", "Отмена". Ну, и далее как и было написано:

Код: plaintext
1.
2.
3.
4.
5.
6.
LOCAL ldFromDate

DO FROM MyForm.scx TO m.ldFromDate

IF EMPTY(ldFromDate)
	ldFromDate = Date()
ENDIF
Как организовать возврат значения из модальной формы надо расписывать?
...
Рейтинг: 0 / 0
17.05.2004, 15:37
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520696
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Распиши, пожалуйста.
...
Рейтинг: 0 / 0
17.05.2004, 15:58
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520745
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
-) Создаете в дезайнере форм новую форму
-) Установи модальность этой формы (свойство WindowType=1 - Modal)
-) Подкорректируй заголовок этой формы

Caption = "Введите дату"

-) В этой форме надо добавить новое свойство (пункт главного меню Form, подпункт "new Property" или подпункт "edit Property\Method") с именем, например, ReturnValue. Это свойство будет содержать возвращаемое из формы значение.
-) В свойствах формы теперь появится это новое свойство ReturnValue (самое последнее в списке свойств). Чтобы указать, что это свойство имеет тип Date, надо ввести прямо в окне свойств формы его значение как {} (подряд 2 фигурные скобки)
-) В методе Unload-самой формы надо написать такую строку

RETURN ThisForm.ReturnValue

-) На форму кладешь объект TextBox и в его свойстве Value прописываешь такое выражение

=Date()

Знак равенства обазательно нужен

-) На форму кладешь кнопку в свойствах которой делаешь присвоения

Caption = "Ok"

В событии Click этой кнопки пишешь

ThisForm.ReturnValue = This.Value

-) На форму кладешь еще одну кнопку в свойствах которой пишешь

Caption = "Отмена"
Cancel = .T.

В событии Click этой кнопки пишешь

ThisForm.Release()

Все. Сохраняешь эту форму и далее как уже было написано:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
LOCAL ldFromDate

DO FROM MyForm.scx TO m.ldFromDate

IF EMPTY(ldFromDate)
* Пользователь не ввел дату, устанавливаю значение по умолчанию
	ldFromDate = Date()
ENDIF
...
Рейтинг: 0 / 0
17.05.2004, 16:18
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520750
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Да, забыл, что в кнопке "Ok" также надо дописать последней командой ThisForm.Release()
...
Рейтинг: 0 / 0
17.05.2004, 16:20
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520757
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Опять промахнулся

Событие Click конпки "Ok"

ThisForm.ReturnValue = ThisForm.Text1.Value
ThisForm.Release()

Здесь Text1 - это имя того TextBox в котором вводится значение пользователем.
...
Рейтинг: 0 / 0
17.05.2004, 16:23
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520889
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Я все сделала, как ты сказал. Но при выполнении:

Код: plaintext
1.
2.
3.
4.
LOCAL ldFromDate
DO FROM MyForm.scx TO m.ldFromDate
IF EMPTY(ldFromDate)
	ldFromDate = Date()
ENDIF
он выделяет эту строку: DO FROM fff.scx TO m.ldFromDate и выводит:"синтаксическая ошибка". Хотя я поставила имя созданной формы.
Подскажи, пожалуйста, в чем дело?
...
Рейтинг: 0 / 0
17.05.2004, 17:16
| Ответить | Цитировать | Написать  
кнопочные формы
    #32520916
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
У меня пальцы иногда не поспевают за мыслями Поэтому желательно все-таки читать HELP для проверки синтаксической корректности команд.

В частности, для вызова формы нужно

DO FORM, а не как здесь DO FROM

всего 2 буквы местами поменялось - и вот такая неприятность :((

В качестве имени формы в данной команде надо указывать имя ФАЙЛА с расширением SCX, а не значение свойства Name-формы
...
Рейтинг: 0 / 0
17.05.2004, 17:28
| Ответить | Цитировать | Написать  
кнопочные формы
    #32521021
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, почему-то при выполнении запроса появляется пустая таблица, хотя я ввожу дату, которая есть в одном из советов. По идее он должен выводить дату и название этого совета?
...
Рейтинг: 0 / 0
17.05.2004, 18:28
| Ответить | Цитировать | Написать  
кнопочные формы
    #32521039
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Ну, так отлаживаться надо. Мало ли где, что забыли ввести.

1) Посмотрите какая дата возвращается из формы

...
ENDIF
MessageBox(DTOC(ldFromDate))

2) Выполните приведенный запрос отдельно явно указав какую-либо дату, заведомо меньшую даты существующей записи. Например:

...
ENDIF
ldFromDate={^2004-01-01}

3) Выполните каждый из запросов объединенных по UNION ALL отдельно от других

4) У меня в коде стоит объединение по INNER JOIN - это значит, что если в таблице названия совета не указан [номер совета] или же указан не существующий в таблице [названий советов] [номер совета], то такая запись не попадет в выборку. Возможно, имеет смысл сделать объединение по LEFT JOIN

Т.е. причин много. Но раз сам запрос выполнился, то причина именно в условиях отбора. Вот на эти условия и надо смотреть.
...
Рейтинг: 0 / 0
17.05.2004, 18:37
| Ответить | Цитировать | Написать  
кнопочные формы
    #32521051
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, я поняла в чем дело. Просто я ввожу в форме например:02/04/2004, а у нас в таблице такой формат даты:02/04/04; поэтому он и не понимает. Как здесь быть, ведь пользователь будет вводить дату полностью (02/04/2004) и поэтому он не получит никакой информации.
Что делать? Как поменять формат даты?
...
Рейтинг: 0 / 0
17.05.2004, 18:43
| Ответить | Цитировать | Написать  
кнопочные формы
    #32521087
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Если поле имеет формат Date, то оно поймет переменную памяти типа Date как бы она ни была введена. Другое дело, что у Вас в таблице может быть введено не то столетие.

Сделайте настроку

SET CENTURY ON

и посмотрите через команду BROWSE содержимое Вашей таблицы. Скорее всего, дата 02/04/04 окажется датой 02/04/1904.

Дело в том, что по умолчанию в версиях до VFP5 включительно, если столетие при вводе даты не указывалось явно, то оно устанавливалось как 1900+введенное число. В таблицах дата хранится с указанием столетия.

Начиная с версии VFP6 цифру столетия по умолчанию можно было уже настривать.

Вариантов у Вас 2:

1) Привести все даты в базе данных в "нормальный" вид, явно указав столетие:

select MyTable
REPLACE [дата] WITH GoMonth([дата],12*100) ;
FOR BETWEEN([дата],1900,1950)

2) Уменьшать введенное значение на 100 лет

ldFromDate = GoMonth(m.ldFromDate,-12*100)

Я бы посоветовал все-таки привести базу данных в нормальное состояние и при вводе дат обязательно делать настройку SET CENTURY ON чтобы пользователи вводили 4 цифры года (ну, или самостоятельно контролировать ввод автоматически поправляя столетия). Контроль ввода можно повесить на RULE соответсвующего поля или записи.
...
Рейтинг: 0 / 0
17.05.2004, 19:03
| Ответить | Цитировать | Написать  
кнопочные формы
    #32522375
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, подскажи, а где это :

Код: plaintext
1.
2.
select MyTable
REPLACE [дата] WITH GoMonth([дата], 12 * 100 ) ;
FOR BETWEEN([дата], 1900 , 1950 )

или это

Код: plaintext
ldFromDate = GoMonth(m.ldFromDate,- 12 * 100 )
записать?

Я записывала это в предудущий запрос, он у меня выполнялся, но дату не изменял, т.е. по умолчанию все равно стоял 1904 год.
...
Рейтинг: 0 / 0
18.05.2004, 14:56
| Ответить | Цитировать | Написать  
кнопочные формы
    #32522451
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Я так понял, что опыта программирования у Вас вообще нет никакого.

Ладно, напишите условие отбора в SQL-запросе в таком виде:

Код: plaintext
WHERE SubStr(DTOS(a.[дата заседания]), 3 )>=SubStr(DTOS(m.ldFromDate), 3 )


Т.е. везде в запросе строку WHERE замените на эту строку.

Это не очень хорошее решение, но позволяет получить то, что Вам нужно.

Обрати внимание, что функция именно DTOS() (на конце латинская S). Не надо путать ее с DTOC() (на конце C) иначе будет совершенно разный результат.

Что собственно я предлагал сделать. Я предлагал сделать одну из следующих операций:

1) Провести разовую операцию приведения дат в базе данных в "нормальное" состояние.

Это можно сделать написав отдельную процедурку или напрямую в командном окне

2) Исходя из предположения, что все даты имеют 19 столетие, а вводимая пользователем дата 20 столетие вычесть из даты введенной пользователем 100 лет.

Эту операцию следует производить сразу после того, как значение переменной ldFromDate уже окончательно сформировано, но запрос еще не начал выполняться.
...
Рейтинг: 0 / 0
18.05.2004, 15:23
| Ответить | Цитировать | Написать  
кнопочные формы
    #32522553
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Ты прав, я очень плохо разбираюсь в этой программе. Я студентка и я сейчас на практике. Мне дали разработать программный продукт в базе данных и лучше всего в foxpro, хотя мы проходили эту программу мимолетом, т.е. почти совершенно не программируя в ней. Извини, что тебя так сильно загружаю. Если честно, мне очень стыдно! Но ты такой умный и понимающий человек.
СПАСИБО.

А мне так и писать, как ты подсказал: WHERE SubStr(DTOS(a.[дата заседания]),3)>=SubStr(DTOS(m.ldFromDate),3)

Честно говоря, я не понимаю, что это за 3)
Объясни, пожалуйста. А программа не понимает эту строку и пишет "неизвестная команда"
...
Рейтинг: 0 / 0
18.05.2004, 16:02
| Ответить | Цитировать | Написать  
кнопочные формы
    #32522616
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
DTOS(m.ldFromDate) - это функция преобразования даты в символьную строку в таком формате:

"20041231"

SubStr() - это функция выделения фрагмента строки. Второй параметр - это начиная с какого символа надо начать выделение, а третий параметр - сколько символов надо взять. Если третий параметр опущен, то берется до конца строки. Т.е. я отсекаю от строки цифру столетия и получается строка вида:

"041231"

Возможно, в VFP5 требуется более строгий синтаксис. Т.е. обязательное указание 3 параметра. Тогда напиши так:

Код: plaintext
WHERE SubStr(DTOS(a.[дата заседания]), 3 , 6 )>=SubStr(DTOS(m.ldFromDate), 3 , 6 )

или так

Код: plaintext
WHERE RIGHT(DTOS(a.[дата заседания]), 6 )>=RIGHT(DTOS(m.ldFromDate), 6 )

RIGHT() - это выделение из строки указанного количества символов с правого края. Поскольку речь идет о дате, то надо взять 6 символов

Правда, это сработает, если нет дат типа 01.01.1998, поскольку в противном случае нарушится условие сравнения:

"980101">="040101"

Т.е. в выборку будут всегда попадать записи с датой до 01.01.00
...
Рейтинг: 0 / 0
18.05.2004, 16:35
| Ответить | Цитировать | Написать  
кнопочные формы
    #32522886
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ОГРОМНОЕ СПАСИБО !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
У меня все получилось.
Ухожу домой с практики счастливая! До завтра!
...
Рейтинг: 0 / 0
18.05.2004, 18:44
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526246
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, если я введу дату в модальной форме, которой нет в советах,то при нажатии на кнопку "ок" у меня выведется пустая таблица как и должно быть. То же происходит и когда я нажамаю кнопку "отмена" ! Также выводится пустая таблица с полями, сформированными запросом. Но я хочу, чтобы при нажатии на кнопку "отмена" сразу выход был в главную форму. Подскажи, пожалуйста, как это реализовать?
...
Рейтинг: 0 / 0
20.05.2004, 14:41
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526296
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
При нажатии кнопки "Отмена" из формы будет возвращено пустое значение. Значит, достаточно проанализировать содержимое переменной, куда записывается возвращаемое значение и поступить соответсвенно

Код: plaintext
1.
2.
3.
4.
LOCAL ldFromDate
DO FROM MyForm.scx TO m.ldFromDate
IF EMPTY(ldFromDate)=.F.
SELECT ... FROM ...
ENDIF

Кроме того, автоматическое отображение результата запроса происходит только в том случае, если в команде Select-SQL НЕ указана опция INTO. Т.е. если команда будет вида:

SELECT ... FROM ...
INTO CURSOR tmpCur NOFILTER
UNION ALL
SELECT ... FROM ...
UNION ALL
SELECT ... FROM ...

То никакого отображения результата выполнения запроса вообще не будет. В этом случае, чтобы отобразить результат запроса надо после команды Select-SQL дать следующие команды:

select tmpCur
BROWSE
...
Рейтинг: 0 / 0
20.05.2004, 14:55
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526365
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Спасибо, ВладимирМ, очень помог !!!
...
Рейтинг: 0 / 0
20.05.2004, 15:13
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526591
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, подскажи, пожалуйста, как сделать всплывающую подсказку к текстовому полю в форме?
...
Рейтинг: 0 / 0
20.05.2004, 16:16
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526725
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, подскажи, пожалуйста, как сделать модальную формочку для ввода ФИО выступающего(-их). Поле "ФИО выступающего(-их)" имеет тип memo. Ты описывал как сделать такую же модальную формочку, но только для поля "дата". Опиши, пожалуйста также подробно и для "ФИО выступающего(-их)". И по-возможности напиши, пожалуйста запрос - вывод всей информации, соответствующей определенному ФИО или определенным ФИО. Т.е. такой же запрос, который ты описал выше, но только не по дате, а по ФИО выступающего(-их). Помоги, пожалуйста!!!
...
Рейтинг: 0 / 0
20.05.2004, 16:59
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526806
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
как сделать всплывающую подсказку к текстовому полю в форме

1. В свойствах формы установить ShowTips = .T.
2. В свойствах нужного объекта написать текст всплывающей подсказки в свойстве ToolTipText

как сделать модальную формочку для ввода ФИО выступающего(-их). Поле "ФИО выступающего(-их)" имеет тип memo.

Для редактирования memo-полей используется объект EditBox

запрос - вывод всей информации, соответствующей определенному ФИО или определенным ФИО

Да все то же самое, только условие отбора будет соответственно

WHERE a.[ФИО выступающих] = m.lcFIO

Хотя по условие отбора по memo-полям желательно избегать. Это будет очень медленная операция
...
Рейтинг: 0 / 0
20.05.2004, 17:29
| Ответить | Цитировать | Написать  
кнопочные формы
    #32526963
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
При компиляции запроса у меня выходит окно ошибки "команда содержит нераспознанное ключевое слово"
Вот мой запрос:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
LOCAL lcFIO
DO FORM fff2.scx to m.lcFIO
IF EMPTY(lcFIO)=.f.
SELECT a.дата_совета, b.название_совета;
FROM [ped_sovet.dbf] a ;
INNER JOIN [perechen_sovetov] b ON a.номер_совета=b.номер_совета ;
WHERE a.фио_выступающих = m.lcFIO;
UNION ALL ;
.......
SELECT a. дата_совета, b.название_совета;
FROM [metod_sovet.dbf] a ;
INNER JOIN [perechen_sovetov] b ON a.номер_совета=b.номер_совета ;
WHERE a.фио_выступающих = m.lcFIO;
ENDIF

Почему так?

ВладимирМ, помнишь ты писал о создании нового свойства в модальной форме
с именем returnvalue(см.выше) Здесь ведь тоже надо сделать нечто подобное?
...
Рейтинг: 0 / 0
20.05.2004, 18:31
| Ответить | Цитировать | Написать  
кнопочные формы
    #32527038
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Да все делаешь то же самое, просто тебе нужно, чтобы ReturnValue было символьного типа. Т.е. в качестве значения по умолчанию пишешь не фигурные скобки, а подряд 2 кавычки.

А по поводу "нераспознанное ключевое слово"...

Если это не опечатка, то перед символом "точка с запятой" во всех строках обязательно следует ставить пробел.

Дело в том, что на этапе компиляции кода FoxPro собирает написанный код в одну строку, т.е. в твоем случае получилось что-то вроде:

Код: plaintext
... WHERE a.фио_выступающих = m.lcFIOUNION ALL ...

Т.е. у ключевого слова UNION не оказалось ведущего пробела и естесствено компилятор не смог его распознать.
...
Рейтинг: 0 / 0
20.05.2004, 19:12
| Ответить | Цитировать | Написать  
кнопочные формы
    #32528159
nd1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nd1
Гость
Помнишь как ты писал: на форму кладешь объект TextBox и в его свойстве Value прописываешь такое выражение =Date(), а что написать в свойстве Value для объекта поле редактирования (EditBox)?
...
Рейтинг: 0 / 0
21.05.2004, 14:05
| Ответить | Цитировать | Написать  
кнопочные формы
    #32528237
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
на форму кладешь объект TextBox и в его свойстве Value прописываешь такое выражение =Date(), а что написать в свойстве Value для объекта поле редактирования (EditBox)?

Код: plaintext
=""

Подряд 2 кавычки. Это эквивалент пустой строки. Можно вообще ничего не писать, поскольку по умолчанию, Value для EditBox и так имеет символьный тип данных.
...
Рейтинг: 0 / 0
21.05.2004, 14:26
| Ответить | Цитировать | Написать  
кнопочные формы
    #32528380
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, запрос получился, но в поле фио_выступающих (memo) -несколько фамилий. Поэтому, если я напишу в запришивающей форме только одну из фамилий, то ничего не выводится в результирующей таблице. А как сделать так, чтобы вывод информации о совете был и тогда, когда запрашиваешь не все фамилии сразу, а только некоторые из них?
...
Рейтинг: 0 / 0
21.05.2004, 15:11
| Ответить | Цитировать | Написать  
кнопочные формы
    #32528396
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
ВладимирМ, запрос получился, но в поле фио_выступающих (memo) -несколько фамилий. Поэтому, если я напишу в запришивающей форме только одну из фамилий, то ничего не выводится в результирующей таблице. А как сделать так, чтобы вывод информации о совете был и тогда, когда запрашиваешь не все фамилии сразу, а только некоторые из них?
...
Рейтинг: 0 / 0
21.05.2004, 15:15
| Ответить | Цитировать | Написать  
кнопочные формы
    #32528423
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вообще-то, неплохо бы почитать любую книжку по синтаксису команды Select-SQL.

Для множественного выбора используется конструкция вида:

(Field=Value1 OR Field=Value2 OR ...)

или, что то же самое, но короче

Field IN (Value1, Value2, Value3, ...)

В синтаксисе FoxPro кроме этих вариантов можно использовать еще команду InList()

InList(Field,Value1,Value2,Value3,...)

Но у команды InList есть ограничение на количество элементов списка (зависит от версии FoxPro)

Т.е. у тебя 2 варианта решения:

1) Делать синтаксический разбор значения, введенного в EditBox на предмет формирования списка перечисления
2) Создать на форме несколько EditBox - один объект на одно ФИО, а по кнопке "Ok" собирать все значения в один список
...
Рейтинг: 0 / 0
21.05.2004, 15:23
| Ответить | Цитировать | Написать  
кнопочные формы
    #32529262
nadin1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
nadin1
Гость
Напишите, пожалуйста, поподробнее - куда писать эту команду, что означает Field IN (Value1, Value2, Value3, ...). Буду очень признательна!
...
Рейтинг: 0 / 0
22.05.2004, 13:37
| Ответить | Цитировать | Написать  
кнопочные формы
    #32529467
??????????????
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
??????????????
Гость
ВладимирМ я НЕ понял в чем прикол.. да напишите Вы уже ЕЙ ВЕСЬ проджект - хай девушка не мучается....
...
Рейтинг: 0 / 0
22.05.2004, 20:56
| Ответить | Цитировать | Написать  
кнопочные формы
    #32529990
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
nadin1
Синтаксис команды Select-SQL (приведен в синтаксисе MS SQL без описания объединения по JOIN, для FoxPro не все из описанного можно использовать, но общее представление получишь)

http://www.sql.ru/docs/sql/u_sql/index.shtml

По поводу IN в той же книге глава

http://www.sql.ru/docs/sql/u_sql/ch5.shtml#5.1


Я не могу ВМЕСТО ВАС писать ВАШ проект. Я могу только дать подсказку, где смотреть и что делать. Тем более я не вижу у Вас желание самой что-то делать.

Желательно задавать вопросы в конференции только после того, как самостоятельно поупираешся в проблему. В противном случае Вы просто не поймете ответа! Как сейчас, например.
...
Рейтинг: 0 / 0
24.05.2004, 09:43
| Ответить | Цитировать | Написать  
41 сообщений из 41, показаны все 2 страниц
  все  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / кнопочные формы
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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