NAME

Tk::DBI::DBGrid - grid äëÿ ïðîñìîòðà è ðåäàêòèðîâàíèÿ áàçû.

SYNOPSIS

use DBI;
use Tk;
use Tk::DBI::DBGrid;


my $dbh = DBI->connect( $dbhstr, $name, $pas, {AutoCommit => 0, RaiseError => 0}) or die DBI::errstr;

my $w = $MW->Toplevel(-title => 'dbgrid');

.....

my $sql = "SELECT field0, field1, field2 FROM table0";

# òîëüêî ïðîñìîò

my $grid = $w->DBGrid( -dbh => $dbh, -sql => $sql )->pack;



# ñ èñïîëüçîâàíèåì ðåäàêòèðîâàíèÿ, áåç âñòàêè è óäàëåíèÿ

my @pkey = ('field0');

my $upd = sub {
    my @row = @_;
    ..... # êàêîé-íèáóäü êîä äî update, åñëè íóæíî
    $dbh->do("UPDATE table0 SET  WHERE field0 = $row[0]");
    $dbh->commit;
    ..... # êàêîé-íèáóäü êîä ïîñëå update, åñëè íóæíî
    0;  
};

my $grid = $w->DBGrid( -dbh => $dbh, -sql => $sql, -maxrow => 10, -edit => 1, -pkey => \@pkey, -updfunc => $upd, -font => 'Courier 10' )->pack;



# with insert, delete and formating sells

my @pkey = ('field0');

my @cell;
$cell[0]{width} = 5;
$cell[0]{edit} = 0;        
$cell[0]{name} = 'title0'	# çàãîëîâîê äëÿ ïåðâîé êîëîíêè
$cell[1]{width} = undef;   # ñ÷èòûâàåòñÿ äëèíà ïîëÿ èç òàáëèöû
$cell[1]{edit} = 1;
$cell[2]{width} = 7;
$cell[2]{edit} = 1;
$cell[2]{justify} = 'left';


my $ins = sub {
    my @row = @_;
    ......
    $dbh->do("INSERT INTO table0 (field0, field1, field2) VALUES ($row[0], $row[1], $row[2])");
    $dbh->commit;
    ......
    1;
};

my $upd = sub {
    my @row = @_;
    ..... 
    $dbh->do("UPDATE table0 SET  WHERE field0 = $row[0]");
    $dbh->commit;
    ..... 
    0;
};

my $del = sub {
    my ($pkey) = @_;
    .....
    $dbh->do("DELETE FROM table0 WHERE field0 = $pkey");
    $dbh->commit;
    .....
    0;
};

my %fkey;                                                                             *
$fkey{ins} = 'Key-F5';
$fkey{del} = 'Key-F8';
$fkey{copy} = 'Control-Key-c';
$fkey{copy2} = 'Control-Key-C';
$fkey{copy3} = 'Control-Insert';

my $encd = sub {
    return decode('cp1251', $_[0]); # from module Encode
};


my $grid = $w->DBGrid( -dbh        => $dbh, 
                       -sql        => $sql, 
                       -maxrow     => 10, 
                       -edit       => 1, 
                       -pkey       => \@pkey, 
                       -insfunc    => $ins, 
                       -updfunc    => $upd, 
                       -delfunc    => $del, 
                       -titlbg     => '#f0f0f0', 
                       -seltitlbg  => 'gray',
                       -font       => 'Courier 10', 
                       -cellformat => \@cell, 
                       -fkeys      => \%fkey, 
                       -encodes    => $encd 
)->pack(-fill => 'x');

DESCRIPTION

DBGrid ïîçâîëÿåò ïðîñìàòðèâàòü/ðåäàêòèðîâàòü ëþáóþ òàáëèöó, ê êîòîðîé ìîæíî îáðàòèòüñÿ èñïîëüçóÿ çàïðîñ. Çàïðîñ ìîæåò îáúåäèíÿòü íåñêîëüêî òàáëèö.

Edit table

Äëÿ ðåäàêòèðîâàíèÿ íàäî ÷òî áû êàæäóþ çàïèñü ìîæíî áûëî îäíîçíà÷íî îïðåäåëèòü êàêèì-ëèáî ïîëåì, êîòîðîå áóäåò âûïîëíÿòü ôóíêöèþ primary key. Äëÿ ïåðåäà÷è èçìåíåíèÿ â áàçó èñïîëüçóþòñÿ ôóíêöèè, óêàçàòåëè íà êîòîðûå ïåðåäàþòñÿ â êîíñòðóêòîðå ( -insfunc, -updfunc & -delfunc ). Ñàìè ôóíêöèè îïèñûâàþòñÿ â îñíîâíîì òåêñòå ïðîãðàììû. Åñëè óêàçàòåëü íå ïåðåäàåòñÿ èëè ïåðåäàåòñÿ undef, òî ñîîòâåòñòâóþùåå äåéñòâèå íå îáðàáàòûâàåòñÿ. Åñëè â çàïðîñå áóäóò íàéäåíû êëþ÷åâûå ñëîâà ãðóïïîâûõ îïåðàöèé èëè UNION, òî DBGrid áóäåò â ðåæèìå ïðîñìîòðà ( àíàëîãè÷íî -edit => 0 ). Ïîñëå âûçîâîâ ôóíêöèé îòîáðàæàåìûå äàííûå îáíîâëÿþòñÿ åñëè âîçâðàùàåòñÿ 1.

Formating cells

Ïàðàìåòðû îòîáðàæåíèÿ êàæäîãî ïîëÿ îïðåäåëÿþòñÿ ïàðàìåòðàìè ñàìîé òàáëèöû (ñ÷èòûâàþòñÿ äëèíà ïîëÿ è òèï - òåêñòîâûé, öèñëîâîé è îñòàëüíûå). Äëÿ ïîëÿ, îïðåäåëåííîãî ÷åðåç -pkey, ðåäàêòèðîâàíèå íå äîñòóïíî. Âñå ÿ÷åéêè DBGrid - ýëåìåíòû óïðàâëåíèÿ Label èëè Entry, è ïîñëå îòîáðàæåíèÿ èìè ìîæíî óïðàâëÿòü îòäåëüíî, íàïðèìåð $grig->{rowframee}->[$i][$j]->configure( -font => 'Courier 12').

OPTIONS

-dbh

äåñêðèïòîð ñîåäèíåíèÿ ñ áàçîé äàííûé. Îáÿçàòåëüíûé ïàðàìåòð.

-sql

Çàïðîñ, ðåçóëüòàò êîòîðîãî îòîáðàæàåò DBGrig. Ðåçóëüòàòû çàïðîñà çàíîñÿòñÿ â ìàññèâ $grid->{table}->{data}->[íîìåð_çàïèñè][íîìåð_ïîëÿ]. Íóìåðàöèÿ èäåò ñ íóëÿ. Îáÿçàòåëüíûé ïàðàìåòð.

-maxrow

Ìàêñèìàëüíîå êîëè÷åñòâî çàïèñåé, îòîáðàæàåìîå íà ýêðàíå. Default 10.

-edit

Óêàçûâàåò â êàêîì ðåæèìå îòîáðàæàåòñÿ DBGrig : òîëüêî ïðîñìîòð ( 0 ) èëè ðåäàêòèðîâàíèÿ ( 1 ). Default 0.

-pkey

Äëÿ ðåæèìà ðåäàêòèðîâàíèÿ äîëæíî áûòü óêàçàíî êëþ÷åâîå ïîëå (primary key) è ñ÷èòûâàåòñÿ îíî èç ïåðâîãî ýëåìåíòà ìàññèâà, íà êîòîðûé ïåðåäàåòñÿ óêàçàòåëü. Åñëè -pkey íå îïðåäåëíåíî èëè íå íàéäåíî â çàïðîñå, òî edit = 0.

-incfunc

Óêàçàòåëü íà ôóíêöèþ, êîòîðàÿ âûçûâàåòñÿ äëÿ âñòàâêè íîâîé ñòðîêè. *  ôóíêöèþ ïåðåäàåòñÿ ìàññèâ, ñîäåðæàùèé çàïèñü äëÿ âñòàâêè â òàáëèöó. Ïîðÿäîê ïîëåé â çàïèñè òàêîé æå, êàê â çàïðîñå, ïîëó÷åííîì ÷åðåç -sql. Åñëè ôóíêöèÿ íå îïðåäåëåíà, íîâàÿ çàïèñü äîáàâëÿòñÿ íå áóäåò. Åñëè ôóíêöèÿ âîçâðàùàåò 1 (èñòèíà), òî ïîñëå åå âûçîâà îáíîâëÿþòñÿ äàííûå èç áàçû. Default undef.

-updfunc

Ðàáîòàåò àíàëîãè÷íî -insfunc, íî ñ îäíèì îòëè÷èåì: ïðè çíà÷åíèè undef * âñå ðàâíî ïîçâîëÿåò èçìåíÿòü çíà÷åíèÿ â ÿ÷åéêàõ, íî ýòè èçìåíåíèÿ â áàçó íå ïåðåäàþòñÿ. Åñëè â ôóíêöèè äàííûå íå ìîäèôèöèðóþòñÿ, òî äàííûå â êýøå ìîäóëÿ ëó÷øå íå îáíîâëÿòü (âîçâðàùàòü 0). Default undef.

-delfunc

Ðàáîòàåò àíàëîãè÷íî -insfunc.

-titlbg

Öâåò ôîíà çàãîëîâêîâ ïîëåé. Default for windows SystemButtonFace, for * other OS is #f0f0f0.

-seltitlbg

Öâåò ôîíà çàãîëîâêà àêòèâíîãî ïîëÿ. Ïî óìî÷àíèþ äëÿ windows SystemHighlight, äëÿ * îñòàëüíûõ gray.

-font

Øðèôò, èñïîëüçóåìûé â ÿ÷åéêàõ. Ò.ê. øèðèíà ýëåìåíòîâ Entry è Label çàäàåòñÿ â ñèìâîëàõ, òî äëÿ øðèôò äîëæåí áûòü monospaced, íàïðèìåð Courier. Default 'Courier 9'

-cellformat

óêàçàòåëü íà ìàññèâ, ïåðâûé ýëåìåíò êîòîðîãî óêàçûâàåò íà íîìåð ïîëÿ (íóìåðàöèÿ ñ íóëÿ), âòîðîé - ïàðàìåòð ôîðìàòèðîâàíèÿ ïîëÿ. width - øèðèíà ïîëÿ â ñèìâîëàõ, edit - äîñòóïíî ëè ðåäàêòèðîâàíèå äàííîãî ïîëÿ ïðè ðàçðåøåíèè ðåäàêòèðîâàíèè âñåé òàáëèöû, justify - öåíòðèðîâàíèå íàäïèñè (left, center, right).

-fkeys *

Óêàçàòåëü íà õýø, â êîòîðîì áóäóò õðàíèòüñÿ íîâûå êîìáàíèöèè êëàâèø äëÿ âñòàâêè è óäàëåíèÿ çàïèñåé: â ïîëå ins - âñòàâêà íîâîé çàïèñè, del - óäàëåíèå òåêóùåé, copy, copy2, copy3 - êîïèðîâàòü çàïèñü â áóôåð îáìåíà. Åñëè çíå÷åíèå -fkeys íå îïðåäåëåíî, òî äëÿ âñòàâêè íà÷çà÷àåòñÿ F5, äëÿ óäàëåíèÿ F8, äëÿ êîïèðîâàíèÿ â áóôåð - Ctrl+C and Ctrl+Ins.

-encodes *

Óêàçàòåëü íà ôóíêöèþ, êîòîðàÿ âûçûâàåòñÿ äëÿ ïåðåêîäèðîâàíèÿ èç êîäîâîé ñòðàíèöû áàçû äàííûõ â êîäîâóþ ñòðàíèöó ãðàôè÷åñêîé îáîëî÷êè, íàïðèìåð, â áàçå èñïîëüçóåòñÿ NLS_LANG=CL8MSWIN1251, à Gnome 2.x - UTF8. Åñëè ôóíêöèÿ íå îïðåäåëåíà, ïåðåêîäèðîâêà íå ïðîèçâîäèòñÿ. Default undef.

AUTHORS

Ëèõîòà Âàäèì vadim-lvv@yandex.ru

KEYWORDS

dbgrid, entry, label, database, table