code : pascal
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.
Parsed in 0.022 seconds, using GeSHi

code : pascal
Edit1.Text  := IntToStr(Tabel1.RecordCount);
Parsed in 0.001 seconds, using GeSHi

code : pascal
...
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;
Parsed in 0.007 seconds, using GeSHi

code : pascal
Edit1.Text := FloatToStr(SumData(Tabel1,JumlahBarang));
Parsed in 0.001 seconds, using GeSHi