|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
Работа с 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
|
||||
|
||||
вместо
Код:
Form1.DBNavigator1.BtnClick(nbPost); Код:
Form1.ADOTable1.Post; и строка Код:
Form1.ADOTable1.Edit; Поживу - увижу, Доживу - узнаю, Выживу - учту. [P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
|
Этот пользователь сказал Спасибо Yurk@ за это полезное сообщение: | ||
Homo-Fantasmus (09.02.2013)
|
#3
|
||||
|
||||
Спасибо Юрке
с Form1.ADOTable1.Post всё заработало, а я дурак через DBNavigator пытался сделать ... |
#4
|
||||
|
||||
Тема закрыта, ещё раз спасибо за подсказку ...
|