Codes Sources - Commentcamarche

27/07/13
codes-sources.commentcamarche.net/source/q=GESTION+etablissement+scolaire&cur=1&url=/
High-Tech
Sant-Mdecine
Droit-Finances
AppsTV
Codes-Sources
Inscription
Plan
Connexion
Identifiant
Mot de passe (oubli ?)
Connexion
Rechercher
OK
Accueil
Forum
Tutoriels
Codes Sources
Top Membres
Tous les langages
ASM
ASP / ASP.NET
C / C++ / C++.NET
C# / .NET
ColdFusion
Delphi / Pascal
Flash
Flex
Foxpro
Graph
IRC
Java
Javascript
PDA
PHP
Python
Regex
SQL
Visual Basic / VB.NET
Visual Basic / VB.NET
Forum Visual Basic / VB.NET
Tutoriels Visual Basic / VB.NET
Codes Sources Visual Basic / VB.NET
Dposer un code Visual Basic / VB.NET
1/21
27/07/13
PHP
Forum PHP
Tutoriels PHP
Codes Sources PHP
Dposer un code PHP
C / C++ / C++.NET
Forum C / C++ / C++.NET
Tutoriels C / C++ / C++.NET
Codes Sources C / C++ / C++.NET
Dposer un code C / C++ / C++.NET
Javascript
Forum Javascript
Tutoriels Javascript
Codes Sources Javascript
Dposer un code Javascript
C# / .NET
Forum C# / .NET
Tutoriels C# / .NET
Codes Sources C# / .NET
Dposer un code C# / .NET
ASP / ASP.NET
Forum ASP / ASP.NET
Tutoriels ASP / ASP.NET
Codes Sources ASP / ASP.NET
Dposer un code ASP / ASP.NET
Services
Agenda
Annuaire des sites
Blogs
Dictionnaire de la prog
Emploi
Groupes
Outils
RFC
Snippets
Accueil
Connexion
Identifiant
Mot de passe (oubli ?)
Connexion
Dposer un code Code
Recherche
Haut
A la recherche d'un emploi ?
Accueil
Delphi / Pascal
Sources Delphi / Pascal
Sources Base de Donnees
Gestion d'un etablissement scolaire
Dposer un code-source Delphi / Pascal
2/21
27/07/13
signaler
par Zicson1
(5.0/5) sur 63 avis utilisateurs

Source vue 27 941 fois - Tlcharge 7 384 fois
Publie le 25/06/2008 - Mise jour le 30/06/2008
Tlcharger le projet
Codes Sources
Racine
GEST_ETUDE
..
DATA
Donner mon avis
Description
Cest une base de donnes qui gre au total 4 modules:
- Gestion des inscriptions et de la scolarit
- Gestion du personnel
- Gestion des lves
- Gestion des bulletins
NB: c'est une version incomplette de mon appli car il comporte un copyright. Au dmarrage entrer ce code:
BONI comme nom utilisateur et
pour le mot de passe entrer: 'ok' ou 'ful'
Conclusion :
C'est dans le but d'aider tout ceux qui veule apprendre une programmation client-serveur avec
INTERBASE. son utilisation demande la connaissance exacte des infos rechercher.
Exemple ici Nbulletin 001EL-2008-01, Matricule personnel: 001PER ou 002PER, Matricule lve:001EL,
004EL, Matricule Mre:001ME, Pre:001PE..... pour une bonne manipulation des infos.
A voir galement
Commentaires
Ajouter un commentaire
Zicson1 -
25 juin 2008 22:16
Signaler
Le moteur de la base de donnes(Database engine) ici c'est INTERBASE, il peut tourner sur un poste
o interbase est correctement install sans DELPHI pourvu que le chmin soit bien paramtr. c'est
une base de donnes utilisable en reseau local seulement(local server).
cs_SOUMIA -
25 juin 2008 22:37
Signaler
salut mes amis

Je crois que les fichiers DFM manquant
jackalunion -
26 juin 2008 00:21
Signaler
3/21
27/07/13
Il manque des fichiers, non

j'utilise delphi7
Zicson1 -
26 juin 2008 10:59
Signaler
Merci SOUMIA, c'est une bonne remarque. il manque les fichiers DFM, mon appli est un peut
volumineux donc j'ai essay de les supprimer pour qu'il soit en de d'1Mo, chose que j'ai faite malgr
moi. mais au cas o vous n'arriverez pas l'exploiter, je ferai liminer certaines fiches en les retirant
du projet pour avoir un petit truc de moins d'un mga octet pour montrer tout juste le principe de
fonctionnement. Ou si vous savez quels fichiers retirer autre que ceux des DFM pour l'utiliser sans
problme, parce que je pense qu' matire de ncessiter tous les fichiers se valent.
Oniria -
26 juin 2008 13:41
Signaler
Bonjour,
pour supprimer des fichier qui ne sont pas utile, il faut supprimer les .dcu,cfg,.~dpr
avec, juste ca, il devrai fondre comme neige au soleil
Bon codage
Site web
cs_cantador -
26 juin 2008 14:23
Signaler
bonjour,
un peu de message s'impose avant de pouvoir
tester le programme.
il est ncessaire aussi de renommer les composants et de prvoir
l'utilisation des alias permettant de changer aisment l'adresse de la base.
pour l'instant, on est dans l'attente.
cs_cantador -
26 juin 2008 14:23
Signaler
un peu de mnage..(lol)
Zicson1 -
26 juin 2008 17:37
Signaler
Merci mon frre ONIRIA et le problme des fichiers sera ainsi rsolu, pour ce qui est du renom des
composants, je ne pense pas que a soit ncessaire mon ami CANTADOR parce qu'il s'agit d'un alias
extension .GDB(Interbase)dont le chemin est C:/GEST_ETUDE/DATA/DIASOFT.GDB ,seule le
projet peut tre renommer, pour le faire, tu ouvre le fichier DPR sous DELPHI et tu fait "File + save as"
pour le renommer et l'enregistrer dans le dossier de ton choix mais la base de donnes doit tre
toujour sur la partion C:/ comme l'indique le chemin .NB: Il tourne sur WIN XP cause du composant
XP que je lui est incorpor,sur 2000 SP4 il se lance bien mais ne tourne car il y a incompatibilit de
polices, moins que le composant de skin XP lui soit retir.
cs_cantador -
26 juin 2008 17:55
Signaler
pas tout la fois..

4/21
27/07/13
d'abord, il est ncessaire de crer un alia..

On ne code pas en dur un chemin d'accs dans
le programme lui-mme.
tu ouvre le fichier DPR sous DELPHI et tu fait "File + save as" pour le renommer et l'enregistrer dans
le dossier de ton choix
ce n'est pas une bonne mthode..
Quand on renommage des composants, cela n'a rien voir avec le chemin d'accs la base.
Cette pratique permet aux autres une meilleure comprhension/lecture du source et facilite
grandement sa maintenance.
Zicson1 -
27 juin 2008 11:44
Signaler
Une base de donnes INTERBASE est differente de celle de base de donnes BDE, pour une base
de donnes BDE il y a un code crire pour sa cration comme tu le souhaite. Mais pour Interbase il
n'y a pas de code crire en delphi car il est indpendant de DELPHI, seulement, on utilise DELPHI
pour attaquer la base de donnes Interbase en vue de crer un interface utilisateur pour (enregistrer,
supprimer, recuperer...les donnes) . La diffrence: Avec BDE les donne se trouvent regroupes au
sein de DELHPI or Avec Interbase DELPHI va chercher les donnes chez interbase qui est le serveur
et malheur pour toi si le serveur n'est pas active tu n'auras rien comme information. Conclusion,
DELPHI ne peut crer d'Alias GDB(Interbase) pour le faire on:
- Creation d'un nouveau dossier dans l'emplacement souhait(C:, D: ou F:)et ensuite on y crer un
sous dossier ou crer l'alias GDB.
- Tu ouvres Interbase(Ibconsole)et pour la suite refere toi aux sites interbase pour creer ton alias.
NB: Sans Interbase sur le poste Imposible de travailler sur une base interbase parce que c'est l
qu'on creer les TABLES, LES PROCEDURES, LES FONCTIONS, LES REQUETES, LES TRIGERS
avants de les appler dpuis DELPHI.
Pour le renom des composants c'est une bonne chose mais malheureusement, le projet set grand
donc renommer un composant affecterait les codes des autre units ou le code est utilis. pour voir
les code des IBDATASET IBQUERY faites
clic droit sur eux + etit SQL. Pour les fiches elles sont toutes rattaches la fiche FMUNU donc
partant de la vous pouvez vous retrouver.
cs_cantador -
27 juin 2008 17:23
Signaler
Inutile de faire tout un blablabla :

- il exite un fichier qui gre les alias d'interbase
renommer un composant affecterait les codes des autre units :
on s'en doute, mais ce n'est pas aux membres du site faire ce travail ainsi que le mnage dans
ton source.
En tout cas pour l'instant, tu n'as pas fait la moindre modification afin de rendre exploitable ce
programme.
cs_eli42 -
28 juin 2008 04:42
Signaler
Ce n'est pas dans mes habitudes de dire c'est bon, ce n'est pas bon, mais le peut que j'ai pu voir
exemple unit9, unit16, unit33 qui ont les dfm, me donne pas envie de voir la suite. C'est dommage car
j'aurais bien voulu voir un soft en base GDB.
Zicson1 -
30 juin 2008 12:29
Signaler
5/21
27/07/13
Merci Mon frre ELI42, j'accepte volontiers tes critiques parce que quand on a pas la totalit d'une
source c'est difficile de la comprendre et de l'interprter. Sincrement on ne comprendra jamais cette
source tant qu'on a pas la totalit des fichiers afin de la compiler et la tester pour tirer profit de son
bien fond. Cette est actuellement en cours de fin projet. elle comporte 65 fiches au total, et ce qui
est intressant, elle convient aux besoins des demandeurs, nanmoins je voulais bien le faire
partager en utilisant celle de 49 units mais hlas les DFM seul fond dj 1,25Mo.
cs_MAURICIO -
30 juin 2008 18:14
Signaler
Salut,
d' abord, le problme de la taille du projet est trs facile contourner: tu le mets sur une page
internet et tu nous refile le link!
Je suis tout fait d' accord avec Eli42: c' est le gros bordel!
a se rsume une base de donnes, non, plutt des tables lies entre elles et visualises travers
de DBGrid, le tout sans me: le DataModule n' a pas une ligne de code, je sais pas comment vous
faites les gars pour arriver cet exploit.
Les compos sont pas nomms mais vu que les units non plus, a reste trs homogne...
Lorsque tu devras faire des changements, tu vas comprendre ton erreur.
Le fait que tu aies dcoup certaines units n' est pas en soi une excuse.
Le code semble plutt bien indent et le franais est correct.
Malheureusement il y a de gros problmes de programmation comme par exemple le fait que toutes
les fentres soient cres lors du dmarrage de l' appli.
En ce qui concerne le GUI, c' est trop ar, l' utilisation de PageControl te permettrait d' organiser tes
fentres.
Pour finir, quelques chose me dit que tu va accepter toutes ces critiques pour pouvoir voluer et nous
prsenter quelques chose de plus mature dans les prochaines semaines.
A+
Zicson1 -
30 juin 2008 19:36
Signaler
La programmation est un vaste domaine bien volutif donc personne ne dtient d'une manire figer la
meilleur faon de coder. Pour quoi veux tu coder la o je ne code pas et j'obtiens un rsultat
attendu!c'est une perte de temps. Le module de donnes que j'ai prsent est une exprience
trouve de mes recherches et cela me permet de vite voluer. Pire je peux vous presenter un
DATAMODULE avec 2 composants seulement (IBDATABASE et IBTRANSACTION), sans
DATASOURCE IBTABLE OU IBDATASET et sans code qui fonctionne mieux grce aux lments de
l'inspecteur d'objet de DELPHI7. SVP ne m'imposer votre architecture et votre manire de coder si le
mien ne te va pas tu verras mieux de garder ta majestueuse mthode que moi mme je connais dj.
Pour les composants c'est difficile pour toi parce que tu ne connait pas la source mais je n'ai pas de
problme la modifier, hier mon agence m'a demander d'ajouter un script de calcule et c'est ce que
je viens de faire et a marche. Il ne me demanderons pas pour quoi tu n'a pas ajout ce code, pourvu
que a marche bien et que cela ne soit pas lourd l'excution. Au aujourd'hui, avec ces composants
IB on peut aller vite sans pour autant perdre le temps vouloir tout coder, savez-vous qu'un
IBDATASET rgnre des codes SQL qui nous aide vite aller sans pour autant coder?...chercher
6/21
27/07/13
simplifier plutt car la bibliothque est vaste.
Zicson1 -
30 juin 2008 19:50
Signaler
je vous donne quelques exemples: que d'crire "Form1.Dataset.Active:=True;" je slectionne le

Dataset et je met sa propriet Active true dans l'inspecteur d'objet. "Form1.DBEdit.Visible:=False;"
pour ce code, un seul clic dans l'inspecteur d'objet suffirait, c'est moi ma manire de chercher aprs
avoir vu aussi les mthodes communes.
sidouo -
30 juin 2008 22:21
Signaler
salut tout le monde

moi je suis debutants en avec delphie
j'ai creer une base de donne access
j'ai creer un fichier setup avec installsheld
chez moi il marche mais dans un autre pc il marche plus
ma question c'est comment creer un aliasse odbc automtique lor de l'instalation de l'application et
merci
a vous .... merci
cs_eli42 -
1 juil. 2008 01:24
Signaler
SIDOUO heum on vas se faire engueler ta question n'est pas au bon endroit, mais bon
//----------------------------------------------------var
Chemin, Base : String;
begin
//----- Ouverture du fichier parametres
ParamIni := TIniFile.Create(ExtractFilePath(Application.ExeName) +
'\Data\Parametre.ini');
//----- Lecture du Chemin et nom de la base
Chemin := ParamIni.ReadString('Principal', 'Chemin', 'Erreur');
Base := ParamIni.ReadString('Principal', 'Base', 'Erreur');
//----- Mise a jour du database
Database.ConnectionString := 'provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ Chemin + '\' + Base + '.MDB;mode=readwrite;Persist Security Info=False';
//----ParamIni.Free
cette methode simple, me permet de faire plusieur base de donnes, d'avoir des base
sur le serveur et d'autre sur le poste, pas oublier de supprimer dans l'inspecteur
d'objet les parametre de CONNECTIONSTRING de la database
Sinon tu creer un DSN au create de ta Form
cs_eli42 -
1 juil. 2008 01:34
Signaler
Zicson1 tu veux dire par ton exemple, que toutes tes bases sont tjrs Open, c'est toi qui voit mais je ne
trouve pas que c'est bien propre, chacun code comme il le dsire certes, le client veut que a marche
et ne veut pas savoir comme c'est cod, mais bon la on va se lancer dans une grande polmique, et
7/21
27/07/13
tu ne gagnera pas, ce que je trouve dommage j'aurais bien voulu voir un source avec une base GDB,
car j'aurais bien essay pour changer contre mes Access. Mais bon je pers pas espoir que tu nous
mette en lignes quelque chose ou on puisse vraiment tester.
//------------------------------------------------je vous donne quelques exemples: que d'crire "Form1.Dataset.Active:=True;" je slectionne le
Dataset et je met sa propriet Active true dans l'inspecteur d'objet. "Form1.DBEdit.Visible:=False;"
pour ce code, un seul clic dans l'inspecteur d'objet suffirait, c'est moi ma manire de chercher aprs
avoir vu aussi les mthodes communes.
cs_MAURICIO -
1 juil. 2008 10:10
Signaler
Je ne veux rien imposer mais ta faon de faire est trs brouillon mais si tu t' y retrouves, c' est parce
que le projet est trs simpliste est qu' il est tout frais.
Sur ce,
A+
sidouo -
1 juil. 2008 12:03
Signaler
merci beaucoup ELI42

mais votre repense est compliqu par rapport a mes connaissace
ce que je veux une repense plus detaille c'est si possible
alors l'application est un repertoire telphonique
il marche tres bien sur mon ordinateur
donc j'ai creer un alias ODBC (windows xp un db access) j'ai l y trouve sur le chanp databaename .
mais l'rsque je cre le ficheir setup et je le donne a un autre ca marche pas .
donc comment faire avec explication svp pour y arriv svp .
mecri ELI42 j'attend ta repense merci.
yvessimon -
1 juil. 2008 14:07
Signaler
Bonjour,
Ou trouver unit37 ?
Salutations
cs_cantador -
1 juil. 2008 14:28
Signaler
Il semble qu'il y ait une incomprhension sur l'usage du site

(il serait d'ailleurs intressant que les admins se manifestent)
L'objectif n'est pas que tout le monde dpose ses brouillons de code et attende qu'un bon samaritain
de passage remette tout en ordre mais bien plutt d'offrir la communaut quelque chose de
consistant, de travaill, d'organis, d'inattendu, d'original, voire d'utile aussi, afin que chacun puisse
en profiter.
8/21
27/07/13
les questions basiques doivent se dbattre sur le forum.

Le forum, c'est le brouillon et le site, c'est le rendu final !
sidouo -
1 juil. 2008 14:52
Signaler
desole mon pote mais j'ais pas trouver quequ'un qui m'aide
je suis vraiment desole de ma part
excuse mois je le ferai jamais
ok
seulement aide moi a trouver une solution pour mon probleme
merci contador
Zicson1 -
1 juil. 2008 15:00
Signaler
Bien videment, c'est ce je reprochais ELI42 tout le monde n'a pas la mme expertise, moi je
cherche pour simplifier, c'est le cas ici.
Pour moi le problme qui s'oppose ici la source de SIDOUO, c'est le manque du moteur du type de
la base de donnes "DATABASE ENGINE" ici c'est le cas ODBC.
Je ne sais pas si c'est fait avec les composants ADO de la bubliotheque de DELPHI mais le plus
important, il y a plusieurs mthodes dont celle de ELI42, on peut procder par la mthode des
registres du systeme en incorporant ces DLL(Librairies de Liens Dinamiques) mais c'est dlicat de
manipuler les registres de ta machine car en cas d'erreur tu risques de rinstaller ta machine, donc
coute j'ai une mthode trs trs simple pour toi.
Tu n'a pas besoin de coder, j'ai le paquet de tous les DLL des appli BDE, il suffit simplement de les
copier dans le dossier ou se trouve ton l'exe de ton appli et c'est tout. pour paramtrer ton pilote
ODBC tu clic deux fois sur BDE ADMIN qui est aussi inclus dans le paquet.
S'il te plait M.YVESSIMON, mon appli fait plus d'un Mo donc tous les fichiers ne sont pas prsent, pour
avoir la totalit de la source, envoie moi un E-mail :diahoreful@yahoo.fr, car je viens de l'envoyer
d'autres personnes du forum qui m'ont envoyer un message priv.
nulle ne dtient le monopole du savoir,"Ce que je sais, je ne sais rien" RENE DESCARTES.
cs_cantador -
1 juil. 2008 16:55
Signaler
oui Descartes ne connaissait rien,

mais il s'est bien rattrap..
Zicson1 -
1 juil. 2008 17:21
Signaler
Il semble qu'il y ait une incomprhension sur l'usage du site.

(il serait d'ailleurs intressant que les admis se manifestent), car je ne sais pas pourquoi Mon frre
CANTADOR peut se permettre de m'agresser sur un site o les rgles du jeu sont bien tabli. c'est
dommage, vraiment dommage parce que je veux partager mon savoir.
de toute les faons je souhaiterais que ma source soit supprime immdiatement de peur je ne sois
agraiss d'avantage parce que cette foi ci je rpliquerais et le site se transformera autre chose mais
pour leur je lui fait grce car il ne sait pas se qu'il dit.
9/21
27/07/13
Car il est cruel d'utiliser les injures pour cacher ses insuffisances, leur est venu o tu prsenteras ta
sources INTERBASE-DELPHI bien fait comme tu le souhaite la communaut en lieu et place de ma
source pour que je respire mieux. et si l'on regarde bien parmi les sources que tu as posts, je suis
convaincu que tu n'a jamais coder avec INTERBASE et tu n'a aucune notion. Merci
cs_cantador -
1 juil. 2008 17:39
Signaler
il n'y aucune aggressivit de ma part.

et sauf erreur de ma part, je n'ai profr aucune injure.
et du reste je n'ai rien te prouver..
Essaie dj de faire en sorte que ton source fonctionne et aprs on verra la suite.
Tu devrais pouvoir faire fondre comme beurre au soleil tes fichiers..
cs_cantador -
1 juil. 2008 18:46
Signaler
je suis convaincu que tu n'a jamais coder avec INTERBASE et tu n'a aucune notion.
c'est une attaque personnelle et qui n'a pas sa place ici !
cs_MAURICIO -
1 juil. 2008 18:55
Signaler
En ce qui me concerne, je suis pour que les dbutants puissent poster leur sources, daube ou pas.
Par contre, ne pas accepter les critiques constructives, voire attaquer leurs auteurs, a c'est vraiment
infantil.
A+
cs_eli42 -
2 juil. 2008 01:05
Signaler
Zicson1, on va rgler le problme envoi moi ton source a mon adresse en plusieurs zip ou rar, je le
mettrais sur mon site et je mettrai un lien ici, comme a la polmique stoppera, car discuter sur un truc
qu'on a pas ce n'est constructif pour personne.
cs_eli42 -
2 juil. 2008 01:25
Signaler
Tu as raison cantador et c'est ma faute, j'aurais du lui rpondre directement sur sa messagerie, je
m'en excuse auprs des admins, qu'ils supprimes les messages concern.
//----------------------Il semble qu'il y ait une incomprhension sur l'usage du site.
(il serait d'ailleurs intressant que les admins se manifestent)
L'objectif n'est pas que tout le monde dpose ses brouillons de code et attende qu'un bon samaritain
de passage remette tout en ordre mais bien plutt d'offrir la communaut quelque chose de
consistant, de travaill, d'organis, d'inattendu, d'original, voire d'utile aussi, afin que chacun puisse
en profiter.
cs_cantador -
2 juil. 2008 19:50
Signaler
@Eli42 :
10/21
27/07/13
pas de soucis, tout va bien..
cs_eli42 -
2 juil. 2008 21:55
Signaler
Bonjour, suite la demande de Zicson1 et quon puisse avoir un source, qui fonctionne, je vous met
en ligne son source avec les DFM
Programme : http://www.gest42.com/georges/zicson1/GEST_ETUDE.ZIP 1.59mo
IB6Serveur : http://www.gest42.com/georges/zicson1/IB6Serveur.zip 4.17mo
Je ne fais que lintermdiaire, pour rendre service.
cs_cantador -
3 juil. 2008 16:19
Signaler
j'ai test rapidement l'appli :

le choix interbase est discutable puisque Firebird fait la mme chose en mieux et gratuit.
QuickReport, c'est un peu vieillot, mais en fonction des besoins..
Quelques lments revoir sur le modle comme la dfinition des champs, les normes, les options de
tri.
on peut galement fixer les contraintes ce qui allle le code..
le programme lui-mme :
Renommer les composants et notamment les units (ouf!)
la connexion ne marche avec LOKO..(cration d'une autre query alors qu'il existe dj)
il comporte beaucoup de formes et qui ne sont pas toutes utilises en mme temps..
il vaut mieux donc les ouvrir la demande ce qui acclerera l'ouverture de l'appli.
Manque de prcision dans le traitement des boutons (en haut, en bas etc)
choisir des icones vocateurs et les placer dans une barre d'outils ou mieux encore un sidebar.
Le menu n'est pas trs parlant pour un utilisateur lambda..
il faut que le cheminement soit plus encadr et l'information mieux rpartie:
il y a un mlange d'lves, d'utilisateurs et de comptabilit (salaires)
pas facile de s'y retrouver dans ce ddale..
HAFTARIFOUAD -
6 juil. 2008 14:39
Signaler
Bonjour
Jaimerai bien participer, car le domaine de la gestion mintresse :
Tout dabord, je vous flicite pour votre travaille, cest pour a que jai dcid participer
personnellement dans lamlioration, et de vous donner mon point de vu :
1. Renommez vos units, composants,
2. Faites trs attention aux fautes de frappes ou dorthographe.
3. Il est trs utile de grer vos messages derreurs et de confirmations ; par Ex. lorsque lutilisateur
clique par erreur sur le bouton Quitter, donc, il va perdre son travaille !!!
4. Trs importante la gestion des transactions.
5. Il est utile grer le mot de passe ; d'utiliser les fichiers de paramtres (*.ini) ou de manipuler la base
de registre pour le stockage.
6. Il est utile d'appliquer l'unes des mthodes de cryptage des chanes de caractre, grce a vous
11/21
27/07/13
gagnerez le confiance de l'utilisateur du programme (logiciel plus scuris et le taux de risque de

perdre les informations est rduit).
7. Il est important de grer le nombre de fois d'entres d'un faux mot de passe.
8. C'est mieux de crer vos TIBTables et dans un DataModule. (Sparer les composants visuels et
non visuels).
9. Important, de rendre votre application transportable. C.D : Crer un alias dynamique je sais pas si
cest possible avec une DBB Interbase, mais, une autre ide ; au lieu de mettre C:\Application\... vous
aller mettre : .\Application\...
Pour ne pas tarder, je vous souhaite bonne progression et bonne continuation.
Site web
Zicson1 -
7 juil. 2008 15:17
Signaler
Gnial M. AFTARIFOUAD! votre intervention sur mo code m'a beaucoup impression, et je me deman
de, pour quoi vous ne l'avez pas dit si tt. En ffet je suis interess par vos critiques et je suis sur que
cela m'apportera quelque chose de nouveau. si tu pouvais m'expliquer mieux ces deux points cela
m'apportera un plus:
5. Il est utile grer le mot de passe ; d'utiliser les fichiers de paramtres (*.ini) ou de manipuler la base
de registre pour le stockage.
6. Il est utile d'appliquer l'unes des mthodes de cryptage des chanes de caractre, grce a vous
gagnerez le confiance de l'utilisateur du programme (logiciel plus scuris et le taux de risque de
perdre les informations est rduit).
Mais pour le point 9 c'est paussible de crer un alias Interbase dynamiquement, voir ceci:
POUR CREER UNE BASE DE DONNEE INTERBASE EN DYNAMIQUE, IL FAUT ETRE EN LOCAL
(SERVEUR INTERBASE INSTALLE SUR LA MACHINE CIBLE).
Il faut d'abord
- Assigner le nom de la base (gnralement les base Interbase ont comme extension .GDB).
- Dterminer le dialecte SQL (3 tant le dernier).
- Remplir les paramtres de cration (j'ai utilis les paramtres de base d'Interbase, mais c'est
dconseill, il vaut mieux effacer l'utilisateur SYSDBA et crer le sien avec son propre mot de passe
=> Scurit oblige).
Le code ncessaire est l:
procedure TMain.CreateDatabase(ADBFileName: TFilename);
var
IBDataBase: TIBDatabase;
IBQuery: TIBQuery;
IBTransaction: TIBTransaction;
begin
IBDataBase := TIBDatabase.Create(nil);
IBQuery := TIBQuery.Create(nil);
IBTransaction := TIBTransaction.Create(nil);
try
IBDataBase.DatabaseName := ADBFileName;
IBDataBase.SQLDialect := 3;
IBDataBase.Params.Clear;
IBDataBase.Params.Add('USER "SYSDBA"');
12/21
27/07/13
IBDataBase.Params.Add('PASSWORD "masterkey"');
IBDataBase.Params.Add('PAGE_SIZE 4096');
IBDataBase.CreateDatabase;
IBDatabase.Connected := true;
IBTransaction.DefaultDatabase := IBDataBase;
IBQuery.Database := IBDatabase;
IBQuery.Transaction := IBTransaction;
try
IBQuery.SQL.Add('create table IODescriptorEx(IOId int not null,IOFileMask VarChar(30),'+
'AlternativeDesc VarChar(50));');
IBQuery.ExecSQL;
{...}
{ Reste de la cration de la base par script SQL en dur ou rcuprer dans un fichier }
{...}
IBTransaction.Commit;
except
IBTransaction.Rollback;
end;
IBDataBase.Connected := false;
finally
FreeAndNil(IBQuery);
FreeAndNil(IBTransaction);
FreeAndNil(IBDataBase);
end;
end;
Il suffit ensuite de se connecter la base et de se servir d'un IBQuery pour crer les tables et autres
lments ncessaires la mise en uvre de la base de donnes...
NB: Dans ce projet comme vous le demandez, j'ai prfr utiliser les IBquery pour mes Tables en lieu
et place des IBTables.
Pour la remarque N 7 "7. Il est important de grer le nombre de fois d'entres d'un faux mot de
passe." Je pense bien une boucle :
TANT QUE i<3 Faire
i++
...
HAFTARIFOUAD -
7 juil. 2008 22:21
Signaler
Salut
Mr: Zicson1, j'aimerai bien vous prcisez que mon dernier commentaire n'est pas une critique mais
juste une simple intervention pour amliorer votre travaille.
En ce qui concerne l'intervention N 5:
-Grer le mot passe-; je voix que vous utilisez un mot de passe standard, (pour le mot de passe
entrer: 'ok' ou 'ful'), peut tre bon comme exemple mais pas bon dans un logiciel professionnel
comme le votre, vous devez limiter lutilisation du logiciel pour ne pas perdre limage de logiciel. Je
veux dire par cela, si vous utiliser les cls dactivation par date ou par N de srie de la carte mre ou
a sera encore mieux. Autre chose cest lutilisateur de crer son propre mot de passe, et cest
encore mieux de grer les sessions (plusieurs session par nom dutilisateur et mot de passe).
En ce qui concerne lintervention N6 :
Enregistrer le mot de passe dans un fichier ini ou dans la base de registre: La meilleure solution de
protger un logiciel est de crypter le mot de passe pour quil ne soit pas lisible par les autres et de le
13/21
27/07/13
stocker soit ; dans votre BDD, un fichier de paramtres ini, ou bien de le stocker dans la base de
registre.
A la fin je vous remercie pour votre claircissement de la rponse N9 encore je vous remercie pour
votre gentillesse et bonne progression.
Site web
HAFTARIFOUAD -
7 juil. 2008 22:30
Signaler
Jai oublie lintervention N 7 :

Limiter le nombre de fois dentre dun faux mot de passe :, je vous propose ce code :
// Dclarer la variable i
Var i:integer:
Initialiser la variable i :=Nombre de fois dntre dun faux mot de passe par ex. 5
// Si le mot de passe est vraie
If mot de passe then begin
Afirst.show;
Password.Hide;
end else begin
// Si le mot de passe est faux
// dsincrmnter la variable i
Dec(i);
if (i>0) then begin
ShowMessage('Mot de passe incorrect...'+#13+ inttostr(i)+' essaies rstantes ');
end else begin
ShowMessage('Impossible de continuer, vrfier votre nom d''utilisateur et votre mot de passe');
Application.Terminate;
end;
Site web
Zicson1 -
8 juil. 2008 15:52
Signaler
M. AFTARIFOUAD, merci bien pour le source et j'en suis que tu ira loin en programmation parce que
tu aimes bien le mtier quand bien mme que tu n'est pas informaticien " coeur vaillant rien
d'impossible".
j'ai dj vue ton projet concernant la gestion d'une bibliothque et je t'assure que tu a fait des
avances notables surtout pour quelqu'un qui n'a jamais suivis un cours en Informatique!breve j'ai
ouli d'ajouter le code de la cration d'un alias INTERBASE en mode dynamique car le code
precedent, c'est celui de la creation de la base de donnes Interbase en mode dynamique mais ce
code est ncessaire avant la cration de l'alias.
COMMENT CREER UN ALIAS INTERBASE ET PARADOX DYNAMIQUEMENT?
Pour ce qui est de la cration des alias BDE, il faut recourir l'une des mthodes AddAlias ou
AddStandardAlias de l'objet TSession. La seconde mthode tant spcialise pour la cration d'alias
Paradox, DBase et ASCII.
Le code de cration dynamique d'un alias pour base Paradox aura la forme :
14/21
27/07/13
Session.AddStandardAlias('TempPCalepin', 'C:\DataBase\Mon Calepin', 'Paradox');

et celui pour une base Interbase par exemple:
procedure TForm1.CreateAliasClick(Sender: TObject);
var Session : TSession;
List : TStringList;
begin
Session := TSession.Create(nil);
List := TStringList.Create;
List.Add('SERVER NAME = C:\DataBase\employee.gdb'); // Par exemple
List.Add('USER NAME = SYSDBA');
List.Add('PASSWORD = masterkey');
Session.AutoSessionName := true; //Pour viter des conflits de nom de session
Session.Open;
try
Session.AddAlias('EmployeeAlias','INTRBASE',List);
Session.SaveConfigFile;
Session.Close;
finally
List.Free;
Session.Free;
end;
end;
Et je t'informe que tes remarques m'ont fait dcouvrir un code que je veux bien partager avec vous.
COMMENT AJOUTER UN UTILISATEUR ?
Pour ajouter un utilisateur dans la base de donnes INTERBASE, le composant TIBSecurityService
est ncessaire.
Pour configurer l'IBSecurityService1, affectez les proprits suivantes dans l'inspecteur d'objet :
Protocol := TCP (Puisque client/serveur)
ServerName := 127.0.0.1 (ou autre si serveur sur ordinateur distant)
var
sPseudo, sMotDePasse, sPrenom, sNom : string;
...
With IBSecurityService1 do
begin
with Params do
begin
Clear;
Add('user_name=sysdba');
Add('password=masterkey');
End;
Active := true;
// affectation des informations utilisateur selon les besoins
// UserName, FirstName, MiddleName, LastName, UserID, GroupID, Password.
15/21
27/07/13
UserName:=sPseudo; //indispensable
Password:=sMotDePasse; //indispensable
FirstName:=sPrenom;
LastName:=sNom; // etc ... selon les besoins
try
AddUser;
except
on E:Exception do
begin
ShowMessage(E.ClassName+':'+E.Message);
// traitement en cas d'erreur
end;
end;
Active := false;
end;
Merci pour tes remarques et j'attends partager d'autres avec toi ci possible.
Utilisateur anonyme -
12 dc. 2008 20:14
Signaler
Bonjour, moi j'ai tlcharg le zip, cr l'alias mais en essayant d'excuter voila ce que m'est affich
[Erreur fatale] Unit2.pas(8): Fichier non trouv : 'XPMan.dcu'
Zicson1 -
16 dc. 2008 12:09
Signaler
Salut,
Je ne sais pas quelle modification que vous avez apport au contenu du code mais ce qui est certain
l'alias dont vous parlez est dj crer et se trouve dans le dossier DATA je l'ai nomm DIASOFT.GDB
donc si vous pouvez le supprim et crer le votre soit par script ou par assistant INTERBASE et tablir
une nouvelle connexion la base c'est une possibilit.
Le second problme: [Erreur fatale] Unit2.pas(8) ici l'unit2 c'est l'unit qui porte le module de donnes
(Datamodule) de mon application et quand tu regarde bien le contenu du zip il est bien prsent le
mieux serait de revoir tes modifications.
Le troisime point: (Fichier non trouv : 'XPMan.dcu') ce nom de fichier n'a jamais exister dans le
code du zip donc le mieux serait de revoir les modifications.
je suis sur d'une chose, l'utilisation du composant XP qui donne un aperu de XP mon appli donc
mon appli ne passe pas sur 98 et 2000 infrieur il te faut Win XP pour un problme de compatibilit
des polices.
yvessimon -
16 dc. 2008 13:28
Signaler
bonjour,
la compilation il ne trouve pas Unit37 ?
Salutations
Zicson1 -
16 dc. 2008 15:35
Signaler
16/21
27/07/13
Bonjour,
Pour toi YVESSIMON, je pense que tu devrais avoir le source en totalit contrairement au autre car
c'est aprs ta requte que mon frre ELI42 hberger le source sur son site pour vous permettre de le
tlcharger en totalit, et voici ces liens qui malheureusement ne marchent plus:
Je vous communiquerez un autre lien des qu'il y a possibilit.
Zicson1 -
16 dc. 2008 15:40
Signaler
Merci Mon frre ELI42, car lien marche encore je viens de tester:
http://www.gest42.com/georges/zicson1/GEST_ETUDE.ZIP
cs_eli42 -
16 dc. 2008 19:16
Signaler
Bonjour,
Les liens sont toujours bien present et j'ai encore teste. Par contre si tu as fait des modifications
importante peut etre interressant de les remettres jour. Envoi moi les zip coup si tu veux que je
fasse la mise a jour.
Cordialement
Zicson1 -
17 dc. 2008 14:12
Signaler
ok, merci mon frre
17 dc. 2008 21:38
Signaler
Bonjour ZICSON1
Je veux juste te dire que je ne suis pas assez initi en Delphi pour porter des modifications votre
source, j'ai juste dcompress le zip et j'ai ouvert le projet C:\GEST_ETUD\FULL\PROGEST_ETUDE,
j'ai ensuite lanc l'excution et voila ce qui m'est affich: (Classe TXPManifest non trouve. ignorer
l'erreur et continuer?...) j'ai choisi "Ignorer" et voila ce que le compilateur m'a affich ([Erreur fatale]
Unit2.pas(8): Fichier non trouv : 'XPMan.dcu') et pour votre information j'ai windows XP Pack2 et
Delphi6 edition entreprise sur ma machine!
Cordialement!
Zicson1 -
19 dc. 2008 20:46
Signaler
''(Classe TXPManifest non trouve, Delphi6 dition entreprise sur ma machine''

Je pense que je t'ai compris, je n'ai pas utilis Delphi6 pour mon projet mais plutt la version7.0
Entreprise donc le mieux serais de vrifier dans la palette des composants si le composant
TXPManifest est bien prsent dans le cas contraire vrifier s'il y a une possibilit de l'installer
manuellement ou une petite visite sur google te fera du bien.
Sur la version 7.0 cet composant est bien prsent donc printaller.
cela arrive, quand je prend un exemple, Rave Report vient avec la version 7.0 l'installation mais pas
pour la 6.0.
17/21
27/07/13
8 sept. 2009 12:32
Signaler
Bonjour,
Puisuqe c'est une version incomplte de votre application (manque de certaines fiches donc
impossibilit d'excution) alors pourquoi nous
donner le nom d'utilisateur et le mot de passe !
Zicson1 -
21 sept. 2009 22:29
Signaler
Celui-ci marche bien, il peu mme tre compiler mais je veux dire qu'il eu non seulement des
amliorations avances et des modules supplmentaires. Ce projet pour but de vous permettre
comprendre certaines choses de la programmation vnementielle orient objets.
Toutefois pour le tester veuillez vous rendre ici:
22 sept. 2009 10:08
Signaler
Bonjour,
Ok comme a marche bien, merci bcp et bon courage.
fouad_king_computer -
2 nov. 2009 20:36
Signaler
bon soir
il manque des unites par exemple 15.16.17.18 ets
Zicson1 -
10 nov. 2009 17:04
Signaler
Ne tlcharge pas celui-ci, il est incomplet cause de sa taille un peu grand donc rend toi plutt ici:
Merci!
25 mars 2010 21:22
Signaler
je cherche le nom utilisateur et le mot de passe svp

Site web
26 mars 2010 09:23
Signaler
aide moi SVP parce que programme tres important, et tres besoin plus vite c'est possible et merci
Site web
Zicson1 -
27 mars 2010 18:45
Signaler
Le nom utilisateur est bel et bien rediger dans l'entete de cette source donc bien lire avant de le
18/21
27/07/13
telecharger:
C'est une base de donnes qui gre au total 4 modules:
- Gestion des inscriptions et de la scolarit
- Gestion du personnel
- Gestion des lves
- Gestion des bulletins
NB: c'est une version incomplte de mon appli car il comporte un copyright. Au dmarrage entrer ce
code: BONI comme nom utilisateur et
pour le mot de passe entrer: 'ok' ou 'ful'
cs_kabakas -
11 juil. 2010 14:24
Signaler
pffffffffffffffffffffffffffff
c'est plein d'ERREURS !
26 sept. 2011 20:10
Signaler
26 sept. 2011 20:11
Signaler
O est la suivante
J'ai besoin de ce programme, s'il vous plat s'il vous plat aider
Merci
Zicson1 -
27 sept. 2011 18:25
Signaler
C'est vrai FATEH2628 vous avez raison, cette sources n'est pas
complette, essayez ces liens svp:
c'est aprs ces requtes que mon frre ELI42 a dcid d'hberger le code source sur son site pour
vous permettre de le tlcharger en totalit, et voici ces liens qui malheureusement ne marchent plus:
cs_eli42 -
28 sept. 2011 07:17
Signaler
Salut,
DSL mais les liens :
http://www.gest42.com/georges/zicson1/GEST_ETUDE.ZIP
http://www.gest42.com/georges/zicson1/IB6Serveur.zip
Marche tres bien, si en cliquant dessus ca ne marche pas faites un copier coller
@+
Beau temps belle mer
19/21
27/07/13
Zicson1 -
28 sept. 2011 16:47
Signaler
Merci bien mon frre ELI42 pour les liens, ils marchent bien je viens de les tester.
Du mme auteur (Zicson1)

Calcul d'interet compose sur delphi
dans Delphi / Pascal
Comment imprimer
dans Delphi / Pascal
Code de la touche enregistrer sur interbase 6.0
dans SQL
A la une sur les blogs
SQL Server : Petit script court pour avoir les paramtres de configuration de vos bases de donnes
ROMELARD Fabrice dans SQL Server
Introduction l'hritage dans C++/CX
Odewit dans XAML
Mise en cache serveur sans AppFabric
JeremyJeanson dans ASP .net
API Restrinction Exception aprs migration du process template de Build de TFS 2010 vers TFS 2012.
[DeveAlaPapa] Attendre une action sur un autre Thread sans .net 4 ni .net 3.5
JeremyJeanson dans DeveAlaPapa
Inscription
Conditions gnrales
Contact
20/21
27/07/13
Charte
Recrutement
Annonceurs
CCM Benchmark Group
Carte de voeux 2013, Cinma, Dcoration, Expeert, Horoscope, Salon littraire, Programme TV, Cuisine
(Recette), Coiffure, Restaurant, Test dbit, Voyage, Hayatouki
21/21

Codes Sources - Commentcamarche

Transféré par

Droits d'auteur :

Formats disponibles

Codes Sources - Commentcamarche

Transféré par

Informations du document

Titre original

Copyright

Formats disponibles

Partager ce document

Partager ou intégrer le document

Options de partage

Avez-vous trouvé ce document utile ?

Ce contenu est-il inapproprié ?

Droits d'auteur :

Formats disponibles

Codes Sources - Commentcamarche

Transféré par

Droits d'auteur :

Formats disponibles

27/07/13

(5.0/5) sur 63 avis utilisateurs

25 juin 2008 22:16

25 juin 2008 22:37

salut mes amis

26 juin 2008 00:21

Il manque des fichiers, non

26 juin 2008 10:59

26 juin 2008 13:41

26 juin 2008 14:23

26 juin 2008 14:23

26 juin 2008 17:37

26 juin 2008 17:55

pas tout la fois..

d'abord, il est ncessaire de crer un alia..

27 juin 2008 11:44

27 juin 2008 17:23

Inutile de faire tout un blablabla :

28 juin 2008 04:42

30 juin 2008 12:29

30 juin 2008 18:14

30 juin 2008 19:36

simplifier plutt car la bibliothque est vaste.

30 juin 2008 19:50

je vous donne quelques exemples: que d'crire "Form1.Dataset.Active:=True;" je slectionne le

30 juin 2008 22:21

salut tout le monde

1 juil. 2008 01:24

1 juil. 2008 01:34

1 juil. 2008 10:10

1 juil. 2008 12:03

merci beaucoup ELI42

1 juil. 2008 14:07

1 juil. 2008 14:28

Il semble qu'il y ait une incomprhension sur l'usage du site

les questions basiques doivent se dbattre sur le forum.

1 juil. 2008 14:52

1 juil. 2008 15:00

1 juil. 2008 16:55

oui Descartes ne connaissait rien,

1 juil. 2008 17:21

Il semble qu'il y ait une incomprhension sur l'usage du site.

1 juil. 2008 17:39

il n'y aucune aggressivit de ma part.

1 juil. 2008 18:46

1 juil. 2008 18:55

2 juil. 2008 01:05

2 juil. 2008 01:25

2 juil. 2008 19:50

pas de soucis, tout va bien..

2 juil. 2008 21:55

3 juil. 2008 16:19

j'ai test rapidement l'appli :

6 juil. 2008 14:39

gagnerez le confiance de l'utilisateur du programme (logiciel plus scuris et le taux de risque de

7 juil. 2008 15:17

7 juil. 2008 22:21

7 juil. 2008 22:30

Jai oublie lintervention N 7 :