powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Организация поиска по полям?
19 сообщений из 19, страница 1 из 1
Организация поиска по полям?
    #33598697
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
есть ДБФ с полями: tel С 7 (2-10-00); Fio C 240 (Иванов Иван Иванович)

Как мне отобразить элементы в форме, в которых буду задавать данные для поиска? Пример: поиск по телефону - какой элемент, с учетом того что формат телефона 2-10-00 т.е. поле одно а ввожу 21000 (знак - непечатаемый); и поиск по ФИО - какой элемент, с учетом того что надо искать по сочетанию символов (Иван-> Иванов Иван, Петров Иван, Иван Сидоров) и выводить данные насколько я понимаю в элемент Grid.

Поиск по телефону можно организовать! Но меня смущает организация такого поиска по ФИО?
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33599862
valeryka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Многовато поле для ФИО
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33600010
Недоходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
2 jonvtur
Легко! в выборке после where пишешь ATC("Иван",Fio)>0 . Есил будут совпадения то будет результат положительный и выбереться
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601029
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
поле FIO большое потому что кроме фамилии, имени и отчество у меня в этом поле занесены еще и полные наименования организации, в которых может и 200 символов быть!
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601056
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Почитай про функцию like()
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601063
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
попробую объяснить задачу:

есть форма Sprav с выводом всех полей базы данных (всех реквизитов абонента). Есть Command Button (ПОИСК) в этой форме, который запускает форму Seek в ней есть элемент Grid, которое показывает содержимое: Телефон, ФИО, Город, Улица, дом, кв. мне надо созадть элементы формы Seek для ввода искомых данных по полям, с учетом того что было описано выше! И если он найдет и выведет в Grid 10 или 40 записей с полем FIO = Иван то я должен визуально найти человека в Gridе вернуться в Sprav и увидеть все данные о нем!
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601122
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
posmotri:

http://www.foxclub.ru/sol/index.php?act=view&id=505
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601675
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
сделал форму как в примере(http://www.foxclub.ru/sol/index.php?act=view&id=505), переписал немного код Выдает при запуске формы "Синтаксическая ошибка"

Что за фигня?
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601823
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Noverno zabil pro Public
load formu napisat Public L1, LN1,L2,LN2
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33601895
igor_fp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Посмотри http://www.sql.ru/forum/actualthread.aspx?tid=264173
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602095
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
переменные забил ошибка исчезла. Еще одна проблемма возникает: искать поля которые содержат 2-10-00 он просто в Text Box их не хочет забивать, только а-я и тут же нужно ввести ПРОБЕЛ чтобы набрать "Иванов Перт" не хочет его вводить!
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602103
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
из за функций которыя использую ATC?
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602304
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lutshe bi bila kajdiy zapis xranilas na otdelnom pole tablitsi, oqo lekqo budet otrobotat.Toqda ti mojesh ispolzivat funksiyu LIKE.Vot malinkey primer:
SELECT * FROM ABON ;
WHERE LEFT(abon.kod,2) == "01" AND ;
LIKE(ABN,UPPER(ALLTRIM(ABON.name))) AND ;
LIKE(TEL,UPPER(ALLTRIM(ABON.tel))) AND ;
INTO TABLE nFind
GO TOP

Thisform.Grid1.RecordSource = "nFind"
Thisform.Grid1.Refresh
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602316
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lutshe bi bila kajdiy zapis xranilas na otdelnom pole tablitsi, oqo lekqo budet otrobotat.Toqda ti mojesh ispolzivat funksiyu LIKE.Vot malinkey primer:
SELECT * FROM ABON ;
WHERE LEFT(abon.kod,2) == "01" AND ;
LIKE(ABN,UPPER(ALLTRIM(ABON.name))) AND ;
LIKE(TEL,UPPER(ALLTRIM(ABON.tel))) AND ;
INTO TABLE nFind
GO TOP

Thisform.Grid1.RecordSource = "nFind"
Thisform.Grid1.Refresh
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602325
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Lutshe bi bila kajdiy zapis xranilas na otdelnom pole tablitsi, oqo lekqo budet otrobotat.Toqda ti mojesh ispolzivat funksiyu LIKE.Vot malinkey primer:
SELECT * FROM ABON ;
WHERE LEFT(abon.kod,2) == "01" AND ;
LIKE(ABN,UPPER(ALLTRIM(ABON.name))) AND ;
LIKE(TEL,UPPER(ALLTRIM(ABON.tel))) AND ;
INTO TABLE nFind
GO TOP

Thisform.Grid1.RecordSource = "nFind"
Thisform.Grid1.Refresh
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602372
FOXFOX
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
malinkaya poprayka
ABN = UPPER(CHRTRAN(ALLTRIM(THISFORM.text1.Value),' ','*'))
TEL = UPPER(CHRTRAN(ALLTRIM(THISFORM.text2.Value),' ','*'))
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33602498
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Посмотри еще до кучи вот это решение
Само решение несколько о другом, но в примере разбирается именно твоя задача.
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33607425
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
написал так:
SELECT sprav
PUBLIC t,l
IF THISFORM.optiongroup1.Value =1
t = ALLTRIM(THISFORM.text1.Value)
l= LEN(t)
IF !EMPTY(THISFORM.TEXT1.Value)
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
endif
ELSE
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
endif
GO TOP
Thisform.Grid1.Refresh

получается что: набираешь 2-10-11, он Grid необновляет, обновляет только после того как, мышкой переходишь на грид а затем обратно в text1. Только тогда получается желаемый результат.
А надо чтобы после каждого нажатия символа обновлял ГРИД (допустим: вводим 2-11, он долже в гриде уже отфильтровать (set filter to) таблицу)!
...
Рейтинг: 0 / 0
Организация поиска по полям?
    #33607467
jonvtur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
поменял процедуру на InteractiveChange
и вписал измененный код:
SELECT sprav
PUBLIC t,l
IF THISFORM.optiongroup1.Value =1
t = ALLTRIM(THISFORM.text1.Value)
l= LEN(t)
IF !EMPTY(THISFORM.TEXT1.Value)
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
ELSE
IF !EMPTY(THISFORM.TEXT1.Value)
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
endif
endif
ELSE
IF !EMPTY(THISFORM.TEXT1.Value)
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
ELSE
IF !EMPTY(THISFORM.TEXT1.Value)
SET FILTER TO LEft(CHRTRAN(sprav.tel,substr(sprav.tel,2,1),SPACE(0)),l) == t
endif
ENDIF
endif
GO TOP
Thisform.Grid1.Refresh

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


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