Discussion :

[cdlr27]

Sous Delphi Pro 6, une base ACCESS

J'ai un DBedit connecté sur un ADOQuery, juste là pas trop de probléme, je balaye le recorset issu de la requète et j'affiche le contenu du champ, mais dans ma base ACCESS, c'est un champ monétaire qui est déclaré et je n'en obtient que la valeur.

Comment forcer l'affichage en monétaire ?.

Marcel

[Giovanny Temgoua]

Salut,

Une fois que tu as tout des champs (les champs de ta base de donnée de type fields), tu peux utiliser la propriété EditMask de ces champs pour définir leur format d'affichage dans le DBEdit.

A+

[cdlr27]

Suite à ta remarque , j'ai regardé le Tfield et j'aitrouvé une définition
DBPrixVenteTTC.Field.AsCurrency;

Mais, cela ne fonctionne pas

Dommage, cela semblait correspondre à mon besoin. Je veux juste un affichage correct sans saisie.

Marcel

[Giovanny Temgoua]

Non non!

En fait, ce que tu dois faire c'est :

sélectionner le champ auquel tu veux appliquer un format particulier
dans la fenêtre des propriétés/évènements, tu verras une propriété nommé EditMask, tu cliques dessus
une fenêtre s'ouvre où certains formats te sont proposées. entre autres le format pour les dates (longues et courtes), les heures etc...

A ce niveau, tu choisis le format que tu veux. L'affichage du DBEdit s'adaptera en conséquence.

[cdlr27]

Là, je comprend trés bien où tu m'emmène, mais je ne trouve pas l'accés à EditMask.
J'ai seulement accés à IsMasked

Code :

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

1
2
 if not DBPrixVenteTTC.IsMasked then
     DBPrixVenteTTC.???????

Me manquerais t'il pas une unité ?.
pour accéder à la suite

j'ai trouvé Dans TCustomMaskEdit un accés à EditMask, mais je n'arrive pas à le connecter sur mon DBedit.

[Giovanny Temgoua]

Tu ne m'as pas bien suivit

En définitive tu dois être amener à choisir un masque qui est de la forme

Code :

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

!000\000\ - ()

par exemple

De sorte que lorsque l'utilisateur tape dans le DBEdit, il ne pourra que taper des caractères particuliers et dans des limites que tu pourras spécifier. Le fichier de masque ont l'extension .dem et se trouvent dans ...Program Files\Borland\Bin

Concrètement, je ne te parle pas d'un autre composant mais ta réaction me pousse à te demander quelle version de Delphi tu disposes (parce je ne connais que la 6 et la 7).

EditMask est une propriété que tu applique à un field. Clique sur le field et dans la fenêtre des propriétes et des évènement tu verras cette propriété avec des points de suspension. Tu cliques sur les points de suspension et tu seras amené vers une fenêtre où tu pourras choisir un masque (il y'en a pour les dates, les heures etc..) et tu te rendras compte qu'il n'ya pas de masque pour les monnaies mais je t'en propose un, à toi de voir comment l'utiliser dans ton programme.

Tu peux le télécharger ici (à copier dans le repertoire mentionné ci-dessus)

A+

[cdlr27]

Cela s'améliore

j'obtiens une erreur au lancement du programme 'EAccessViolation' avec les différents essais suivants :

Code :

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

1
2
3
 dbgprod.Fiels[0].EditMask:='!000\000\ - ()'; // DBGRID
dbpvttc.Field.EditMask:='!000-000;1'; // DBEDIT
test.Text:=dbpvttc.Field.EditMaskPtr;

Lorsque je clique sur l'objet Tcolumn du DBGRID ou sur DBEdit , la propriétés EditMask n'apparait pas.
mais l'assistance à l'écriture m'a amener EditMask suite à Field.

Il doit me manquer quelque chose ?;

Je travaile sur D6 pro (Build 6.163)

Pour ton exemple, Est-ce la bonne adresse ?.
http://fow-clan.150m.com/perso.dem

[Giovanny Temgoua]

Salut,

Laisse tomber pour le fichier, de toutes les façons, il ne contenait qu'une seule ligne que tu pourras écrire toi même.
Si je me rappele bien, à l'intérieur il y'avait

Code :

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

1
2
 
!999\ 999\ 990\ . 999\ 999\ 999\ Euro

Donc tu peux enregistrer au format .dem et le placer dans Program Files\Borland\Bin

Bref, concrètement il faut que tu comprennes que ces formats sont utilisés pour en quelque sorte obliger l'utilisateur a entrer les données sous une forme précise. Ainsi le format que je propose permet de stocker des valeurs comprises entre 0 et 999 999 999 euros (donc suffisemment )

Une fois de plus, tu n'as pas à écrire les formats à la main! Tu disposes de cette fenêtre dont j'ai fait mention un peu plus bas (propriétés d'un Field), certains masques sont déjà prédéfinies et tu peux juste les utiliser (tu auraius d'ailleurs pu utiliser le format entier long et coller un label à côté du DBEdit avec poir caption Euro par exemple).

J'espère que cà résoudra ton problème...

Une dernière chose est que tu ouvrir les fichiers .dem avec le bloc notes pour voir la syntaxe, cà peut toujours aider.

A+

[cdlr27]

Je te remercie pour ton aide, c'est que je me suis un peu déformer avec ACCESS qui permet de formater les affichages facilement.
J'ai bien visiter les *DEM qui sont dans Delphi.
Comme cela est juste pour faire beau à l'écran, je met ce point en suspend car ce n'est pas l'essentiel.
Pour info : L'objet est une Gestion de Stocks d'un magasin de Prêt à porter.

A +

Marcel