DESCRIPTION
Tk::TM - User interface for database applications.
Tk::TM - Tk Transaction Manager - screen transactions with user.
This module is something like 'Transaction Manager' in JYACC JAM RAD.
It releases user interface for database applications -
screen transactions with user.
It contains data manipulation object (Tk::TM::DataObject),
data widgets (tmTable, tmBlank),
menu and action bar widgets (tmMenu, tmActionBar,
based on Tk::TM::DataObjSet).
Tk::TM::wApp - Tk Transaction Manager Application Window.
This is level above Tk::TM::Lib.
Tk::TM::Try - Tk Transaction Manager Error processing functions.
Implements error processing functions may be used (or not be used)
in application.
SYNOPSIS
use Tk::TM::Lib;
Tk::TM::Common::DBILogin('dsn', 'user', '');
my $mw =new Tk::MainWindow;
my $mnu =$mw->tmMenu;
my $tbl =$mw->tmTable(-rowcount=>3, -colspecs=>
[['col1','Entry']
,['col2','Entry']
,['col3','Entry']
])->form(-t=>$mnu);
my $bln =$mw->tmBlank(-wgspecs=>
[['col1','Entry']
,['col2','Entry']
,['col3','Entry',-width=>30]
])->form(-t=>$tbl);
my $sub =sub{ my $self =shift;
if ($_[0] eq 'dbRead') {$self->DBICmd('select * from table')}
elsif ($_[0] eq 'dbIns') {$self->DBICmd('insert...')}
elsif ($_[0] eq 'dbUpd') {$self->DBICmd('update...')}
elsif ($_[0] eq 'dbDel') {$self->DBICmd('delete from table...')}
else {$self->doDefault(@_)}
};
new Tk::TM::DataObject(-cbcmd=>$sub, -wgtbl=>$tbl, -wgbln=>$bln);
$mnu->Retrieve;
Tk::MainLoop;
AUTHOR
Andrew V Makarow <
[email protected]>, Denis E Medveduyk <
[email protected]>
COPYRIGHT
This program is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.
PREREQUISITES
Developed and tested with
Active Perl 5.005 builds 508, 509, 522;
Tk 800.012, 800.013, 800.019;
DBI 1.02, 1.06, 1.13
HOW TO BUILD AND INSTALL
Just type:
perl Makefile.PL
make
make test # you may run ./examples also
make install
Or:
copy ./lib/Tk/TM/* into perl/site/lib/Tk/TM
