PRETS DE LIVRE , Source N°23477

Information sur la source

Catégorie :Base de Donnees Niveau : Initié Date de création : 07/06/2004 Vu / téléchargé: 5 877 / 2 365

Auteur : jimmy69

Site perso

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

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

//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;

//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/

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

info.txt 1 559 octets
prets
- prets.~dpr445 octets
- prets.cfg 619 octets
- prets.dof 1 362 octets
- prets.dpr 530 octets
- prets.res876 octets
- Uexamen.~dfm660 octets
- Uexamen.~pas360 octets
- Uexamen.dcu3 263 octets
- Uexamen.dfm1 512 octets
- Uexamen.pas 360 octets
- Ulivre.~ddp51 octets
- Ulivre.~dfm29 802 octets
- Ulivre.~pas17 652 octets
- Ulivre.dcu18 767 octets
- Ulivre.ddp51 octets
- Ulivre.dfm29 802 octets
- Ulivre.pas 17 581 octets
- Upersonne.~ddp51 octets
- Upersonne.~dfm37 139 octets
- Upersonne.~pas21 113 octets
- Upersonne.dcu21 283 octets
- Upersonne.ddp51 octets
- Upersonne.dfm37 139 octets
- Upersonne.pas 21 042 octets
- Upret.~ddp51 octets
- Upret.~dfm37 179 octets
- Upret.~pas18 655 octets
- Upret.dcu22 001 octets
- Upret.ddp51 octets
- Upret.dfm37 179 octets
- Upret.pas 18 655 octets
- Utout.~ddp51 octets
- Utout.~dfm18 358 octets
- Utout.~pas2 298 octets
- Utout.dcu4 408 octets
- Utout.ddp51 octets
- Utout.dfm18 317 octets
- Utout.pas 2 298 octets
- images
  - bSupprime.bmp 246 octets
  - CAMERA.BMP 246 octets
  - CUT.BMP 1 630 octets
  - DELETE.BMP 382 octets
  - dernier.BMP 376 octets
  - DIAMOND.BMP 382 octets
  - EDIT.BMP 246 octets
  - EXPLORER.BMP 246 octets
  - FIND.BMP 246 octets
  - HAND.BMP 382 octets
  - HAPPY.BMP 382 octets
  - HELP.BMP 1 630 octets
  - HLP.BMP 246 octets
  - Information.bmp 630 octets
  - OPEN.BMP 1 630 octets
  - PAINT.BMP 1 630 octets
  - PLUS.BMP 230 octets
  - poubelle.BMP 376 octets
  - precedent.BMP 376 octets
  - premier.BMP 376 octets
  - RECYFULL.BMP 246 octets
sql serveur
- create.sql 1 481 octets
- procedure stockee.txt 9 380 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de jimmy69

Sources de la même categorie

Toutes les sources de la catégorie Base de Donnees

Commentaires

Commentaire de salimdz2004 le 24/06/2005 16:32:18

Sujet : salut, j'ai un probleme avec MSDE

salut
merci avent tous, pour les sources que tu à créer et publier dans ce site, vriament il sent bien pour les debutant comme moi

j'ai un probleme avec la connection client à MSDE
le programme que tu à met PRETS DE LIVRE dans le poste local marche tres bien, mais dans le poste client il ne marche pas chez moi j'ai pas comprie l'erreur

[DBNTLIB][ConnectionOpen (Connect()).] Ce serveur SQL n'existe pas ou son accès est refusé

et le probleme que le partage reseau marche tres bien entre les 2 micros et aussi la msde marche tres bien

j'espére bien que tu m'aide à resoudre ce probleme
mes salutation
Commentaire de jimmy69 le 25/06/2005 19:39:09

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
Commentaire de salimdz2004 le 25/06/2005 23:33:44

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
Commentaire de tadjinabil le 31/12/2006 17:09:54

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.
Commentaire de jimmy69 le 02/01/2007 13:46:19

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
Commentaire de jackalunion le 25/06/2008 03:48:21

Ca marche pas sur Delphi 7