#! c:/Perl/bin/perl.exe -w
use Genesis;
use Tk 800.000;
use Encode;
use Win32::API;
$f = new Genesis;
require 'shellwords.pl';
use Archive::Tar;
#计算周期
my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
$num = $yday + 2;
if ( $num % 7 == 0 ){
$result = $num / 7;
}else{
$result = int( $num / 7 + 1 );
}
if ( $result % 2 == 0 ){
$result = $result + 1;
}
$year = $year + 1900;
$year =~ m/\w\w(\w\w)/;
if ( $result < 10 ){
$result = "0$result";
}
$yzq = "$1$result";
$uto = 0;
$ubo = 0;
#用户界面
$name0 = "检查";
$name0 = decode( "cp936", $name0 );
$name1 = "退出";
$name1 = decode( "cp936", $name1 );
$name2 = "确定";
$name2 = decode( "cp936", $name2 );
$name3 = "输入STEP:";
$name3 = decode( "cp936", $name3 );
$name4 = "输入编号:";
$name4 = decode( "cp936", $name4 );
$name6 = "原周期:";
$name6 = decode( "cp936", $name6 );
$name7 = "新周期:";
$name7 = decode( "cp936", $name7 );
$name8 = "输出文件前缀名:";
$name8 = decode( "cp936", $name8 );
$name10 = "改周期^专业Genesis perl 电话15914352464 QQ531074924";
$name10 = decode( "cp936", $name10 );
$mw = MainWindow->new( -title => $name10);
$mw->configure( -background => 'green3' );
$mv = $mw->Frame( -background => 'green3' )->pack( -side => 'bottom', -fill => 'both' );
$m1 = $mw->Frame( -background => 'lightblue1' ) ->pack( -side => 'bottom', -fill => 'both' );
$m2 = $m1->Frame( -background => 'steelblue1' ) ->pack( -side => 'bottom', -fill => 'both' );
#前端显示
$mw->update;
Win32::API->new( "user32", "SetWindowPos", [qw(N N N N N N N)], 'N' )->Call( hex( $mw->frame() ), -1, 0, 0, 0, 0, 3 );
#输入编号
$m1->Label(
-text => $name4,
-background => 'lightblue1',
-foreground => 'purple',
-font => [ -size => 15 ]
)->pack( -padx => 0, -side => 'left' );
my $font = $m1->Entry(
-width => 11,
-background => 'lightblue1',
# -textvariable => \$job,
-font => [ -size => 15 ]
);
$font->pack( -padx => 0, -side => 'left' );
$font -> focus;
#if($og == 0){
# $og = 1;
#$font -> bind('<Return>'=>\&org);
#}else{
# $og = 0;
#$font -> bind('<Return>'=>\&can);
#}
$font -> bind('<Return>'=>sub{&org});
#选择拼版
$m1->Label(
-text => $name3,
-background => 'lightblue1',
-foreground => 'purple',
-font => [ -size => 15 ]
)->pack( -padx => 0, -side => 'left' );
$step = 'pnl';
my $c_s = $m1->Entry(
-width => 8,
-background => 'lightblue1',
-foreground => 'purple',
-textvariable => \$step,
-font => [ -size => 15 ]
);
$c_s->pack( -padx => 0, -side => 'left' );
#原周期
$m2->Button(
-text => $name6,
-background => 'steelblue1',
-command => \&org,
-font => [ -size => 15 ]
)->pack( -side => 'left',
-padx => 0 );
my $font2 = $m2->Entry(
-width => 6,
-background => 'lightblue1',
-textvariable => \$gzq,
-font => [ -size => 15 ]
);
$font2->pack( -padx => 5, -side => 'left' );
#新周期
$m2->Button(
-text => $name7,
-background => 'steelblue1',
-command => \&main,
-font => [ -size => 15 ]
)->pack( -side => 'left',
-padx => 0 );
my $font1 = $m2->Entry(
-width => 8,
-background => 'lightblue1',
-textvariable => \$yzq,
-font => [ -size => 15 ]
);
$font1->pack( -padx => 0, -side => 'left' );
$mv->Button(
-text => $name2,
-background => 'green3',
-command => \&can,
-font => [ -size => 18 ]
)->pack( -side => 'left',
-padx => 30 );
$mv->Button(
-text => $name0,
-background => 'green3',
-command => \&main,
-font => [ -size => 18 ]
)->pack( -side => 'left',
-padx => 30 );
$mv->Button(
-text => $name1,
-background => 'green3',
-command => sub { exit },
-font => [ -size => 18 ]
)->pack( -side => 'right',
-padx => 30 );
MainLoop;
自动计算要改多少周,输入料号后 按回车键自动显示原本周期 ,再按回车输出资料
最新推荐文章于 2022-11-12 23:00:48 发布