Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поисковая форма / 12 сообщений из 12, страница 1 из 1
10.10.2006, 17:36
    #34045157
qw2005
qw2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
помогите с формой поиска 3 задание на http://www.flower.vn.ua/my/bd.htm

как написать код для оброботки собития клик на кнопке поиск
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 13:02
    #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, 14:16
    #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:28
    #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:41
    #34047496
Проходящий
Проходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
Пусть будет так. Теперь возникает вопрос о смысле и форме применения здесь scan. А если нужная запись будет последней из всех? Все равно перебирать все предыдущие?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 15:11
    #34047648
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
авторТеперь возникает вопрос о смысле и форме применения здесь scan. А если нужная запись будет последней из всех? Все равно перебирать все предыдущие?
Дык это учебное задание. А они бываею отличаются краней тупостью и умничания преподы не любят. Возможно они еще индексацию не проходили и изучают цикл скан ;) Так что никакие SELECT или LOCATE здесь никанают.
Автор то текста задания не выложил а искать самому по ссылкам облом.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 15:14
    #34047668
Проходящий
Проходящий
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
Ну чтож, туда ему и дорога.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
11.10.2006, 15:21
    #34047706
Burn
Burn
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
У меня когдато был случай, когда делалась лаба на Паскале с жестким условием не использовать оператор безусловного перехода. А задача была такая, что постояно надо было перебирать списки в поиске нужного значения. А в паскале, как известно операторов вываливания из цикла, фроде фоксовского EXIT нет. Да и зачем он нужен, если есть goto :D Вот и осталось два варианта - либо мотать цикл до конца, либо каждый цикл засунуть в отдельную процедуру и по достижению нужного значения вываливатся по exit - оператору прерывания выполнения процедуры (был там такой) Переменую-счетчик цикла там вроде менять низя (хотя за давностью лет уже не помню)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2006, 12:35
    #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:45
    #34056803
qw2005
qw2005
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Поисковая форма
ладно вообшем у меня вообше в чом вопрос
у меня таблица books
мне надо с combo1 взять имя поля таблицы и сранить его с тем что введено в
text1 как это правильно написать
типа books.kod а мне надо чтоб когда в combo1 вибрано kod то
я думал что так надо писать
books.combo1.volue=text1.volue
поясните пожалуйсто
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
16.10.2006, 12:57
    #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, 13:01
    #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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Поисковая форма / 12 сообщений из 12, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 361ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1590569]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 53ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 216ms
total:  361ms
x
x
Закрыть


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