Gtk2::Ex::DBIGtk2::Ex::DBI - Bind a Gtk2::GladeXML can generated window to a DBI data source. | |
Download |
Gtk2::Ex::DBI Ranking & Summary
Advertisement
- 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