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!

[Kishin]

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

Voili voilou !

[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.

Merci Djibril

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

Merci d'avance

[djibril]

bon en fait, vu ce que tu veux faire, il y a encore plus propre .
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 :

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
#!/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