Discussion :

[Kishin]

Bonjour tout le monde,

Voilà je suis actuellement entrain de développer une application en Perl/Tk et je souhaite lors de l'intérogation de ma base de données afficher dans une liste déroulante avec plusieurs colonnes les résultats de ma requête.

J'utilise le module Tk:Scrolled mais je ne trouve pas l'option afin d'y insérer des colonnes ?

Merci d'avance à vous

[djibril]

Bonjour,

Tu peux créer un widget Scrolled ou une Listbox par colonne

[Kishin]

Si je comprend bien je fais un widget par colonne ?
Le tout dans ma fenêtre ?

[djibril]

Tu peux faire un Frame dans lequel tu crées 3 listbox par ex (avec en pack -side => "left")

[Kishin]

Merci Djibril pour ton aide.
J'ai crée une frame pour y insérer des Listbox mais rien à faire, il ne m'affiche que la première listbox

Je penses que je me suis mal exprimé car je veux que chaque occurences
de ma requêtes s'affiche sur une seule ligne de ma listbox (ex: titre, nb_exemplaire, réalisateur, ....).


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
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
#!/usr/bin/perl -w
package Consultation;
 
use Connect;
use strict;
use DBI;
 
##############################################
#		Constucteur objet Consulter			 #
##############################################
sub new 
	{
		my $classe = @_; 
		my $self = {};
		bless($self);
		return $self;
	}
 
 
sub initAffichage
	{
	my $scrollbar;
	my $self = shift;
 
 
 
	if (@_) { @{ $self->{initAffichage} } = @_ } 
 
	$self = MainWindow->new(-height=> '1000');
			$self->title("Consultation");	   
			$self->geometry("700x350+350+350"); # Taille (L*l) + disposition à l'affichage	
 
			my $bar_consult_dispo = $self->Frame(-relief => 'groove' , -borderwidth => 2);
 
			my $menu_bar_consult_dispo = $bar_consult_dispo->Menubutton(
																		-text => 'Application',		# Libel du bouton
																		-font => '{Garamond} 10',	# Police
																		-tearoff => 0,
																		-menuitems => [
																						[
																						'command' => 'Quitter',
																						-font => '{Garamond} 10',
																						-command => sub {$self->destroy}
																						]
														  							  ]		  
																		);
			$menu_bar_consult_dispo -> pack(-side => 'left');
			# Affichage barre de menu ancrée en [haut au centre de la fenêtre -->y] [haut sur le tout le long de la fenêtre]
			$bar_consult_dispo -> pack(-side => 'top', -anchor => 'n', -fill =>'x');
 
			my $frame = $self -> Frame()-> pack(-side => 'left');
 
			our $maListeTitre 		= $frame -> Scrolled("Listbox",
													-width => '100',
													-height => '50',
													-scrollbars => 'e',
	                    							-selectmode => 'single',
	                    						    -relief => 'groove'
	                    						   	)->pack;
 
	        our $maListeNbex 		= $frame -> Scrolled("Listbox",
													-width => '100',
													-height => '50',
													-scrollbars => 'e',
	                    							-selectmode => 'single',
	                    						    -relief => 'groove'
	                    						   	)->pack;            						   	
	}
 
# Cette fonction execute la requete SQL passée en parametre
sub execRequest
{
 
	my $self = shift;
	# verifier ici que l'entrée correspond bien à une requete SQL
 
	#my $maConnexion = Connect -> new();
	#$maConnexion = Connect::connect_me();
 
			my $maConnexion = DBI->connect("dbi:Pg:dbname=video_club;host=127.0.0.1", 'gerant', 'hr83sb') || die DBI::errstr;
 
			my  $requete = "SELECT * ";
				$requete.= "FROM ressource ";
				$requete.= "order by titre;";
 
 
			my $sth = $maConnexion -> prepare($requete);
 
			$sth-> execute();
 
			while (my @enr = $sth -> fetchrow_array) 
			{
				our$maListeTitre -> insert('end', $enr['2']);
				our$maListeNbex  -> insert('end', $enr['1']); 
 
			}
 
			$sth->finish;
 
}

[djibril]

Peux tu nous mettre un exemple de ligne de résultats et d'affichage que tu souhaites ?
Car c'est pas vraiment clair!