Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 22.01.2013, 22:35
Аватар для Homo-Fantasmus
Homo-Fantasmus Homo-Fantasmus вне форума
Прохожий
 
Регистрация: 23.08.2011
Адрес: МО
Сообщения: 46
Версия Delphi: Delphi, Lazarus
Репутация: 10
По умолчанию Работа с DBNavigator

Всем здравия.
Есть проблемка, подскажите кто сведущий ... как быть? ...

Есть Forma1 c Table1, DbGrid1, DBNavigator1 и есть Form2 c Edit1...Edit4 и Botton1.
Значит на второй форме я ввожу какие-то данные, по нажатию Botton эти данные проверяются, заносятся в DbGrid (на форму1) после чего вторая форма закрывается открывается первая форма, на которой нужно каждый раз подтверждать занисение данных нажатием в DBNavigator1'е соответствующей кнопки.

Я хочу сделать так, что-бы после нажатия Botton1 на второй форме после проверки данных и занесения в Table (уже на форме1) подтверждался результат изменения записи на первой форме.

Как я это пытался реализовать:
Код:
unit Unit2; (Это форма2)
........
procedure TForm2.Button1Click(Sender: TObject);
begin
 if условия проверки then
операторы
 else
Form1.ADOTable1.Open ;
Form1.ADOTable1.Insert;
Form1.ADOTable1.FieldByName('Дата').AsString := Date;

Form1.ADOTable1.Edit;
Form1.ADOTable1.FieldByName('Время').AsString := Edit1.Text + ':'  + Edit2.Text;
Form1.ADOTable1.FieldByName('Событие').AsString :=Memo1.Text;
Form1.ADOTable1.FieldByName('Время напоминания').AsString := Edit3.Text + ':'  + Edit4.Text;

//Внесение данных в таблицу


Form1.DBNavigator1.BtnClick(nbPost);

//Подтверждение изменений в записях через DBNavigator1


Form2.Hide;
Form1.Enabled := true;

end;
Админ: Пользуемся тегами для оформления кода.

На эти мои действия компилятор выдаёт ошибку в строке
Form1.DBNavigator1.BtnClick(nbPost);

[DCC Error] Unit2.pas(174): E2003 Undeclared identifier: 'nbPost'

Я так понимаю нужно что-то прописать или в Uses или в Type, подскажите что конкретно и на какой форме?

Последний раз редактировалось Admin, 22.01.2013 в 23:16.
Ответить с цитированием
  #2  
Старый 23.01.2013, 11:07
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

вместо
Код:
Form1.DBNavigator1.BtnClick(nbPost);
написать
Код:
Form1.ADOTable1.Post;

и строка
Код:
Form1.ADOTable1.Edit;
по логике лишняя получается
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение:
Homo-Fantasmus (09.02.2013)
  #3  
Старый 23.01.2013, 21:23
Аватар для Homo-Fantasmus
Homo-Fantasmus Homo-Fantasmus вне форума
Прохожий
 
Регистрация: 23.08.2011
Адрес: МО
Сообщения: 46
Версия Delphi: Delphi, Lazarus
Репутация: 10
По умолчанию

Спасибо Юрке

с Form1.ADOTable1.Post всё заработало, а я дурак через DBNavigator пытался сделать ...
Ответить с цитированием
  #4  
Старый 23.01.2013, 21:25
Аватар для Homo-Fantasmus
Homo-Fantasmus Homo-Fantasmus вне форума
Прохожий
 
Регистрация: 23.08.2011
Адрес: МО
Сообщения: 46
Версия Delphi: Delphi, Lazarus
Репутация: 10
По умолчанию

Тема закрыта, ещё раз спасибо за подсказку ...
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 15:46.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter