Gtk2::Ex::DBI

Gtk2::Ex::DBI - Bind a Gtk2::GladeXML can generated window to a DBI data source.
Download

Gtk2::Ex::DBI Ranking & Summary

Advertisement

  • Rating:
  • License:
  • Perl Artistic License
  • Price:
  • FREE
  • Publisher Name:
  • Daniel Kasak
  • Publisher web site:
  • http://search.cpan.org/~dkasak/Gtk2-Ex-DBI-2.0/lib/Gtk2/Ex/DBI.pm

Gtk2::Ex::DBI Tags


Gtk2::Ex::DBI Description

Gtk2::Ex::DBI - Bind a Gtk2::GladeXML can generated window to a DBI data source. Gtk2::Ex::DBI - Bind a Gtk2::GladeXML can generated window to a DBI data source.SYNOPSISuse DBI; use Gtk2 -init; use Gtk2::GladeXML; use Gtk2::Ex::DBI;my $dbh = DBI->connect ( "dbi:mysql:dbname=sales;host=screamer;port=3306", "some_username", "salespass", { PrintError => 0, RaiseError => 0, AutoCommit => 1, } );my $prospects_form = Gtk2::GladeXML->new("/path/to/glade/file/my_form.glade", 'Prospects');my $data_handler = Gtk2::Ex::DBI->new( { dbh => $dbh, schema => "sales", sql => { select => "*", from => "Prospects", where => "Actve=? and Employees>?", where_values => , order_by => "ClientName", }, form => $prospects, formname => "Prospects", on_current => &Prospects_current, calc_fields => { calc_total => 'eval { $self->{form}->get_widget("value_1")->get_text + $self->{form}->get_widget("value_2")->get_text }' }, default_values => { ContractYears => 5, Fee => 2000 } } );sub Prospects_current { # I get called when moving from one record to another ( see on_current key, above )}Requirements:· Perl Requirements: · Perl


Gtk2::Ex::DBI Related Software