unit ubroledewandre;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids, DBGrids, ComCtrls;

type
  TFbroledewandre = class(TForm)
    Edit1: TEdit;
    Label1: TLabel;
    MonthCalendar1: TMonthCalendar;
    DBGrid1: TDBGrid;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure FormActivate(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Fbroledewandre: TFbroledewandre;

implementation
 uses udata,uprinc;
{$R *.dfm}

procedure TFbroledewandre.FormActivate(Sender: TObject);
begin
    data.Tbus.First;
      while not data.Tbus.Eof do
         begin
             data.Tkm.Append;
            // if(data.TbusBUS_ID.AsInteger=data.TkmKM_BUS_ID)
            // then if (data.TkmKM_DATE =date())then
            // data.Tbus.Next;

         end;
end;

end.