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

[Arkuz]

ОГРОМНОЕ СПАСИБО ЗА ПОМОЩЬ ВСЕМ!!!

Алгоритм учёта книг вроде бы сделан (с помощью форумчан, с горем пополам и написан на ужасном абанцком коде), осталось запросики сделать... )))
Если что, я опять к вам с вопросами...

Ещё я косячок нашёл... Когда открываешь EditForm в режиме добавления "Реальной даты возврата" указатель всё время хранит данные на последнюю запись... Даже если выбираешь в гриде всё равно эффект один... Теперь как это исправить подскажите...

Для перехода на нужную книгу (при возврате) действует, а для кнопки с реальной датой нет...

procedure TDataModule2.DistribAfterScroll(DataSet: TDataSet);
begin
DataModule2.Readers.Locate('ReaderID',DistribReaderID.AsString,[]);
DataModule2.Book.Locate('BookID',DistribBookID.AsString,[]);
end;

[mihali4]

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

Ещё я косячок нашёл... Когда открываешь EditForm в режиме добавления "Реальной даты возврата" указатель всё время хранит данные на последнюю запись... Для перехода на нужную книгу (при возврате) действует, а для кнопки с реальной датой нет...

Что это за "Когда открываешь EditForm в режиме добавления "Реальной даты возврата""?
EditForm не должна открываться при возврате!
Я ж вам привел полный код обработчика нажатия кнопки возврата (там, где про бред сивой кобылы)!

[Arkuz]

Я что-то не совсем понял...

DataModule2.Distrib.Edit;
DataModule2.DistribDateOfReal.Value:=Now;
DataModule2.Distrib.Post; 
DataModule2.Book.Edit;
DataModule2.BookDistBook.Value:=DataModule2.BookDistBook.Value+1;
DataModule2.Book.Post;

Это будет дата реальная в реальный дэйттаймпикер добавляться при создании новой выдачи.
А мне пригла идея. Может сделать так... Что при каждом запуске программы будет проходить цикл, который во все картежи в атрибут реальной даты будет писать реальную дату... Как вы думаете? Мне кажется неплохой вариант...

[mihali4]

Это где там хоть слово про дэйттаймпикер реальной даты??? На хрена он нужен, если мы текущую дату и без него знаем??? Выкиньте его к едрене фене!

Что при каждом запуске программы будет проходить цикл, который во все картежи в атрибут реальной даты будет писать реальную дату...

Ага... Сегодня запишет, что все возвраты были сделаны сегодня, завтра перепишет и все возвраты будут помечены завтрашним числом...
По-моему, вы здорово переутомились. Сходите, пивка возьмите, что ли...
Код с комментами:

//переводим в режим редактирования
DataModule2.Distrib.Edit;
//проставляем сегодняшнюю дату как дату возврата (а как же иначе, он же сегодня пришел 
и вот - стоит перед нами, хочет вернуть книгу. Причем СЕГОДНЯ, а не вчера и не завтра!
DataModule2.DistribDateOfReal.Value:=Now;
//закрепляем результат
DataModule2.Distrib.Post;
//переводим в режим редактирования
DataModule2.Book.Edit;
//записываем увеличенное число экземпляров, доступных к выдаче (по-хорошему тут не 1
должна быть, а то количество экземпляров этой книги, которое он вернул
DataModule2.BookDistBook.Value:=DataModule2.BookDistBook.Value+1;
//закрепляем результат
DataModule2.Book.Post;

Не помню, писал или нет...
Таблица DISTRIB должна иметь фильтр DateOfReal=null, чтобы отображались только
должники, за которыми числятся невозвращенные книги.

[Arkuz]

Да вы правы я устал...
И до меня только дошло, что мне нужно хранить все данные о взятиях книги и возвратах... и удалять никого не нужно...
Короче буду делать дальше... Спасибо... Очень помогли...

Это снова я )))
На сей раз нужна помощь с запросом. Хочу сделать так. Когда набираешь в эдите текст, чтобы в гриде оставались те фамилии шаблон которых введён в эдите.
Ну т.е. Edit1.Text+'%' Вот только как это всё дело правильно в запрос вписать?

SELECT * FROM Books WHERE Author LIKE {здесь нужно указать эдит}

mihali4, вы мне говорили, что у меня в EditForm добавление сразу происходит в таблицу... Да это так, а как сделать, чтобы добавилась запись после нажатия на кнопку сохранить?

Как один из вариантов(к которому я сам пришёл) можно ли сделать так:
1.Из всех компонентов заносить данные в переменные
2.Из переменных в поля таблицы
3.Постить

Такой вариант пойдёт?

И следующий элемент... (подскажите как реализовать)

Как осуществить историю выдачи и сдачи всех книг?
Ведь когда книгу сдают этот картеж долен больше не работать... Ну т.е. его нельзя больше выделить, нельзя его использовать. Он остаётся только для использования в запросах... Как это можно реализовать?
Предложите какой-нибудь вариант...

[mihali4]

Так, я только что приехал...
По порядку:

На сей раз нужна помощь с запросом. Хочу сделать так. Когда набираешь в эдите текст, чтобы в гриде оставались те фамилии шаблон которых введён в эдите.
Ну т.е. Edit1.Text+'%' Вот только как это всё дело правильно в запрос вписать?
SELECT * FROM Books WHERE Author LIKE {здесь нужно указать эдит}

'SELECT * FROM Books WHERE Author LIKE ('+QuotedStr(Edit1.Text)+')'

Как один из вариантов(к которому я сам пришёл) можно ли сделать так:
1.Из всех компонентов заносить данные в переменные
2.Из переменных в поля таблицы
3.Постить
Такой вариант пойдёт?

Именно такой, но... Какие переменные?! А что, Edit.Text не переменная???
1.Из всех компонентов заносить данные в поля таблицы
2.Постить

Как осуществить историю выдачи и сдачи всех книг?
Предложите какой-нибудь вариант...

DIstrib.Filter:='';

[Arkuz]

Я за вами заскучал....
Думаю куда это mihali4 запропостился???
Аж сил прибавилось... Спасибо за ответ...

'SELECT * FROM Books WHERE Author LIKE ('+QuotedStr(Edit1.Text)+')'

А как в него добавить ещё '%' - любое кол-во любых символов?

[mihali4]

А как в него добавить ещё '%' - любое кол-во любых символов?

'SELECT * FROM Books WHERE Author LIKE (QuotedStr('%'+Edit1.Text)+')'
'SELECT * FROM Books WHERE Author LIKE ('+QuotedStr(Edit1.Text+'%')+')'
Учитесь пользоваться литературой.

Предикат LIKE используется только с символьными данными. Он проверяет, соответствует ли данное символьное значение строке с указанной маской. В качестве маски используются все разрешенные символы (с учетом верхнего и нижнего регистров), а также специальные символы:
% - замещает любое количество символов (в том числе и 0),
_ - замещает только один символ.

[Arkuz]

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

Учитесь пользоваться литературой.

Я пробовал сделать свой запрос обычный... Как в библии делфи написано... Так среда ругалась постоянно, что неверный синтаксис в запросе...

Брал даже оттуда запрос полностью, всё равно ошибку выдавало...

И вот ещё вопрос... Когда заполняю грид данными и нажимаю стрелочку вниз, и если не заполнено поле, которое должно быть НЕ пустым срабатывает исключение. Какое здесь событие происходит? Никак понять не могу... Получается, что после нажатия стрелки вниз или вверх, таблица пытается пропоститься и ошибка...

Если срабатывает OnPostError, то как там прописать ShowMessage

[mihali4]

Я вообще всегда ставлю грид в ReadOnly. Тогда таких казусов не возникает. Грид - только для отображения, все изменения должны идти другими путями (а мы с вами так и сделали).