|
(PERL) TK::DBI:Form
#33163423
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
Участник
Откуда: Schast'e
Сообщения: 67
|
|
Может кто нибудь с ним работал. Не пойму чего он хочет.
Вот код
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
#!/usr/bin/perl -w
use strict;
use lib '../.',
'/Homes/xpix/projekts/Tk-Moduls';
use Tk;
use Tk::ItemStyle;
use Tk::DBI::Form;
use DBI;
#my $host = localhost || &use_this_so;
#my $db = shift || &use_this_so;
#my $user = shift || &use_this_so;
#my $pass = shift || &use_this_so;
my $table = 'Marafon1' || &use_this_so;
my $id = 1 || &use_this_so;
# DB Handle
my $dbh = DBI->connect("DBI:mysql:database=Stats;host=localhost", "root", "") or die ("Can't connect to database:", $! );
my $mw = MainWindow->new;
my $tkdbi = $mw->DBIForm(
-dbh => $dbh,
-table => $table,
-editId => 'yes',
-debug => 1,
);
$tkdbi->newRecord();
$tkdbi->dsplRecord($id);
printf "$table changed in last 10 minutes?: %s\n", ($tkdbi->Table_is_Change(time - 600) ? 'YES' : 'NO');
$mw->bind('<Escape>', sub{ exit });
$tkdbi->bind('<Escape>', sub{ exit });
MainLoop;
sub use_this_so {
print "\nplease use $ 0 host db user password table id\n";
exit;
}
И ошибка
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Tk::Form: SELECT id,Time,NF,NS,PF,PS,STZ,STO,SOT,SZT,FF,KF,FS,KS,T,TB,TM from Marafon1 WHERE ( 1 = 0 )
Tk::Error: Can't set -cancel_callback to `CODE(0x89c69d0)' for Tk::XDialogBox=HASH(0x89c9930): Bad option `-cancel_callback' at /usr/lib/perl5/Tk/Configure.pm line 46.
at /usr/lib/perl5/Tk/Derived.pm line 294
Tk callback for .form.xdialogbox
Tk::Derived::configure at /usr/lib/perl5/Tk/Derived.pm line 306
Tk::Widget::new at /usr/lib/perl5/Tk/Widget.pm line 196
Tk::Widget::__ANON__ at /usr/lib/perl5/Tk/Widget.pm line 247
Tk::DBI::Form::editRecord at /usr/local/share/perl/5.8.4/Tk/DBI/Form.pm line 771
Tk::DBI::Form::newRecord at /usr/local/share/perl/5.8.4/Tk/DBI/Form.pm line 663
Can't set -cancel_callback to `CODE(0x89c69d0)' for Tk::XDialogBox=HASH(0x89c9930): Bad option `-cancel_callback' at /usr/lib/perl5/Tk/Configure.pm line 46 .
at /usr/lib/perl5/Tk/Derived.pm line 294
at /usr/lib/perl5/Tk/Derived.pm line 306
|
|
|
