Ah !
La "Procedure desactivebtn"  :est dans le cas où tu prefere utiliser des table au lieux de Query.

Bonsoir tout le monde !
Merci Cirec , MERCI cari  c'est tout a fait normal ( on ne peut rouler à gauche en Angleterre) si non les gens vont nous prendre pour des  fous ou des ignorons .

@ Fouad : je vais essayé d'être objectif  et commenter ton source selon mes modestes  
     Connaissances de l'Interbase
1- A mon avis  le mieux c'est d'utiliser des TIBQuery a la place des TIBTable
2- Et ajouter des TIBUpdateSQL pour gérer les ajouts, modifications et suppressions
3- Il faut gérer les transactions on mettont un IBTransaction dans ton DataModul puis le gérer par code exemple  

try
    if not Data.IBTransaction.InTransaction then
             Data.IBTransaction.StartTransaction;
             Data.IBQuery.Post;
             Data.IBTransaction.CommitRetaining;
             MessageDlg('sauvegarder avec secces.');
except
            Data.IBTransaction.Rollback;
            MessageDlg('sauvgarde non Executé.');
end;
( a verifier bien sur )

4- pour la deactivations des buttons ( Frankcy a raison ) au lieux de faire a chaque fois :

Button6.Enabled:= true;
Button7.Enabled:= true;
BUTTON8.Enabled:= false;
BUTTON5.Enabled:= false;
BUTTON9.Enabled:= false;
Button10.Enabled:= false;
Action.State:=asSuspendedEnabled;
BitBtn5.Enabled:=false;
BitBtn2.Enabled:=false;
BitBtn3.Enabled:=false;
BitBtn4.Enabled:=false;

A mon avis ça sera mieux de les regrouper dans une unite procedures en détectons la fiche active  avec la commande Screen.FormActive ( comme sucgerer par  cantador )

Exemple

Procedure desactivebtn ;

begin
  if  Screen.ActiveForm = NomdeForm  then
  begin
   NomdeForm. BTN_nouveau.Enabled   := Data.Table.State = dsBrowse;
   NomdeForm.BTN_modifier.Enabled   := Data.Table.State = dsBrowse;
   NomdeForm BTN_valider.Enabled := (Data.Table.State = dsInsert)
  or  (Data.Table.State = dsEdit);
   NomdeForm.BTN_Cancel.Enabled  := (Data.Table.State = dsInsert)
  or  (Data.Table.State = dsEdit);
   NomdeForm.BTN_supprimer.Enabled  := Data.Tabe.State = dsBrowse;
  End ;
' A adapter bien sur )

5- Il y a des fiches (a mon avis ) où tu aurais pu utiliser des DBLookupComboBox reliés a des Datasource et listes sources pour facilité la saisie à l'utilisateur ( a voir )
6- Pour la recherche : j'aurai préféré mettre en place une recherche multicritère basée sur une requête dynamique et paramétrée pour donner un choix libre a l'utilisateur et gagner dans le code .  

Voila en gros ce que j'ai noté et ( je ne suis pas entrain d'exhiber mes muscles parce que je ne suis qu'un débutant et je pense que ton niveau de programmation est superieur au mien  ) Bon courage .

Bonsoir tout le monde !
J'ai senti le besoin d'intervenir dans la conversation, je ne sais pas, peut être parce que je considère Fouad comme un ami ( on a eu l'occasion de discuter a plusieurs reprise et c'est un type très chic et toujours prêt a aider les autres ).
Mais avant tout je tiens a dire que je respecte tout les avis .
@Fouad : il y a un proverbe bien de chez nous qui dit « Khoud rai li bakik  , matakhodche rai li dahkek ) qui veux dire a peu près en Français ( Ecoute l'avis de celui qui te fait pleurer et n'écoute pas l'avis de celui qui te fait rire ) parce que le premier , même s'il te fait pleurer un chouia mais il a le mérite de te montrer tes erreurs afin de les changer et par conséquent s'améliorer  .
Tu sais des fois je bénéficie des commentaires plus que de la source elle-même alors il ne faut pas regarder ces commentaire comme une attaque personnel et s'ils sont là , il ne te sont pas adresser exclusivement mais a l'ensemble des adhérents qui s'intéressent a ton source .
En Fin : a ta palace je serais flatté d'avoir un tel nombre d'intervention de la part de gens qui ont télécharger et étudier ton code . je te souhaite plus de succès  amicalement

Ton ami  Khawarizm.

Salut Fouad !
Je suis là juste pour te souhaiter bon courage et bonne continuation, et dir. a YVESSIMON
Qu' il sufi de virer DBlocalB de la close uses de l' unité DataModul est tout doit rentrer dans l' ordre . Merci

Bonjour ; un des rares sources intéressant et surtout claire et bien commenté que j'ai pu lire et suivre  (à part, bien sur,  quelques commendes que je connaissais pas et que j'ai chercher dans l'aide de Delphi et aussi l'unite Matrix et j'essai de me concentrer pour l'assimiler ) tu a tout a fait raison de dire que c'est un didacticiel , je l'est bien vu de cette façon  et comme  je ne me permet pas de noter le source vu ton niveau de programmation (par rapport au mien)  , je me contente de te REMERCIER .

Question : l'utilisation d'un thread dans ce code serait elle une erreur ?