2

我正在编写一个 GUI，它将监视是否每周进行各种测量。我已经编写了各种其他 GUI，用于每天将测量结果更新到数据库中。这些 GUI 使用 Tk::Date datewidget，它允许我按天切换

my $datewidget = $f_filter->Date(-choices=>'today', -datefmt=>'%2d %2m %4y', 
                 -fields=>'date', -varfmt=>'datehash',
                 -monthmenu=>1, -allarrows=>1,
                 -value=>'now', -command=>\&populate)->pack(-side=>'left');

这让我可以使用向上和向下箭头来增加/减少天数、更改月份和年份。在此处输入图像描述

我希望在每周 GUI 中做的是有一个向上和向下箭头，它只会按周切换。例如，本周将是“11 月 4 日星期一至 11 月 8 日星期五”，下周将是“11 月 11 日星期一至 11 月 15 日星期五”

我希望能够前进和后退几年。

在 perl-Tk::Date 或 Date::Entry 中是否有一种简单的方法可以做到这一点？

4

1 回答 1

2

Tk::Date并且Tk::DateEntry不能开箱即用。有了Tk::Date，我可以提出以下方法：

  • 使用-varfmt => 'unixtime'代替datehash，因为后者不适->configure(-value => ...)用于后面使用的调用
  • 设置-editable=>0为删除由创建的所有箭头按钮Tk::Date
  • 自己创建 inc/dec 按钮
  • 并使用DateTime（请参阅incweek此处的子程序）进行日期计算

像下面这样的东西可以工作：

use strict;
use Tk;
use Tk::Date;
my $mw = tkinit;
my $datewidget = $mw->Date(-choices=>'today', -datefmt=>'%2d %2m %4y', 
                           -fields=>'date', -varfmt=>'unixtime',
                           -editable=>0,
                           -monthmenu=>1,
                           -value=>'now',
                           -command=>sub { warn "populate @_" })->pack(-side=>'left');
my $arrowframe = $mw->Frame->pack(-side => 'left');
{
    no warnings 'once'; # because of INCBITMAP/DECBITMAP
    $arrowframe->FireButton(-bitmap => $Tk::FireButton::INCBITMAP, -command => sub { incweek(+1) })->pack(-side => 'top');
    $arrowframe->FireButton(-bitmap => $Tk::FireButton::DECBITMAP, -command => sub { incweek(-1) })->pack(-side => 'top');
}
MainLoop;

sub incweek {
    my($inc) = @_;
    use DateTime;
    my $epoch = $datewidget->get;
    my $dt = DateTime->from_epoch(epoch => $epoch);
    $dt = $dt->add(weeks => $inc);
    $datewidget->configure(-value => $dt->epoch);
}

__END__

请注意，$datewidget->get现在返回纪元时间，但使用DateTime您可以轻松地将其转换为 y/m/d 值。

于 2013-11-08T15:45:01.793 回答