VPF::Добавлениие записи в таблицу - Форум программистов

Berliner

Дата 18.4.2006, 11:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Здраствуйте при добавлении данных с помощью DBNovigaotora такое впечетление что последняя запись не всегда корректно добывляется( добавлется а при повторной перезагрузке исчезает). Но если после этой записи я еще вставлю пустую то тогда все ок. как сделать так чтобы записи четко фиксировались. Вставлялись нормально(сразу)?

x77

Дата 18.4.2006, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1255
Регистрация: 25.3.2002

Репутация: 1
Всего: 22

при смене фокуса проверять, находится ли НД в режиме редактирования, и если да - предлагать пользователю закоммитить или откатить изменения.

if Table1.State <> dsBrowse then
  begin
    ...
  end;

--------------------

Я никогда не сопротивлялся искушению, поскольку узнал: что мне
не нравится, то меня не искушает. © Джордж Бернард Шоу (Ирландия)

Berliner

Дата 26.4.2006, 15:07 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 803
Регистрация: 18.5.2005

Репутация: нет
Всего: 2

Значит добавляю я записи так (поля на форме заполняю):

Код


begin
Form1.Table1.Insert;
Form1.Table1.Fields[1].AsDateTime:=StrTodate(Form2.Edit5.Text);
Form1.Table1.Fields[6].AsString:=Addresult; //Topping
Form1.Table1.Fields[7].AsString:=Form2.S.Text;//Size
Form1.Table1.Fields[2].AsString:=Form2.Edit1.Text;  //Name
Form1.Table1.Fields[3].AsString:=Form2.Edit2.Text;  //Surname
Form1.Table1.Fields[4].AsString:=Form2.Edit3.Text;  //Adress
Form1.Table1.Fields[8].AsString:=Form2.Edit7.Text; //Price
Form1.Table1.Fields[5].AsString:=Form2.Edit6.Text;//Phone Number

end;

Если после этого сразу выйти то запись эта не сохранится, а если нажать плюсик на DBNavigator-е то все ок( запись сохраняется). Что мне в коде дописать?

Tror

Дата 26.4.2006, 15:17 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 193
Регистрация: 29.4.2005
Где: Кишинёв

Репутация: нет
Всего: 4

Цитата(Berliner @ 26.4.2006, 15:07

)

Что мне в коде дописать?

Код


Table1.Post;

--------------------

Не говори всегда что знаешь, но знай всегда что говоришь. /Клавдий/============================================Кто может -- тот делает. Кто не может... тот получает сертификат MCSE ;)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »