ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поисковая форма
12 сообщений из 12, страница 1 из 1
Поисковая форма
    #34045157
qw2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qw2005
Гость
помогите с формой поиска 3 задание на http://www.flower.vn.ua/my/bd.htm

как написать код для оброботки собития клик на кнопке поиск
...
Рейтинг: 0 / 0
10.10.2006, 17:36
| Ответить | Цитировать | Написать  
Поисковая форма
    #34046992
qw2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qw2005
Гость
select books
scan
if (books.combo1.value=2)
set filter to (books.comb1.value)
endif
ENDSCAN
thisform.RELEASE
books2.REFRESH
правильный ход мысли или нет
...
Рейтинг: 0 / 0
11.10.2006, 13:02
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047386
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
Не знаю что там за задание, но вот это
Код: plaintext
1.
2.
3.
4.
scan
  if (books.combo1.value= 2 )
    set filter to (books.comb1.value)
  endif
ENDSCAN
чепуха.
Set filter - настроечная команда, что, вроде бы, должно быть видно хотя бы по ее виду. Она ничего с данными не делает. Какой смысл ее повторять для каждой записи? К тому же, к поиску она имеет довольно опосредованное отношение. Ищут комнды Seek и Locate
...
Рейтинг: 0 / 0
11.10.2006, 14:16
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047439
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
авторНе знаю что там за задание, но вот это
scan
if (books.combo1.value=2)
set filter to (books.comb1.value)
endif
ENDSCAN
чепуха.


Скорее всего имелось ввиду
Код: plaintext
1.
2.
3.
4.
5.
scan
  if (books.combo1.value= 2 )
    set filter to (books.comb1.value)
    EXIT
  endif
ENDSCAN
Нашли запись с нужным значением, наложили фильтр и вышли
...
Рейтинг: 0 / 0
11.10.2006, 14:28
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047496
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
Пусть будет так. Теперь возникает вопрос о смысле и форме применения здесь scan. А если нужная запись будет последней из всех? Все равно перебирать все предыдущие?
...
Рейтинг: 0 / 0
11.10.2006, 14:41
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047648
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
авторТеперь возникает вопрос о смысле и форме применения здесь scan. А если нужная запись будет последней из всех? Все равно перебирать все предыдущие?
Дык это учебное задание. А они бываею отличаются краней тупостью и умничания преподы не любят. Возможно они еще индексацию не проходили и изучают цикл скан ;) Так что никакие SELECT или LOCATE здесь никанают.
Автор то текста задания не выложил а искать самому по ссылкам облом.
...
Рейтинг: 0 / 0
11.10.2006, 15:11
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047668
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Проходящий
Участник
Ну чтож, туда ему и дорога.
...
Рейтинг: 0 / 0
11.10.2006, 15:14
| Ответить | Цитировать | Написать  
Поисковая форма
    #34047706
Burn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Burn
Участник
У меня когдато был случай, когда делалась лаба на Паскале с жестким условием не использовать оператор безусловного перехода. А задача была такая, что постояно надо было перебирать списки в поиске нужного значения. А в паскале, как известно операторов вываливания из цикла, фроде фоксовского EXIT нет. Да и зачем он нужен, если есть goto :D Вот и осталось два варианта - либо мотать цикл до конца, либо каждый цикл засунуть в отдельную процедуру и по достижению нужного значения вываливатся по exit - оператору прерывания выполнения процедуры (был там такой) Переменую-счетчик цикла там вроде менять низя (хотя за давностью лет уже не помню)
...
Рейтинг: 0 / 0
11.10.2006, 15:21
| Ответить | Цитировать | Написать  
Поисковая форма
    #34056769
qw2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qw2005
Гость
1. Модифікувати форми Books2,Readers2,Authors2, Books, UserCard, таким чином, щоб на кожній з них знаходилася кнопка "Пошук".

2. Для кожної з форм (і кожної відповідної таблиці) створити форми пошуку згідно таблиці :


Форма пошуку повинна бути аналогом форми пошуку FoxPro при перегляді таблиць

На формах пошуку необхідно передбачити

1. елемент ComboBox за допомогою якого можна вибрати поле по якому відбувається пошук.

2. елемент ComboBox за допомогою якого можна вибрати тип пошуку (<,>,=)

Результатом виконання пошуку повинно бути:
в разі вдалого пошуку повернення в форму з якої була викликана форма пошуку та перехід на знайдений запис
в разі невдалого пошуку видача повідомлення "Такого запису не існує"

На формах пошуку потрібно використовувати інструкцію SET FILTER TO

Після перегляду результатів пошуку потрібно ввести можливість відмінити дії оператору SET FILTER TO. Для чого потрібно на викликаючих формах передбачити кнопку "Показати всі".
...
Рейтинг: 0 / 0
16.10.2006, 12:35
| Ответить | Цитировать | Написать  
Поисковая форма
    #34056803
qw2005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
qw2005
Гость
ладно вообшем у меня вообше в чом вопрос
у меня таблица books
мне надо с combo1 взять имя поля таблицы и сранить его с тем что введено в
text1 как это правильно написать
типа books.kod а мне надо чтоб когда в combo1 вибрано kod то
я думал что так надо писать
books.combo1.volue=text1.volue
поясните пожалуйсто
...
Рейтинг: 0 / 0
16.10.2006, 12:45
| Ответить | Цитировать | Написать  
Поисковая форма
    #34056870
DmGr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmGr
Гость
{Exit.PAS}
▀▀▀▀▀▀▀▀▀▀▀▀
{Sample code for the Exit procedure.}

uses WinCrt;

procedure WasteTime;
begin
repeat
if KeyPressed then Exit;
Write('Xx');
until False;
end;
begin
WasteTime;
end.

;)

lcCommnad = "SET FILTER TO " + THISFORM.cbo1.Value + " " + THISFORM.cbo2.Value + " ='" + THISFORM.txt1.Value + "'"
&lcCommand
COUNT TO lnCount
IF lnCount = 0
wait window "ничего не найдено"
ENDIF
...
Рейтинг: 0 / 0
16.10.2006, 12:57
| Ответить | Цитировать | Написать  
Поисковая форма
    #34056886
DmGr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DmGr
Гость
Описался :))

lcCommnad = "SET FILTER TO " + THISFORM.cbo1.Value + " " + THISFORM.cbo2.Value + " '" + THISFORM.txt1.Value + "'"
&lcCommand && SET FILTER TO MyPole = 'Значение'
COUNT TO lnCount
IF lnCount = 0
wait window "ничего не найдено"
ENDIF
...
Рейтинг: 0 / 0
16.10.2006, 13:01
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поисковая форма
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=230&tid=1590569]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 46ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 263ms
total:  368ms
созд. / загр.: 368ms
x
x
Закрыть


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