#! f:/Perl/bin/perl 

use strict;
use CGI qw(:standard);
use DBI;
use CGI::Carp qw/fatalsToBrowser/;
my $dbh = DBI->connect('DBI:ODBC:driver=Microsoft Access-Treiber (*.mdb); dbq=Kunden.mdb') or die $DBI::errstr;

my $cgi = CGI->new();
my %params = $cgi->Vars();

print $cgi->header();

if   ( exists $params{suchanfrage} ) {   &Suche    ($cgi, \%params)  }
elsif( exists $params{eintrag}     ) {   &Eintragen($cgi, \%params)  }

                                

print $cgi->end_html();

# ------------------------------------------------------------
 
sub Suche {
  my ($cgi, $params) = @_;
 
  my $dsn = "DBI:ODBC:Kunden";
my $dbh = DBI->connect($dsn)
    or die "Error: couldn't connect to '$dsn': $DBI::errstr\n";

  $cgi->start_html('Antwort');
 
  my $sqlStatement = qq~SELECT Tabelle1.Kundennummer, Tabelle1.Name,
    Tabelle1.Telefon, Tabelle2.Rechnungsbetrag FROM Tabelle1 JOIN Tabelle2 USING(Kundennummer)~;

  my $sth = &FireSql($dbh, $sqlStatement);

  if ($sth->rows < 1) {
      print $cgi->p("Keine Daten gefunden");
      return;
  } # if

  print qq~
<center>
<h1>Suchergebnis:</h1>
<hr />
<table border="2">
<tr>
  <td width="200"><b>Kundennummer:</b></td>
  <td width="200"><b>Adresse:</b></td>
  <td width="200"><b>Name:</b></td>
  <td width="200"><b>Telefonnummer:</b></td>
  <td width="200"><b>Rechnungsbetrag:</b></td>
</tr>\n~;

  while( my @data = $sth->fetchrow() ) {
      printf qq~
<tr>
  <td><b>%s</b></td>
  <td><b>%s</b></td>
  <td><b>%s</b></td>
  <td><b>%s</b></td>
</tr>\n~,
    @data[0, 1, 2, 3];

  } # while

  $sth->finish();
  $dbh->disconnect();
} # Suche
# ------------------------------------------------------------
sub Eintragen {


} # Eintragen
# ------------------------------------------------------------
sub ConnectToDB {

  my $dsn = "DBI:ODBC:Kunden";
  my $dbh = DBI->connect($dsn)
      or die "Error: couldn't connect to '$dsn': $DBI::errstr\n";

  return $dbh;
} # ConnectToDb
# ------------------------------------------------------------
sub FireSql {
  my ($dbh, $sqlStatement, @values) = @_;

  my $sth = $dbh->prepare($sqlStatement)
      or die "Error: couldn't prepare sql: $DBI::errstr\n$sqlStatement\n";

  $sth->execute(@values)
      or die "Error: couldn't execute sql: $DBI::errstr\n$sqlStatement\n";

  return ($sth);
} # FireSql

# ------------------------------------------------------------