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