ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по VFP 9.0
16 сообщений из 16, страница 1 из 1
Вопрос по VFP 9.0
    #37736524
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
Как на форме в кнопке в процедуре OnClick используя sql запрос который осуществляет поиск по фамилии имени и отчеству клиента соответственно, выводила еще ошибку в случае если такие данные не найдены в таблицах, а не пустое Browse окно:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
fam=ALLTRIM(thisform.text1.Value)
im=ALLTRIM(thisform.text2.Value)
otch=ALLTRIM(thisform.text3.Value)


 SELECT Klient.fam_kl as 'Ôàìèëèÿ_êëèåíòà', Klient.imya_kl as 'Èìÿ_êëèåíòà', Klient.otch_kl as 'Îò÷åñòâî_êëèåíòà', Klient.telefon as 'Òåëåôîí',;
  Klient.dom as 'Äîì', Klient.korpus as 'Êîðïóñ', Klient.kvartira as 'Êâàðòèðà', Ulica.naim_ul as 'Óëèöà';
 FROM ;
     data1!ulica ;
    INNER JOIN data1!klient ;
   ON  Ulica.un_kl_ul = Klient.un_kl_ul WHERE Klient.fam_kl=fam and;
    Klient.imya_kl=im and Klient.otch_kl=otch


use


я пробовал вставлять messagebox но что то не получается, может не туда вставляю или они вместе не будут работать?
...
Рейтинг: 0 / 0
03.04.2012, 14:38
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37736557
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
lSAlexlКак на форме в кнопке в процедуре OnClick используя sql запрос который осуществляет поиск по фамилии имени и отчеству клиента соответственно, выводила еще ошибку в случае если такие данные не найдены в таблицах, а не пустое Browse окно:

Код: sql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
fam=ALLTRIM(thisform.text1.Value)
im=ALLTRIM(thisform.text2.Value)
otch=ALLTRIM(thisform.text3.Value)


 SELECT Klient.fam_kl as 'Ôàìèëèÿ_êëèåíòà', Klient.imya_kl as 'Èìÿ_êëèåíòà', Klient.otch_kl as 'Îò÷åñòâî_êëèåíòà', Klient.telefon as 'Òåëåôîí',;
  Klient.dom as 'Äîì', Klient.korpus as 'Êîðïóñ', Klient.kvartira as 'Êâàðòèðà', Ulica.naim_ul as 'Óëèöà';
 FROM ;
     data1!ulica ;
    INNER JOIN data1!klient ;
   ON  Ulica.un_kl_ul = Klient.un_kl_ul WHERE Klient.fam_kl=fam and;
    Klient.imya_kl=im and Klient.otch_kl=otch
[color=red]INTO CURSOR MyCursor
SELECT MyCursor
IF RECCOUNT() = 0
   MESSAGEBOX("По заданным параметрам ничего не найдено")
ENDIF[/color]

use


я пробовал вставлять messagebox но что то не получается, может не туда вставляю или они вместе не будут работать?
...
Рейтинг: 0 / 0
03.04.2012, 14:51
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37736566
IgorNG
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
IgorNG
Участник
lSAlexl,

Только еще вывод результатов делать культурно в Grid.
...
Рейтинг: 0 / 0
03.04.2012, 14:54
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37736599
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
lSAlexl, советую взять и почитать книжку по фоксу. Любую.
...
Рейтинг: 0 / 0
03.04.2012, 15:05
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37737435
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
спасибо всем :)
...
Рейтинг: 0 / 0
04.04.2012, 00:17
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742623
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
INTO CURSOR MyCursor
как в фокс про курсор этот называется, а то погуглил что-то ничего на эту тему не нашел
...
Рейтинг: 0 / 0
06.04.2012, 20:13
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742630
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
lSAlexlINTO CURSOR MyCursor
как в фокс про курсор этот называется, а то погуглил что-то ничего на эту тему не нашел
Так и называется. Курсор. Временная таблица.

Про некоторые особенности можно почитать здесь Курсор
...
Рейтинг: 0 / 0
06.04.2012, 20:17
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742636
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
ВладимирМ, если так и называю MyCursor то выдает ошибку unrecognized command verb
...
Рейтинг: 0 / 0
06.04.2012, 20:23
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742647
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
ВладимирМ, я новичок просто в VFP, осваиваю потихоньку, и трудно перевариваю информацию данную выше по ссылке, прочитал, но что-то не помогло :)
...
Рейтинг: 0 / 0
06.04.2012, 20:35
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742665
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Вы синтаксис команды Select-SQL в принципе представляете? Не применительно к FoxPro, а "вообще"?

SELECT "из каких полей"
FROM "из какой таблицы"
WHERE "из каких записей"
INTO "куда положить результат"

Это общий синтаксис команды Select-SQL в любом языке программирования. Особенность FoxPro, в данном случае, заключается в том, куда будет организован вывод результата выборки, если опция INTO не указана.

Если опци INTO явным образом не указана, то FoxPro сформирует курсор (временную таблицу) с неким именем по умолчанию, а затем отобразит этот курсор через Browse-окно.

Если же опция INTO указана в команде явным образом, что результат выполнения команды Select-SQL будет выгружен в тот объект, который в этой опции и указан. Если такого объекта не существовало ранее, то он будет создан (есть исключения, но сейчас это не важно)

В какой именно объект будет осуществлена выгрузка определяется следующим за опцией INTO ключевым словом. В данном случае указано ключевое слово CURSOR, значит, выгрузка будет осуществлена в курсор. Во временную таблицу.

MyCursor - это уже имя создаваемого курсора. Имя может быть произвольным (почти). Все зависит от фантазии программиста.

Курсор создали. Теперь его надо отобразить в Grid. Как это сделать? Надо просто указать этот курсор в качестве источника данных для этого самого Grid. Примерно так

Код: sql
1.
2.
3.
4.
5.
* Сначала обязательно сбросить ранее указанный источник данных, даже если его и не было
ThisForm.Grid1.RecordSource = ""

* Затем установить новый источник данных, указав имя созданого курсора
ThisForm.Grid1.RecordSource = "MyCursor"



Разумеется, я предполагаю, что объект Grid1 уже существует на форме.
...
Рейтинг: 0 / 0
06.04.2012, 20:55
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742666
Jonny540
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Jonny540
Участник
lSAlexl,

Точку с запятой (;) поставь после
... Klient.imya_kl=im and Klient.otch_kl=otch ;
INTO ...
...
Рейтинг: 0 / 0
06.04.2012, 20:55
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742669
reware
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
reware
Участник
lSAlexlВладимирМ, я новичок просто в VFP, осваиваю потихоньку, и трудно перевариваю информацию данную выше по ссылке, прочитал, но что-то не помогло :)
Угумс, по-моему очередная бездарная провокация для оживления треда. Володя Максимов, сколько раз мы уже и тут и там встречали "Я полный ноль в фоксе, мне надо выбрать <далее около 20 Кбайт чего и куда выбрать>" после чего начинается та-а-а-акой тред, тушите свет и ложитесь спать. Это кому-то надо, или звёзды пусть и так светят ?
...
Рейтинг: 0 / 0
06.04.2012, 20:58
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742676
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
reware, ну я не говорил что полный 0, я говорил что доходит туго :)
...
Рейтинг: 0 / 0
06.04.2012, 21:10
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742678
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
ВладимирМ, синтаксис да, знаю, в принципе попробую разобраться самостоятельно
Jonny540, блин и правда из-за нее, даже обидно что не заметил...спасибо вам!:)
...
Рейтинг: 0 / 0
06.04.2012, 21:13
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742679
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
reware, даже попробую на примере объяснить:
Учат ребенка считать, 2 яблока + 4 яблока, один схватывает на лету, другой тормозит, в особенности когда таки операций(в данном случае запросов, но их не много в данном примере) много можно запутаться
...
Рейтинг: 0 / 0
06.04.2012, 21:14
| Ответить | Цитировать | Написать  
Вопрос по VFP 9.0
    #37742692
lSAlexl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lSAlexl
Гость
Кто может объяснить еще такую проблему:
Есть форма на ней грид сверху клиент и в гриде можно добавлять несколько услуг, так вот, есть такое свойства как Sparse при True вместо наименования услуги показывает уникальный ключ (1, 2 и т.д.) если делаю так то, при нажатии на поле показывает наименование услуги, а если сделать False то все бы хорошо (показывает наименование услуги), но при переключении к следующему клиенту имеющего несколько услуг то форма как бы сказать подвисает и показывает одного и того же клиента пока не переключиться на того, у которого одна услуга и показывает информацию нормально, почему так происходит?
...
Рейтинг: 0 / 0
06.04.2012, 21:41
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Вопрос по VFP 9.0
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37742679&tid=1583746]:
 0ms
get settings:
 9ms
get forum list:
 16ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 54ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 58ms
get tp. blocked users:
 2ms
others: 297ms
total:  454ms
созд. / загр.: 454ms
x
x
Закрыть


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