Contoh Program Membuat Nomor Urut Di DBGrid Dengan Delphi

Latar Belakang

Seseorang bertanya ke saya, tentang menampakkan nomor urut ke DBGrid. Saya balik bertanya, bukankah Anda bisa menggenerate nomor urut via SQL? Dia bilang, Wah, bang, kalau tiap delete atau insert data musti diload ulang SQLnya, lemot jadinya. Saya sarankan dia untuk menggunakan TDBGridEh dari EhLibrary, namun rupanya pilihan dia memang bukan pada 3rd party component, tapi pada DBGrid standar bawaan Delphi.

Nah, kita akali kondisi di atas dengan DBGrid biasa.

Pertama, saya anggap kita menggunakan MyTable atau ADOTable.

Klik kanan komponen ini dan klik Field Editor. Di jendela Field Editor yang tampil, klik kanan lagi dan pilih New Field…

Isikan property field baru seperti gambar berikut:

Klik OK.

Nah, kini di DBGrid, klik kanan dan pilih Column Editor. Klik kanan pada jendela Column Editor yang tampil dan klik Add. Klik column yang baru, set property FieldName menjadi “no_urut” (field yang dibuat di atas), set property ReadOnly menjadi True dan property Color menjadi ClBtnFace. Terakhir, seret komponen ini ke posisi paling atas (agar di DBGrid, dia menjadi kolom pertama paling kiri).

Waktunya koding.

Klik ADOTable/MyTable di form. Isi event OnCalcFields dengan kode berikut:

procedure TForm3.MyTable1CalcFields(DataSet: TDataSet);
begin
 DataSet.FieldByName('no_urut').AsInteger := DataSet.RecNo;
end;

EDIT:
Entah kenapa, RecNo baris pertama bisa bernilai -1. Mari ubah kode di atas menjadi:

procedure TForm3.MyTable1CalcFields(DataSet: TDataSet);
var rno: integer;
begin
 rno := DataSet.RecNo;
 if rno <1 then rno := 1;
 DataSet.FieldByName('no_urut').AsInteger := rNo;
end;

Maksud kode di atas adalah, setiap terjadi perubahan pada dataset, field “no_urut” akan berisi urutan data pertama sampai terakhir.

Kini jalankan program kita.

Related Topic

Tutorial Instalasi Komponen TPicShowMembuat Smooth Slideshow Dengan DelphiTrik Mengekspor Dataset Ke Excel Melalui XMLKoneksi Delphi Ke Cloud Database MySQLMengganti Warna Baris Di DBGrid

Incoming search terms:

• contoh program delphi dengan database
• membuat nomor urut otomatis di delphi
• dbgrid pada delphi
• contoh program pada delphi
• contoh program delphi 7 dengan database
• membuat nomor urut di dbgrid delphi
• membuat nomor urut di delphi
• membuat no urut di delphi
• membuat nomor urut dengan delphi
• pengertian dbgrid

Comments

comments

Powered by Facebook Comments