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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 05.09.2008, 08:28   #1
White
Пользователь
 
Регистрация: 12.08.2008
Сообщений: 10
По умолчанию Сравнение данных

Добрый день! Очень нужна ваша HELP!!!
В БД имеется таблица
Код:
Документы   Версия  Дата печати
Doc1        В1        null
Doc1        В2        15.08.08
Doc1        В3        null 

Doc2        В1        null
Doc2        В3        17.08.08 

Doc3        В1        null
Doc3        В2        null
Doc3        В3        null
.........................................
Docn        В1        null
Задача такая: для каждого Doc_i проверить, если последняя ненулевая Дата печати соответствует последней Версии документа(в нашем случае это Doc2), то выполнять процедуру1, иначе Процедуру2.
Я делаю так

Вывожу в ListView результат запроса

Код:
select Документы, max(Версия) from Table group by Документы 
...
Versiya:=FieldByName('max(Версия)').AsString
Затем делаю проверку в цикле так:

Код:
for i:=0 to ListView.Items.Count-1 do
begin
...
select Документы,max(Версия),max(Дата печати) where Дата печати is not null and Документы:=ListView.Items[i]
...
if max(Версия)=Versiya then Процедура1 else Процедура 2
end;
Но это вызывает множество проблем, не подскажите другой способ проверить.
White
White вне форума Ответить с цитированием
Старый 09.09.2008, 22:32   #2
mihali4
*
Старожил
 
Регистрация: 22.11.2006
Сообщений: 9,201
По умолчанию

А зачем вообще ListView?
SQL запрос выполняете, наверное, через Query?
Для начала в первый запрос нужно включить условие "where Дата печати is not null".
А потом перебирать полученные запросом записи "while not Query.EOF", сравнивая поля Query и ваше значение max(Версия) и выполнять соответствующую процедуру...
mihali4 вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
сравнение дат Geddar Общие вопросы Delphi 2 04.06.2008 19:09
Сравнение строк Elm0 Паскаль, Turbo Pascal, PascalABC.NET 2 02.06.2008 09:31
Сравнение и подстановка tsasha1 Microsoft Office Excel 2 08.04.2008 14:47
Сравнение и перенос данных miheus Microsoft Office Excel 1 29.11.2007 16:42