Очищение DateTimePicker после удаления записи

[Droid]

Каким образом можно очистить DateTimePicker при нажатии на кнопку, я добавляю запись с датой, потом удаляю эту запись и сразу же пытаюсь добавить новую запись но хочу чтоб дата не добавлялась, а она добовляется снова. Причем дата 1899 года мне нужно, так чтобы при повторном нажатии на добавление записи у меня не добавлялаь дата. Ставил обновление таблицы после удаления записи и все равно чушь выдает как с этим бороться ?
пробовал так:

if DM.ADOQ_Udata_snyatiya_s_ucheta.Value=0000-00-00 then
  begin
    FD_u.Button1.Visible:=true;
    fd_u.Label2.Visible:=false;
    fd_u.datetimepicker2.Visible:=false;
    fd_u.Label6.Visible:=false;
    fd_u.DBLCB1.Visible:=false;
   FD_U.DateTimePicker2.Date:=DM.ADOQ_Udata_snyatiya_s_ucheta.Value;
  end;

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

[Stilet]

Так а где код которым ты дату в БД пихаешь?

[danekne]

А что мешает календарь отчистить перед удалением записи? Или сразу после вставки?

[soleil@mmc]

прикол в том что если дейтаймпикер пустой, то по умолчанию он отдает дату 01.01.1899
вот исходя из этого факта и следует с ним бороться
т.е. если пришла эта дата (и по характеру обрабатываемых данных такой точно не будет), то и передавать в параметр вставки нулл (NULL)

[Stilet]

то по умолчанию он отдает дату 01.01.1899

Которая равна именно NULL
Так что это не прикол.

[soleil@mmc]

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

Которая равна именно NULL
Так что это не прикол.

ты уверен что речь идет про один и тот же компонент?

я про TDateTimePicker
уточняю
дата 30.12.1899
и ее в компоненте не получится обнулить

[Stilet]

и ее в компоненте не получится обнулить

Вручную может и не получится, но программно запросто.

DateTimePicker1.DateTime:=0;

Другое дело что для глаза это будет выглядеть не как ноль
Но я ж так понимаю что ноль нужно писать в БД, посему в принципе DateTimePicker тут не виноват/

[soleil@mmc]

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

Другое дело что для глаза это будет выглядеть не как ноль
Но я ж так понимаю что ноль нужно писать в БД, посему в принципе DateTimePicker тут не виноват/

об чем я и написал
но писать нужно не 0, а нулль (про 0 в БД скажут, что не того формата)

[Droid]

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

Так а где код которым ты дату в БД пихаешь?

Это код на добавление

procedure TFD_U.BitBtn1Click(Sender: TObject);
var
  idp,ip,ig,i: integer;
begin
DBLCB1.Visible:=false;
F_uchet.GroupBox5.Visible:=false;
datetp2:='0000-00-00';
if knopka_nagata then
  begin
    FD_U.DateTimePicker2.Visible:=true;
    datetp2:=FormatDateTime('yyyy-mm-dd', datetimepicker2.Date);
  end;
   if kd=2 then
      begin
         DBLCB1.Visible:=false;
         if kd=1 then
               begin
                 dm.ADOQ_U.Parameters.ParamByName('kd').Value:=kd;
                 DBLCB1.Visible:=true;
               end;
      end;
idp:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_U.SQL.Clear;
DM.ADOQ_U.SQL.Text:='INSERT INTO vid_ucheta (data_vzyatiya_na_uchet, data_snyatiya_s_ucheta, kem_napravlen,dop_info,dis_kon,id_pacienta,id_prichini,id_gruppi) VALUES (:dvnu,:dssu,:kn,:di,:kd,:idp,:pssu,:gu)';
dm.ADOQ_U.Parameters.ParamByName('kd').Value:=kd;
Dm.ADOQ_U.Parameters.ParamByName('kn').Value:=Edit1.Text;
DM.ADOQ_U.Parameters.ParamByName('di').Value:=memo1.Text;
DM.ADOQ_U.Parameters.ParamByName('dvnu').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
DM.ADOQ_U.Parameters.ParamByName('dssu').Value:=datetp2;
DM.ADOQ_U.Parameters.ParamByName('idp').Value:=idp;
if DBLCB1.KeyValue=0 then
  pssu:=1;
for ip:=2 to 12 do
  begin
    if DBLCB1.KeyValue=ip then
      begin
        pssu:=ip;
        DM.ADOQ_U.Parameters.ParamByName('pssu').Value:=pssu;
      end;
  end;
for ig:=1 to 5 do
  begin
    if DBLCB2.KeyValue=ig then
      begin
        gu:=ig;
        DM.ADOQ_U.Parameters.ParamByName('gu').Value:=gu;
      end;
  end;
DM.ADOQ_U.ExecSQL;
DM.ADOQ_U.Close;
DM.ADOQ_U.SQL.Clear;
DM.ADOQ_U.SQL.Add('SELECT * FROM vid_ucheta vu LEFT OUTER JOIN pacient pt ON vu.id_pacienta=pt.id_pacienta');
DM.ADOQ_U.SQL.Add('LEFT OUTER JOIN prichina_snyatiya_s_ucheta pssu ON pssu.id_prichini=vu.id_prichini');
DM.ADOQ_U.SQL.Add('LEFT OUTER JOIN gruppa_uheta gu ON gu.id_gruppi=vu.id_gruppi');
DM.ADOQ_U.SQL.Add('WHERE vu.id_pacienta=:idos');
DM.ADOQ_U.Parameters.ParamByName('idos').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_U.Open;

DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient pt LEFT OUTER JOIN vid_ucheta vu ON pt.id_pacienta=vu.id_pacienta ORDER BY familiya ASC');
DM.ADOQ_PAC.Open;

if dblcb2.KeyValue=1 then
f_uchet.GroupBox5.Visible:=true
else
f_uchet.GroupBox5.Visible:=false;

if Dm.ADOQ_Uid_vid_ucheta.Value<>0 then
dm.N21.Visible:=false
else
dm.N21.Visible:=true;

for i:=1 to 5 do
begin
if (listbox1.ItemIndex=0)and(DBLCB2.KeyValue=i) then
begin
label7.Visible:=false;
dblcb2.Visible:=false;
dblcb2.KeyValue:=NULL;

    DM.ADOC_PAC.CommandText:='DELETE FROM odd WHERE id_vid_ucheta=:idood';
    DM.ADOC_PAC.Parameters.ParamByName('idood').Value:=DM.ADOQ_Uid_vid_ucheta.Value;
    DM.ADOC_PAC.Execute;

    DM.ADOQ_OOD.Close;
    DM.ADOQ_OOD.SQL.Clear;
    DM.ADOQ_OOD.SQL.Add('SELECT * FROM odd INNER JOIN vid_ucheta vu ON odd.id_vid_ucheta=vu.id_vid_ucheta WHERE odd.id_vid_ucheta=:idvuood');
    DM.ADOQ_OOD.Parameters.ParamByName('idvuood').Value:=DM.ADOQ_Uid_vid_ucheta.Value;
    DM.ADOQ_OOD.Open;
end;
end;
if listbox1.ItemIndex=0 then
begin
label7.Visible:=false;
dblcb2.Visible:=false;
dblcb2.KeyValue:=NULL;
    DM.ADOC_PAC.CommandText:='DELETE FROM odd WHERE id_vid_ucheta=:idood';
    DM.ADOC_PAC.Parameters.ParamByName('idood').Value:=DM.ADOQ_OODid_ODD.Value;
    DM.ADOC_PAC.Execute;

    DM.ADOQ_OOD.Close;
    DM.ADOQ_OOD.SQL.Clear;
    DM.ADOQ_OOD.SQL.Add('SELECT * FROM odd INNER JOIN vid_ucheta vu ON odd.id_vid_ucheta=vu.id_vid_ucheta WHERE odd.id_vid_ucheta=:idvuood');
    DM.ADOQ_OOD.Parameters.ParamByName('idvuood').Value:=DM.ADOQ_Uid_vid_ucheta.Value;
    DM.ADOQ_OOD.Open;
end;
end;

[Droid]

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

Так а где код которым ты дату в БД пихаешь?

Это на удаление

procedure TDM.N23Click(Sender: TObject);
VAR
s:integer;
begin
s:=MessageDlg('Удалить запись ?',mtWarning,[mbNO,mbOK],0);
if s=mrOK then
  begin
   F_uchet.GroupBox5.Visible:=false;
    DM.ADOC_PAC.CommandText:='DELETE FROM vid_ucheta WHERE id_vid_ucheta=:D';
    DM.ADOC_PAC.Parameters.ParamByName('D').Value:=DM.ADOQ_Uid_vid_ucheta.Value;
    DM.ADOC_PAC.Execute;
DM.ADOQ_U.Close;
DM.ADOQ_U.SQL.Clear;
DM.ADOQ_U.SQL.Add('SELECT * FROM vid_ucheta vu LEFT OUTER JOIN pacient pt ON vu.id_pacienta=pt.id_pacienta');
DM.ADOQ_U.SQL.Add('LEFT OUTER JOIN prichina_snyatiya_s_ucheta pssu ON pssu.id_prichini=vu.id_prichini');
DM.ADOQ_U.SQL.Add('LEFT OUTER JOIN gruppa_uheta gu ON gu.id_gruppi=vu.id_gruppi');
DM.ADOQ_U.SQL.Add('WHERE vu.id_pacienta=:idos');
DM.ADOQ_U.Parameters.ParamByName('idos').Value:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_U.Open;
DM.ADOQ_PAC.Close;
DM.ADOQ_PAC.SQL.Clear;
DM.ADOQ_PAC.SQL.Add('SELECT * FROM pacient pt LEFT OUTER JOIN vid_ucheta vu ON pt.id_pacienta=vu.id_pacienta ORDER BY familiya ASC');
DM.ADOQ_PAC.Open;
  end
else if s=mrNo then
begin
    DM.ADOQ_OOD.Close;
    DM.ADOQ_OOD.SQL.Clear;
    DM.ADOQ_OOD.SQL.Add('SELECT * FROM odd INNER JOIN vid_ucheta vu ON odd.id_vid_ucheta=vu.id_vid_ucheta WHERE odd.id_vid_ucheta=:idvuood');
    DM.ADOQ_OOD.Parameters.ParamByName('idvuood').Value:=DM.ADOQ_Uid_vid_ucheta.Value;
    DM.ADOQ_OOD.Open;
fd_u.Close;
end;
if Dm.ADOQ_Uid_vid_ucheta.Value<>0 then
dm.N21.Visible:=false
else
dm.N21.Visible:=true;
end;