Posez votre question Signaler

ADOQuery + DBText [Résolu]

Messages postés
139
Date d'inscription
mercredi 4 janvier 2006
Dernière intervention
7 septembre 2010
 - - Dernière réponse : flor003
Messages postés
119
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
19 juin 2007
 - 21 févr. 2006 à 12:54
Delphi / Pascal Posez votre question Signaler
Bonjour,

J'utilise un ADOQuery pour afficher mon calcul dans un DBText. Selon le resultat, il change de couleur. Mon problè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é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;
Afficher la suite 
A voir également:

Votre réponse

Répondre au sujet

6 réponses

Meilleure réponse
Signaler Commenter la réponse de flor003
Messages postés
119
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
19 juin 2007
3
Merci
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éfaut elle est déja positive elle va le rester.

a++

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 117 internautes nous ont dit merci ce mois-ci

Commenter la réponse de flor003
Signaler Commenter la réponse de flor003
Messages postés
119
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
19 juin 2007
0
Merci
alors lui il est bon il poste des messages partout on l'aide et pas une acceptation pas de réponse ç a me soule.
Commenter la réponse de flor003
Signaler Commenter la réponse de yannba
Messages postés
139
Date d'inscription
mercredi 4 janvier 2006
Dernière intervention
7 septembre 2010
0
Merci
T'enerves pas mon ami ...
J'ai trouvé la ré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é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';
Commenter la réponse de yannba
Signaler Commenter la réponse de yannba
Messages postés
139
Date d'inscription
mercredi 4 janvier 2006
Dernière intervention
7 septembre 2010
0
Merci
pas une acceptation pas de réponse ç a me soule.
Tout simplement que j'ai un souci , c'est pas la première fois, j'en ai avisé l'administrateur déjà, pour preuve voici l'adresse :
http://www.delphifr.com/forum.v2.aspx?ID=666749

Et vu ta remarque, je vais le refaire, car effectivement, par politesse .....
Commenter la réponse de yannba
Signaler Commenter la réponse de BruNews
Messages postés
21054
Date d'inscription
jeudi 23 janvier 2003
Dernière intervention
7 novembre 2014
 35
0
Merci
Le problème a bien été signalé et est en cours de traitement.

ciao...
http://dev.winsysdev.com
BruNews, MVP VC++
Commenter la réponse de BruNews
Signaler Commenter la réponse de flor003
Messages postés
119
Date d'inscription
dimanche 28 septembre 2003
Dernière intervention
19 juin 2007
0
Merci
Excusez - moi les gens je suis navré mais je suis peu patient voir pas
et en plus j'ai des problèmes avec mon programme sur delphi.

Je me suis un peu emporté. J'étais comme qui dirait



a++
Commenter la réponse de flor003

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.