#!c:\Perl\bin\perl.exe 
sub DB_suche ($) {
use strict;
use Tk;
use DB_ausgabe;


my $SuchenFenster= MainWindow->new();

my (@arg) =@_;
#mit get wird der übergebene Wert(Datenbankname) $arg[0] zugewiesen

my $Dbbenutzer = $arg[0];
#mit get wird der übergebene Wert(Name) $arg[1] zugewiesen
my $Dbpwd = $arg[1];


#Title des Fensters
$SuchenFenster -> title('Datenbank-Suchen');

#Hintergrundfarbe des Grundfensters    
$SuchenFenster -> configure (-background=>'lightgoldenrod1');    

#Überschrift/Erklärung
my $label1 = $SuchenFenster->Label(-background=>'lightgoldenrod1',,-font => 'courier',-text => 'Datenbank suche')->pack(-side => 'top',-pady => 10);
my $label2 = $SuchenFenster->Label(-background=>'lightgoldenrod1',-text => 'Nach was wollen sie suchen?')->pack(-side => 'top',-pady => 5);

#Namenssuche
my $f1=$SuchenFenster->Frame()->pack(-side => 'top');
my $Label3= $f1->Label(-background=>'lightgoldenrod1',-text => 'Name')->pack(-side => 'top');
my $f2=$SuchenFenster->Frame(-relief => 'sunken', -borderwidth => '5')
               
 ->pack(-side => 'top',-pady => 5);
my $DbSucheName = $f2->Entry(-text=> 'Goerl')->pack(-side => 'top');
my $DbSucheNamed = $DbSucheName ->get();

my $suche = "select * from mitglied where name = '$DbSucheNamed'";

#Checkbox für Attribute die ausgegeben werden
my $f3=$SuchenFenster->Frame()->pack(-side => 'top');
my $Label4= $f3->Label(-background=>'lightgoldenrod1',-text => 'Welche Daten sollen angezeigt werden?')->pack(-side => 'top');

my $AbName=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Name")->pack(-side => 'left');

my $AbVorname=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Vorname")->pack(-side => 'left');

my $AbAdresse=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Adresse")->pack(-side => 'left');

my $AbPLZ=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "PLZ")->pack(-side => 'left');

my $AbOrt=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Ort")->pack(-side => 'left');

my $AbTelefon=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Telefon")->pack(-side => 'left');

my $AbGeburtsdatum=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Geburtsdatum")->pack(-side => 'left');

my $AbEintritt=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Eintrittsdatum")->pack(-side => 'left');

my $AbFunktion=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Vereinsfunktion")->pack(-side => 'left');

my $AbEhrung=$SuchenFenster->Checkbutton(-background=>'lightgoldenrod1', -text => "Ehrung")->pack(-side => 'left');




#Button
my $f4=$SuchenFenster->Frame()->pack(-side => 'top');
my $button1 = $f4->Button(-text => " OK ", -relief => 'groove', -borderwidth => '6', "-command" => [\&DB_ausgabe, $Dbbenutzer, $Dbpwd, $suche]);
$button1->pack(-side => 'top', -pady => 5);

}
1;

my @checkBoxes = qw(Name Vorname Adresse PLZ Ort Telefon Geburtsdatum
                    Eintrittsdatum Vereinsfunktion Ehrung);


#Namenssuche
my $f1=$SuchenFenster->Frame()->pack(-side => 'top');

my %checkBoxes = ();
foreach my $name (@checkBoxes) {
    $checkBoxes{$name}->{variable} = 0; # not checked as default
    
    $checkBoxes{$name}->{widget} = $SuchenFenster->Checkbutton
        ( -background => 'lightgoldenrod1', -text => $name,
          -variable => \$checkBoxes{$name}->{variable},
     )
            ->pack(-side => 'left');

} # foreach

# irgendwo auswerten:
my @checkedFields = grep { $checkBoxes{$_}->{variable} } keys %checkBoxes;

# jetzt hast du die namen der Felder in @checkedFields