VPF::Добавление новой записи в базу данных.

Alexrusnet

Дата 23.9.2008, 17:40 (ссылка)

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

Загрузка ...

Новичок

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

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

Здравствуйте.
Есть база данных Paradox. Есть форма, содержащая TDBEdit и две кнопки, "Добавить", "Отмена". Надо, чтобы после использования этой формы, в базе появилась новая запись (или не появилась, если нажата кнопка "Отмена").
Подскажите, пожалуйста, что писать в коде?

Rodman

Дата 23.9.2008, 18:21 (ссылка)

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

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

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

а к базе подключился?

Ищи примеры SQL с методом INSERT

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

CRM с функцией АвтоОбзвона

Лотереи мира

Alexrusnet

Дата 23.9.2008, 18:42 (ссылка)

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

Загрузка ...

Новичок

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

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

Да, все подключено и настроено. Вот только непонятно что делать с этими кнопками.

Это сообщение отредактировал(а) Alexrusnet - 23.9.2008, 18:43

Данкинг

Дата 23.9.2008, 20:18 (ссылка)

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

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 11
Всего: 130

Цитата(Alexrusnet @ 23.9.2008, 19:42

)

Вот только непонятно что делать с этими кнопками.

А более конкретно? smile

Ищи на форуме, примеров работы с БД достаточно. Ну и основы SQL не помешают. smile

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

There's nothing left but silent epitaphs.

XperT

Дата 23.9.2008, 21:05 (ссылка)

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

Загрузка ...

Опытный

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

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

Если нажимается кнопка Добавить то:

Код


Table1.Post;

Если отмена - то очищать поля и ничего не делать

Inbox

Дата 23.9.2008, 22:01 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


procedure TFormRedaktor.Button1Click(Sender: TObject);
begin
if Data1.ADOTableReg.Modified then
Data1.ADOTableReg.Post;
Close
end;
procedure TFormRedaktor.Button2Click(Sender: TObject);
begin
Data1.ADOTableReg.Cancel;
Close
end;

pseud

Дата 24.9.2008, 09:56 (ссылка)

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

Загрузка ...

Экспёрт Тыдыщ

Профиль
Группа: Завсегдатай
Сообщений: 1175
Регистрация: 18.5.2007
Где: Минск, Беларусь

Репутация: 10
Всего: 40

Alexrusnet, найди себе какой-нибудь букварь (реальный или виртуальный) типа "дельфи и базы данных".
В твоем случае - все равно какого автора.

Добавлено через 57 секунд
это не посыл в опу. это совет.
просто вижу, что ты желаешь осилить дельфи имея в руках только дельфи.

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

Испытание чужого терпения можно считать успешным, если оно лопнуло...

Alexrusnet

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

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

Загрузка ...

Новичок

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

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

Цитата(pseud @ 24.9.2008, 09:56)

Добавлено @ 09:57
просто вижу, что ты желаешь осилить дельфи имея в руках только дельфи.

Это не совсем так. "Букварь" у меня есть. Проблема в том, что во всех букварях предлагается использовать TDBEdit совместно с TDBNavigator, кторый, по моему скромному мнению, просто ужасен. И вот хотелось обойтись без него.

Добавлено через 4 минуты и 26 секунд
Inbox, Большое Спасибо! Это как раз то, что нужно.

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