Code de la touche enregistrer sur interbase 6.0

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 340 fois - Téléchargée 20 fois

Contenu du snippet

Ce present pogramme nous permet de proceder à l'enregistrement des dommées, il frequemment est utilisé sur delphi.
ici, il est question de lenregistrement d'une entité CONTRAT(table contrat). Avec une clé étrangère CodeMagasin.

Source / Exemple :


set term^;
Create procedure EnregContrat(Pcodecontrat varchar(9),
        Pcodeclient varchar(9),
        PNom varchar(20),
        PCNI varchar(25),
        PCS Varchar (25),
        Pcodemagasin varchar(9),
        PDesignation varchar(30),
        PTypecontrat varchar(30),
        PModereglement Varchar(35),
        PDatecontrat Date,
        PMontant Double precision)

returns (Resultat Varchar(80))
As
Begin
Insert into TCONTRAT( Codecontrat,Codeclient,Nom,CNI,CS,Codemagasin,
                       Designation,Typecontrat,Modereglement,Datecontrat,Montant)
Values (:PCodecontrat,
        :Pcodeclient,
        : PNom,
        :PCNI,
        :PCS,
        :Pcodemagasin,
        :PDesignation,
        :PTypecontrat,
        :PModereglement,
        :PDatecontrat,
        :PMontant);
Resultat = 'Enregistrement éffectué avec succès';
Exit;
When SQLCODE - 803 do
Begin
  Resultat = 'Ce code contrat existe-veuillez donner un autre code';
  Exit;
  
 End
End^
Set Term ; ^

Conclusion :


Il permet l'enregistrement des propietés de la table CONTRAT.

A voir également

Ajouter un commentaire Commentaire
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
71
29 mars 2007 à 15:55
merci de mettre a jour ta source...
trop de fautes d'orthographes / de saisie dans le descriptif...

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.