Arsip: menghitung record dalam perulangan
more 7 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 7 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 7 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 7 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 7 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 7 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
- Mendapatkan Direktori/Path dari suatu aplikasi
- Tips: Lacak Variabel dan Indentifer di Lazarus
- Tips: Leak Viewer di Lazarus
- Tips: Garis Panduan di Form Designer
- Referensi Pemrograman Bahasa Pascal dari Tim Pembina TOKI
- Tips: Syncro-Edit in Lazarus
- Tips: Macro OfAll and auto generate variable in Lazarus
- Dasar-Dasar Pemrograman Web
- Yang Tidak Bisa Dilakukan Turbo Pascal #4
- Yang Tidak Bisa Dilakukan Turbo Pascal #3
Last Topic
- Tempat Latihan Posting
by LuriDarmawan in OOT 15 days ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 7 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 7 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 7 years ago - Buat Menu akses dengan Otorisasi
by heriy4nt0 in Tip n Trik Pemrograman more 7 years ago - isi data di dbgrid bisa Multiline
by wati in Tip n Trik Pemrograman more 7 years ago - Membuat No Nota Secara Otomatis
by halimanh in Hal umum tentang Pascal Indonesia more 7 years ago - [tanya] bagaimana load file di listbox tanpa full path name
by andrypein in Hal umum tentang Pascal Indonesia more 7 years ago - AQ3: Cannot Perform this operation an a closed dataset
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago - [ASK] : Input Database
by tomxpatra in Hal umum tentang Pascal Indonesia more 7 years ago
Random Topic
- Ada yang pernah coba Zeos + SQLite3 + Delphi 2010?
by mambamaestro in Hal umum tentang Pascal Indonesia more 9 years ago - backup n upload database
by yayaretina in MySQL more 13 years ago - nanya tutorial dan open source?
by aptho in OpenSource dan Gratis more 12 years ago - Skin delphi
by DikDod in Tip n Trik Pemrograman more 12 years ago - Error 1919. Pada file setup dengan database mysql
by deded in MySQL more 10 years ago - Ukuran Buffer optimal untuk pemrosesan file > 50 MB
by pebbie in Tip n Trik Pemrograman more 11 years ago - Konversi citra ke angka biner di delphi
by em052007 in Enginering more 12 years ago - please help me.....
by gus_pram in Multimedia & Graphic Enhancement more 12 years ago - Ask: Deklarasi Variabel Pada MySQL ?
by cyber_hecker in MySQL more 14 years ago - Create Database Programmatically
by albie in FireBird more 11 years ago