Discussion :

[sondo]

Bonjour,

Tout juste une question. J'ai fais une fenêtre qui calcul des consommations. Mon petit programme n'est pas lié à une base de donnée. Les consommations sont multiplier par des valeurs qui peuvent subir des modifications d'une moment à l'autre. Ces valeurs sont inscrit dans des variables de mon programme. Si il y' a des modifications des valeurs, il faut a nouveau modifier le programme.
Je veux laisser l'utilisateur modifier les valeurs à sa guise.
Je ne veux pas aussi faire une base de donnée pour cette petite fenêtre de calcul.
Comment faire de tels sorte que l'utilisateur puisse accéder à ses valeurs depuis des fichiers texte qui joueront un rôle de table?
Merci pour toutes aide.

[Andnotor]

Le TClientDataSet te permet de travailler sur un fichier (XML par exemple) sans moteur de base de données et l'ajout d'agrégats fera les calculs à ta place .

[sondo]

Salut Andnotor,

Merci d'avoir répondu à mon post. Je n'ai jamis utilisé TClientDataSet ni un fichier XML. Si il y'a un exemple je suis preneur. Merci.

[Andnotor]

Tu poses simplement un TClientDataSet sur ta fiche.
Dans l'inspecteur d'objet, tu edites FieldDefs et ajoute tes champs.
Ensuite click-droit sur le composant et Créer un ensemble de données.

C'est tout .

A la fermeture de ta fiche (ou par un bouton, etc.), ClientDataSet1.SaveToFile().

Avec deux champs (F1, F2) respectivement de type string et integer, le fichier (vide) donne ceci:

Code xml :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
<?xml version="1.0" standalone="yes"?>
<DATAPACKET Version="2.0">
	<METADATA>
		<FIELDS>
			<FIELD attrname="F1" fieldtype="string" WIDTH="20"/>
			<FIELD attrname="F2" fieldtype="i4"/>
		</FIELDS>
	</METADATA>
	<ROWDATA>
	</ROWDATA>
</DATAPACKET>

Le reste se gère comme une base de données (DataSource, DBGrid, etc.)

Et au chargement, soit on ouvre le fichier, soit on crée la table:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
var
  FileName :TFileName;
begin
  FileName := 'c:\temp\Test.xml';
 
  if FileExists(FileName)
  then ClientDataSet1.LoadFromFile(FileName)
  else ClientDataSet1.CreateDataSet;
 
  ClientDataSet1.LogChanges := FALSE;
end;

LogChanges n'est pas requis lorsqu'on travaille sur un fichier -> FALSE.

Plus d'info ici.

[sondo]

Je vais faire un test et vous tenir au courant. Merci d'avance.

[edam]

mieux utiliser un fichier texte avec TStringList ou les fichier (ini) par example
avec les TstringList, t'as les fonction values, savetofile, readtofile, se que je préfére plus que les fichier ini,
avec Tclientdataset, il te faut la dll midas avec l'exe,

[sondo]

Salut,

Je suis de retour après quelques temps de silence. J'ai suivis ton explication à la lettre. J'ai pu crée le fichier xml.
Pour insérer les données j'ai fait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
  ClientDataSet1.Edit;
  ClientDataSet1.Fields.Fields[0].AsString := Edit1.Text;
  ClientDataSet1.Fields.Fields[1].AsString := Edit2.Text;
  ClientDataSet1.Fields.Fields[2].AsInteger := StrToInt(Edit3.Text);
  ClientDataSet1.Fields.Fields[3].AsString := Edit4.Text;
  ClientDataSet1.Post;

j'ai remarquer qu'il faut faire un genre append comme pour les tables. Mais je n'arrive pas à m'en sortir. Si je fait ClientDataSet1.AppendData( l'info bulle donne Const Data Ole Variant; HitEOF:boolean. Je sais que Ole Variant c'est le fichier xml, mais je ne connait pas ce qui suis...
Enfin je veux savoir comment lire dans le fichies xml. Est-ce possible de ramener des lignes par rapport à un critère donnée comme en sql?.
Pouvez-vous m'aider à comprendre. Merci.

[Andnotor]

Utilise Append/Post ou AppendRecord.

Avec ce principe, tu n'as pas la puissance du SQL, mais tu peux tout de même utiliser Filter qui correspond à la clause Where (sur une seule table !) et les aggrégats pour les calculs (Count, Sum, etc.)

[sondo]

Salut Andnotor,

Merci de m'avoir répondu. La append marche bien. A présent, si ce n'est pas trop te demander, puis-je avoir un exemple avec avec filter et un exemple avec les agrégats pour les calculs. Merci d'avance.

[sondo]

J'ai mis le filtre en place en utilisant Tlocate. Il reste à faire les sum...

[Andnotor]

En prennant une requête du style:

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

Select * from MaTable where F1=10 and F2='MonText'

• Filter = F1=10 and F2='MonText'
• Filtered = TRUE

Tu as plein d'exemples dans l'aide .

Pour les aggrégats:

Code sql :

Sélectionner tout - Visualiser dans une fenêtre à part

Select Sum(Qty*Price) from MaTable WHERE F1=10 AND F2='MonText'

• Double-click sur le composant TClientDataSet,
• Click droit et Nouveau champ,
• Donne un nom au champ et sélectionne Agrégat.

Dans les propriétés de l'agrégat:

• Active = TRUE
• Expression = Sum(Qty*Price)

Dans les propriétés du TClientDataSet:

• AggregatesActive = TRUE

[sondo]

Merci beaucoup Andnotor de m'avoir aidé. J'ai trouvé intéressant cette méthode d'utilisation des fichiers xml. Encore merci. A très prochainement.