GESTION D'UN ETABLISSEMENT SCOLAIRE

Commentaire de Zicson1 le 25/06/2008 22:16:33

Le moteur de la base de données(Database engine) ici c'est INTERBASE, il peut tourner sur un poste où interbase est correctement installé sans DELPHI pourvu que le chémin soit bien paramètré. c'est une base de données utilisable en reseau local seulement(local server).

Commentaire de jackalunion le 26/06/2008 00:21:02

Il manque des fichiers, non
j'utilise delphi7

Commentaire de Oniria le 26/06/2008 13:41:00

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

Commentaire de cantador le 26/06/2008 14:23:56

un peu de ménage..(lol)

Commentaire de cantador le 26/06/2008 17:55:46

pas tout à la fois..
d'abord, il est nécessaire de créer un alia..
On ne code pas en dur un chemin d'accès dans
le programme lui-même.
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 méthode..

Quand on renommage des composants, cela n'a rien à voir avec le chemin d'accès à la base.
Cette pratique permet aux autres une meilleure compréhension/lecture du source et facilite grandement sa maintenance.

Commentaire de cantador le 27/06/2008 17:23:11

Inutile de faire tout un blablabla :
- il exite un fichier qui gère les alias d'interbase
renommer un composant affecterait les codes des autre unités :
çà on s'en doute, mais ce n'est pas aux membres du site à faire ce travail ainsi que le ménage dans ton source.

En tout cas pour l'instant, tu n'as pas fait la moindre modification afin de rendre exploitable ce programme.

Commentaire de Zicson1 le 30/06/2008 12:29:28

Merci Mon frère 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'interpréter. Sincèrement 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 intéressant, elle convient aux besoins des demandeurs, néanmoins je voulais bien le faire partager en utilisant celle de 49 unités mais hélas les DFM seul fond déjà 1,25Mo.

Commentaire de Zicson1 le 30/06/2008 19:36:52

La programmation est un vaste domaine bien évolutif donc personne ne détient d'une manière figer la meilleur façon de coder. Pour quoi veux tu coder la où je ne code pas et j'obtiens un résultat attendu!c'est une perte de temps. Le module de données que j'ai présenté est une expérience trouvée 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 grâce aux éléments de l'inspecteur d'objet de DELPHI7. SVP ne m'imposer votre architecture et votre manière de coder si le mien ne te va pas tu verras mieux de garder ta majestueuse méthode que moi même je connais déjà. Pour les composants c'est difficile pour toi parce que tu ne connait pas la source mais je n'ai pas de problème à 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'exécution. 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 régénère des codes SQL qui nous aide à vite aller sans pour autant coder?...chercher à simplifier plutôt car la bibliothèque est vaste.

Commentaire de sidouo le 30/06/2008 22:21:17

salut tout le monde
moi je suis debutants en avec delphie
j'ai creer une base de donnée 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

Commentaire de eli42 le 01/07/2008 01:34:29

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 désire 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 polémique, et 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 sélectionne 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 manière de chercher après avoir vu aussi les méthodes communes.

Commentaire de sidouo le 01/07/2008 12:03:54

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 crée 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.

Commentaire de cantador le 01/07/2008 14:28:35

Il semble qu'il y ait une incompréhension sur l'usage du site.
(il serait d'ailleurs intéressant que les admins se manifestent)

L'objectif n'est pas que tout le monde dépose ses brouillons de code et attende qu'un bon samaritain de passage remette tout en ordre mais bien plutôt 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.

les questions basiques doivent se débattre sur le forum.

Le forum, c'est le brouillon et le site, c'est le rendu final !

Commentaire de Zicson1 le 01/07/2008 15:00:30

Bien évidement, c'est ce je reprochais à ELI42 tout le monde n'a pas la même expertise, moi je cherche pour simplifier, c'est le cas ici.

Pour moi le problème qui s'oppose ici à la source de SIDOUO, c'est le manque du moteur du type de la base de données "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 méthodes dont celle de ELI42, on peut procéder par la méthode des registres du systeme en incorporant ces DLL(Librairies de Liens Dinamiques) mais c'est délicat de manipuler les registres de ta machine car en cas d'erreur tu risques de réinstaller ta machine, donc écoute j'ai une méthode très très 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 paramétrer 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 présent, 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 détient le monopole du savoir,"Ce que je sais, je ne sais rien" RENE DESCARTES.

Commentaire de Zicson1 le 01/07/2008 17:21:05

Il semble qu'il y ait une incompréhension sur l'usage du site.
(il serait d'ailleurs intéressant que les admis se manifestent), car je ne sais pas pourquoi Mon frère CANTADOR peut se permettre de m'agresser sur un site où les règles du jeu sont bien établi. c'est dommage, vraiment dommage parce que je veux partager mon savoir.

de toute les façons je souhaiterais que ma source soit supprimée immédiatement de peur je ne sois agraissé d'avantage parce que cette foi ci je répliquerais et le site se transformera à autre chose mais pour leur je lui fait grâce car il ne sait pas se qu'il dit.

Car il est cruel d'utiliser les injures pour cacher ses insuffisances, leur est venu où tu présenteras 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 postés, je suis convaincu que tu n'a jamais coder avec INTERBASE et tu n'a aucune notion. Merci

Commentaire de cantador le 01/07/2008 18:46:20

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 !

Commentaire de eli42 le 02/07/2008 01:05:41

Zicson1, on va régler le problème 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 polémique stoppera, car discuter sur un truc qu'on a pas ce n'est constructif pour personne.

Commentaire de cantador le 02/07/2008 19:50:33

@Eli42 :
pas de soucis, tout va bien..

Commentaire de cantador le 03/07/2008 16:19:53

j'ai testé rapidement l'appli :
le choix interbase est discutable puisque Firebird fait la même chose en mieux et gratuit.
QuickReport, c'est un peu vieillot, mais en fonction des besoins..

Quelques éléments à revoir sur le modèle comme la définition des champs, les normes, les options de tri.
on peut également fixer les contraintes ce qui allèle le code..

le programme lui-même :
Renommer les composants et notamment les unités (ouf!)
la connexion ne marche avec LOKO..(création d'une autre query alors qu'il existe déjà)
il comporte beaucoup de formes et qui ne sont pas toutes utilisées en même temps..
il vaut mieux donc les ouvrir à la demande ce qui accélerera l'ouverture de l'appli.

Manque de précision 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 très parlant pour un utilisateur lambda..
il faut que le cheminement soit plus encadré et l'information mieux répartie:
il y a un mélange d'élèves, d'utilisateurs et de comptabilité (salaires)

pas facile de s'y retrouver dans ce dédale..

Commentaire de Zicson1 le 07/07/2008 15:17:20

Génial 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 tôt. 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 gérer le mot de passe ; d'utiliser les fichiers de paramètres (*.ini) ou de manipuler la base de registre pour le stockage.

6. Il est utile d'appliquer l'unes des méthodes de cryptage des chaînes de caractère, grâce à ça vous gagnerez le confiance de l'utilisateur du programme (logiciel plus sécurisé et le taux de risque de perdre les informations est réduit).

Mais pour le point 9 c'est paussible de créer 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 (généralement les base Interbase ont comme extension .GDB).
- Déterminer le dialecte SQL (3 étant le dernier).
- Remplir les paramètres de création (j'ai utilisé les paramètres de base d'Interbase, mais c'est déconseillé, il vaut mieux effacer l'utilisateur SYSDBA et créer le sien avec son propre mot de passe => Sécurité oblige).

Le code nécessaire 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"');
    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 création de la base par script SQL en dur ou récupérer 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 créer les tables et autres éléments nécessaires à la mise en œuvre de la base de données...

NB: Dans ce projet comme vous le demandez, j'ai préféré utiliser les IBquery pour mes Tables en lieu et place des IBTables.

Pour la remarque N° 7 "7. Il est important de gérer le nombre de fois d'entrées d'un faux mot de passe." Je pense bien à une boucle :

TANT QUE i<3 Faire
i++
...

Commentaire de HAFTARIFOUAD le 07/07/2008 22:30:42

J'ai oublie l'intervention N° 7 :
Limiter le nombre de fois d'entrée d'un faux mot de passe :, je vous propose ce code :

// Déclarer la variable i
Var i:integer:
Initialiser la variable i :=Nombre de fois d'éntrée d'un 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
// désincrémnter la variable i
Dec(i);
if (i>0) then begin
       ShowMessage('Mot de passe incorrect...'+#13+ inttostr(i)+' essaies rèstantes ');
end else begin
       ShowMessage('Impossible de continuer, vérfier votre nom d''utilisateur et votre mot de passe');
       Application.Terminate;
end;