Arsip: menjumlahkan suatu field

more 19 years ago
goodday
mas2 gmn cara menjumlahkan suatu field didalam suatu tabel.konensi ke databasenya pake ADO Conecction????

more 19 years ago
EkoIndri
biasa aja koq....
ADOStoredProc.parameter[1].values := TabelNilaiX.value + tabelNilaiY.values
ADOStoredProc.exeProc;

more 19 years ago
goodday
maksud saya itu mau menjumlahkan satu feild aja.misal menjumlahkan field pemasukan pada tabel saldo truz hasilnya ditaruh ke edittext.
makasih yaa mas ekoindri nih uda bnyak ngebimbing aku thanxss yaaa bravoo

more 19 years ago
cyber_hecker
banyak cara yang bisa digunakan. tapi kalo diriku biasanya menggunakan query untuk men-total-kan nilai pada satu field. sebagai contoh saya menggunakan tabel dengan nama 'TBarang', dan ingin menjumlahkan field 'QTY'. dengan menambahkan kode dibawah ini pada event AfterOpen-nya ADOTable1 :
yup begitu cara yang biasa ku gunakan. mungkin temen yang lain punya ide yang lebih baik
procedure TForm1.ADOTable1AfterOpen(DataSet: TDataSet);
begin
with ADOQuery1 do begin
SQL.Clear;
SQL.Append('SELECT SUM(QTY) AS TOTAL FROM TBarang');
Open;
Edit1.Text := FormatFloat('#,##0.##',FieldByName('TOTAL').AsFloat);
Close;
end;
end;
setelah itu, pada event onAfterDelete, dan onAfterPost - nya ADOTabel, eventnya pun diarahkan pada prosedure di atas, karena jika terjadi penyimpanan (baik edit, maupun tambah) maka data QTY harus dihitung kembali, demikian juga kalo terjadi penghapusan data.


more ...
- Pages:
- 1
reply |
Report Obsolete
AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now:
https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- Tips : Editbox untuk nominal uang
by boy_borland in Tip n Trik Pemrograman more 19 years ago - Cara mengganti isi file.txt
by binyo in Network, Files, I/O & System more 12 years ago - Cara Membuat Tabel yang Data master tidak bisa dihapus
by onsir in MySQL more 17 years ago - [HELP] ShockwaveFlash
by agis in Hal umum tentang Pascal Indonesia more 12 years ago - meletakkan applikasi tetap teratas
by reza_elka in Form Enhancement & Graphical Controls more 13 years ago - make Dbase via EXCEL
by nurez in onLinux more 19 years ago - Menghilangkan efek kedip pada tabsheet?
by johnizzy in Tip n Trik Pemrograman more 16 years ago - nokia yg support buat sms gateway
by agso in Hal umum tentang Pascal Indonesia more 17 years ago - Installer ...
by yuan_carlos in Hal umum tentang Pascal Indonesia more 18 years ago - Pembuatan Nilai Rupiah ? Pliz Bantu dUnKz
by jajang in Tip n Trik Pemrograman more 16 years ago