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
- * Copyright (c) 12th july 2007 by alvaro Hermo <alvaro.h@ifrance.com>
- *
- * 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;
- *
- * NB: The Source Code is commented in french
- *****************************************************************************}
- 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
* Copyright (c) 12th july 2007 by alvaro Hermo <alvaro.h@ifrance.com>
*
* 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;
*
* NB: The Source Code is commented in french
*****************************************************************************}
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 necessitant une base sans installer de client.
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
[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE?[WF4] PASSAGE D'ARGUMENTS LITERAL, VISUALBASICVALUE OU LAMBDAVALUE? par JeremyJeanson
Avec la sortie de la RC de Visual Studio 2010, Microsoft a mis un peu les points sur leS i en ce qui concernait le passage d'arguments. Mais nous somme un certain nombre à avoir pris ce changement comme un coup dur. Pour résumer la situation : à la sortie...
Cliquez pour lire la suite de l'article par JeremyJeanson [RIA SERVICES] INCLUDE ET DOMAINDATASOURCE[RIA SERVICES] INCLUDE ET DOMAINDATASOURCE par Audrey
Dans un de mes articles précédents , j'avais parlé des DomainDataSource avec RIA Services dans le cas d'une interface Maître - Détail. Dans le même principe, je vais parler d'une autre manière de mettre en forme ce cas d'interface avec RIA Services. Et po...
Cliquez pour lire la suite de l'article par Audrey ZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATIONZUNE : VERSION ZUNE SOFTWARE V 4.2 ET LA SOCIALISATION par ROMELARD Fabrice
Une des nouveautés de la version V 3.0 était l'apparition de l'onglet Social qui ne fonctionnait que si le MarketPlace était activé sur son poste. Cela limitait donc son intérêt, car hors du cadre commercial USA-CANADA, peu de monde trouva...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice PRATIQUE DE SILVERLIGHT PAR ERIC AMBROSIPRATIQUE DE SILVERLIGHT PAR ERIC AMBROSI par MPOWARE
Je viens de finir la lecture du dernier livre d'
Eric Ambrosi
éditions PEARSON
Son livre donne une approche pratique de Silverlight qui sera aussi bien comprise par le développeur que par le designeur.
Tous les aspects du développement RIA sont abor...
Cliquez pour lire la suite de l'article par MPOWARE APPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NETAPPRENDRE à DéVELOPPER POUR LES MOBILES AVEC LA NOUVELLE GéNéRATION .NET par odewit
2 déclinaisons de Silverlight et 2 déclinaisons de Mono permettent dorénavant (ou permettront prochainement) de développer des applications .NET mobiles pour les principales plates-formes du marché :
Silverlight pour Symbian, basé sur Silverlight 2...
Cliquez pour lire la suite de l'article par odewit
Forum
RE : DELPHIRE : DELPHI par overtaker
Cliquez pour lire la suite par overtaker
Logiciels
Academy System (10.9.4.0)ACADEMY SYSTEM (10.9.4.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Xilisoft Convertisseur Vidéo Ultimate (5.1.39.0305)XILISOFT CONVERTISSEUR VIDéO ULTIMATE (5.1.39.0305)Xilisoft Convertisseur Vidéo Ultimate est un outil puissant de conversion vidéo, facile à utilise... Cliquez pour télécharger Xilisoft Convertisseur Vidéo Ultimate Xilisoft DVD Ripper Ultimate (5.0.64.0304)XILISOFT DVD RIPPER ULTIMATE (5.0.64.0304)Xilisoft DVD Ripper Ultimate est un logiciel excellent pour copier et convertir DVD vers presque ... Cliquez pour télécharger Xilisoft DVD Ripper Ultimate Rigs of Rods (63.3)RIGS OF RODS (63.3)c'est un jeu de multi-simulation camions,autobus voitures, avions, bateaux, hélicoptère avec défo... Cliquez pour télécharger Rigs of Rods
|