Есть тут кто живой?

Четверг, 17 Января 2008 г. 17:38 + в цитатник

dandr все записи автора Или сообщество вымерло накорню?
Вобщем, вопрос касательно Delphi.
Имеется Form1, на которой DBGrid со значением False в Options|dgEditing.
Имеется так же DBNavigator и Button.
Нужно: по нажатию Button открыть новое окно (с этим, понятно, проблем нет), в котором будет несколько элементов DBEdit, готовых для новой записи в БД.
Т.е., как я понимаю задачу, то:
procedure TForm1.Button1Click(Sender: TObject); begin Form2.ShowModal; //А вот тут надо эмулировать нажатие nbInsert на DBNavigator //или при создании Form2 end;
Может, кто-нибудь может подсказать?

TLC

Комментировать

« Пред. запись — К дневнику — След. запись »

Страницы: [1] [Новые]

Lightpower обратиться по имени Комментарий к Есть тут кто живой? Четверг, 17 Января 2008 г. 17:48 (ссылка)

Если ты хочешь сделать все через Insert-Post, то инсерт давать ПОСЛЕ выполнения ShowModal, но не в Form2.OnActivate

Я бы делал через SQL

В колонках играет - 2005 - В бой

Loreleya

Ответить С цитатой В цитатник

dandr обратиться по имени [TLC] Без заголовка Четверг, 17 Января 2008 г. 17:55 (ссылка)

Автор: Lightpower
Если ты хочешь сделать все через Insert-Post, то инсерт давать ПОСЛЕ выполнения ShowModal, но не в Form2.OnActivate

Я бы делал через SQL

В колонках играет - 2005 - В бой

Loreleya

Собственно, именно так я в теории и понимаю. Как это реализовать в коде?

Ответить С цитатой В цитатник

Lightpower обратиться по имени Ответ в community_coding; Есть тут кто живой? Четверг, 17 Января 2008 г. 18:11 (ссылка)

Пусть Table1 будет тем DataSet-ом, к которому подключен наш DBGrid

code:
procedure TForm1.Button1Click(Sender: TObject);
    begin Form2.ShowModal; 
    // допустим, у таблицы 3 поля, одно типа Integer и два - String
    Table1.Insert;
    Table1.FieldByName('Id').AsInteger := StrToInt(Form2.Edit1.Text);
    Table1.FieldByName('Name').AsString := Form2.Edit2.Text;
    Table1.FieldByName('Desc').AsString := Form2.Edit3.Text;
    Table1.Post;

Типа того
Только ОБЯЗАТЕЛЬНО блок от Insert до Post заключить в try. Я не Дельфист, я сишник, потому не помню синтаксиса try в Дельфи

В колонках играет - ДДТ - Ночная пьеса

Loreleya

Ответить С цитатой В цитатник

borisiq обратиться по имени Четверг, 17 Января 2008 г. 18:26 (ссылка)

code:


DataSource1.DataSet.Append;

if Form2.ShowModal = mrOk then

  DataSource1.DataSet.Post

else DataSource1.DataSet.Cancel;

Ответить С цитатой В цитатник

LiveInternetLiveInternet

-Рубрики

-Подписка по e-mail

-Поиск по дневнику

-Интересы

-Постоянные читатели

-Статистика

Есть тут кто живой?