1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
   |  
try
{
  DM->QueryInsertCom ->ParamByName("ECom_Cod")->AsString =EditCod_Com ->Text ;
  DM->QueryInsertCom ->ParamByName("ELib_Com_FR")->AsString =EditLib_Com_FR ->Text;
  DM->QueryInsertCom ->ParamByName("ELib_Com_AR")->AsString =EditLib_Com_AR ->Text;
  DM->QueryInsertCom ->ParamByName("ELib_Com_EN")->AsString =EditLib_Com_EN  ->Text;
  DM->QueryInsertCom ->ParamByName("EAnnex_Com")->AsString=EditAnnex_Com ->Text;
  if (MessageDlg("Inserer une Nouvelle Commune " ,
      mtInformation, TMsgDlgButtons() << mbOK <<mbCancel, 0)== mrOk)
      {
       DM->QueryInsertCom ->ExecSQL();
      }
 
    }
 catch   (...)
 {
 ShowMessage("commune existante")    ;
 } | 
Partager