PROCEDURE STOCKÉE (INSERT) AVEC SQL SERVEUR OU MSDE

procedure TForm1.SpbEnvoitClick(Sender: TObject);
begin
 //test si champs  est remplis
 if (eNom.text = '')then
 begin
 showmessage('Erreur..veuillez remplir les champs svp');
 Windows.Beep(100,500); //beep
 eNom.SetFocus; //place le focus
 end
 else
      with ADOstoredprocInsere do
        begin
          parameters.ParamByName('@nouvNom').Value:=ENom.text;
          parameters.ParamByName('@nouvPrenom').Value:=EPrenom.text;
          parameters.ParamByName('@nouvAdresse').Value:=EAdresse.text;
          parameters.ParamByName('@nouvVille').Value:=EVille.text;
          parameters.ParamByName('@nouvTelephone').Value:=ETele.text;
           //ecxecution procedure
          execproc;
          //rafraichit  la base
        ADOtable1.close; //fermeture de la table
        ADOtable1.open;  //rafraichissement
        showmessage('Insertion de votre nouveau client reussie...');
        panelajout.Visible := false;
        bpanelvisible.Enabled := true;
        //mise a blanc des edit
        eNom.Text:= '';
        ePrenom.Text:='';
        eAdresse.Text:='';
        eVille.Text:='';
        etele.Text:='';
      end;


end;

Télécharger le zip