Prets de livre

Télécharger le projet
Commenter

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/
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_jimmy69)