Discussion :

[Morfus]

Bonjour
j'utilise Delphi 7 et base de donnée interbase/firebird
mon probleme et le suivant
quelqun parmi vous peut me donner la façon d'extraire une formule du genre

Code :

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

table1champx.value+table2champx.value

sachant que ce code est sauvegarder dans la base donnée
ce que je veux dire extraire un champ de la base donnée et l'executer comme etant une formule de calcule
merci a vous

[Aka Guymelef]

Bonjour,

je ne comprends pas ce que tu veux exactement, peux-tu ré-expliquer ta demande ?

[Yurck]

Je pense qu'il faut que tu fasse un analyseur syntaxique et pour cela il te faut normaliser ta formule.

Tout d'abord fais une étude de besoin pour savoir jusqu'où tu dois aller.

Tu peux imaginer le faire simplement en construction de SQL sans faire une réel analyse syntaxique.

En remplaçant par exemple le From d'une requête par ta formule + From

Maintenant ai-je bien compris ce que tu veux ?

[Morfus]

merci pour votre réponse
je m'explique
je veux sauvegarder la formule (si par la suite jai envi de changer cette formule) dans la base de donnée
puis dans l'execution la valeur du champ formule sera executer tel qu'une fonction
merci

[Yurck]

Ok

Alors une idée :

StringReplace
ou
Format

Exemple :

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
17
18
 
procedure construireSql(QueryParam : tquery; QueryAOuvrir : tquery);
const
  SQL_Text = select field1, field2, %s as Field3 from maTable
var
  s : string;
begin
   //--- initialisation query 
   QueryParam.Sql.Text := 'select Formule '+
                            '  from tableformule ' +
                            ' where Field_param = :Field_param';
    QueryParam.Prepare;
  QueryParam.params[0].value := 'Field3';
  QueryParam.Open;
  s := format( SQL_Text , [QueryParam.Fields[0].AsString]);
  QueryAOuvrir.Sql.Text := s;
  QueryAOuvrir.open; 
end;

évidemment
tu peux faire plus compliqué si le besoin existe

[Morfus]

Ok


Exemple :

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
17
18
 
procedure construireSql(QueryParam : tquery; QueryAOuvrir : tquery);
const
  SQL_Text = select field1, field2, %s as Field3 from maTable
var
  s : string;
begin
   //--- initialisation query 
   QueryParam.Sql.Text := 'select Formule '+
                            '  from tableformule ' +
                            ' where Field_param = :Field_param';
    QueryParam.Prepare;
  QueryParam.params[0].value := 'Field3';
  QueryParam.Open;
  s := format( SQL_Text , [QueryParam.Fields[0].AsString]);
  QueryAOuvrir.Sql.Text := s;
  QueryAOuvrir.open; 
end;:arf:

merci
oui mais la formule récupérer du champ de la base de données comment l'exécuter

Aidée moi SVP chui perdu

[Aka Guymelef]

Si tu veux réellement faire ça tu dois (uniquement en SQL) récupérer et stocker ta formule dans une variable texte, construire la requête finale sous forme de chaîne de caractères en concaténant ta formule avec le reste de la requête, exécuter la commande sql via une fonction du SGBD qui soit capable d'exécuter une commande SQL à partir d'une chaine de caractères.

Je ne connais pas FireBird/Interbase donc je ne connais pas la syntaxe ni même si les fonctionnalités dont tu as besoin existent.

[Yurck]

bon je vais détaillé un peu et rapidement l'idée.

1 °) tu crée une table qui contiendra tes formules au format SQL

prenons le cas de la présentation d'un client
code client, nom client, volume facturé

Il se trouve que le volume facturé peut être considéré comme une notion fonctionnelle. En effet en fonction du besoin tu affichera ou non les avoirs ou les remises etc...

Donc voici mes tables

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
17
18
19
20
21
22
23
24
25
26
27
28
 
CREATE TABLE FORMULE (
    REQUETE_CODE CHAR(20) ,
    FIELD_NOM  CHAR(20),
    FORMULE VARCHAR(255) )
 
CREATE TABLE CLIENT (
    CLIENT_CODE CHAR(20) ,
    CLIENT_NOM  CHAR(20) )
 
CREATE TABLE FACTURE (
    FACTURE_NUM  SMALLINT,
    FACTURE_DATE DATE,
    CLIENT_CODE CHAR(20) ,
    FACTURE_MONTANT NUMERIC(15,2)  )
 
CREATE TABLE AVOIR (
    AVOIR_NUM  SMALLINT,
    AVOIR_DATE DATE,
    CLIENT_CODE CHAR(20) ,
    AVOIR_MONTANT NUMERIC(15,2)  )
 
 
CREATE TABLE REMISE (
    REMISE_NUM  SMALLINT,
    REMISE_DATE DATE,
    CLIENT_CODE CHAR(20) ,
    REMISE_MONTANT NUMERIC(15,2)  )

Voici la requête de base pour l'affichage des factures d'un client donné sur une période définie par un début de période et déclaré dans une variable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
  SQL_Text =  '  SELECT CLIENT.CLIENT_CODE, CLIENT.CLIENT_NOM, %s VOLUME_FACTURE'
            + '  FROM CLIENT                                                 '
            + 'left join facture on facture.client_code = client.client_code'
            + 'left join avoir on avoir.client_code = client.client_code   '
            + 'left join remise on remise.client_code = client.client_code'
            + 'where facture.facture_date >= :DebutPeriode        '
            + '   and avoir.avoir_date    >= :DebutPeriode   '
            + '   and remise.remise_date  >= :DebutPeriode    '
            + '   and client.client_code  >= :ClientAffiche'
            + 'group by client.client_code ';

voici le Contenu imaginable de la table FORMULE

REQUETE_CODE FIELD_NOM FORMULE
FACTURE VOLUME_FACTUTRE SUM(FACTURE_MONTANT)
AVOIR VOLUME_FACTUTRE SUM(AVOIR_MONTANT)
REMISE VOLUME_FACTUTRE SUM(REMISE_MONTANT)
CHIFFRE AFFAIRE VOLUME_FACTUTRE SUM(FACTURE_MONTANT) - SUM(AVOIR_MONTANT) - SUM(REMISE_MONTANT)


Tu pourrais donc faire une procédure du type précédemment cité

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
17
18
19
20
21
22
23
24
25
26
 
procedure AfficherPourunClient(QuelAffichage, QuelClient : String; DateDebut : TDateTime; QueryAOuvrir : tquery);
var
  s : string;
  QueryParam : Tquery;
begin
   //--- initialisation query (tquery.create etc ...)
   QueryParam.Sql.Text := 'select Formule '+
                          '  from formule ' +
                          ' where FIELD_NOM = :Field_param'
                          '    and REQUETE_CODE= :Rqd_param';
    QueryParam.Prepare;
    QueryParam.parambyname('Field_param').value := 'VOLUME_FACTUTRE';
    QueryParam.parambyname('Rqd_param').value := QuelAffichage;
 
    QueryParam.Open;
    // Cette fonction va remplace le %s par la formule correspondante
    s := format( SQL_Text , [QueryParam.Fields[0].AsString]);
    QueryAOuvrir.Sql.Text := s;
    QueryAOuvrir.prepare;
 
    QueryParam.parambyname('DebutPeriode').asDateTime := DateDebut;
    QueryParam.parambyname('ClientAffiche').asString  := QuelClient;
 
    QueryAOuvrir.open;
end;

et l'appeler ainsi

Code :

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

1
2
3
4
5
6
 
AfficherPourunClient('FACTURE','MonClient',DateDebut, monqueryaAfficher);
 
ou
 
AfficherPourunClient('AVOIR','MonClient',DateDebut, monqueryaAfficher);

voilà j'ai imagé au mieux.

[Morfus]

voila la façon dont je sauvegarde mes formules

Table1.Prix HT * Table2.Taux_Tva / 100

Au faite je stock mes formule au format de QRExpr1 de quickreport de delphi

Merci a vous tous