Prets de livre

Soyez le premier à donner votre avis sur cette source.

Vue 11 364 fois - Téléchargée 3 298 fois

Description

Projet prets (Juin 2004)
------------------------

Projet prets est un p'tit programme realise
avec D6 et sql serveur 2000 et ado.

Il vous permettra d'enregistrer vos livres, les emprunteurs
et bien sur les prets en question...de supprimer, de modifier le tout,
de rechercher et meme
d'imprimer les rapports avec qreport...

Tout est dans le .zip

y'a deux dossiers :
---------------------

prets => conteint tous les fichiers de l'application
sql serveur => contient la creation des tables et des procedures stockees

tout est realise avec des procedures stockees.

Pour ceux qui ne saurait pas ce qu'est une procedure stockee je le renvoit ici
=> http://www.delphifr.com/code.aspx?ID=22175

Pour faire tourner ce soft chez vous :
-----------------------------------------

sql serveur => creez une base et copiez coller le fichier create.sql ds l'analyseur
de requetes.

=> copiez une a une les procedures stockees du fichier procedure stockee.txt
ds l'analyseur de requetes.

Delphi 6 => Ouvrez prets.dpr
=> faites voir
=> choississez fichie
=> choississez tout
=> construisez votre connexion
=> placez les adolisteprets, adolistepersonne et adolistelivre sur true

Compilez ca devrait rouler....

C'est mon premier soft avec du relationnelle.....:-)!
Vous me direz ce que vous en pensez....

Source / Exemple :


//CLIQUE SUR COLONNE
procedure TFpret.grillepretTitleClick(Column: TColumn);
var
cle : integer;
begin
cle := strtoint(dbpkpret.text);
  with tout.adolistepret do
    begin
     active:=false;
     parameters.parambyname('@nomdecolonne').value := column.fieldname;

        //CLIQUE NOM
        if (column.Fieldname = 'Nom') then   //attention a la case du champ !!! Nom et nom
          begin
           if(valnom = '+') then valnom := '-'
           else  valnom := '+';
           parameters.parambyname('@ordretri').value :=valnom;
         end;

        //PRENOM
        if (column.FieldName = 'prenom') then
          begin
           if (valprenom = '+') then valprenom := '-'
           else valprenom :='+';
           parameters.parambyname('@ordretri').Value := valprenom;
          end;

        //DATE SORTIE
        if (column.FieldName = 'datesortie') then
         begin
           if (valdatesortie = '+') then valdatesortie := '-'
           else valdatesortie :='+';
           parameters.parambyname('@ordretri').Value := valdatesortie;
         end;

         //DATE ENTREE
        if (column.FieldName = 'daterentree') then
         begin
           if (valdateentree = '+') then valdateentree := '-'
           else valdateentree :='+';
           parameters.parambyname('@ordretri').Value := valdateentree;
         end;

        //TITRE
        if (column.FieldName = 'Titre') then
         begin
           if (valtitre = '+') then valtitre := '-'
           else valtitre :='+';
           parameters.parambyname('@ordretri').Value := valtitre;
         end;

        //test de EDITION
        if (column.Fieldname = 'Edition') then   //attention a la case du champ !!! Nom et nom
          begin
           if(valedition = '+') then valedition := '-'
           else  valedition := '+';
         parameters.parambyname('@ordretri').value :=valedition;
         end;
     active := true;  //active la proc
     locate('id_prets', cle, []); //RENVIO LE NUM PK_prets

    end;
//FIN
end;

Conclusion :


Bon coding

Christophe

http://membres.lycos.fr/annmysql/

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

jackalunion
Messages postés
129
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008
-
Ca marche pas sur Delphi 7
cs_jimmy69
Messages postés
787
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
27 novembre 2008
-
salut salut,

ton erreur ne me dit rien du tout !!!!
en plus je ne bosse plus du tout avec delphi depuis 2004 !!!!

le mieux pour toi c'est soit de poser ta question dans le forum.

Bon dev
Christophe
Un bouillonnais
tadjinabil
Messages postés
4
Date d'inscription
samedi 24 juin 2006
Statut
Membre
Dernière intervention
15 février 2007
-
j ai un petit problem soud delphi 7 avec le message "[Erreur fatale] Paquet requis 'nmfast' non trouvé"
je vois qie le couplement delphi +sql server est interessant.
salimdz2004
Messages postés
69
Date d'inscription
mercredi 21 juillet 2004
Statut
Membre
Dernière intervention
12 janvier 2011
-
salut jimmy69
merci pour ta reponse
j'ai trouve la solution
1- il faut que j'utilise les adresses IP du serveur c pas son nom
2- il faut que je desactive par-feu windows (je suis sur windows XP)

merci aussi pour ces soucres que tu publier, il sent bien pour les debutant comme moi

mes salution
cs_jimmy69
Messages postés
787
Date d'inscription
dimanche 22 décembre 2002
Statut
Membre
Dernière intervention
27 novembre 2008
-
salut salimdz2004,

Je vois pas trop pourquoi cela ne fonctionne pas si ds la programme client tu mets la connection sur le poste ou se trouve le serveur sql cela devrait fonctionner !

Je suis pas un pro tu sais mais je te conseille de poser ta question dans le forum !

Je vais y reflechir car j'aimerais bien savoir aussi pourquoi cela ne va pas !!!!

Te souhaite un bon week end!

J'ai ete absent de codes sources pendant un an je reviens debut septembre je pense va y avoir debordement de sources de ma part crois moi ;-)

Ciao

Christophe

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.