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

[Arkuz]

Я прочитал про БД, посмотрел свой код и мне стало страшно. Решил я переделать заново всё приложение, несколько модернизировав саму базу.
Вот теперь проблема: не могу добавить в таблицу выдач выбранную книгу. Читателя главное по тому же алгоритму начинает добавлять, потом пытается добавить книгу и на этом происходит ошибка. Ругается -цитирую: "Невозможно добавление или изменение записи. Для обеспечения целостности данных необходимо наличие связанной записи в таблице 'Books' ". Что делать? Я ошибку не смог найти...

Исходник прилагается...

[Arkuz]

Весь вечер пытался сделать, безуспешно...

[mihali4]

Да-а-а...
То, что нужно, опять закомментировано...
И опять, несмотря ни на что, упорные попытки присвоения значений лукаповским полям:
DataModule2.DistribReaderName.Value :=ReaderVAR;
DataModule2.DistribBookName.Value:= BookVAR;
У меня уже нет слов...

Хотя бы вот это исправьте:
ShowMessage('Дата возврата не может быть равной дате выдачи!!!');
Ну так и сделайте, чтобы у вас изначально была разница в датах между BeginDateTimePicker и EndDateTimePicker. Это что - очень трудно, установить при создании формы дату EndDateTimePicker на некоторое число дней больше ?

[vovk]

Ну наконецто МихалычЬ от готовых решений перешол к просто советам (ато в этой теме только решение за решением человеку даже думать особо не надо было)

[Arkuz]

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

Хотя бы вот это исправьте:
ShowMessage('Дата возврата не может быть равной дате выдачи!!!');
Ну так и сделайте, чтобы у вас изначально была разница в датах между BeginDateTimePicker и EndDateTimePicker. Это что - очень трудно, установить при создании формы дату EndDateTimePicker на некоторое число дней больше ?

Это не та проблема, которая меня интересует... Исправлю...
А то, что поля те лукаповские я совсем забыл...

[Arkuz]

begin
 try
 DataModule2.Book.Locate('Name',ComboBox1.Text,[]);
 DBEdit2.Text:=DataModule2.BookBookID.AsString;
 DataModule2.Book.Edit;
 DataModule2.DistribBookName.Value:=ComboBox1.Text;
 except
 end;
end;

В старой программе эта строчка не вызывала ошибок, не смотря на то, что так делать нельзя...

Я пробовал делать как вы говорите... Указывать на ID читателя и книги...
Не работает....

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

И что не делай выскакивает ошибка про связи в таблице Книги...

[Arkuz]

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

ОШИБКА!!!
"Невозможно добавление или изменение записи. Для обеспечения целостности данных необходимо наличие связанной записи в таблице 'Books' ".

Не актуально... Я это сделал... Спасибо... Наконец-таки я понял...

[Arkuz]

procedure TReadersForm.FindEditChange(Sender: TObject);
begin
 if Length(FindEdit.Text)=0 then
  DBGrid1.DataSource:=DataModule2.ReadersSource
     else
       begin
         DataModule2.FindReaderQuery.Open;
         DBGrid1.DataSource:=DataModule2.FindReaderSource;
        // DataModule2.FindReaderQuery.Close;
        // DataModule2.FindReaderQuery.Open;
       end;
end;

Сам запрос:
SELECT * FROM Readers WHERE (Name LIKE FindEdit.Text+'%')

Ничего не находит....

[mihali4]

Ну, пора уже дружить с синтаксисом...
SQL.Text:='SELECT * FROM Readers WHERE (Name LIKE '+QuotedStr(FindEdit.Text+'%')+')';

И потом. Мне, например, было бы не очень приятно работать с вашей программой как пользователю... Зачем вы какую-то истерию нагнетаете своими тройными восклицательными знаками? Зачем эта фраза 'Внимание!!!'... Ну, сдает человек книгу и сдает, что тут такого особенного, что нужно вопить 'Внимание!!!' ? Он же не грабить пришел...
Работники библиотек, как правило, существа тихие и спокойные, и с нервами у них все в порядке, а вы такими формулировками сделаете из них невольных психов - не дай бог, на людей бросаться начнут

[Arkuz]

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

Ну, пора уже дружить с синтаксисом...
SQL.Text:='SELECT * FROM Readers WHERE (Name LIKE '+QuotedStr(FindEdit.Text+'%')+')';

И потом. Мне, например, было бы не очень приятно работать с вашей программой как пользователю...

Я 1 раз делаю БД, а SQL по ходу разбираюсь....

А БД я делаю не для библиотеки, а курсовая у меня такая...

Мне кажется, что вы черезчур меня критикуете...