menu.~pas

Captor network, a small program for captor network with delphi

unit menu;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Menus, Db, DBTables, ComCtrls, StdCtrls, Mask, DBCtrls, jpeg, ExtCtrls,
  ImgList, Qrctrls, QuickRpt;

type
  Tmenuf = class(TForm)
    MainMenu1: TMainMenu;
    Table1: TMenuItem;
    Capteur1: TMenuItem;
    Cible1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Parametrereseau1: TMenuItem;
    N3: TMenuItem;
    Quitt1: TMenuItem;
    Propos1: TMenuItem;
    VOIR1: TMenuItem;
    Database1: TDatabase;
    parametre: TTable;
    dscapteur: TDataSource;
    dsparametre: TDataSource;
    StatusBar1: TStatusBar;
    parametreCodepara: TAutoIncField;
    parametreNbrcapt: TSmallintField;
    parametreNbrcib: TSmallintField;
    parametreRayantcouv: TSmallintField;
    parametreRayantcon: TSmallintField;
    capteur: TTable;
    capteurCodecapt: TAutoIncField;
    capteurPosxca: TSmallintField;
    capteurPosyca: TSmallintField;
    capteurEnergie: TFloatField;
    cible: TTable;
    dscible: TDataSource;
    cibleCodecib: TAutoIncField;
    ciblePosxci: TSmallintField;
    ciblePosyci: TSmallintField;
    N4: TMenuItem;
    Cible2: TMenuItem;
    N5: TMenuItem;
    Parametrerseau1: TMenuItem;
    Consultation1: TMenuItem;
    Lescapteursconect1: TMenuItem;
    N6: TMenuItem;
    Lesciblecouvr1: TMenuItem;
    Panel1: TPanel;
    Propos2: TMenuItem;
    Voir2: TMenuItem;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
    procedure Capteur1Click(Sender: TObject);
    procedure Quitt1Click(Sender: TObject);
    procedure Cible1Click(Sender: TObject);
    procedure Parametrereseau1Click(Sender: TObject);
    procedure capteurPosxcaValidate(Sender: TField);
    procedure capteurPosycaValidate(Sender: TField);
    procedure ciblePosxciValidate(Sender: TField);
    procedure ciblePosyciValidate(Sender: TField);
    procedure VOIR1Click(Sender: TObject);
    procedure Cible2Click(Sender: TObject);
    procedure Parametrerseau1Click(Sender: TObject);
    procedure Voir2Click(Sender: TObject);
  private
    { D閏larations priv閑s }
  public
    { D閏larations publiques }
  end;

var
  menuf: Tmenuf;

implementation

uses capteur, cible, parametre, listcapt, listcib, listpara, Liste, listeci,
  listepara, propos;

{$R *.DFM}

procedure Tmenuf.FormClose(Sender: TObject; var Action: TCloseAction);
begin
if messagedlg('voulez vous fermer?',mtconfirmation,[mbyes,mbno],0)=mrno then Action:=canone  else
capteur.Close;
cible.close;
parametre.close;
end;

procedure Tmenuf.FormCreate(Sender: TObject);
begin
statusbar1.Panels[1].text:=datetostr(date);
capteur.open;
cible.Open;
parametre.Open;
end;

procedure Tmenuf.Capteur1Click(Sender: TObject);
begin
capteurf.showmodal;
end;

procedure Tmenuf.Quitt1Click(Sender: TObject);
begin
menuf.Close;
end;

procedure Tmenuf.Cible1Click(Sender: TObject);
begin
ciblef.showmodal;
end;

procedure Tmenuf.Parametrereseau1Click(Sender: TObject);
begin
parametref.showmodal;
end;

procedure Tmenuf.capteurPosxcaValidate(Sender: TField);
begin
if menuf.capteurPosxca.value> capteurf.image2.width then
begin
showmessage('La valeur de position X doit 阾re inferieur');
abort;
end;
end;

procedure Tmenuf.capteurPosycaValidate(Sender: TField);
begin
if menuf.capteurPosyca.value> capteurf.image2.height then
begin
showmessage('La valeur de position Y doit 阾re inferieur');
abort;
end;
end;

procedure Tmenuf.ciblePosxciValidate(Sender: TField);
begin
if menuf.ciblePosxci.value> capteurf.image2.width then
begin
showmessage('La valeur de position X doit 阾re inferieur');
abort;
end;
end;

procedure Tmenuf.ciblePosyciValidate(Sender: TField);
begin
if menuf.ciblePosyci.value> capteurf.image2.height then
begin
showmessage('La valeur de position Y doit 阾re inferieur');
abort;
end;
end;

procedure Tmenuf.VOIR1Click(Sender: TObject);
begin
listecaf.QuickRep1.preview;
end;

procedure Tmenuf.Cible2Click(Sender: TObject);
begin
listecif.QuickRep1.preview;
end;

procedure Tmenuf.Parametrerseau1Click(Sender: TObject);
begin
listepaf.QuickRep1.preview;
end;

procedure Tmenuf.Voir2Click(Sender: TObject);
begin
//proposf.QuickRep1.preview;
end;

end.