TeknoLib

Delphi Veri Değişiklik Tarihini Ekleme

Delphi’de Veri Değişiklik Tarihini Otomatik Olarak Ekleme

Veri değişiklik tarihini takip etmek, veritabanı uygulamalarında önemli bir husustur. Bu bilgi, verilerin ne zaman oluşturulduğunu, güncellendiğini veya silindiğini belirlemeye yardımcı olur ve denetim izleri, veri bütünlüğü ve yasal uyumluluk için gereklidir. Delphi, veri değişiklik tarihini otomatik olarak eklemek için yerleşik özellikler sunar.

TDateTimeField Bileşeni

Delphi’de veri değişiklik tarihini eklemenin en kolay yolu, TDateTimeField bileşenini kullanmaktır. Bu bileşen, bir veritabanı alanına karşılık gelir ve aşağıdaki özellikler aracılığıyla veri değişiklik tarihini otomatik olarak yönetir:

  • OnUpdate: Alan güncellendiğinde tetiklenen bir olay.
  • OnInsert: Alan eklendiğinde tetiklenen bir olay.
  • DefaultValue: Alana yeni bir kayıt eklendiğinde varsayılan değer olarak kullanılacak tarih ve saat.

TDateTimeField Bileşenini Kullanma

TDateTimeField bileşenini kullanmak için aşağıdaki adımları izleyin:

  1. Formunuza bir TDateTimeField bileşeni ekleyin.
  2. Bileşenin FieldName özelliğini, veri değişiklik tarihini depolamak istediğiniz veritabanı alanıyla eşleştirin.
  3. Bileşenin OnUpdate ve OnInsert olaylarını aşağıdaki kodla işleyin:

“`delphi
procedure TForm1.DateTimeField1Update(Sender: TObject);
begin
DateTimeField1.Value := Now;
end;

procedure TForm1.DateTimeField1Insert(Sender: TObject);
begin
DateTimeField1.Value := Now;
end;
“`

  1. Bileşenin DefaultValue özelliğini, yeni kayıtlar için varsayılan tarih ve saati ayarlamak için kullanın.

TDataSetProvider Bileşeni

TDataSetProvider bileşeni, veri değişiklik tarihini otomatik olarak eklemek için başka bir seçenek sunar. Bu bileşen, bir veri kümesine bağlanır ve aşağıdaki özellikler aracılığıyla veri değişiklik tarihini yönetir:

  • OnUpdate: Veri kümesindeki bir kayıt güncellendiğinde tetiklenen bir olay.
  • OnInsert: Veri kümesine yeni bir kayıt eklendiğinde tetiklenen bir olay.
  • OnBeforeDelete: Veri kümesinden bir kayıt silinmeden önce tetiklenen bir olay.

TDataSetProvider Bileşenini Kullanma

TDataSetProvider bileşenini kullanmak için aşağıdaki adımları izleyin:

  1. Formunuza bir TDataSetProvider bileşeni ekleyin.
  2. Bileşenin DataSet özelliğini, veri değişiklik tarihini eklemek istediğiniz veri kümesiyle eşleştirin.
  3. Bileşenin OnUpdate, OnInsert ve OnBeforeDelete olaylarını aşağıdaki kodla işleyin:

“`delphi
procedure TForm1.DataSetProvider1Update(Sender: TObject);
begin
DataSetProvider1.DataSet.FieldByName(‘UpdateDate’).Value := Now;
end;

procedure TForm1.DataSetProvider1Insert(Sender: TObject);
begin
DataSetProvider1.DataSet.FieldByName(‘InsertDate’).Value := Now;
end;

procedure TForm1.DataSetProvider1BeforeDelete(Sender: TObject);
begin
DataSetProvider1.DataSet.FieldByName(‘DeleteDate’).Value := Now;
end;
“`

  1. Veri kümesindeki ilgili alanları, veri değişiklik tarihini depolamak için ayarlayın.

İlgili Kaynaklar

Yayımlandı

kategorisi