Arsip: menghitung record dalam perulangan

more 12 years ago
idhiel
para master delphi...
gimana caranya menghitung jumlah record dalam perulangan?
contoh kodenya kayak gini,,
begin
dm.Dbf2.Close;
dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
dm.Dbf2.Open ;
dm.Dbf3.Active := true;
while NOT dm.Dbf2.Eof do
begin
dm.Dbf3.Open ;
dm.Dbf3.Append ;
dm.Dbf3['noref'] := dm.Dbf2['noref'];
dm.Dbf3['cycle'] := dm.Dbf2['cycle'];
dm.Dbf3['nama'] := dm.Dbf2['nama'];
dm.Dbf3['addrs'] := dm.Dbf2['alamat_1'];
dm.Dbf3['addrs1'] := dm.Dbf2['alamat_2'];
dm.Dbf3['city'] := dm.Dbf2['kota'];
dm.Dbf3['kodepos'] := dm.Dbf2['kodepos'];
dm.Dbf3['upload'] := dm.Dbf2['tglupl'];
dm.Dbf3['bank'] := sedit3.Text ;
dm.Dbf3['thome'] := dm.Dbf2['home_ph'];
dm.Dbf3['tkantor'] := dm.Dbf2['off_ph'];
dm.Dbf3['thp'] := dm.Dbf2['hp'];
dm.Dbf3.Post ;
dm.Dbf2.Next;
end;
end;
yg mau di hitung adalh jumlah record pada Dbf3 yg baru di import dari Dbf2
trim's atas bantuannya...
more 12 years ago
cartrun
kalau mau menghitung jumlah record pake perintah SQL z gan.
kurang lebih perintah untuk menghitung jumlah record tuh seperti ini.
Select Count * From Dbf3;

more 12 years ago
idhiel
klo perintah itu gan tuk menghitung seluruh jumlah record yg ada di dbf3..
nah klo mau menghitung jumlah record yg masuk pada saat looping tadi gimana gan..?
mohon bantuannya...

more 12 years ago
idhiel
lalu gimana jika jumlah record dari hasil looping tadi mau di tampilkan dalam sebuah label atau edit teks..
mohon bantuannya lagi mas... klo bisa diberikan contoh dengan kode yg paling atas mas...

more 12 years ago
alhass
[quote="idhiel"]para master delphi...
Buat variabel dl misal
var jumlah:integer;
begin
jumlah:0;
dm.Dbf2.Close;
dm.Dbf2.TableName := sedit1.Text ;
dm.Dbf2.FilePathFull := sedit2.Text ;
dm.Dbf2.Active := true;
dm.Dbf2.Open ;
dm.Dbf3.Active := true;
while NOT dm.Dbf2.Eof do
begin
dm.Dbf3.Open ;
dm.Dbf3.Append ;
dm.Dbf3['noref'] := dm.Dbf2['noref'];
dm.Dbf3['cycle'] := dm.Dbf2['cycle'];
dm.Dbf3['nama'] := dm.Dbf2['nama'];
dm.Dbf3['addrs'] := dm.Dbf2['alamat_1'];
dm.Dbf3['addrs1'] := dm.Dbf2['alamat_2'];
dm.Dbf3['city'] := dm.Dbf2['kota'];
dm.Dbf3['kodepos'] := dm.Dbf2['kodepos'];
dm.Dbf3['upload'] := dm.Dbf2['tglupl'];
dm.Dbf3['bank'] := sedit3.Text ;
dm.Dbf3['thome'] := dm.Dbf2['home_ph'];
dm.Dbf3['tkantor'] := dm.Dbf2['off_ph'];
dm.Dbf3['thp'] := dm.Dbf2['hp'];
dm.Dbf3.Post ;
jumlah:=jumlah+1;
dm.Dbf2.Next;
end;
label1.caption:=intToStr(jumlah);
end;
Begitu kira2 kl dimasukkan ke coding-mu
more 12 years ago
idhiel
maksih banyak agan Alhass...
codingnya dah aq coba n berhasil...berhasil...berhasil..
:D :D :D :D
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
- CR10: Error 536 incorrect log on parameters
by peddy in Reporting more 16 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Unknown picture file extension (.jpg)
by rurouni in MySQL more 14 years ago - resize image
by sulth4n in Multimedia & Graphic Enhancement more 18 years ago - ask query
by don2103 in MsSQL more 14 years ago - memanggil nama komponent dari tabel
by brodien in Enginering more 18 years ago - tanggal lahir tidak mau disimpan dalam database
by ricky_seldjatem in Tip n Trik Pemrograman more 17 years ago - Delphi C#, Aspx dan .NET
by zones in Delphi.NET more 16 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 12 years ago - hmm, ada yg tau transfer data tabel dr access ke sql server?
by micrens in Tip n Trik Pemrograman more 17 years ago