Thread MySQL Ausgabe als Link mit Tabellenverknüpfung (18 answers)
Opened by Tobax at 2013-03-19 12:33

GwenDragon
 2013-03-28 07:43
#166717 #166717
User since
2005-01-17
14757 Artikel
Admin1
[Homepage]
user image
Guten Morgen.
Du brauchst noch einen extra CGI-Parameter, damit entschieden werden kann, ob Kundendaten oder Systemdaten angezeigt werden sollen.
Nehmen wir mal den weiteren Parameter option dafür.
Wenn er den Wert systeme enthält, sollen Tabellenzeilen der Systemdaten des Kunden angezeigt werden.

Code (perl): (dl )
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

#!C:/Perl/bin/perl.exe

use DBI;
use warnings;
use mysql;
use HTML::Template;
use HTML;
use CGI;

my $cgi = CGI->new;
print $cgi->header();
my $kunden_id = $cgi->param('id_kunde'); 
gib_kunden_tabelle_aus($kunden_id);

my @data;
my $option = $cgi->param('option');
if ($option eq 'systeme') {
  @data = hole_systemids_uber_kunden_id($kunden_id);
}
if (@data) {
  # gib HTML für Systeme aus
  gib_system_tabelle_aus(@data);
  exit;
}
else {
  # gib HTML für Kunde aus
}


sub hole_systemids_uber_kunden_id {
    ($kunden_id) = @_;
    $query_kdsys = "select ID from tb_systeme where ID=?";
    $dbh         = DBI->connect( "DBI:mysql:projekt1:localhost", 'root', '' );
    $statement   = $dbh->prepare($query_kdsys);
    $statement->execute($kunden_id);
    my @row;
    while (@row = $statement->fetchrow_array() ) { # weil es mehrere System-IDs sein können
        push @data,\@row; # sichere eine Ergebniszeile ins Array
    }
    return @data; 
}


HTML für Anzeige des Links zum Aufruf der Systeme des Kunden
Code (html): (dl )
<td><a style='color:#000' href='?id_kunde=$id_kunde&option=systeme'>$kundenname</a></td>
die Drachin Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View full thread MySQL Ausgabe als Link mit Tabellenverknüpfung