كيفية احصاء عدد المرضى حسب مجال السن و الجنس و البلدية

كود :
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls, DB, DBTables, StdCtrls,
  Buttons, ComCtrls;

type
  TForm2 = class(TForm)
    Table1: TTable;
    DataSource1: TDataSource;
    BitBtn1: TBitBtn;
    Table1N: TFloatField;
    Table1Nom_prenom: TStringField;
    Table1Age: TStringField;
    Table1Commune: TStringField;
    Table1Date_accident: TDateField;
    Table1Sexe: TStringField;
    Edit1: TEdit;
    BitBtn2: TBitBtn;
    Edit2: TEdit;
    BitBtn3: TBitBtn;
    DBNavigator1: TDBNavigator;
    DBGrid1: TDBGrid;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    BitBtn6: TBitBtn;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    DateTimePicker1: TDateTimePicker;
    ComboBox1: TComboBox;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox2: TComboBox;
    BatchMove1: TBatchMove;
    Table2: TTable;
    SaveDialog1: TSaveDialog;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Button2: TButton;
    Table4: TTable;
    DBNavigator2: TDBNavigator;
    procedure BitBtn1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
  public
  end;

  procedure TForm2FormActivates(path: string);
  
var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
 Table1.First;
 Table1.Filter := 'Commune='+chr(39)+Edit1.Text+chr(39);
 Table1.Filtered := true;

end;

procedure TForm2.Edit1Change(Sender: TObject);
begin
 BitBtn1.Enabled:=true
end;

procedure TForm2.Edit3Change(Sender: TObject);
begin
 BitBtn3.Enabled:=true
end;

procedure TForm2.Edit2Change(Sender: TObject);
begin
 BitBtn2.Enabled:=true
end;

procedure TForm2.BitBtn2Click(Sender: TObject);
begin
 Table1.First;
 Table1.Filter := 'Age='+chr(39)+Edit2.Text+chr(39);
 Table1.Filtered := true;
end;

procedure TForm2.BitBtn3Click(Sender: TObject);
var
 s: string;
begin
 if ComboBox2.Text = 'ذكر' then s := '1'
  else s := '0';
 Table1.First;
 Table1.Filter := 'Sexe='+chr(39)+s+chr(39);
 Table1.Filtered := true;
end;

procedure enregistrements;
begin
   Form2.Table2.TableName := 'C:\malade\hamoudi075teq.db';
   Form2.BatchMove1.Source :=Form2.Table1;
   Form2.BatchMove1.Destination := Form2.Table2;
   Form2.BatchMove1.Mode :=batCopy;
   Form2.BatchMove1.Execute; { }
end;

procedure TForm2.FormCreate(Sender: TObject);
function LoadFile(NomFichier: string): string;
var MeList:TStringList;
begin
 MeList:=TStringList.Create;
 try
  MeList.Clear;
  MeList.LoadFromFile(NomFichier);
  Result:=MeList.Strings[0];
 finally
   MeList.Free;
  end;
end;
begin

  if not DirectoryExists('C:\malade') then
   CreateDir('C:\malade');

 Table1.Close;
 if FileExists('ttf')then
 begin
  Table1.DatabaseName:=LoadFile('ttf');
  Table1.TableType := ttParadox;
  Table1.TableName := 'hamoudi075teq.db';
  Table1.Open;
 end
 else begin
 try
  Table1.DatabaseName:='malad';
  Table1.TableType := ttParadox;
  Table1.TableName := 'hamoudi075teq.db';
  Table1.Open;
 except
  on EDatabaseError do begin
   Table1.DatabaseName:=ExtractFilepath(application.ExeName);
   Table1.TableType := ttParadox;
   Table1.TableName := 'hamoudi075teq.db';
   Table1.Open;
 end; end; end;
 if (DirectoryExists('C:\malade'))and
    (not FileExists('C:\malade\hamoudi075teq.db')) then
   enregistrements;
end;

procedure TForm2.BitBtn4Click(Sender: TObject);
begin
  Table1.Filtered := false;
end;

procedure TForm2.BitBtn6Click(Sender: TObject);
begin
  if Table1.Filtered then Table1.Filtered := false;
  Table1.Last;
  Table1.Append;
  Table1.FieldByName('N').AsString := Edit4.Text;
  Table1.FieldByName('Nom_prenom').AsString := Edit5.Text;
  Table1.FieldByName('Age').AsString := Edit6.Text;
  Table1.FieldByName('Commune').AsString := Edit7.Text;
  Table1.FieldByName('Date_accident').AsDateTime := DateTimePicker1.Date;
  if ComboBox1.Text = 'ذكر' then
    Table1.FieldByName('Sexe').AsString := '1'
  else if ComboBox1.Text = 'أنثى' then
  Table1.FieldByName('Sexe').AsString := '0'
  else ;
  Table1.Post;
  BitBtn6.Enabled := false;
end;

procedure TForm2.Edit4Change(Sender: TObject);
begin
 BitBtn6.Enabled := true;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
 F:TextFile;
 s: string;
begin
 if OpenDialog1.Execute then
 begin
 AssignFile(F,ExtractFilepath(application.ExeName)+'ttf.txt');
 Rewrite(F);
 s := ExtractFileDir(OpenDialog1.FileName);
 write(F,s);
 CloseFile(F);
 TForm2FormActivates(s);
 end;
end;

procedure TForm2.Button2Click(Sender: TObject);
var
 F:TextFile;
 s: string;
begin
 SaveDialog1.FileName := Table1.TableName;
 if SaveDialog1.Execute then
 begin
  
  Table2.TableName := SaveDialog1.FileName;
  BatchMove1.Source := Table1;
  BatchMove1.Destination := Table2;
  BatchMove1.Mode := batCopy;
  BatchMove1.Execute;

  AssignFile(F,ExtractFilepath(application.ExeName)+'ttf.txt');
  Rewrite(F);
  s := ExtractFileDir(SaveDialog1.FileName);
  write(F,s);
  CloseFile(F);
  TForm2FormActivates(s);
 end;

end;

procedure TForm2FormActivates(path: string);
const DbiP='malad';
var
  AParam: TStringList;

begin
  AParam := TStringList.Create;
  try
    AParam.Clear;
    AParam.Add('PATH='+path); //+GetCurrentDir
    if Session.IsAlias(DbiP) then    
     Session.ModifyAlias(DbiP, AParam)
    else
     Session.AddStandardAlias(Dbip,GetCurrentDir,'Paradox');
    Session.SaveConfigFile;
  Finally
    AParam.Free;
  end;
end;



procedure TForm2.FormActivate(Sender: TObject);
begin
 TForm2FormActivates('C:\malade');
end;

end.