Tk::DataControl - Record Navigation Widget
$datacontrol = $parent->DataControl(?options?);
-background | -bg, -foreground | -fg, -state, -width, -height, -relief, -cursor, -borderwidth,
Name : dbh Class : Dbh Switch : -dbh Specify the valid DataBase Handle Name : table Class : Table Switch : -table Specify the Table to Navigate the Records Name : fieldlist Class : FieldList Switch : -fieldlist The Array reference of list of fields from table to display Name : textlist Class : TextList Switch : -textlist The Array reference of list of Textbox(Entry) Widget Name : beep Class : Beep Switch : -beep Specifies whether to enable bell when reaches the Boundary while Navigation.
A DataControl Navigation Control for Records From the Table
#! /usr/bin/perl -w use Tk; use DataControl; use DBI; my $mw = MainWindow->new(); my $text1 = $mw->Entry()->pack; my $text2 = $mw->Entry()->pack; my $dbh = DBI->connect("dbi:?driver?:dbname=?dbaname?", "?username?", "?password?"); my $dc = $mw->DataControl ( -dbh => $dbh, -table => '?table_name?', -textlist => [$text1, $text2], -fieldlist => ['?field1?', '?field2?'], -foreground => 'blue' ); $dc->pack(); MainLoop;
SanjaySen , palash_bksys@yahoo.com
1 POD Error
The following errors were encountered while parsing the POD:
=cut found outside a pod block. Skipping to next block.
To install DataControl, copy and paste the appropriate command in to your terminal.
cpanm
cpanm DataControl
CPAN shell
perl -MCPAN -e shell install DataControl
For more information on module installation, please visit the detailed CPAN module installation guide.