Sunday, 14 May 2017T5/14/2017 08:40:00 pm

Membuat Kolom Nomor Urut di Dbgrid Delphi

Salam blogger....pada kesempatan kali ini saya akan share cara mudah membuat kolom nomor urut di dbgrid delphi, pembuatan nomor urut pada data yang ditampilkan di dbgrid delphi merupakan sesuatu hal yang harusnya dilakukan pada saat membuat program delphi, dengan membuat kolom nomor urut ini kita dapat mengetahui berapa jumlah data yang di tampilkan di dbgrid dari database yang kita buat. meskipun pembuatan nomor urut di dbgrid dapat dilakukan dengan menambahkan field di database, namun kali ini saya akan mencoba membuat kolom no urut nya melalui dbgrid nya saja, hal ini dapat dilakukan untuk penghematan size di database, karena pada dasarnya nomor urut ini digunakan hanya untuk menampilkan nomor urut sesuai data yang ada di dbgrid yang berasal dari database.

Jadi pada artikel ini kita akan membuat penomoran pada dbgrid tanpa harus mengitung jumlah data di database, karena nomor urut nya akan terus bertambah otomatis sesuai dengan jumlah data yang ditampilkan di dbgrid yang berasal dari database.

Adapun langkah - langkah pembuatanya adalah sebagai berikut :

1. Tambahkan komponen dbrid pada form sobat

2. disini saya menggunakan komponen Ztable1 untuk menampilkan data didbgrid dengan menggunakan datasource. (disini saya anggap sobat sudah mengetahui cara menampilkan data di bgrid dari database)

3. selanjutnya klik 2x pada dbgrid, maka akan muncul jendela editing dbgrid.

4. selanjutnya tambahkan field baru, lalu pada field name nya isi dengan nama = No. (lihat gambar)

5. jika sudah selanjutnya klik lagi dbgrid nya, lalu pada events cari tulisan OnDrawColumnCell lalu klik2x dan masukan coding program berikut :

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
 if DBGrid1.DataSource.DataSet.RecNo>0 then
  begin
    if Column.Title.Caption='No.' then
    DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,IntToStr(DBGrid1.DataSource.DataSet.RecNo));
  end;
end;
Sampai pada tahap ini kita sudah membuat kolom nomor urut nya di dbgrid, selanjutnya sobat tinggal menjalankan program nya dengan cara menekan F9/RUN. dan lihat hasilnya, jadi pada program ini setiap sobat akan menambahkan record baru pada form, maka nomor urut akan bertambah secara otomatis sesuai dengan urutannya (hasil program dapat dilihat pada gambar dibawah).
Demikian postingan artikel saya kali ini yang dapat saya share tentang cara membuat kolom nomor urut di dbgrid delphi kepada sobat semua. semoga artikel saya kali ini dapat bermanfaat dan dapat menambah pengetahuan buat sobat semua dan selamat mencoba. untuk artikel tentang tutorial delphi akan saya share pada artikel selanjutnya.
Previous
Next Post »
0 Komentar untuk "Membuat Kolom Nomor Urut di Dbgrid Delphi"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status