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 :
Selamat Mencoba
No comments:
Post a Comment