DataTimePicker и пустое поле даты

@NEON51 · Регистрация: 15.02.2012

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

Суть в чем...
Надо в таблице, в поле даты, записывать пустую дату, дата выбирается помощью DataTimePicker, но когда я нажимаю на DataTimePicker и сворачиваю его тут же, то выскакивает ошибка которая будет ниже.

@droider · 23.01.2014, 14:53

NEON51, т.е. если дата не выбрана, чтобы это поле было пустым?
Часть кода из моей программы

Delphi
1
2
3
4
5
6
7
8
if dtp1.Date=0 then //если дата не указана
begin
DataModule3.tbl1.FieldByName('Date_sale').Clear;//поле очистить
end
else
begin
DataModule3.tbl1.FieldByName('Date_sale').Value :=dtp1.Date;
end;

@NEON51 · 23.01.2014, 16:00 **[ТС]**

Сообщение от droider

NEON51, т.е. если дата не выбрана, чтобы это поле было пустым?
Часть кода из моей программы

Delphi
1
2
3
4
5
6
7
8
if dtp1.Date=0 then //если дата не указана
begin
DataModule3.tbl1.FieldByName('Date_sale').Clear;//поле очистить
end
else
begin
DataModule3.tbl1.FieldByName('Date_sale').Value :=dtp1.Date;
end;

В таком случае мне надо примерно что то похожее назначить на OnChange в ДатаТаймПикере?
Ибо когда я через него выбираю дату, а потом просто отменяю выбор даты, он выдает ошибку что выше)

Добавлено через 12 минут
и при записи мне надо записывать пустое поле, а на дата тайм пикере всё равно же дата будет...
я тут подумал и щас сделаю наверно переменную, которую буду присваивать если дата была не изменена на таймпикере и при записи проверять эту переменную и очищать после записи поле даты)

Добавлено через 29 минут
Тоже фигня получилась...
Можно ли как нить просто отчистить поле с дататаймпикером?

@droider · 23.01.2014, 16:20

Сообщение от NEON51

и при записи мне надо записывать пустое поле, а на дата тайм пикере всё равно же дата будет

в моем примере, при добавлении записи, если дата не выбрана вообще, то поле даты сразу очищается (иначе по умолчанию выставляется 30.12.1899 - примочка Microsoft).
В противном случае, записи назначается указанная дата.

@NEON51 · 23.01.2014, 16:43 **[ТС]**

Да я то понял что у тебя делается)
у Меня чуть чуть другая ситуация, у меня потом в Table записывается по нажатию кнопки, то есть сразу куча полей в одной кнопке и когда я уже записываю, мне надо проверять мою переменную и уже в зависимости от этого делать решения, записывать туда пустое значение или записывать дату, но, тогда мне придется повторять один и тот же момент когда несколько раз, что ни есть разумно, ибо мне надо написать продолжение когда на условие когда изменялся дататаймпикер и еще продолжение такое же на момент когда он не изменялся, а надо то всего или выполнить эту строку и идти дальше по коду или вовсе пропустить, или я что то забыл или хз что, но что то я забыл есть ли такая возможность...

@NEON51 · 30.01.2014, 09:11 **[ТС]**

Вот что я решил сделать:
Это для того, чтобы не выскакивала ошибка о выборе пустой даты, спасибо за это droider

Delphi
1
2
3
4
5
6
7
8
9
10
11
procedure TForm2.DateTimePicker2Change(Sender: TObject);
begin
If form2.DateTimePicker2.date=0
  then
    begin
    zapdata:=1;
    datamodule3.Table1.FieldByName('oplata').Clear;
    end
  else
    zapdata:=0;
end;

А вот что сделал для записи в таблицу, через одно место конечно, но чтот моя кочерышка до другого не дошла...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 datamodule3.Table1.FieldByName('raschet').AsString:=form2.Edit10.Text;
    datamodule3.Table1.FieldByName('dogovor').AsString:=form2.Edit11.Text;
    datamodule3.Table1.FieldByName('teltfon').AsString:=form2.Edit12.Text;
      begin
        if form2.DateTimePicker2.Enabled=false then datamodule3.Table1.FieldByName('oplata').AsString:='' else
        datamodule3.Table1.FieldByName('oplata').AsDateTime:=form2.DateTimePicker2.DateTime;
        if form2.DateTimePicker3.Enabled=false then datamodule3.Table1.FieldByName('rabot_d').AsString:='' else
        datamodule3.Table1.FieldByName('rabot_d').AsDateTime:=form2.DateTimePicker3.DateTime;
        if form2.DateTimePicker4.Enabled=false then datamodule3.Table1.FieldByName('vipol_r').AsString:='' else
        datamodule3.Table1.FieldByName('vipol_r').AsDateTime:=form2.DateTimePicker4.DateTime;
        if form2.DateTimePicker5.Enabled=false then datamodule3.Table1.FieldByName('vidano_date').AsString:='' else
        datamodule3.Table1.FieldByName('vidano_date').AsDateTime:=form2.DateTimePicker5.DateTime;
      end;
    datamodule3.Table1.FieldByName('vidano_fio').AsString:=form2.Edit13.Text;
    datamodule3.Table1.FieldByName('osnovanie').AsString:=form2.Edit14.Text;
    datamodule3.Table1.FieldByName('primech').AsString:=form2.Edit15.Text;

@ZfoxAK · 31.01.2014, 08:50

Если мне память не изменяет, отсутствие значения в некоторых СУБД - NULL.

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	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. Задача: вывести данные из ТЧ нетипового документа. . .

@NEON51 0 / 0 / 0 Регистрация: 15.02.2012 Сообщений: 12

	DataTimePicker и пустое поле даты 23.01.2014, 11:32. Показов 7017. Ответов 6 Метки нет (Все метки) Суть в чем... Надо в таблице, в поле даты, записывать пустую дату, дата выбирается помощью DataTimePicker, но когда я нажимаю на DataTimePicker и сворачиваю его тут же, то выскакивает ошибка которая будет ниже. Миниатюры 0

@NEON51 0 / 0 / 0 Регистрация: 15.02.2012 Сообщений: 12
	23.01.2014, 16:43 [ТС]
	Да я то понял что у тебя делается) у Меня чуть чуть другая ситуация, у меня потом в Table записывается по нажатию кнопки, то есть сразу куча полей в одной кнопке и когда я уже записываю, мне надо проверять мою переменную и уже в зависимости от этого делать решения, записывать туда пустое значение или записывать дату, но, тогда мне придется повторять один и тот же момент когда несколько раз, что ни есть разумно, ибо мне надо написать продолжение когда на условие когда изменялся дататаймпикер и еще продолжение такое же на момент когда он не изменялся, а надо то всего или выполнить эту строку и идти дальше по коду или вовсе пропустить, или я что то забыл или хз что, но что то я забыл есть ли такая возможность... 0

@ZfoxAK 670 / 560 / 242 Регистрация: 26.11.2012 Сообщений: 2,191
	31.01.2014, 08:50
	Если мне память не изменяет, отсутствие значения в некоторых СУБД - NULL. 0