Редактирование, сохранение БД Access (Delphi)

[monushka]

Доброе утро! Проблема следующая. Есть БД в Access, данные которой отображаются на форме с помощью DBGrid. Так же на форме есть кнопки "новая запись", "редактировать запись", "удалить". Вопрос в следующем: при нажатии на "новая запись" или "редактировать" появляется форма редактирования записей (писалось с помощью книги Библия Делфи), в которой все это осуществляется. Но проблема в том, что записи начинают изменяться, как только я начну редактировать какое-либо из полей, а должно только по нажати. на кнопку "сохранить" в этом окне. В итоге даже если я закрою форму, при этом не нажму "сохранить" данные все равно сохраняются... Вот код:

//Кнопка "Новая запись"
procedure TMainForm.NewButtonClick(Sender: TObject);
begin
DataModule1.CatTable.Insert;
EditForm.ShowModal;
end;

//Кнопка "Редактировать запись"
procedure TMainForm.ToolButton2Click(Sender: TObject);
begin
EditForm.ShowModal;
end;

//Кнопка "Сохранить" на форме редактирования
procedure TEditForm.BitBtn1Click(Sender: TObject);
begin
if DataModule1.CatTable.Modified then
DataModule1.CatTable.Prior;
Close;
end;

Как это можно исправить??

[Stilet]

А какими компонентами ты пользуешся для редактирования?
И вообще что это за DataModule1.CatTable.Prior; к чему тут перескакивать на предидущую запись? Может тут метод Post нужен?

[monushka]

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

А какими компонентами ты пользуешся для редактирования?
И вообще что это за DataModule1.CatTable.Prior; к чему тут перескакивать на предидущую запись? Может тут метод Post нужен?

О, Боже! Что это за Prior действительно? Хм... Не, с Post тоже самое. Ввожу, допустим, характеристики товара, закрываю окно, а данные сохраняются.

Для редактирования пользуюсь такими компонентами: DBEdit, DBMemo, DBComboBox.

[ProScor]

проблема в том, что записи начинают изменяться, как только я начну редактировать какое-либо из полей, а должно только по нажатии на кнопку "сохранить"

Ну конечно же - ведь компоненты DBEdit,DBMemo, DBComboBox именно для этого и предназначены!

даже если я закрою форму, при этом не нажму "сохранить" данные все равно сохраняются

Чтобы избежать сохранения - можно использовать метод Table.Cancel. К примеру, на закрытие формы поставить DataModule1.CatTable.Cancel, а на нажатие кнопки "Сохранить" - DataModule1.CatTable.Post.
В итогде, при закрытии формы будут отменяться все изменения, если не была нажата кнопка "Сохранить"

[monushka]

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

Чтобы избежать сохранения - можно использовать метод Table.Cancel. К примеру, на закрытие формы поставить DataModule1.CatTable.Cancel, а на нажатие кнопки "Сохранить" - DataModule1.CatTable.Post.
В итогде, при закрытии формы будут отменяться все изменения, если не была нажата кнопка "Сохранить"

Большое спасибо! Работает!

[monushka]

Можно еще один вопросик??

Как можно проверять ячейки таблицы БД на "пустоту"? У меня сейчас проблема еще в следующем. Есть БД, из которой выбирается оборудование (строки) и добавляется в StringGrid. Но при добавлении строки, ячейка которой пустая, вылетает ошибка: "Could not convert variant of type (null) into type (string)".
Почему вылетает ошибка мне понятно, но как проверять на пустоту ячейки строки?

[ProScor]

varisnull(Table.FieldByname('поле') .Value)
возвращает true, если ячейка пуста

[monushka]

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

varisnull(Table.FieldByname('поле') .Value)
возвращает true, если ячейка пуста

Пробовала так:

for j:=1 to 7 do
begin
if VarIsNull(DataModule1.FindQuery.Fields[j].Value then 
DataModule1.FindQuery.Fields[j].Value:=' - ';
end;

но ничего не происходит...

[monushka]

Все, нашла у себя ошибку! Обошлось без использования varisnull(Table.FieldByname('поле') .Value).

Вот код:

for j:=1 to 7 do
   begin
    SG1.Cells[j-1,i]:= DataModule1.FindQuery.Fields[j].AsString;
    if SG1.Cells[7,i]='' then SG1.Cells[7,i]:='1';
   end;

А было:

SG1.Cells[j-1,i]:= DataModule1.FindQuery.Fields[j].Value;

Всем спасибо большое за помощь!