Arsip: menghitung record dalam perulangan
more 9 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 9 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 9 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 9 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 9 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 9 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
Last Articles
- Lazarus Release 2.2.0
- Lazarus 2.2.0 Release Candidate 2
- FreePascal and JSON
- Lazarus 2.2.0 Release Candidate 1
- FPC version 3.2.2 has been released!
- Lazarus Release 2.0.12
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 9 years ago
Random Topic
- Aplikasi Client Data Base..
by ibiz in Network, Files, I/O & System more 15 years ago - convert array dari vb ke delphi
by diandewi in Hal umum tentang Pascal Indonesia more 9 years ago - ProgressBar atau Gauge running saat Query.Open
by gaussac in Tip n Trik Pemrograman more 15 years ago - [ask] baca isi file
by laguna in Hal umum tentang Pascal Indonesia more 14 years ago - [ask] Button dalam DBgrid
by kepiss in Tutorial & Community Project more 9 years ago - Background Application
by yosstefano in Tip n Trik Pemrograman more 14 years ago - Perusahaan yang develop menggunakan Delphi
by Joseph in OOT more 13 years ago - interface port paralel
by anthadi in Tip n Trik Pemrograman more 13 years ago - Mainmenu & toolbar
by sandy in Hal umum tentang Pascal Indonesia more 11 years ago - Delphi2007,ADO,Postgre
by sudrun in Lain-lain more 13 years ago