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

+ в цитатник

Cообщение скрыто для удобства комментирования.
Прочитать сообщение

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

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

Страницы: [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;

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

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

Автор: Lightpower
Пусть 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

Спасибо, попробую))

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

LiveInternetLiveInternet

-Рубрики

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

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

-Интересы

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

-Статистика

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