Accueil > > > GESTION DE COMPTE BANCAIRE
 GESTION DE COMPTE BANCAIRE
 Information sur la source
 Description
une gestion de compte bancaire avec planification de mouvements périodiques. Exemple d'application d'une petite classe de base de donnée fichier facile a utiliser compatible avec kylix et Delphi7 la sources contient: - ravagedb 1 base simple compatible avec le type record (sauf reels) - ravageidb 1 base héritée indexée avec structure codee avec des pointeurs.
 Source
- {*------------------------------------------------------------------------------
- ravageidb.pas v0.1 for Kylix3 and Delphi7 - 12/06/2007
-
- ravagedb database is under the terms of the GNU General Public License
- please see licence.txt
-
- depend of ravagelib.pas
-
-
- exemple:
-
- procedure TForm1.FormCreate(Sender: TObject);
- Var
- db : TRavageiDB; // ravage database
- id,id0 : Integer;
- begin
- db := TRavageiDB.create;
- if Not FileExists('database.dat') then
- db.init('database.dat', 'driver,car,track,version,conditions,date',
- '19,13,4,19,1,6',
- 's,s,s,s,I,i' );
- db.load('database.dat');
-
- // to add an element
- id0 := db.add;
- db.update(id0,'driver','gaston');
- db.update(id0,'car','mac laren');
-
- // to find an element
- db.add_finditem('driver','gaston','=');
- db.add_finditem('car','mac laren*','like');
-
- id := db.findfirst();
- while id <> 0 do
- begin
- Lst3Find.Items.Add(FloatToStr(id) + ' ' + db.get(id,'driver') + ',' +
- db.get(id,'car'));
- id := db.findnext();
- end;
-
- // to remove an element
- db.remove(id0);
-
- db.close;
- end;
-
- Note: On crash the base can contain invalid data, dont forget to check data
- Like that:
-
- for index := 1 to db.MaxEntries do
- begin
- tmp := db.get(index,'j');
- if tmp <> '' then
- begin
- d := StrToInt(db.get(index,'j'));
- m := StrToInt(db.get(index,'m'));
- y := StrToInt(db.get(index,'aa'));
- db.get
- if (d<1) or (d>31) or (m<1) or
- (m>12) or (y<2006) or (y>9999) then
- begin
- db.remove(index);
- continue;
- end;
- end;
-
- NB: The Source Code is commented in french
- @author alvaroc
- @version 0.1
- -------------------------------------------------------------------------------}
- unit ravageidb;
-
- interface
-
- uses
- SysUtils, StrUtils,
- QDialogs,QControls, // pour application CLX
- //Dialogs,Controls, // pour application windows
- ravagedb,ravagelib,pc1;
-
- const
- KEY_BYTES = 3; // de 1 a 4 1:256 2:65536 3:8388608 4:4294967296
- --------------------------------------------------
- dans ravagedb
- RESERVE_SPACE = 2048; // de 0 a 65535 espace RAM de reserve.
{*------------------------------------------------------------------------------
ravageidb.pas v0.1 for Kylix3 and Delphi7 - 12/06/2007
ravagedb database is under the terms of the GNU General Public License
please see licence.txt
depend of ravagelib.pas
exemple:
procedure TForm1.FormCreate(Sender: TObject);
Var
db : TRavageiDB; // ravage database
id,id0 : Integer;
begin
db := TRavageiDB.create;
if Not FileExists('database.dat') then
db.init('database.dat', 'driver,car,track,version,conditions,date',
'19,13,4,19,1,6',
's,s,s,s,I,i' );
db.load('database.dat');
// to add an element
id0 := db.add;
db.update(id0,'driver','gaston');
db.update(id0,'car','mac laren');
// to find an element
db.add_finditem('driver','gaston','=');
db.add_finditem('car','mac laren*','like');
id := db.findfirst();
while id <> 0 do
begin
Lst3Find.Items.Add(FloatToStr(id) + ' ' + db.get(id,'driver') + ',' +
db.get(id,'car'));
id := db.findnext();
end;
// to remove an element
db.remove(id0);
db.close;
end;
Note: On crash the base can contain invalid data, dont forget to check data
Like that:
for index := 1 to db.MaxEntries do
begin
tmp := db.get(index,'j');
if tmp <> '' then
begin
d := StrToInt(db.get(index,'j'));
m := StrToInt(db.get(index,'m'));
y := StrToInt(db.get(index,'aa'));
db.get
if (d<1) or (d>31) or (m<1) or
(m>12) or (y<2006) or (y>9999) then
begin
db.remove(index);
continue;
end;
end;
NB: The Source Code is commented in french
@author alvaroc
@version 0.1
-------------------------------------------------------------------------------}
unit ravageidb;
interface
uses
SysUtils, StrUtils,
QDialogs,QControls, // pour application CLX
//Dialogs,Controls, // pour application windows
ravagedb,ravagelib,pc1;
const
KEY_BYTES = 3; // de 1 a 4 1:256 2:65536 3:8388608 4:4294967296
--------------------------------------------------
dans ravagedb
RESERVE_SPACE = 2048; // de 0 a 65535 espace RAM de reserve.
 Conclusion
pour application simple nécessitant une base sans installer de client.
 Historique
- 09 février 2011 21:45:31 :
- masquer mon mail contre le spam
- 23 avril 2011 02:45:14 :
- nettoyage des commentaires, rajout d'une documentation delphidoc, suppression des copyright
- 23 avril 2011 02:48:33 :
- suppression du copyright sur la page de garde !
- 16 octobre 2011 12:04:59 :
- Mise a jour et exemple de documentation delphidoc
 Sources du même auteur
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
Probleme avec le Module de donnees [ par apz ]
salut a tous,ces derniers jours, quand je travaille avec le module base de donnees (ouvrir, ou restrurer..des tables), et lorsque je voulais fermer le
recherche sans tenir compte des accents [ par lnicos ]
Voilà j'ai fait un programme gérant une base de donnée(interbase), et lorsque j'effectue des recherche dans cette base, j'aimerais que les résultats f
Base de donnees (*.mdb) [ par spirooo ]
Bonjour,Je debute dans le language DELPHI et j'aurais voulu avoir un exemple simple pour l'enregistrement du contenu des objets EDIT dans une base de
INDEXER UNE BASE DONNEES SOU DELPHI [ par ammour ]
J'ai une base de données Dbase assez volumineuse sousDelphi, le processus d'indexation dure trop longtemps,je veux alors visualiser le processus d'ind
Utiliser une dbgrid sans base de donnees [ par Servalito ]
Voila je me demandais comment faire pour ecrire moi meme dans une Dbgris sans passer par une base de donnes.Ce que je ve c pouvoir mettre les champs m
URGENT: PROBLEME D ACCES A UNE BASE DE DONNEES [ par timbo2 ]
BONJOURJ AI ESSAYE D UTLISER UNE METHODE POUR SUPPRIMER UN MOT DE PASSE SUR DELPHI7 LORS
Base de donnees Xml [ par Paounet ]
PaounetJ'ai plusieurs tables en Xml avce un compasant TClientDataset et TDatasource. Lorsque je modifie une table Xml, les modifs ne sont effectives p
compte utilisateurs et base de reg [ par oxboff5000 ]
hello!mon prog s'install avec installshield, on peut donc lors de l'installation entrer un mot de passe qui va dans la base de registre, ensuite l'exe
enregistrement physique de base de donnee [ par skiso ]
je savoir comment on peut enregistrer directement sur le disque les bases de donnees avec qui en trvail.mon problem est le suivant :quant je travail s
quel algorithme pour migrer les informations de gros fichiers texte vers une base de donnees? [ par kaxx ]
salut a tous.je recherche une methode algorithmique de programmation qui va permettre d'importer/exporter des gros volumes de donnees provenant de fic
|
Derniers Blogs
 [SHAREPOINT] LES SESSIONS TECHDAYS 2012.[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet
Voici donc pour ceux qui n'ont pas pu venir, ou ceux qui n'ont pas pu toutes les suivre la liste des sessions SharePoint aux TechDays 2012, que je mettrais à jour dès que les liens des vidéo seront disponibles. Ou ici : http...
Cliquez pour lire la suite de l'article par Patrick Guimonet TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice
Speaker: Bernard Ourghanlian Cette session est comme chaque jour transmise en live par BrainSonic, et j'ai donc suivi cette troisième pleinière par ce moyen sur mon iPad . Elle est dédiée comme chaque année à la mise en perspective de l'é...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE !MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko
Hier durant une session dédiée aux Techdays 2012, j'ai eu le plaisir d'annoncer la sortie de la Béta 2 de Mishra Reader. C'est quoi ? Pour les utilisateurs, c'est une vraie expérience de lecture de flux RSS sur Windows. Rien à voir avec les produit...
Cliquez pour lire la suite de l'article par Vko [FRAMEWORK 4] LES TASKS ET LE THREAD UI[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi
Je viens de passer quelques temps au TechDay's et j'ai pu voir pas mal de session intéressante. Par contre une chose m'a un peu étonné lors de certaines de ces sessions qui abordaient les améliorations du framework .NET (donc le 4.5) : en gros, bea...
Cliquez pour lire la suite de l'article par fathi WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBEWORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson
Depuis déjà un an, je conseille vivement les utilisateurs de Workflow Foundation 3 à migrer vers la version 4. L'information qui va suivre ne devrait donc pas trop prendre au dépourvu les personnes qui m'ont suivi. Je profite de ce poste, pour faire le re...
Cliquez pour lire la suite de l'article par JeremyJeanson
Logiciels
 Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning COLLECTOR PLUS (3.00B)COLLECTOR PLUS (3.00B)COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par :
- L... Cliquez pour télécharger COLLECTOR PLUS PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO LettresFaciles 2011 (8.0.0.1)LETTRESFACILES 2011 (8.0.0.1)LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types.
Son inte... Cliquez pour télécharger LettresFaciles 2011
|