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

[mihali4]

Вот что происходит при инкрименте книги или декрименте в DistBook
да и информации нет по ADO у меня

Еще раз - никакого особого отличия ADO от простых BDE компонентов нет, кроме мороки со строкой подключения. Так что спокойно используйте штатный хэлп. Если нужна инфа по ADOTable - жмите F1, а там в строке поиска сотрите ADO, пусть останется Table...
По поводу ошибки. В сообщении говорится, что таблица Book находится не в режиме редактирования - очевидно, перед изменением значения поля вы забыли перевести ее в этот режим командой
DataModule2.Book.Edit;

[Serge_Bliznykov]

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

Вот что происходит при инкрименте книги или декрименте в DistBook

Вы бы лучше проект выложили.. ну или код процедуры привели.
Кстати, в ошибке же ясно написано, что Ваш датасет BOOK нельзя изменить, потому что он не находится в состоянии Edit ( редактируемого) или Insert (режим вставки данных)...

добавлено
mihali4 +100

[Arkuz]

Спасибо.....

Скажите, а как сделать чтобы текущей записью была запись которая выделена в гриде?

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

[mihali4]

как сделать чтобы текущей записью была запись которая выделена в гриде

Запись, выделенная в гриде, автоматически ставит курсор (представьте себе, в БД тоже есть курсоры ) на соответствующую запись. Но... в таблице Distrib...
Сделайте вот что. Напишите обработчик:

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

Тогда при выборе строки в гриде у вас будут автоматом устанавливаться курсоры и в таблицах книг и читателей.
(Если я правильно понял, у вас не те книги возвращаются? Т.е. увеличивается число доступных к выдаче экземпляров последней в списке книги?)

[Arkuz]

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

Если я правильно понял, у вас не те книги возвращаются? Т.е. увеличивается число доступных к выдаче экземпляров последней в списке книги?

Да, да... Вы правильно поняли. Огромное спасибо...

Извините конечно за то, что я так много вопросов задаю, но я вообще не представляю как с бд работать... Я по сути базу свою по этому форуму написал... Ни методов, ни общих сведений ничего не знал...

[mihali4]

Я по сути базу свою по этому форуму написал...

Форум для этого и существует.
И скажу по секрету, особо приветствуются те, кто, хоть и задает (поначалу) много вопросов, но делает сам, а не требует сразу дать ему готовый код

[Arkuz]

жаль но не работает

DataModule2.Readers.Locate('ReaderID',DistribReaderID.AsString,[]);
 DataModule2.Book.Locate('BookID',DistribBookID.AsString,[]);

[mihali4]

Давайте последнюю версию проекта.

[Arkuz]

Ну вот, посмотрите... Прошу строго не судить за убийственный вид исходника... )))

[mihali4]

Поехали... (пост будет меняться по мере разбора вашей программы)
1.

procedure TEditForm.ComboBox1Change(Sender: TObject);
begin
DataModule2.Book.Locate('Name',Comb oBox1.Text,[]);
DBEdit2.Text:=DataModule2.BookBookI D.AsString;
DataModule2.DistribBookName.Value:= ComboBox1.Text;
end;

Это какое же вы имеете право даже пытаться присвоить значение лукаповскому полю???
2.

if ComboBox1.Text = DataModule2.BookName.Value then
DataModule2.Distrib.Post; //сохранить

И это все? А значения DateTimePicker-ов Пушкин будет записывать в поля DateOfBegin и DateOfEnd?
А на кой, извиняюсь за выражение, нам даже упоминание о дате реального возврата в форме выдачи???
3.

procedure TMainForm.DelBtnClick(Sender: TObject);
begin
try
if Application.MessageBox(PChar('Если этот читатель вернул книгу нажмите ДА и этот читатель удалится из списка!!!'),'Внимание!!!',MB_YESNO) =id_YES then
begin
DataModule2.Distrib.Delete; //удаляем запись
DataModule2.Book.Edit;
DataModule2.BookDistBook.Value:=Dat aModule2.BookDistBook.Value+1;
end;
except
on EDatabaseError do ShowMessage('В базе нет ни одной записи!');
end;
end;

- допустим, удалили запись из Distrib (сразу вопрос - а зачем??? Что, история выдач и возвратов никому не нужна?);
- но как же теперь делать операцию DataModule2.BookDistBook.Value:=Dat aModule2.BookDistBook.Value+1;
когда курсор в Book пропал... и сместился на совершенно другую запись... Ведь вы уничтожили ссылочный идентификатор...
Бред сивой кобылы... Должно быть вот так:

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

4. А это что за перл - "Если этот читатель вернул книгу нажмите ДА и этот читатель удалится из списка!!!"?
А может "... убьется ап стену..."? Или "..будет уничтожен.."?
Должно быть - "Зафиксировать возврат книги ?". Все ! (пока, на сегодня)

З.Ы. Последней строкой в procedure TEditForm.FormActivate(Sender: TObject); должно быть:
ComboBox1.OnChange(self);
Это чтобы у нас сразу установился идентификатор книги.