Membuat Laporan Berdasarkan Kategori Tertentu Pada Delphi XE5 Bag. 3

By: QMPC Network on 23.53

Ok kita sekarang akan membahas tentang pembuatan Calc Field, langkah-langkahnya seperti berikut ini :

Langkah 1 :

Double  Klik  Pada  ADOTABLE1.  Klik kanan setelah itu  pilih  Add  Field.  Sehingga  semua  field ditampilkan.

Langkah 2 :

Jika sudah, kita tambakan CaldField nya. Klik lagi, Pilih New Field, atur seperti gambar berikut ini :

Maka  sekarang  kita  sudah  mempunya  field  baru  yang  akan  mempunyai  nilai  pada  saat

Runtime.

Langkah 3 :

Sekarang, buat sebuah event pada ADOTable, Klik ADOTable1, lihat pada bagian Events, Double klik. OnCalcField dan ketik source code berikut ini :

procedure TForm1.ADOTable1CalcFields(DataSet: TDataSet);
begin
with ADOTable1 do FieldByName('bulan').Value:=formatdatetime('mmmm yyyy', fieldbyname('tanggal').AsDateTime);
end;

Langkah 4 :

Kemudian kita jalankan dengan tombol F9, hasilnya seperti berikut ini :