Cara Membuat Fungsi Multi Select di DBGRID Delphi Studi Kasus Menghitung Jumlah Barang

Fungsi multi select berfungsi untuk bisa menampilkan data sesuai dengan record yang dipilih. Pada kasus ini akan kita buat sebuah fungsi yang akan menghitung Jumlah Barang hanya ketika dilakukan multi select terhadap record yang dipilih. Langkahnya adalah sebagai berikut:

1.       Setting Komponen DBGRID menjadi Multi Select

SETTING OPTION DBGRID MULTISELECT

2.       Selanjutnya Buat Coding seperti berikut Di Event Button Click

procedure TForm1.Button1Click(Sender: TObject);

Var

  i : integer;

  jumlah : single;

begin

  if DBGrid1.SelectedRows.Count > 0 then

    begin

       with DBGrid1.DataSource.DataSet do

         begin

             for i := 0 to DBGrid1.SelectedRows.Count-1 do

               begin

                 GotoBookmark(pointer(DBGrid1.SelectedRows.items[i]));

                 jumlah := jumlah+qr1.Fields[7].AsFloat;

               end;

           edit1.Text := FloatToStr(jumlah);

         end;

 

    end;

end;

 Keterangan : fields[7] adalah nama kolom Qty

3.       Setelah Selesai Running Program (F9) dan hasilnya tampak seperti berikut

OUTPUT HASIL MULTI SELECT

Refrensi :

http://delphi.about.com

Selamat Mencoba

 

        PADEPOKAN IT COURSES
IT Tutorial, Training Center dan IT Solution
www.padepokanit.com