БД библиотека

[Arkuz]

Я уже что-то и запрос никак не найду... Переделывал, не помню уже... Ну возникнет такого характера проблема... Тогда обращусь к вам...

[Arkuz]

Я опять с вопросом...

Запрос. Нужно выбрать фамилии читателей, которые задолжали книгу более чем на месяц...
Есть 2 таблицы. Distribution - выдачи и Readers соответственно читатели.
Эти две таблицы связаны по полю ReaderID.

Не получается никак сделать...
Даже не получается номер читателя выбрать:

SELECT Distribution.ReaderID FROM Distribution WHERE
Distribution.ReaderID=Readers.Reade rID

[Arkuz]

Вот так вроде бы правильно

SELECT Distribution.ReaderID FROM Distribution WHERE
Distribution.ReaderID=(SELECT Readers.ReaderID FROM Readers WHERE Distribution.ReaderID=Readers.Reade rID)

а подскажите как вывести фамилии а не ID

И почему этот не работает

SELECT Distribution.ReaderID FROM Distribution WHERE
Distribution.ReaderID=Readers.Reade rID

Ведь это одно и тоже с тем, который выше???

[mihali4]

SELECT Distribution.ReaderID,Readers.Reade rID,Readers.FIO FROM Distribution,Readers WHERE
Distribution.ReaderID=Readers.Reade rID

[Arkuz]

Спасибо...

[Arkuz]

Это снова я... Привет всем...

БД почти пришла к своему логическому завершению... Есть ещё пара вопросов....

Один задам... Когда я нажимаю на кнопку сдача, книге в "Истории" булеву полю присваивается ложь, а дате - текущая дата. Тоже самое делается, если групбокс стоит на "Должниках". Но что самое интересное работает сдача через "Должников" не всегда.

Попробуйте создать несколько выдач, и перезапустить программу. Поставить групбокс в "Должники" и попробуйте сдать книгу. У меня не получается... А через "Историю" сдаёт.

Прикрепляю файл... Не знаю что делать, вроде по событию нажатия на "Сдача" всё правильно... Не знаю, жду помощи...

[mihali4]

Ну, во-первых, вот это меня просто изумило:

 {Подсчёт кол-ва должников}
 DataModule2.CountDolgQuery.Open;
 Edit1.Text:=DataModule2.CountDolgQueryExpr1000.AsString;
 DataModule2.CountDolgQuery.Close;

А разве DataModule2.DolgQuery.RecordCount - не то же самое?

Теперь собственно по заданному вопросу.
Опять у вас то же самое - вы хотите зафиксировать сдачу книги одним читателем, а редактируете таблицу Distrib не глядя, на какой строке сейчас находится курсор базы (то есть выбранная запись в этой таблице вами никак не определена), вот и получается, что я хочу зафиксировать сдачу книги Хабибулиным, а в программе все действия по редактированию таблицы Distrib производятся с выбранной в данный момент записью, где читатель-то, оказывается, вовсе не Хабибулин, а Парфенов...
И чего ж тут удивляться, что Хабибулин не пропадает из списка должников?
Locate, Locate, и еще раз Locate!

[Arkuz]

Сообщение от mihali4

Ну, во-первых, вот это меня просто изумило:

 {Подсчёт кол-ва должников}
 DataModule2.CountDolgQuery.Open;
 Edit1.Text:=DataModule2.CountDolgQueryExpr1000.AsString;
 DataModule2.CountDolgQuery.Close;

А разве DataModule2.DolgQuery.RecordCount - не то же самое?

Ну а что вас так удивляет...??? Работает и нормально, я же не через Ж**У сделал, как многое было сделано в первой версии таблицы... Типа отмены изменений... Главное в принципе рациональное решение...

Ну а что касается собственно вопроса, то я подозревал, что нужно использовать Locate, он и используется, но только для указания на записи в других таблицах... А вот как раз на Distrib я и не указываю...
--------
Я просто откладывал работу над БД на пару недель... Поэтому никак не доделаю...

Спасибо за помощь...

[mihali4]

{Подсчёт кол-ва должников}
Edit1.Text:=IntToStr(DataModule2.Do lgQuery.RecordCount);

[Arkuz]

подскажите, как правильно записать этот Locate:

DataModule2.Distrib.Locate('ReaderID;BookID;DateOfBegin;DateOfEnd;bool',varArray(
    DataModule2.DolgQueryReaderID.Value,DataModule2.DolgQueryBookID.Value,
    DataModule2.DolgQueryDateOfBegin.Value,DataModule2.DolgQueryDateOfEnd.Value,true,[]));

varArrayOf не получается написать...