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;
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;
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
- iseng-iseng dengan kata-kata
by kifmesoft in Tip n Trik Pemrograman more 20 years ago - help mo masukin itemindex diradiogroup ke DB
by tegecool in Bedah Kasus more 16 years ago - ProgressBar + Load AVI
by fafenail in Multimedia & Graphic Enhancement more 19 years ago - Format TEdit pada Database
by n3o_cybertech in Tip n Trik Pemrograman more 17 years ago - Mengetahui System dir
by ho2sly in Tip n Trik Pemrograman more 17 years ago - Koneksi ADOQuery Ke Syntax SQL
by saysansay in Tip n Trik Pemrograman more 19 years ago - Help.....SQLDataSet..!!!
by coacoac in Tip n Trik Pemrograman more 18 years ago - OOT
by diah_intan in Tip n Trik Pemrograman more 17 years ago - mengedit 2 buah data yang sama
by tara in Lain-lain more 15 years ago - Tolong sy Konksikan USB TO Serial RS232 dgn programku
by dedidavidbala in Network, Files, I/O & System more 13 years ago