ADOQuery + DBTextRésolu

Question

Bonjour, 

J'utilise un ADOQuery pour afficher mon calcul dans un DBText. Selon le resultat, il change de couleur. Mon probl&#232;me est qu'il considere "solde" toujours positif. Pourquoi ? 
procedure TForm1.CalculSolde; 
Var solde:real; 
Begin 
    SoldeADOQuery.active:=false; 
    SoldeADOQuery.SQL.Clear; // Effacement de la requete 
    SoldeADOQuery.SQL.Text:='select sum(debit) - sum(remb) As Solde from compte'; 
    SoldeADOQuery.active:=true; 
    With SoldeDBText do 
        If solde<0 then 
            Begin 
                  // Affichage : Solde N&#233;gatif 
                  Font.Name:=FontNameSoldeN; 
                  Font.Color:=FontColorSoldeN; 
                  Font.Size:=FontSizeSoldeN; 
            End 
        Else 
            Begin 
                  // Affichage : Solde Positif 
                  Font.Name:=FontNameSoldeP; 
                  Font.Color:=FontColorSoldeP; 
                  Font.Size:=FontSizeSoldeP; 
            End; 
    SoldeDBText.DataField:='Solde'; 
end;

flor003 · Accepted Answer

salut!
Est-ce que tu utilises la variable "solde" autre part que dans ta fonction?
Par ce que la elle n'a pas de valeur . Donc comme par d&#233;faut elle est d&#233;ja positive elle va le rester.

a++

flor003 · Answer

alors lui il est bon il poste des messages partout on l'aide et pas une acceptation pas de r&#233;ponse &#231; a me soule.

yannba · Answer

T'enerves pas mon ami ...
J'ai trouv&#233; la r&#233;ponse en surfant sur le net, voici mon code.

Merci quand meme !!!!! 
var 
  solde: double; 


begin
  DM.SoldeADOQuery.Close;
  DM.SoldeADOQuery.SQL.Clear; // Effacement de la requete
  DM.SoldeADOQuery.SQL.Text:='select (sum(debit) - sum(remb)) As Solde from operations';
  DM.SoldeADOQuery.Open;
  solde:=DM.SoldeADOQuery.FieldByName('Solde').AsFloat;
  with DBTextSolde do
      begin
          If solde < 0 then
              begin
                  // Affichage : Solde N&#233;gatif
                  Font.Name := FontNameSoldeN;
                  Font.Color := FontColorSoldeN;
                  Font.Size := FontSizeSoldeN;
              end
          else
              begin
                  // Affichage : Solde Positif
                  Font.Name := FontNameSoldeP;
                  Font.Color := FontColorSoldeP;
                  Font.Size := FontSizeSoldeP;
              end;
    DataField := 'Solde';

BruNews · Answer

Le probl&#232;me a bien &#233;t&#233; signal&#233; et est en cours de traitement.

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++

flor003 · Answer

Excusez - moi les gens je suis navr&#233; mais je suis peu patient voir pas
et en plus j'ai des probl&#232;mes avec mon programme sur delphi.

Je me suis un peu emport&#233;. J'&#233;tais comme qui dirait  



a++

ADOQuery + DBText

5 réponses

Votre réponse

Discussions similaires