Mengedit Data secara Lookup dari dbGrid

Okeh untuk Tips and Trick Delphi kali ini saya mau share bagaimana Mengedit Data secara Lookup dari dbGrid.ngerti gak masudnya
biar mudeng/ngerti berikut screen shootnya:

keren gak??pake skin tuh..modelnya cantiik lagi,
Form ini dalah screen shoot dari Form Data Member dari dayPerpus 2.0 ..so tunggu yah...

dengan cara ini pengeditan bisa langsung diipilih pada dbGrid..bisasanya sih orang-orang kalo mau ngedit suka nambahin Form baru..halah klo saya males,
untuk isi dari dropdown itu sendiri kita akan me retrieve dari tabel lain...pengen tau gimana caranya???
klik dan terusin bacanya...

Oke,di asumsikan anda mempunyai Tabel Member dan Tabel Kelas.untuk mengambil data dari tabel kelas dan memasukannya ke dbGrid data Member berikut adalah Penjelasannya...:

pada Properties Column di komponent dbGrid ada yang namanya properties PickList yang bertipe Strings.
prinsipnya kita akan memasukan field Kelas dari Tabel kelas ke Column 3 dari dbGrid,,sebelumnya kita buat Procedure PickList dulu pada Klausa Private (terus jar?) terus Codingnya begini nih:


procedure TForm3.Picklist;
var
i:Word;
begin
//memastikan pointer tabel kelas berada di record pertama
dm1.QKelas.First; 
//pengulangan or Looping untuk memasukan record2 dari field kelas ke dbGrid colomn ke 3
for i:=0 to dm1.QKelas.RecordCount-1 do begin
dbgrid1.Columns[3].PickList.add(dm1.QKelas.fieldbyname('Kelas').
AsString);
dm1.QKelas.Next;
end;//end looping
end;
end.

,

terima kasih..Semoga bermanfaat
"TETAP SEMANGAT NGODING YAH!!!"