Cara Membuat Nomor Urut DBGrid, dalam sebuah kasus pembuatan sebuah nomor urut biasanya mengalami kendala apalagi mereka yang baru mengenal bahasa pemrograman delphi. Jika dalam database boleh dikatakan sangat mudah karena kita tinggal melakukan setting saja pada kolom yang akan diisikan dengan nomor urut tersebut dan secara otomatis disaat melakukan penyimpanan data akan mengurutkan dengan sendirinya.
Langkah-Langkah Buat Nomor Urut DBGrid
Pada delphi berbeda dengan database, disini kita harus menuliskansourcecode kode program agar dapat menampilkan nomor urut tersebut khususnya pada komponen DBGrid. Berikut salah satu cara membuatnya agar database yang ditampilkan pada DBgrid terdapat nomor urutnya.
.
Buka program yang sedang dibuat dan arahkan pada DbGridyang ada.Lihat pada Object Inspector pilih Events
Setelah itu tuliskan kode program dibawah ini tepat dibawahbeginif DataSource1.DataSet.RecNo > 0 thenbeginif Column.Title.Caption = 'Nomor Urut' thenDBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));end;lebih lengkapnya maka akan terlihat seperti dibawah iniprocedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;DataCol: Integer; Column: TColumn; State: TGridDrawState);beginif DataSource1.DataSet.RecNo > 0 thenbeginif Column.Title.Caption = 'Nomor Urut' thenDBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));end;end;Setelah selesai simpan dan lihat hasilnya.
Sekian tutorial mengenai pembuatan nomor urut pada DBGrid Delphi semoga dapat memberikan wawasan baru dalam dunia pemrograman.
0 komentar:
Posting Komentar