[Perl/Tk] Listbox à plusieurs colonnes

Version imprimable

07/03/2009, 11h33
Kishin

[Perl/Tk] Listbox à plusieurs colonnes

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 :king:
09/03/2009, 11h22
djibril

Bonjour,

Tu peux créer un widget Scrolled ou une Listbox par colonne
09/03/2009, 20h07
Kishin

Si je comprend bien je fais un widget par colonne ?
Le tout dans ma fenêtre ? :roll:
09/03/2009, 21h29
djibril

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

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:

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;
 
}

10/03/2009, 11h35
djibril

Peux tu nous mettre un exemple de ligne de résultats et d'affichage que tu souhaites ?
Car c'est pas vraiment clair!
10/03/2009, 13h40
Kishin

Ma listebox dans ma fenêtre :
__________________________________________________
I Identifiant Titre Réalisateur Exemplaire
|
|
|
|
|
|
|
|
|__________________________________________________

Voili voilou :D !
10/03/2009, 13h56
Kishin

C'est bon ce n'était pas une grosse erreur, juste le fait que j'avais mal concaténé mes résultat de la requête. :king:

Merci Djibril :yaisse2:

Désormais je voudrais mettre des titres à ma listbox ?? Je n'ai pas trouvé d'option qui le permette avec le widget 'Listbox' :aie:

Merci d'avance

1 pièce(s) jointe(s)

bon en fait, vu ce que tu veux faire, il y a encore plus propre :mouarf:.
Utilise le module Tk::HList.
Il te permettra de faire un affichage sous forme de tableau (des colonnes) et tu peux spécifier un header (Pour tes titres).

Sert toi de ce code

Code:

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
#!/usr/bin/perl
use warnings;
use strict;
 
use Tk;
use Tk::HList;
use Tk::ItemStyle;
 
my $mw = MainWindow->new;
$mw->title('Simple HLIST');
 
my $Frame = $mw->Frame(
  -background       => "white",
)->pack( qw/ -fill both -expand 1/ );
 
my $NbrColonne = 3;
my $NbrLigne = 5;
 
# Create a scrolled HList
my $HList = $Frame->Scrolled(
    "HList",
    -header           => 1,
    -columns          => $NbrColonne,
    -scrollbars       => "osoe",
    -height           => 10,
    -background       => "white",
    -selectbackground => "blue",
  )->pack( qw/ -fill both -expand 1/);
 
 
my $StyleHList = $HList->ItemStyle(
    "text",
    -pady       => 0,
    -padx       => 5,
    -anchor     => "nw",
    -background => "red"
);
 
for my $NumeroColonne ( 0 .. ($NbrColonne - 1) ) {
 
    $HList->header(
      "create", $NumeroColonne,
      -text             => "Colonne $NumeroColonne",
      -headerbackground => "green",
      -borderwidth      => 1,
      -style            => $StyleHList,
    );
}
 
for my $NumeroLigne ( 0..($NbrLigne-1) ) {
  my $EntryPath = $HList->add($NumeroLigne);
  for my $NumeroColonne ( 0 .. ($NbrColonne-1) ) { 
    $HList->itemCreate(
           $EntryPath, $NumeroColonne,
          -text     => "Ligne$NumeroLigne - Colonne $NumeroColonne",
          -itemtype => "text",
          -style    => $StyleHList,
    );
  }
}
 
MainLoop;

Voici le résultat en pièce jointe