Soyez le premier à donner votre avis sur cette source.
Vue 16 692 fois - Téléchargée 2 852 fois
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;
Commentaires
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.