affichage dans un browser de liste

**touzack** · 17/06/2009, 15h20

Salut!
j'ai une base de donnée que j'interface avec xpce afin d'y extraire des données d'une des tables.
la table en question à les champs suivant : Id_culture,Annee,Region,Pluviometrie

Le contenu de la table est la suivantes:

(1, 2009, 'Centre', 'Faible'),
(2, 2009, 'Haut bassin', 'Bonne'),
(3, 2010, 'Haut bassin', 'Très bonne'),
(4, 2011, 'Cascades', 'Bonne'),
(5, 2012, 'Cascades', 'Bonne'),
(6, 2011, 'Centre', 'Moyenne'),

Dans mon interface j'ai inserer un champ permetant a l'utilisateur de choisir une année et je lui
retournons l'ensemble des regions ou la pluviometrie est tres bonne.

Voici le code :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
 
dialog('Prevision1',
       [ object        :=
	   Prevision1,
	 parts         :=
	   [ Prevision1    :=
	       dialog('Prevision1'),
	     Name          :=
	       label(name,
		     'Prévision '),
 
	     Annee         :=
	       menu(annee, cycle),
	     Resultat      :=
	       label(resultat, 'Resultat'),
	     ButtonOK      :=
	       button(buttonOK),
	     ButtonAnnuler :=
	       button(buttonAnnuler)
	   ],
	 modifications :=
	   [ Name          :=
	       [ font := @helvetica_bold_18
	       ],
 
	     Annee         :=
	       [ value_font :=
		   @helvetica_roman_14,
		 reference  :=
		   point(0, 19),
		 append     :=
		   [ menu_item('2009', @default, '2009', @off, @nil, '\\e2'),
		     menu_item('2010', @default, '2010', @off, @nil, '\\e0'),
		     menu_item('2011', @default, '2011', @off, @nil, '\\e1'),
		     '2012'
		   ]
	       ],
	     Resultat      :=
	       [ font := @helvetica_bold_18
	       ],
	     ButtonOK      :=
	       [ label     := 'OK',
		 reference := point(0, 21)
	       ],
	     ButtonAnnuler :=
	       [ label     := 'Annuler',
		 reference := point(0, 20)
	       ]
	   ],
	 layout        :=
	   [ area(Name,
		  area(16, 9, 681, 27)),
 
	     area(Annee,
		  area(164, 70, 123, 28)),
	     area(Resultat,
		  area(45, 194, 314, 27)),
	     area(ButtonOK,
		  area(163, 145, 92, 33)),
	     area(ButtonAnnuler,
		  area(317, 149, 81, 31))
	   ],
	 behaviour     :=
	   [ ButtonOK := [ message := message(@prolog,
					    lance_recherche,
					    Annee?selection,
					    Resultat)
		       ],
 
 
	     ButtonAnnuler := [ message := message(Prevision1,
					 destroy)
			 ]
	   ],
         initialise    :=
	   [
	     send(Resultat, colour, red),
	     send(Resultat, font, font(times, bold, 18))
	   ]
 
       ]).
 
acceuil :-
       make_dialog(D, 'Prevision1'),
       send(D,open).
lance_recherche(Expr1, Resultat) :-
        odbc_connect('Prolog',_,
                     [ user(root),
                       password(''),
                       alias(data),
                       open(once)
                     ]),
interro1(data,Expr1 ,Res),
	sformat(Str, '~w = ~w', [Expr1, Res]),
        send(Resultat, selection, Str).
 
 
interro1(Data,Annee, Noms) :-
	writeln('Liste des noms dans la bdd'),
        sformat(Str, 'select region FROM Culture where pluviometrie =\'Très bonne\'  and annee=''~w'' ', [Annee]),
	string_to_atom(Str, Atom),
writeln(Atom), nl,
 
        findall(Region,
                odbc_query(Data,
                           Atom,Region
                           ),
                Noms),
 
	writeln(Noms), nl.
:-acceuil.

Tout marche correctement mais mon probleme est de savoir comment pouvoir afficher le resultat de ma requette dans
un browser de liste ?

**Trap D** · 17/06/2009, 22h28

Regarde la petite modif faire à ton code pour voir comment ça se gère.

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
dialog('Prevision1',
       [ object        :=
	   Prevision1,
	 parts         :=
	   [ Prevision1    :=
	       dialog('Prevision1'),
	     Name          :=
	       label(name,
		     'Prévision '),
 
	     Annee         :=
	       menu(annee, cycle),
 
	     Browser :=
	       list_browser(@default, 51, 11),
 
	     Resultat      :=
	       label(resultat, 'Resultat'),
	     ButtonOK      :=
	       button(buttonOK),
	     ButtonAnnuler :=
	       button(buttonAnnuler),
	     ButtonTest :=
	       button(buttonTest)
	   ],
	 modifications :=
	   [ Name          :=
	       [ font := @helvetica_bold_18
	       ],
	   Browser  :=
	       [ name       := 'Browser résultat',
		 show_label := @on
	       ],
 
	     Annee         :=
	       [ value_font :=
		   @helvetica_roman_14,
		 reference  :=
		   point(0, 19),
		 append     :=
		   [ menu_item('2009', @default, '2009', @off, @nil, '\\e2'),
		     menu_item('2010', @default, '2010', @off, @nil, '\\e0'),
		     menu_item('2011', @default, '2011', @off, @nil, '\\e1'),
		     '2012'
		   ]
	       ],
	     Resultat      :=
	       [ font := @helvetica_bold_18
	       ],
	     ButtonOK      :=
	       [ label     := 'OK',
		 reference := point(0, 21)
	       ],
	     ButtonTest := 
	       [ label := 'Cliquez moi !'
	       ],
	     ButtonAnnuler :=
	       [ label     := 'Annuler',
		 reference := point(0, 20)
	       ]
	   ],
	 layout        :=
	   [ area(Name,
		  area(16, 9, 681, 27)),
 
	     area(Annee,
		  area(164, 70, 123, 28)),
 
	     area(Browser,
		  area(350, 10, 300, 130)),
 
	     area(Resultat,
		  area(45, 194, 314, 27)),
	     area(ButtonOK,
		  area(163, 145, 92, 33)),
	     area(ButtonAnnuler,
		  area(317, 149, 81, 31)),
	     area(ButtonTest,
		  area(480, 149, 81, 31))
	   ],
	 behaviour     :=
	   [ ButtonOK := [ message := message(@prolog,
					    lance_recherche,
					    Annee?selection,
					    Resultat)
		       ],
 
	     ButtonTest := [ message := message(@prolog, teste, Browser)
		    ],
 
	     ButtonAnnuler := [ message := message(Prevision1,
					 destroy)
			 ]
	   ],
         initialise    :=
	   [
	     send(Resultat, colour, red),
	     send(Resultat, font, font(times, bold, 18))
	   ]
 
       ]).
 
acceuil :-
       make_dialog(D, 'Prevision1'),
       send(D,open).
 
lance_recherche(Expr1, Resultat) :-
        odbc_connect('Prolog',_,
                     [ user(root),
                       password(''),
                       alias(data),
                       open(once)
                     ]),
	interro1(data,Expr1 ,Res),
	sformat(Str, '~w = ~w', [Expr1, Res]),
        send(Resultat, selection, Str).
 
 
interro1(Data,Annee, Noms) :-
	writeln('Liste des noms dans la bdd'),
        sformat(Str, 
		'select region FROM Culture where pluviometrie =\'Très bonne\'  and annee=''~w'' ', 
		[Annee]),
	string_to_atom(Str, Atom),
	writeln(Atom), nl,
 
        findall(Region,
                odbc_query(Data,
                           Atom,Region
                           ),
                Noms),
 
	writeln(Noms), nl.
 
 
teste(Liste) :-
    send(Liste, append, 'Click').
 
:-acceuil.

J'ai rajouté un browser de liste et un bouton qui ajoute 'Click' dans le browser de liste quand on clique dessus.

**touzack** · 23/06/2009, 20h39

Salut!
Merci pour Votre aide. J'arrive a comprendre le fonctionnement des browser mais liste mai je n'arrive toujours pas a recupéré le resultat de ma requete et à l'envoyé dans le browser de liste.
par exemple lorsque j'ai changer ma regle interro1 de la manière suivante a fin d'avoir le browser que vous avez inseré en entrée et j'envoi au browser le resultat de la requete mais le resultat ne s'affiche pas dans le browser :
voici mon code :

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
 
interro1(Data,Annee, Noms, Liste) :-
	writeln('Liste des noms dans la bdd'),
        sformat(Str, 
		'select region FROM Culture where pluviometrie =\'Très bonne\'  and annee=''~w'' ', 
		[Annee]),
	string_to_atom(Str, Atom),
	writeln(Atom), nl,
 
        findall(Region,
                odbc_query(Data,
                           Atom,Region
                           ),
                Noms),
 
	writeln(Noms), nl.
 
    send(Liste, append, Noms).

puije avoir votre aide pour resoudre ce problème ?

**Trap D** · 23/06/2009, 22h36

Voilà maintenant quelque chose qui fonctionne :

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
dialog('Prevision1',
       [ object        :=
	   Prevision1,
	 parts         :=
	   [ Prevision1    :=
	       dialog('Prevision1'),
	     Name          :=
	       label(name,
		     'Prévision '),
 
	     Annee         :=
	       menu(annee, cycle),
 
	     Browser :=
	       list_browser(@default, 51, 11),
 
	     Resultat      :=
	       label(resultat, 'Resultat'),
	     ButtonOK      :=
	       button(buttonOK),
	     ButtonAnnuler :=
	       button(buttonAnnuler)
	   ],
	 modifications :=
	   [ Name          :=
	       [ font := @helvetica_bold_18
	       ],
	   Browser  :=
	       [ name       := 'Browser résultat',
		 show_label := @on
	       ],
 
	     Annee         :=
	       [ value_font :=
		   @helvetica_roman_14,
		 reference  :=
		   point(0, 19),
		 append     :=
		   [ menu_item(2009, @default, '2009', @off, @nil, '\\e2'),
		     menu_item(2010, @default, '2010', @off, @nil, '\\e0'),
		     menu_item(2011, @default, '2011', @off, @nil, '\\e1'),
		     menu_item(2012, @default, '2012', @off, @nil, '\\e3')
		   ]
	       ],
	     Resultat      :=
	       [ font := @helvetica_bold_18
	       ],
	     ButtonOK      :=
	       [ label     := 'OK',
		 reference := point(0, 21)
	       ],
	     ButtonAnnuler :=
	       [ label     := 'Annuler',
		 reference := point(0, 20)
	       ]
	   ],
	 layout        :=
	   [ area(Name,
		  area(16, 9, 681, 27)),
 
	     area(Annee,
		  area(164, 70, 123, 28)),
 
	     area(Browser,
		  area(350, 10, 300, 130)),
 
	     area(Resultat,
		  area(45, 194, 314, 27)),
	     area(ButtonOK,
		  area(163, 145, 92, 33)),
	     area(ButtonAnnuler,
		  area(317, 149, 81, 31))
	   ],
	 behaviour     :=
	   [ ButtonOK := [ message := message(@prolog,
					    lance_recherche,
					    Annee?selection,
					    Browser)
		       ],
 
 
	     ButtonAnnuler := [ message := message(Prevision1,
					 destroy)
			 ]
	   ],
         initialise    :=
	   [
	     send(Resultat, colour, red),
	     send(Resultat, font, font(times, bold, 18))
	   ]
 
       ]).
 
acceuil :-
       make_dialog(D, 'Prevision1'),
       send(D,open).
 
lance_recherche(Expr1, Resultat) :-
        odbc_connect('pluie',_,
                     [ user(root),
                       password(''),
                       alias(data),
                       open(once)
                     ]),
	interro1(data,Expr1 ,Res),
	sformat(Str, '~w = ~w', [Expr1, Res]),
        send(Resultat, append, Str).
 
 
interro1(Data,Annee, Noms) :-
        sformat(Str, 
		'select region FROM Culture where pluviometrie =''Très bonne'' and Annee=''~w''', 
		[Annee]),
	string_to_atom(Str, Atom),
	writeln(Atom), nl,
 
        findall(Region,
                odbc_query(Data,
                           Atom,
			   row(Region)
                           ),
                Noms),
 
	writeln(Noms).
 
 
:-acceuil.

J'ai quand même l'impression ... que ce travail ressemble fort à celui-ci !

**touzack** · 24/06/2009, 21h25

Merci pour votre aide.
Je vais essayé cela ce soir.
Effectivement vous avez raison car wizo_nac et moi travaillon sur la meme chose.
A bientot.

affichage dans un browser de liste

Prolog

Discussions similaires

Partager

Partager