Discussion :

[FOCUS77]

Bonjour tout le monde

Je suis un nouvel utilisateur de lazarus, j'utilisais DELPHI7.
J'utilise le triplet "FlameRobin, FireBird et Lazarus".
Ça a l'air facile sauf que j'ai fait quelques remarques.
1 - l'aide n'est pas assez riche en explications et exemples.
2 - la propriété IndexDef du composant sqlquery est grisée, comment pourrais-je ajouter donc un index ?
3 - Comment pourrais-je utiliser le champ Aggregate pour sommer un autre champ ?

Merci d'avance
FOCUS.

[Ph. B.]

Bonjour,

Je suis un nouvel utilisateur de lazarus, j'utilisais DELPHI7.
J'utilise le triplet "FlameRobin, FireBird et Lazarus".
Ça a l'air facile sauf que j'ai fait quelques remarques.
1 - l'aide n'est pas assez riche en explications et exemples.

est un bon palliatif, dans ce cas... Il faut juste poser les bons critères de recherches...

2 - la propriété IndexDef du composant sqlquery est grisée, comment pourrais-je ajouter donc un index ?

Je n'ai pas Lazarus sous la main, mais de mémoire l'aspect grisé est trompeur. Il suffit de cliquer sur la propriété pour voir apparaitre une bouton libellé "..." et ainsi ajouter des indexs.
Toujours de mémoire, je crois qu'il est plus facile d'ajouter ces index par programme, ce sont des indexs locaux au client...

3 - Comment pourrais-je utiliser le champ Aggregate pour sommer un autre champ ?

Pourquoi ne pas le faire au niveau de la requête SQL ?

4- Comment utiliser le composant CalcEdit ?

C'est un composant descendant de TCustomEdit (une zone d'édition couplé à une "calculette"). Quel est le problème ?
Vérifiez si dans votre installation de Lazarus, il n'y a pas de démos de ce composant, et donc du code à étudier...

[FOCUS77]

Ce sont des 'instances-Index'!!

Tout d'abord mettre "MaxIndexesCount=5" ,par exemple.

Ensuite ajoutez les codes suivants pour construire deux index A croissant et D décroissant formés de deux champs chacun (NOM_TRS et FML_TRS).

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormCreate(Sender: TObject);
begin
 sqlquery1.addindex('A','NOM_TRS;FML_TRS',[],'','');
 sqlquery1.addindex('D','NOM_TRS;FML_TRS',[ixDescending],'',''); 
end;
 
procedure TForm1.AscendingClick(Sender: TObject);
begin
  sqlquery1.IndexName:='A' ;
end;
 
procedure TForm1.DescendingClick(Sender: TObject);
begin
  sqlquery1.IndexName:='D' ;
end;
end.

2-Sqlquery est un bon dataset mais j'aurrai souhaité qu'il possède un champ de type Calcinterne et statistique comme ClientDataset(D7).
mais je pourrai regler ça à l'aide d'une boucle par exemple.


merci