برناج يعلمك الجمع

السلام عليكم ورحمة الله وبركات

قاعدة البينات تاتي مع دلفي و Paradox Engine Demos

http://www.developpez.net/forums/d96401/environnements-developpement/delphi/bases-donnees/dbdemos/

    DatabaseName = 'DBDEMOS'
    TableName = 'country.db'

procedure TForm1.ButtonCalculClick(Sender: TObject);
Var i : integer;
TOTAREA, TOTPOPULATION :integer;
begin

  //حل للايجاد عدد السجلات
  i:=TablePays.RecordCount;
  LabelNbLignes.Caption:=IntToStr(i);

  //حل لايجاد مجموع  population   و   area عن طريق جملة SQL 

Query1.sql.text :=  'SELECT SUM(area), SUM(population) FROM COUNTRY';

  Query1.Active:=True;

  //حل لايجاد المجموع عن طريق حلقة 
  TOTAREA:=0;
  TOTPOPULATION:=0;
  with DBGrid1.Datasource.DataSet do
  begin
  First;
    While not eof do
    begin
    TOTAREA:=TOTAREA+(TablePaysArea.AsInteger);
    TOTPOPULATION:=TOTPOPULATION+(TablePaysPopulation.AsInteger);
    DBGrid1.DataSource.DataSet.Next;
    end;
  LabelArea.Caption:=inttostr(TOTAREA);
  LabelPopulation.Caption:=inttostr(TOTPOPULATION);
  end;
end;