Arsip: fungsi count

more 16 years ago
novicute
bagaimana cara untuk menjumlahkan isi field dalam database jumlah penduduk?
Saya dapat tugas kuliah membuat database jumlah penduduk dan saya kesulitan untuk menjumlahkan isi dari sebuah field, please help me???????? :(

more 16 years ago
tox2wow
Doughhh .. udah rada2 lupa niy .. :D
1. Count = Kalo ga salah, buat ngitung jumlah record
2. Sum = Jumlahin semua nilai didalam sebuah field
Kalo pake coding kira2 begini dah :
Select Sum(FieldYangMoDijumlahin) From TabelTempatFieldYangMoDijumlahin
Kalo ente bisa MsExcel, fungsi2nya mirip2 lah ... sory cuman itu, soalnya dah lupa .. :D
more 15 years ago
tAtA
:oops: itu kalo pake query yach, trus mas kalo mo pake table biasa gimana yach ...aku juga lg ngerjain tugas buat kuliah... mohon dibantu yach ... :) :) :) :) :) [color=olive:42e5e2d6dc][/color:42e5e2d6dc]

more 15 years ago
EkoIndri
itu kalo pake query yach, trus mas kalo mo pake table biasa gimana yach ...jangan khawatir mas... setiap permasalahan pasti ada jawabannya... tidak dikatakan sebagai permasalahan jika tidak ada solusnya.... baiklah mas tAtA, berikut ini contoh kode program untuk menghitung record dan menjumlahkan suatu field2 tertentu yang ada didalam tabel.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, XPMan, StdCtrls, ExtCtrls, DBCtrls, DB, DBTables, Grids, DBGrids;
type
TForm1 = class(TForm)
DBGrid1: TDBGrid;
DataSource1: TDataSource;
Table1: TTable;
Table1LAST_NAME: TStringField;
Table1FIRST_NAME: TStringField;
Table1ACCT_NBR: TFloatField;
Table1ADDRESS_1: TStringField;
Table1CITY: TStringField;
Table1STATE: TStringField;
Table1ZIP: TStringField;
Table1TELEPHONE: TStringField;
Table1DATE_OPEN: TDateField;
Table1SS_NUMBER: TFloatField;
Table1PICTURE: TStringField;
Table1BIRTH_DATE: TDateField;
Table1RISK_LEVEL: TStringField;
Table1OCCUPATION: TStringField;
Table1OBJECTIVES: TStringField;
Table1INTERESTS: TStringField;
Table1IMAGE: TBlobField;
DBImage1: TDBImage;
Button1: TButton;
Label1: TLabel;
Bevel1: TBevel;
Count1: TEdit;
Label2: TLabel;
Label3: TLabel;
Jumlah: TEdit;
Label4: TLabel;
Label5: TLabel;
Table1No: TIntegerField;
procedure Button1Click(Sender: TObject);
procedure Table1CalcFields(DataSet: TDataSet);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
data : integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
// Hitung jumlah Record
Count1.Text := IntToStr(Table1.RecordCount);
end;
procedure TForm1.Table1CalcFields(DataSet: TDataSet);
begin
// untuk penomoran automatis
// sekalian ditujukan untuk mengecek jumlah record
Table1No.Value := Table1.RecNo;
// Untuk menghitung jumlah tanpa harus menggunakan
// query
Data := Data + Table1ACCT_NBR.AsInteger;
Jumlah.Text := IntToStr(Data);
end;
end.
Ini saya gunakan dengan tabel dan database bawaan dari installer delphi sendiri.
Jika ingin lengkapnya silahkan download di http://esnips.com/web/delphiekoindri dengan nama Menghitung Count n SUM tanpa menggunakan query.rar.
semoga ini bisa membantu permasalahan mas tAtA.
salam kenal juga sebelumnya buat mas tAtA, semoga makin jatuh cintrong sama delphi...
more 15 years ago
dr4cul453xy
Menghitung banyak record (Sama kaya bang Eko Indri) :
Edit1.Text := IntToStr(Tabel1.RecordCount);
Untuk Menghitung Jumlah data Numerik(Sum) pada tabel, dapat juga digunakan fungsi dibawah ini :
...
private
//hanya untuk field integer/real
function SumData(ATabel : TTable;AField : String):Real;
...
implementation
...
function Tform1.SumData(Atabel :TTable;AField :String):real;
var
hasil : real;
begin
hasil := 0;
if ATable.IsEmpty Then Exit;
With ATable Do begin
First;
while not eof do begin
Hasil := Hasil + FieldByName(Afield).asFloat;
Next;
end;
end;
result :=hasil;
end;
cara untuk memanggilnya :
Edit1.Text := FloatToStr(SumData(Tabel1,JumlahBarang));
Nb : misalkan nama komponent tabelnya adalah Tabel1 dan nama kolomnya adalah JumlahBarang
:twisted: Dr4CuL453xY :twisted:
more 15 years ago
tAtA
ok mas.kan aku coba prosedure nya. btw aku ini perempuan lho mas. so panggil aja Mbak ... trus mas kalo seumpama mo acak data/pertanyaan yg ada di table gimana caranya ... mohon bimbingannya ... :lol:

more 15 years ago
tAtA
ok gpp kok mas, dah biasa ..trus mas gimana dengan masalah ku itu, kalo seumpama mo acak data/pertanyaan yg ada di table gimana caranya ... mohon bimbingannya ...

more 15 years ago
ZeAL
eh, ada mbak-mbak masuk sini.. jarang-jarang lhoooo... hehehe..
untuk acak megacak, sementara bisa liat dulu :
http://www.delphi-id.org/dpr/PNphpBB2-viewtopic-t-1495-highlight-acak.pas
http://www.delphi-id.org/dpr/PNphpBB2-viewtopic-t-1340-highlight-acak.pas
http://www.delphi-id.org/dpr/PNphpBB2-viewtopic-t-675-highlight-acak.pas
Kalo ternyata gak cocok, bisa tanya lagi..
ehm..ehm.. punya FS gak.. pengen kenalan, neh.. :D PM email-nya ke akika ya, bow.. :D :D
more ...
- Pages:
- 1
- 2
reply |
Report Obsolete
Last Articles
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
- SQL : Select utk tipe data Number di Ms Access
by onsir in Lain-lain more 13 years ago - Pemrogramman Delphi Untuk Net
by Eddy_SG in Network, Files, I/O & System more 15 years ago - Ask: Direct Printing Code ?
by cyber_hecker in Tip n Trik Pemrograman more 17 years ago - tanya rotasi di canvas pada sumbu X,Y,Z
by RedsGrands in Bedah Kasus more 14 years ago - mAsALah kCiL mU dTanYaiN LgI ? pLiz BanTu
by jajang in Hal umum tentang Pascal Indonesia more 13 years ago - Multiline DBGRid
by l1th1um in Tip n Trik Pemrograman more 14 years ago - cara mengkonvert tabel dari currency ke string
by pinguinz in Tutorial & Community Project more 15 years ago - Downtime Notice !
by LuriDarmawan in Hal umum tentang Pascal Indonesia more 13 years ago - input data melalui grid
by belajaraja in Delphi.NET more 15 years ago - fungsi count
by novicute in Paradox more 16 years ago