Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 20.04.2011, 10:36   #1
a_n_n_a
Форумчанин
 
Регистрация: 06.03.2009
Сообщений: 157
По умолчанию Поиск в ADOTable

Здравствуйте)
У меня есть таблица Приглашенные, в ней столбец Номер_заказа.
На каждый заказ может быть до 5ти приглашенный => в таблице приглашенные может быть до 5ти одинаковых номеров в Номере_заказа.
Мне необходимо сделать поиск по этой таблице, но что-то я не соображу...
Я сделала 5 вкладок на PageControl, и по количеству найденных приглашенных отображается такое же кол-во вкладок. А на каждой вкладке у меня разные Edit'ы, в которых отображаются данные из таблицы.
Самого первого приглашенного я могу найти, а вот как сделать, чтобы во 2й и последующих вкладках отображались и другие не понимаю)
Хотела сначала сделать через DBEdit'ы, но тоже что-то не пошло)Конечно, через DBEdit'ы было бы вообще замечательно, с внесение отредактированных данных проблем бы не было)))
Не подскажите, как это все лучше организовать?)
Все подключено через ADOTable)
Спасибо)

Последний раз редактировалось a_n_n_a; 20.04.2011 в 10:38.
a_n_n_a вне форума Ответить с цитированием
Старый 21.04.2011, 10:09   #2
BeJIuKuu_Hexo4yxa
Пользователь
 
Регистрация: 13.10.2010
Сообщений: 96
По умолчанию

Попробую догадаться, что стряслось.

1. В DBEdit'е отображаются данные по текущей записи выбранного DataSet'a, а при поиске текущая запись будет меняться.
Необходимо использовать обычные Edit'ы.

2. С поиском 2-5 скорее всего проблема из-за того, что поиск идет каждый раз с начала таблицы.
Здесь либо в запрос поиска передавать в качестве параметра ID последней найденной записи, либо вручную просматривать таблицу по записям.

Код:
step := 1; // номер приглашения
while (not <таблица>.eof) and (step < 6)  do
begin
  if <условие, подходит ли заказ> then
  begin. 
    step := step + 1; // номер приглашения
    <заполняем нужные edit в зависимости от шага step>
  end;
  <таблица>.next;
end;
Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. (Стив Макконнелл)

Последний раз редактировалось BeJIuKuu_Hexo4yxa; 21.04.2011 в 10:10. Причина: опечатка
BeJIuKuu_Hexo4yxa вне форума Ответить с цитированием
Старый 21.04.2011, 12:49   #3
a_n_n_a
Форумчанин
 
Регистрация: 06.03.2009
Сообщений: 157
По умолчанию

Все поняла)) Спасибо, буду пробовать)
a_n_n_a вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Цикл в ADOTable Vitalik55 БД в Delphi 11 22.05.2009 13:36
AdoTable поиск от курсора Deight БД в Delphi 4 20.04.2009 08:17
AdoTable Artruman БД в Delphi 4 03.04.2009 02:07
AdoTable Mishina БД в Delphi 2 15.06.2008 06:35
Как копировать данные из ADOTable в ADOTable? mauar БД в Delphi 1 10.05.2008 16:05