Multi Select pada dxDBGrid dan dbGrid

Setelah utak atik n browsing sana sini akhirnya menemukan bagaiamana cara multiselect pada DBGrid dan dxDBGrid. Ternyata dxDBGrid (dari DevExpress) tidak memerlukan Bookmark seperti di DBGrid.procedure Tf_hakakses.b2Click(Sender: TObject);
var
i:integer;
xId:string;
begin
if qmodul.IsEmpty then exit;
if dxDBGrid2.SelectedCount>0 then
for i:=0 to dxDBGrid2.SelectedCount-1 do
begin
xId:=TdxDBGridNode(dxDBGrid2.SelectedNodes[i]).Id;
if qmodul.Locate('fc_modul',xId,[]) then qusermdl.InsertRecord([quserfc_userid.asstring,qmodulfc_kdmodul.asstring,qmodulfc_modul.asstring]);
end;
UpdateCek;
end;


Kalo di DBGrid silakan lihat di link berikut ini http://delphi.about.com/od/usedbvcl/l/aa032503a.htm

0 komentar:

SIAKAD

SIAKAD
Sistem Informasi Akademik

Hit Counter


View My Stats

Simpeg

Simpeg
Sistem Informasi Kepegawaian

SIMPAU

SIMPAU
Sistem Informasi Perijinan Angkutan Umum