Arsip: menjumlahkan data
more 16 years ago
bogem
buat master n mister, minta bantuannya donk
saya pengen menjumlahkan data yang ada di DBGrid, koneksi ke database melalui ClientDataSet, gmn caranya ya...?
more 16 years ago
MrLee
nJml :=0;
ClientDataSet.First;
while not ClientDataSet.eof do
begin
nJml := nJml + ClienDataSet.FieldByName('Harga').AsCurrency;
ClientDataSet.Next;
end;
more 16 years ago
cyber_hecker
hampir mirip dengan caranya mrLee :). tapi biasanya ku letakkan pada event afterPost, dan AfterDelete milik Dataset.
var
lParam : string;
lTotal : Single;
begin
with adoQuery do begin
lParam := FieldByName('FieldKunci').AsString;
lTotal := 0;
DisableControls;
First;
repeat
lTotal := lTotal + FieldByName('Jumlah').AsFloat;
Next;
until Eof;
Locate('FieldKunci', lParam, [loCaseInsensitive]);
EnableControls;
end;
end;
more 16 years ago
herux
iya. gunakan disable and enablecontrols untuk lepas dari datacontrol. jadi DBGrid gak ikut gerak yg menyebabkan event yg lain
more 16 years ago
betamax
@ MrLEE : Asli... Delphi banget deh...
nJml :=0;
ClientDataSet.First;
DbGRid1.visible :=False;
while not ClientDataSet.eof do
begin
nJml := nJml + ClienDataSet.FieldByName('Harga').AsCurrency;
ClientDataSet.Next;
end;
DbGRid1.visible :=True;
Kaya gitu agak sedikit bisa mempercepat proses... kayanya bakalan sama dengan
om Cyber_Hacker ..
:)
more 16 years ago
mambamaestro
maaf kalo salah mengerti.
Kenapa harus pake looping?
Bukankah di client dataset sampean bisa bikin field persistent aggregate?
Caranya:
saat design time, klik kanan client dataset, kemudian newfield. Pilih jenis field aggregate.
kemudian set property nya Active = True;
property expression ketik = SUM(Harga)
kemudian tutup field editor. klik client datasetnya, aktifkan property..
aduh saya lupa namanya. soalnya saya tidak di depan delphi nih. maaf.
tapi selengkapnya, lihat artikel disini
http://dn.codegear.com/article/29001
more 16 years ago
cyber_hecker
yuph.. emang kayaknya ada yg namanya aggregate field.tapi saya pernah mencobanya. tapi itu tidak selalu berhasil. jadi akhirnya diriku nyerah mo menggunakan aggregate kayak gitu :D. bingung :P
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- edit error pd 4 tabel?
by rose_see in MySQL more 16 years ago - Yahoo! Messenger
by J4ckR1pp3r in Tip n Trik Pemrograman more 14 years ago - Delphi akses DataBase MySQL di WebHosting
by ImanD in MySQL more 16 years ago - Masalah dengan file smscomp.pas neh
by p2bf in Tip n Trik Pemrograman more 17 years ago - Minta Tolong Dong
by er93k in Hal umum tentang Pascal Indonesia more 17 years ago - mohon perhatiannya sebentar
by shadri in OOT more 16 years ago - Delphi 7 Second Edition v.7.2
by NiceDream in OOT more 16 years ago - Cara Install crystal report di delphi ?
by dakocan in Reporting more 16 years ago - GapleX 1.5 sudah di release
by portege in Games more 17 years ago - Help Zeos Query (ZQuery)
by rony_harlieanto in Hal umum tentang Pascal Indonesia more 17 years ago