Как загрузить в переменную дату из поля активной записи базы данных?

@jkrnd · Регистрация: 22.12.2015

Студворк — интернет-сервис помощи студентам

Всем здравствуйте.

Как редактировать текстовую информацию таблицы базы данных понятно. Для этого создаём отдельную форму с TDBEdit, связанным с соответствующим полем таблицы. Но как быть с полем-датой. На форме, предназначенной для редактирования записи кроме TDBEdit размещён TDateTimePicker или аналогичный элемент собственного производства. В него нужно ввести дату из текущей записи, а при закрытии формы-редактора, наоборот, изменить дату записи на ту, что выставлена пользователем в TDateTimePicker. Пусть для этого организована общая переменная TDateTime dtInput.
Как при перемещении по записям иметь в этой переменной дату из соответствующего поля таблицы?
Как записать в соответствующее поле редактируемой записи таблицы изменённую дату из переменной?

@volvo · 03.08.2019, 15:48

По событию OnAfterScroll набора данных заносить в нужный компонент дату, прочитанную из базы (для DateTimePicker-а, скажем, это может быть вот так

C++
1
2
3
4
void __fastcall TForm5::ADOTable1AfterScroll(TDataSet *DataSet)
{
    DateTimePicker1->DateTime = DataSet->FieldByName("FData")->AsDateTime;
}

), а по изменению значения компонента (или при закрытии формы редактирования, кому как) - записывать новое значение в БД:

C++
1
2
3
4
5
6
7
void __fastcall TForm5::DateTimePicker1Change(TObject *Sender)
{
    DataSource1->DataSet->Edit();
    DataSource1->DataSet->FieldByName("FData")->AsDateTime = DateTimePicker1->DateTime;
    // тут могут сохраняться и другие поля
    DataSource1->DataSet->Post();
}

@jkrnd · 03.08.2019, 16:36 **[ТС]**

volvo, занесение в DateTimePicker успешно работает, а вот сохранение изменений вызывает ошибку:
ADOTable1: Dataset not in edit or insert mode. И как мне перевести набор данных в режим редактирования или вставки?

Добавлено через 16 минут
Странно, если вставить код на кнопку главной формы, всё работает:

C++
1
2
3
    FormMain->DataSource1->DataSet->Edit();
    FormMain->DataSource1->DataSet->FieldByName("BDate")->AsDateTime = DateTimePicker1->DateTime;
    FormMain->DataSource1->DataSet->Post();

а если в FormClose формы-редактора, изменения не вносятся.

Добавлено через 10 минут
Нашёл "лишнюю строку" в ForClose формы-редактора:

C++
1
FormMain->ADOTable1->Post();

это она вызывала ошибку

Добавлено через 2 минуты
Скажите

C++
1
FormMain->DataSource1->DataSet->Post();

и

C++
1
FormMain->ADOTable1->Post();

это одно и то же?

@volvo · 03.08.2019, 16:42

Не знаю, у меня все сработало.

Добавлено через 1 минуту
P.S. Я бы все-таки делал через DataSource1, а не напрямую обращался бы к набору данных...

Новые блоги и статьи Все статьи Все блоги /
Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .

@jkrnd 179 / 69 / 13 Регистрация: 22.12.2015 Сообщений: 2,648

	Как загрузить в переменную дату из поля активной записи базы данных? 03.08.2019, 14:12. Показов 2151. Ответов 3 Метки нет (Все метки) Всем здравствуйте. Как редактировать текстовую информацию таблицы базы данных понятно. Для этого создаём отдельную форму с TDBEdit, связанным с соответствующим полем таблицы. Но как быть с полем-датой. На форме, предназначенной для редактирования записи кроме TDBEdit размещён TDateTimePicker или аналогичный элемент собственного производства. В него нужно ввести дату из текущей записи, а при закрытии формы-редактора, наоборот, изменить дату записи на ту, что выставлена пользователем в TDateTimePicker. Пусть для этого организована общая переменная TDateTime dtInput. Как при перемещении по записям иметь в этой переменной дату из соответствующего поля таблицы? Как записать в соответствующее поле редактируемой записи таблицы изменённую дату из переменной? 0

@volvo Супер-модератор 33404 / 21514 / 8236 Регистрация: 22.10.2011 Сообщений: 36,914 Записей в блоге: 12
	03.08.2019, 16:42
	Не знаю, у меня все сработало. Добавлено через 1 минуту P.S. Я бы все-таки делал через DataSource1, а не напрямую обращался бы к набору данных... 1

Как загрузить в переменную дату из поля активной записи базы данных?

Решение