edit içindeki değer tarih değilse ?

[comfort]

trystrtodate fonksiyonunu kullanın

[AliErdem]

teşekürler hepinize cevaplar ve öneriler için

[gimil]

tarih alanını veritabanında oluştururken date yapmadan dene string yap

[AliErdem]

datasetin field alanlarından tarih alanının onvalidate olayı sadece tarih değeri doğruysa çalışıyor geçersiz bir tarih olduğunda nasıl işletebilirim yardımcı olursanız sevinirim.

[sabanakman]

O zaman o alanın onSetText olayına kod yazman gerekecek.

Kod: Tümünü seç

procedure TForm1.Table1TarihAlaniSetText(Sender: TField;
  const Text: String);
begin
  try
    StrToDate(Text);
  except
    Sender.Clear;
    ShowMessage(Format('%s değeri geçerli bir tarih değeri değildir.',[Text]));
    DBEdit1.SetFocus;
  end;
end;

İnşallah bu sefer olacak .

[mrmarman]

@sabanakman doğru çözümü sunmuş.
- Bir ekleme yapmak lazım. Bu OnSetText eventi devreye sokulduğunda veri aktarımının kullanıcıya bırakılması durumu sözkonusudur.

- Tarih formatı doğru ise Try işlemi başarılı sonuçlanır fakat alan güncellenmez. Bunun sizin tarafınızdan yapılması gerekir.

- Şahsen kullandığım; aşağıdaki kurgu, bir veritabanı alanına (kod ile ve ne zaman) bu kontrolü nasıl vereceğinizi ve kaldıracağınızı örnekler...

- Veri alanı kontrol Procededure

Kod: Tümünü seç

procedure TForm1.TarihKontrol(Sender: TField; const Text: String);
begin
  Try
    TField(Sender).AsDateTime := StrToDate(Text);
  Except
    ShowMessage('Hatalı Tarih : '+ Text );
  end;
end;

- kontrol Procededure devreye sokmak için

Kod: Tümünü seç

procedure TForm1.ADOQuery1AfterOpen(DataSet: TDataSet);
begin
  If Dataset.FieldList.IndexOf('TarihAlani') >= 0 then
    Dataset.FieldByName('TarihAlani').OnSetText := TarihKontrol;
end;

- işi bittiğinde kontrol Procededure devreden çıkarmak için

Kod: Tümünü seç

procedure TForm1.ADOQuery1BeforeClose(DataSet: TDataSet);
begin
  If Dataset.FieldList.IndexOf('TarihAlani') >= 0 then
    Dataset.FieldByName('TarihAlani').OnSetText := Nil;
end;

- Başarılar...

[AliErdem]

teşekkür ederim arkadaşlar onsettext eventi mrmarmen in dediği gibi ilgili procedure yazılmadıında edit içerisinden çıktığı anda değeri siliyor. teşekkürler sorun çözüldü