6/02/2014

Cara Membuat Nomor Urut Pada DBGrid Delphi

Tags

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 menuliskan sourcecode 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.

Baca : Komponen Pendukung Pemrograman Delphi.
  1. Buka program yang sedang dibuat dan arahkan pada DbGrid yang ada.
  2. Lihat pada Object Inspector pilih Events
  3. gambar object inspector membuat nomor urut dbgrid
  4. Setelah itu tuliskan kode program dibawah ini tepat dibawah begin
    1. if DataSource1.DataSet.RecNo > 0 then
      begin
      if Column.Title.Caption = 'Nomor Urut' then
      DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
      end;
      lebih lengkapnya maka akan terlihat seperti dibawah ini
        procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
        DataCol: Integer; Column: TColumn; State: TGridDrawState);
        begin
        if DataSource1.DataSet.RecNo > 0 then
        begin
        if Column.Title.Caption = 'Nomor Urut' then
        DBGrid1.Canvas.TextOut(Rect.Left + 2, Rect.Top, IntToStr(DataSource1.DataSet.RecNo));
        end;
        end;
  5. Setelah selesai simpan dan lihat hasilnya.
Sekian tutorial mengenai pembuatan nomor urut pada DBGrid Delphi semoga dapat memberikan wawasan baru dalam dunia pemrograman.

2 comments

MaxAndro.com (ex. androsoftware.xyz) Silahkan berkomentar dengan baik, asal tidak melanggar peraturan dibawah ini.
1. NO SPAM
2. NO SARA
3. NO LINK AKTIVE

Terimakasih

Admin MaxAndro
EmoticonEmoticon